在做asp查询时候 借鉴的一些代码 

留个纪念。。。。。。。

<!-- #include file="conn.asp"-->

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>套餐延期资料批量查询</title>

</head>

<body>

<%

dim sql,RS,area,xy,saler,etime,page,pagecount

saler = Trim(request.Form("saler"))

area = Trim(request.Form("area"))

xy = Trim(request.Form("xy"))

etime = Trim(request.Form("etime"))

'area = ""

tele = ""

product = ""

username = ""

tc_name = ""

byz = ""

bs = ""

stime =""

etime = ""

'saler = ""

'xy = ""

'uptime = ""

  Set RS=Server.CreateObject("ADODB.Recordset")

sql="SELECT * FROM tc WHERE"

  If saler<>"" Then sql=sql&" saler='"&saler&"' AND"

  If area<>"" Then sql=sql&" area='"&area&"' AND"

If xy<>"" Then sql=sql&" xy='"&xy&"' AND"

If etime<>"" Then sql=sql&" etime<'"&etime&"' AND"

if right(sql,5)="WHERE" then sql=left(sql,clng(len(sql))-5) '解决所有参数都为空的情况

if right(sql,3)="AND" then sql=left(sql,clng(len(sql))-3) '去掉参数最后的and

sql=sql&" order by number"

RS.open sql,Conn1,3,1

RS.PageSize=100

pagecount=RS.PageCount

page=int(request.QueryString("page"))

if page<=0 then page=1

if request.QueryString("page")="" then page=1

RS.AbsolutePage=page

'if request.form("area")="" and request.form("xy")="" and request.form("saler")="" then

  'response.write("请输入查询条件(可模糊查询)")

  'response.end

'end if

if RS.eof or RS.bof then

  response.write("<script language='javascript'>alert('没有该用户信息,请返回重新查询');location.href='search1.asp'</script>")

  response.end 

else

area = RS ("area")

tele = RS ("number")

product = RS ("product")

username = RS ("username")

tc_name = RS ("name")

byz = RS ("byz")

bs = RS ("bs")

stime = RS ("stime")

etime = RS ("etime")

xy = RS ("xy")

saler = RS ("saler")

uptime = RS ("uptime")

reason = RS("reason")

end if

%>

<table id="t1" align="center" width="90%" height="102" border="1" cellspacing="1" bordercolor="#FFFFFF">

<form name="Myform">

<tr style="text-align:center " id="tr1">

  <th colspan="14">套餐延期资料批量查询</th>

  </tr>

<tr bgcolor="#99FFFF" style="text-align:center " bordercolordark="#FFCCFF" bordercolorlight="#FFFFFF">

  <td>区域</td>

  <td>号码</td>

  <td>产品</td>

  <td>用户名称</td>

  <td>套餐名称</td>

  <td>包月值</td>

  <td>倍数</td>

<td>开始时间</td>

  <td>结束时间</td>

  <td>是否续约</td>

  <td>营销人员</td>

  <td>填报时间</td>

</tr>

<%for i=1 to RS.PageSize%>

  <%

if RS.EOF then

  exit for

  end if

%>

  <tr style="text-align:center " bordercolordark="#FFCCFF" bordercolorlight="#FFFFFF" >

<td><%=area %></td>

  <td><%=tele %></td>

  <td><%=product %></td>

  <td><%=username %></td>

  <td><%=tc_name %></td>

  <td><%=byz %></td>

  <td><%=bs %></td>

<td><%=stime %></td>

<td><%=etime %></td>

<td><%=xy %></td>

<td><%=saler %></td>

<td><%=uptime %></td>

</tr>

<%

RS.movenext

next

%>

</form>

</table>

<%if page=1 and not page=pagecount then%>

  <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>

<a href="info.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a href="info.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>

  <%elseif page=pagecount and not page=1 then%>

  <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>

<a href="info.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a href="info.asp?page=<%=page-1%>">上一页</a>&nbsp;&nbsp;</div>

  <%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>

  <%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>

  <%elseif page=1 and page=pagecount then%>

  <%else%>

  <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>

<a href="info.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a href="info.asp?page=<%=page-1%>">上一页</a>

  <a href="info.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>

<%end if%>

</body>

</html>

http://user.qzone.qq.com/372806800/blog/1345306209

asp批量查询的更多相关文章

  1. 未注册wang域名批量查询工具

    一.支持规则查询 可自定义生成域名进行查询,可生成任意位数的字母数字域名,根据[声母].[韵母]生成单拼,双拼,三拼等域名,还可根据字典生成,支持全拼.首拼识别,全国城市区号.城市全拼.城市首拼.热门 ...

  2. myBatis批量查询操作，xml中使用foreach案例

    使用场景:有一个订单表,实体类为OrderBase.java,订单有个状态为status值可能为"1,2,3,4,5,6",现在需要查询状态为"2,3,4"的订 ...

  3. MongoDB与传统数据库的使用区别——批量插入与批量查询

    我在百X知道上回答问题时经常遇到类似与这样的问题:MongoDB有没有像MySQL一样的ODBC驱动?MongoDB能不能像MySQL一样获取字段名称或类型. 我的回答是:不行,因为MongoDB不是 ...

  4. 使用一个T-SQL语句批量查询数据表占用空间及其行数

    原文:使用一个T-SQL语句批量查询数据表占用空间及其行数 要找到数据库中数据表占用的空间和存在的行数.可以使用sp_spaceused搭配数据表的名称.就可以产生该表耗用的空间和现有行数. 如: U ...

  5. ASP.NET查询页面设置form的action属性只弹出一个页面，并且每次将页面设置到最前

    原文:ASP.NET查询页面设置form的action属性只弹出一个页面,并且每次将页面设置到最前 背景 当数据量大.查询条件复杂,多样多的时候,我们可能需要单独做一个查询界面,当用户选择设置了相关的 ...

  6. 【JAVAEE学习笔记】hibernate02：实体规则、对象状态、缓存、事务、批量查询和实现客户列表显示

    一.hibernate中的实体规则 实体类创建的注意事项 1.持久化类提供无参数构造 2.成员变量私有,提供共有get/set方法访问.需提供属性 3.持久化类中的属性,应尽量使用包装类型 4.持久化 ...

  7. Oracle批量查询、删除、更新使用BULK COLLECT提高效率

    BULK COLLECT(成批聚合类型)和数组集合type类型is table of 表%rowtype index by binary_integer用法笔记 例1: 批量查询项目资金账户号为 &q ...

  8. 批量查询sql脚本

    远程批量查询sql脚本 for i in {1..50} do sql_ip=172.168.0.${i}   information=`mysql -h ${sql_ip} -uroot -ppas ...

  9. 写了个批量查询qs的软件

    因为需要,自己写了个批量查询qs的小软件.从网站中抓出需要的数据,格式化显示: 对字符串进行检测处理,先用Replace函数去掉字符串的空格,再用正则表达式匹配,返回匹配的字符串,如果没有匹配,则返回 ...

随机推荐

  1. linux下获取本机IP

    转载:http://blog.chinaunix.net/uid-20593763-id-1620213.html 源代码级Unix/Linux 通用网卡IP地址获取方法 在Unix和Linux系统下 ...

  2. do some projects in macine learning using python

    i want to do some projects in macine learning using python help me in this context I don't know if y ...

  3. jq制作博客已存在多少天

    function current(){ var d=new Date(),str=''; var date=((d.getMonth()+1)*30+(d.getFullYear())*365+d.g ...

  4. bzoj1150: [CTSC2007]数据备份Backup--贪心+优先队列维护堆

    题目大意:将k对点两两相连,求最小长度 易证得,最优方案中,相连的办公楼一定是取相邻的比取不相邻的要更优 然后就可以用贪心来做这道题了.. 之前向CZL大神学习了用堆来贪心的做法orz 大概思路就是将 ...

  5. JavaScript 几种简单的table切换

    方法一:for循环+if判断当前点击与自定义数组是否匹配 <!DOCTYPE html> <html lang="en"> <head> < ...

  6. HTML - 毛玻璃 滤镜 模糊

    css 秘密花园 http://dabblet.com/gist/d9f243ddd7dbffa341a4 场景,背景图片 + 毛玻璃遮盖 原理:利用background的cover特性,将毛玻璃的区 ...

  7. 在windows7下安装CentOS

    需要用到的软件 EasyBCD 设置索引菜单 PA5.2_Portable 分区助手 WinGrub 查看硬盘代号 1.使用分区助手,腾出至少4GB的空间,并格式化为fat32格式,将CentOS的I ...

  8. A+B Problem III-(涉及误差）NYOJ-477

    描述求A+B是否与C相等.   输入 T组测试数据. 每组数据中有三个实数A,B,C(-10000.0<=A,B<=10000.0,-20000.0<=C<=20000.0) ...

  9. BizTalk开发系列(三十七) 性能监视器在BizTalk性能测试中的使用

    BizTalk应用程序的性能测试和分析是一个非常重要的过程,因为BizTalk的应用程序在Run-time时受部署结构.消息请求数量和消息大小等 的影响很大,因此无论是简单还是复杂的的应用都需要在部署 ...

  10. Android课程---计算器的实现

    <?xml version="1.0" encoding="utf-8"?> <manifest xmlns:android="ht ...