📄 search.asp
字号:
<br>
<%
search = Request.Form("search")
status = Request.Form("status")
if status = "delete" then
PageSize = 10
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"
If Request("PageTo") <> "" Then
strPageTo = Request("PageTo")
If strPageTo <> "" Then
nPageTo = int(strPageTo)
If nPageTo < 1 Then
nPageTo = 1
End If
Else
nPageTo = 1
End If
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
else
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout=15
Conn.CommandTimeout=30
Conn.Open Conn_String
Set Cmd=Server.CreateObject("ADODB.Command")
Set RS=Server.CreateObject("ADODB.Recordset")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText="select * from link2 where Keyword like'%" & search & "%' or Description like '%" & search & "%' order by Name"
RS.Open Cmd, , 1, 1
RS.PageSize = PageSize
Set Session("ListingRS") = RS
nPageTo = 1
If not (RS.BOF and RS.EOF) Then
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
End If
end if
If RS.EOF Then
Response.Write(" <center><br><br><font size=4 color='red' face='宋体'><b>没有找到符合条件的网站 : " & search & "</b></font><br></center>")
Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0
Count = 0
for i = 1 to Count
next
%>
<center>
<table border=0 width=400 cellspacing=0>
<tr><td bgcolor="#FFCC00" width="300">
<a href="deleteurl.asp?id=<%=RS("ID")%>"><b><%=RS("Name")%></b></a> <font color='red'>[新]</font>
</td><td bgcolor="#FFCC00" width="100"><font face="宋体" size=2 color='red'>点击 : <%=RS("Hit")%> </font></td>
</tr>
<tr>
<td colspan='2' bgcolor="#FFCC66"><%=RS("Description")%> </td>
</tr>
</table>
</center><br>
<%
nRowCount = nRowCount - 1
RS.MoveNext
Wend
'Display Paging Buttons
Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
' Display <<
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' << First ' style='{font-weight:bold}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' << First ' style='{font-weight:bold}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display <
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' < Previous ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' < Previous ' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
End If
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Next > ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Next >' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >>
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Last >> ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Last >> ' id=submit1 name=submit1 style='{font-weight:bold}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td colspan=4 align=center><font face='宋体' size=2 ><b>第 </font><font face='宋体' size=3 color='red'><b>" & nPageTo & "</font><font face='宋体' size=2> 页 </font><font face='宋体' size=2><b> 共</font> <font face='宋体' size3 color='red'><b>" & RS.PageCount & "</font></b><font face='宋体' size=2> 页 </font>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
end if
else
PageSize = 10
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"
If Request("PageTo") <> "" Then
strPageTo = Request("PageTo")
If strPageTo <> "" Then
nPageTo = int(strPageTo)
If nPageTo < 1 Then
nPageTo = 1
End If
Else
nPageTo = 1
End If
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
else
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout=15
Conn.CommandTimeout=30
Conn.Open Conn_String
Set Cmd=Server.CreateObject("ADODB.Command")
Set RS=Server.CreateObject("ADODB.Recordset")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText="select * from link2 where Keyword like'%" & search & "%' or Description like '%" & search & "%' order by Name"
RS.Open Cmd, , 1, 1
RS.PageSize = PageSize
Set Session("ListingRS") = RS
nPageTo = 1
If not (RS.BOF and RS.EOF) Then
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
End If
end if
If RS.EOF Then
Response.Write(" <center><br><br><font size=4 color='red' face='宋体'><b>没有找到符合条件的网站 : " & search & "</b></font><br></center>")
Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0
Count = 0
for i = 1 to Count
next
%>
<center>
<table border=0 width=400 cellspacing=0>
<tr><td bgcolor="#FFCC00" width="300">
<a href="editurl.asp?id=<%=RS("ID")%>"><b><%=RS("Name")%></b></a> <font color='red'>[新]</font>
</td><td bgcolor="#FFCC00" width="100"><font face="宋体" size=2 color='red'>点击 : <%=RS("Hit")%> </font></td>
</tr>
<tr>
<td colspan='2' bgcolor="#FFCC66"><%=RS("Description")%> </td>
</tr>
</table>
</center><br>
<%
nRowCount = nRowCount - 1
RS.MoveNext
Wend
'Display Paging Buttons
Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
' Display <<
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' << First ' style='{font-weight:bold}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' << First ' style='{font-weight:bold}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display <
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' < Previous ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' < Previous ' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
End If
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Next > ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Next >' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >>
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Last >> ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Last >> ' id=submit1 name=submit1 style='{font-weight:bold}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td colspan=4 align=center><font face='宋体' size=2 ><b>第 </font><font face='宋体' size=3 color='red'><b>" & nPageTo & "</font><font face='宋体' size=2 ><b>页 </font> <font face='宋体' size=2><b> 共</font> <font face='宋体' size3 color='red'><b>" & RS.PageCount & "</font></b><font face='宋体' size=2> 页 </font>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -