📄 search.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =Title %> - 首页</title>
<!--#include file="head.asp"-->
<%
search = trim(Request("search"))
select1 = trim(Request("select1"))
dim sq1
select case select1
case "1"
sql = "select * from shuju where kfname like '%" & search & "%' order by id desc"
case "2"
sql = "select * from shuju where date like '%" & search & "%' order by id desc"
case "3"
sql = "select * from shuju where fax like '%" & search & "%' order by id desc"
case "4"
sql = "select * from shuju where tel like '%" & search & "%' order by id desc"
end select
%>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
'Sql="Select * from shuju where del = 0 order by id desc"
mRs.open Sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<script>alert('没有找到您所要的客户信息!!请确定您的输入');this.location.href='index.asp';</Script>"
Else
mRs.PageSize =20'每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
mRs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
End If
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1">
<tr>
<td width="100%" align="center"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="4%" height="29" bgcolor="f3f3f3" align="center">日期</td>
<td width="12%" bgcolor="f3f3f3" align="center">客户名</td>
<td width="9%" bgcolor="f3f3f3" align="center">货名</td>
<td width="6%" bgcolor="f3f3f3" align="center">报价人</td>
<td width="7%" bgcolor="f3f3f3" align="center">传真号码</td>
<td width="5%" bgcolor="f3f3f3" align="center">报价总金额</td>
<td width="8%" bgcolor="f3f3f3" align="center">币种</td>
<td width="4%" bgcolor="f3f3f3" align="center">详细</td>
</tr>
</table>
<%
i=1
for j=1 to mRs.pagesize
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="line">
<tr onMouseOver="javascript:this.bgColor='#F7F7F7';" onMouseOut="javascript:this.bgColor='#FFFFFF';">
<td width="4%" height="25" align="center"><%=mRs("date")%></td>
<td width="12%" align="center">
<a href="qq.asp?id=<%=mRs("id")%>" target="_blank" title='请与电话 <%=mRs("kfname")%> 联系!'><%=mRs("kfname")%></a></td>
<td width="9%" align="center">
<%=mRs("cpname1")%></td>
<td width="6%" align="center"><%=mRs("bjname")%></td>
<td width="7%" align="center"><font color="#339900"><%=mRs("fax")%></font></td>
<td width="5%" align="center"><%=mRs("zjiner")%></td>
<td width="8%" align="center"><font color=#FF0000><%=mRs("bname")%></font></td>
<td width="4%" align="center"><a href="qq.asp?id=<%=mRs("id")%>" target="_blank"><font color="#0099ff">查看</font></a></td>
</table>
<%
i=i+1
mRs.movenext
If mRs.eof then exit for
next
%>
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
mRs.close
Set mRs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
If page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上一页 " & vbCrLf)
Else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
End If
If page>=pagecount then
Response.Write ("下一页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
Else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
End If
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "个记录" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page class=diyColor3 SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=diyColor3>")
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
</td>
</tr>
</table>
</tr>
</table>
<table width="89%" border="0" align="center" cellpadding="0" style="border-collapse: collapse">
<tr>
<td align="center"><% =Copyright %></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -