在做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. [LintCode] Coins in a Line 一条线上的硬币

    There are n coins in a line. Two players take turns to take one or two coins from right side until t ...

  2. mysql语句 索引操作

    创建索引:(help create index;) CREATE INDEX indexName ON tableName(Coll,Coll....); ALTER TABLE tableName ...

  3. Python的缩进

    关于python的缩进:如果要确认一个函数包含哪些内容,java或php可以使用大括号将函数内容包含起来,但python里没有那样的大括号,python靠“缩进”(四个空格)来确定语句块的始末. 这是 ...

  4. 第一章 开始编写第一个jsp

    第一章 搭好框架,需要tomcat服务器和jdk. JSP是Java Server Page的缩写,现在先让我们编写一个简单的jsp页面,看看jsp究竟能干什么? <%=new java.uti ...

  5. 当table中的td内容过多，显示不完全，用省略号表示。

    .format{ min-width:100px; max-width:200px; overflow:hidden; white-space:nowrap; text-overflow:ellips ...

  6. E-Dijkstal

    1005 输出用%f,1009别做了 Problem E Time Limit : 2000/1000ms (Java/Other)   Memory Limit : 32768/32768K (Ja ...

  7. gvim配置

    colorscheme darkblue set lines=100 set columns=150

  8. Win8.1屏幕亮度自动调节关闭方法

    细心的朋友会发现,Win8.1系统的笔记本屏幕亮度有时候,会根据外界光线亮度以及温度自动调节屏幕亮度,尽管看似比较智能,但有时候我们并不希望笔记本屏幕亮度受光线影响,忽暗忽亮.如果我们希望Win8笔记 ...

  9. BZOJ4448:[SCO2015]情报传递

    题目大意:给你一棵树,有两种操作,一个是修改某个点的权值,另一个是询问两点之间的距离以及路径上小于某个值的数的个数. 询问两点之间距离直接lca即可,对于求个数的问题可以用主席树完成. #includ ...

  10. mysql5.5手册读书日记(4)

    <?php /* InnoDB事务模型和锁定 15.2.10.1. InnoDB锁定模式 15.2.10.2. InnoDB和AUTOCOMMIT 15.2.10.3. InnoDB和TRANS ...