📄 searchreader.asp
字号:
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：searchkreader.asp
' 原创作者：dan
' 作者邮件：
' 创建日期：星期六，2008年12月06日 16:06:39
' 版权所有(C)Lenovo
'--------------------------------------------------------------%>
<HTML>
<HEAD>
<Title>seekreader.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
'数字判断函数，是否为正整数，不是整数就返回true,否则返回false
function IsInter(n)
if NOT IsNumeric(n) then
IsInter=true
else
Dim a,b,c
c=CInt(n)
a=CDbl(c)
b=CDbl(n)
if c<1 then
IsInter=true
else
if a<>b then
IsInter=true
else
IsInter=false
end if
end if
end if
end function
Dim rID,rName,rSex,rDept,rGrade0,rGrade1
Dim sql
rID=Request.Form("rID")
rID=Replace(rID,"'","''",1,-1,vbTextCompare)
rName=Request.Form("rName")
rName=Replace(rName,"'","''",1,-1,vbTextCompare)
rSex=Request.Form("rSex")
rDept=Request.Form("rDept")
rDept=Replace(rDept,"'","''",1,-1,vbTextCompare)
rGrade0=Request.Form("rGrade0")
rGrade1=Request.Form("rGrade1")
if rID="" then
else
sql="rID Like '%"&rID&"%'"
end if
if rName="" then
else
if sql<>"" then
sql=""&sql&" and rName Like '%"&rName&"%'"
else
sql="rName Like '%"&rName&"%'"
end if
end if
if rSex="" then
else
if sql<>"" then
sql=""&sql&" and rSex='"&rSex&"'"
else
sql="rSex='"&rSex&"'"
end if
end if
if rDept="" then
else
if sql<>"" then
sql=""&sql&" and rDept Like '%"&rDept&"%'"
else
sql="rDept Like '%"&rDept&"%'"
end if
end if
if IsInter(rGrade0) then
if IsInter(rGrade1) then
else
rGrade1=CInt(rGrade1)
if sql<>"" then
sql=""&sql&" and rGrade<="&rGrade1&""
else
sql="rGrade<="&rGrade1&""
end if
end if
else
rGrade0=CInt(rGrade0)
if IsInter(rGrade1) then
if sql<>"" then
sql=""&sql&" and rGrade>="&rGrade0&""
else
sql="rGrade>="&rGrade0&""
end if
else
rGrade1=CInt(rGrade1)
if sql<>"" then
sql=""&sql&" and rGrade>="&rGrade0&" and rGrade<="&rGrade1&""
else
sql="rGrade>="&rGrade0&" and rGrade<="&rGrade1&""
end if
end if
end if
if sql="" then
sql="select * from readerTable"
else
sql="select * from readerTable where "&sql&""
end if
'Response.Write(sql)
'Response.End()
Dim rs
Set rs=Session("s_DBConn").Execute(sql)
if rs.EOF then
Response.Write("<table border=1></table>")
else
Response.Write("<table border=1>")
while NOT rs.EOF
Response.Write("<tr><td>"&rs("rID")&"</td><td>"&rs("rName")&"</td><td>"&rs("rSex")&"</td><td>"&rs("rDept")&"</td><td>"&rs("rGrade")&"</td></tr>")
rs.MoveNext()
wend
Response.Write("</table>")
end if
rs.Close()
Set rs=Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -