在做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. SBT Assembly - Deduplicate error & Exclude error

    sbt assembly java.lang.RuntimeException: deduplicate: different file contents found in the following ...

  2. CSS重新认识（一）

    1. 所有的元素都遵循盒子模型,即内容部分+padding(填充部分)+border+margin(外边距部分); 2.我们平常定义的width与height指的内容部分的长宽; 3. 行内元素在不改 ...

  3. apache中.htaccess不起作用

    找到apache的配置文件httpd.conf文件,找到:  代码如下 复制代码 #LoadModule rewrite_module modules/mod_rewrite.so 去掉前面的#号. ...

  4. .net 新闻点击量修改，避免恶意刷新

    DataTable dt = bll.GetNewsByID(id);//根据ID获取的新闻详细内容 if (dt != null && dt.Rows.Count > 0) { ...

  5. mongoDB01 介绍

    MongoDB是一个开源文档型数据库,能够提供高性能.高可用性以及自动拓展. 文档数据库 MongoDB中的一条记录就是一个文档,是一个数据结构,由字段和值对组成.MongoDB文档与JSON对象类似 ...

  6. 笔记本(WIN7|XP)发射wifi信号 当无线路由使用

    Windows7系统 第一步:是你的电脑上要有两个网卡一个有线一个无线(笔记本应该都有)台式机可以考虑买个USB无线网卡(50左右) 第二步:win+R  CMD  输入(只输入红色部分) netsh ...

  7. Python的全局变量

    应该尽量避免使用全局变量.不同的模块都可以自由的访问全局变量,可能会导致全局变量的不可预知性.对全局变量,如果程序员甲修改了_a的值,程序员乙同时也要使用_a,这时可能导致程序中的错误.这种错误是很难 ...

  8. DHTML概述

    <!-- DHTML概述:动态的HTML.不是一门语言,是多项技术综合体的简称. 其中包含了HTML.CSS.DOM.JavaScript. 这四个技术在动态HTML页面效果定义时,都处于什么样 ...

  9. Solved Unable to copy the source file ./installer/services.sh to the destination file /etc/vmware-t

    Sometimes when you intall vmwaretools there will be some problems such as "Unable to copy the s ...

  10. linux命令学习（1）：grep 命令

    Linux系统中grep命令是一种强大的文本搜索工具,它能使用正则表达式搜索文本,并把匹 配的行打印出来.grep全称是Global Regular Expression Print,表示全局正则表达 ...