📄 admin_search.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="dbpath.asp"-->
<!--#include file="../confirm.asp"-->
<%
if session("admin")="" then
objconn.close
set objconn=nothing
response.redirect "../default.asp"
end if
%>
<html>
<head>
<title>Search Results</title>
<link rel="stylesheet" type="text/css" href="../links.css">
</head>
<body marginwidth="0" leftmargin="0"topmargin="0" marginheight="0" >
<center>
<table border="0" width="640" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="100%" > <a href="main.asp">管理主页面</a>>>查找图片：
</table>
<%dim objrs,sql,keyword,CurPage
keyword=trim(request("keyword"))
keyword=replace(keyword,"'","''")
if keyword = "" then
response.write"<center>you must input a keyword to search!</center>"
response.end
end if
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
set objrs=server.CreateObject("ADODB.RecordSet")
sql="select * from gallery where imagename Like '%"& keyword &"%' or image like '%"& keyword &"%' order by dateandtime desc"
objrs.open sql,objconn,1,1
if not objrs.eof then
objRS.PageSize=objrs1("number")
Dim TotalPages
TotalPages = objRS.PageCount
If CurPage>objRS.Pagecount Then
CurPage=objRS.Pagecount
end if
objRS.AbsolutePage=CurPage
objrs.CacheSize = objRS.PageSize
Dim Totalcount
Totalcount =INT(objRS.recordcount)
%>
<table width="640" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td nowrap width="100%">你查找的关键字<font color="#FF0000"><%=keyword%></font>
返回<font color="#FF0000"><%=Totalcount%></font>结果！</td>
</tr>
</table>
<table width="640" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#cc0099">
<td height="20">
<div align="center"><b><font color="#FFFFFF">编号</font></b></div>
</td>
<td height="20">
<div align="center"><b><font color="#FFFFFF">图片名称</font></b></div>
</td>
<td height="20">
<div align="center"><b><font color="#FFFFFF">图片地址</font></b></div>
</td>
<td height="20">
<div align="center"><b><font color="#FFFFFF">缩图地址</font></b></div>
</td>
<td width="90" height="20">
<div align="center"><b><font color="#FFFFFF">编辑</font></b></div>
</td>
<td width="60" height="20">
<div align="center"><b><font color="#FFFFFF">删除</font></b> </div>
</td>
</tr>
<%do while (Not objRS.Eof) and (II<objRS.PageSize)%>
<tr>
<td height="20">
<div align="center"><%=objrs("id")%></div>
</td>
<td height="20">
<div align="center"><%=replace(objrs("imagename"),""&keyword&"","<font color=red>"&keyword&"</font>")%></div>
</td>
<td height="20">
<div align="center"><a href="<%=objrs1("url")%>/pictures/<%=objrs("image")%>" target="_blank"><%=objrs("image")%></a></div>
</td>
<td height="20">
<div align="center"><a href="<%=objrs1("url")%>/thumbs/<%=objrs("thumb")%>" target="_blank"><%=objrs("thumb")%></a></div>
</td>
<td width="90" height="20">
<div align="center"><a href="edit.asp?id=<%=objrs("id")%>">编辑</a></div>
</td>
<td width="60" height="20">
<div align="center"><a href="delete.asp?id=<%=objrs("id")%>">删除</a></div>
</td>
</tr>
<tr>
<td colspan="6">
<hr size="1" width="100%">
</td>
</tr>
<%objrs.movenext
II=II+1
loop%>
</table>
<%StartPageNum=1
do while StartPageNum+4=CurPage
StartPageNum=StartPageNum+4
Loop
EndPageNum=StartPageNum+4-1
If EndPageNum>objRS.Pagecount then EndPageNum=objRS.Pagecount%>
<table width="640" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>页面：<%=CurPage%> 第<%=TotalPages%> 页</td>
<td align="right" nowrap>
<%response.write"Page:<a href=admin_search.asp?keyword="&keyword&"&CurPage="&StartPageNum-1&"> << </a>"
For I=StartPageNum to EndPageNum
if I<>CurPage then
response.write"<a href=admin_search.asp?keyword="&keyword&"&CurPage="&I&">["&I&"]</a>"
else
response.write"<font color=#FF0000><b>"&I&"</b></font>"
end if
Next
if EndPageNum<objRS.Pagecount then
response.write"<a href=admin_search.asp?keyword="&keyword&"&CurPage="&EndPageNum+1&">[more...]</a>"
end if%>
</td>
</tr>
</table>
<%else%>
<table width="630" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td>
<div align="center">对不起，没有找到相关图片！</div>
</td>
</tr>
</table>
<%end if%>
</center>
</body> </html><%
objrs1.close
set objrs=nothing
set objrs1=nothing
objconn.close
set objconn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -