asp批量查询

在做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
posted @ 2017-01-04 14:05 风来风往风伤(TiAmo）阅读(378) 评论(0) 编辑收藏举报
刷新页面返回顶部
风来风往风伤

asp批量查询

公告
