📄 search.asp
字号:
<%PageName="Search"%>
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<%
keyword=trim(request("keyword"))
keyword=replace(keyword,"'","''")
stype=request("stype")
if keyword="" then
errmsg="<li>查找字符不能为空串，请重输入查找的信息<a href=""javascript:history.go(-1)"">返回重查</a></li>"
call error()
response.end
end if
%>
<html>
<head>
<title>-=域名注册申请列表=-</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="center.asp"-->
<table border="0" width="100%" cellspacing="0" cellpadding="0" >
<tr>
<td width="70%" valign="top" align="center">
<table width="100%">
<tr>
<td>
<%
'---------------------------search----------------------
Set rs= Server.CreateObject("ADODB.Recordset")
if stype="bond" then
sql="select * from agency where bond Like '%"& keyword &"%' order by id desc"
elseif stype="relation" then
sql="select * from user where relation Like '%"& keyword &"%' order by id desc"
elseif stype="yuming" then
sql="select * from yuming where username Like '%"& keyword &"%' order by id desc"
elseif stype="agencytel" then
sql="select * from agency where tel Like '%"& keyword &"%' order by id desc"
elseif stype="xnzjemail" then
sql="select * from user where email Like '%"& keyword &"%' order by id desc"
elseif stype="yumingemail" then
sql="select * from yuming where yuming1 Like '%"& keyword &"%' order by id desc"
else
end if
rs.open sql,conn,1,1
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if rs.eof and rs.bof then
if stype="bond" then
response.write "<p align='center'> 未 找 到 你 想 要 的 代 理 商</p>"
elseif stype="relation" then
response.write "<p align='center'> 未 找 到 你 想 要 的 主 机</p>"
elseif stype="yuming" then
response.write "<p align='center'> 未 找 到 你 想 要 的 域 名</p>"
elseif stype="agencytel" then
response.write "<p align='center'> 未 找 到 你 想 要 的 代 理 商</p>"
elseif stype="xnzjemail" then
response.write "<p align='center'> 未 找 到 你 想 要 的 主 机</p>"
elseif stype="yumingemail" then
response.write "<p align='center'> 未 找 到 你 想 要 的 域 名</p>"
else
end if
else
totalPut=rs.recordcount
MaxPerPage=10
PageUrl="search.asp"
if currentpage<1 then currentpage=1
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,PageUrl
showContent
showpage totalput,MaxPerPage,PageUrl
search
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,PageUrl
showContent
showpage totalput,MaxPerPage,PageUrl
search
else
currentPage=1
showpage totalput,MaxPerPage,PageUrl
showContent
showpage totalput,MaxPerPage,PageUrl
search
end if
end if
rs.close
end if
sub showContent
i=0
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<td>
<!-----------------------搜索代理商----------------------------->
<%if stype="bond" then%>
<table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="" bgcolor="">
<tr>
<td colspan="7" height=18 align=center>:::::::::::代理商搜索:::::::::::</td>
</tr>
<tr>
<td width="5%" height=18 align=center>ID</td>
<td width="16%" height=18 align=center>代理商姓名</td>
<td width="15%" height=18 align=center>性质</td>
<td width="26%" height=18 align=center>地址</td>
<td width="20%" height=18 align=center>电话</td>
<td width="9%" height=18 align=center>锁定</td>
<td width="9%" height=18 align=center>删除</td>
</tr>
<%do while not rs.eof%>
<tr>
<td align=center>
<%'=rs("id")%>
<%=totalPut-(i+MaxPerPage*(currentpage-1)-1)%> </td>
<td align=center><a href="agencylist1.asp?ID=<%=rs("ID")%>" target="_blank">
<%=rs("bond")%></a>
<%if DateValue(rs("addDate"))=date() then%>
<img src="images/new.gif">
<%end if%>
</td>
<td align=center>
<%if rs("onetype")=1 then%>
个人
<%else%>
公司/单位/组织
<%end if%>
</td>
<td align=center><a href="agencylist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("address")%></a> </td>
<td align=center><a href="agencylist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("tel")%></a> </td>
<td align=center>
<input type=button name=lock value=<%if rs("lockuser")=false then%>"锁定"<%else%>"开锁"<%end if%> onclick="javascript:window.open('agencySave.asp?id=<%=rs("id")%>&act=lock','_self','')">
</td>
<td align=center>
<input type=button name=del value=删除 onclick="javascript:window.open('agencyDel.asp?id=<%=rs("id")%>','_self','')">
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<!-----------------------搜索虚拟主机----------------------------->
<%elseif stype="relation" or stype="xnzjemail" then%>
<table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td colspan="7" height=18 align=center>:::::::::::主机搜索:::::::::::</td>
</tr>
<tr>
<td width="5%" height=18 align=center>ID</td>
<td width="16%" height=18 align=center>姓名</td>
<td width="15%" height=18 align=center>主机类型</td>
<td width="26%" height=18 align=center>信箱</td>
<td width="20%" height=18 align=center>电话</td>
<td width="9%" height=18 align=center>锁定</td>
<td width="9%" height=18 align=center>删除</td>
</tr>
<%do while not rs.eof%>
<tr>
<td align=center>
<%'=rs("id")%>
<%=totalPut-(i+MaxPerPage*(currentpage-1)-1)%> </td>
<td align=center><a href="xnzjlist1.asp?ID=<%=rs("ID")%>" target="_blank">
<%=rs("relation")%></a>
<%if DateValue(rs("addDate"))=date() then%>
<img src="images/new.gif">
<%end if%>
</td>
<td align=center><a href="xnzjlist1.asp?ID=<%=rs("ID")%>" target="_blank"> <%=rs("dlbtype")%></a> </td>
<td align=center><a href="xnzjlist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("Email")%></a></td>
<td align=center><a href="xnzjlist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("phone")%></a> </td>
<td align=center>
<input type=button name=lock value=<%if rs("lockuser")=false then%>"锁定"<%else%>"开锁"<%end if%> onclick="javascript:window.open('agencySave.asp?id=<%=rs("id")%>&act=lock','_self','')">
</td>
<td align=center>
<input type=button name=del value=删除 onclick="javascript:window.open('agencyDel.asp?id=<%=rs("id")%>','_self','')">
</td>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<!-----------------------搜索域名----------------------------->
<%elseif stype="yuming" or stype="yumingemail" then%>
<table border="0" width="100%" cellspacing="0" cellpadding="2" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td colspan="7" height=18 align=center>:::::::::::域名搜索:::::::::::</td>
</tr>
<tr>
<td width="5%" height=18 align=center>ID</td>
<td width="16%" height=18 align=center>姓名</td>
<td width="15%" height=18 align=center>域名</td>
<td width="26%" height=18 align=center>信箱</td>
<td width="20%" height=18 align=center>电话</td>
<td width="9%" height=18 align=center>锁定</td>
<td width="9%" height=18 align=center>删除</td>
</tr>
<%do while not rs.eof%>
<tr>
<td align=center>
<%'=rs("id")%>
<%=totalPut-(i+MaxPerPage*(currentpage-1)-1)%> </td>
<td align=center><a href="yuminglist1.asp?ID=<%=rs("ID")%>" target="_blank">
<%=rs("username")%></a>
<%if DateValue(rs("addDate"))=date() then%>
<img src="images/new.gif">
<%end if%>
</td>
<td align=center> <a href="yuminglist1.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("yuming1")%></a></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -