?? sou.asp
字號:
<!--#include file="7dipath.asp"-->
<%
if request.cookies("okadmin")="" then
response.redirect "../7dilogin.asp"
end if
%>
<%
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<body leftmargin="0" topmargin="0">
<P align="center">
<table border="0" width="98%" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="100%"><%
name=trim(request("keyword"))
name=replace(name,"'","''")
if name="" then
response.write"<a href=""javascript:history.go(-1)"">查找項目不能為空，請重輸入查找的信息然后點擊“查詢”</a>"
response.end
else
sql="select * from gq where subject Like '%"& name &"%' or memo like '%"& name &"%' or phone like '%"& name &"%' or address like '%"& name &"%' or code like '%"& name &"%' or name like '%"& name &"%' or email Like '%"& name &"%'or gs Like '%"& name &"%'order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
end if
if rs.eof then
response.write"<a href=""javascript:history.go(-1)"">沒有你要查找的信息，請返回重查。</a>"
response.end
else
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
rs.pagesize=10 '每頁顯示的記錄數量
totalPut=rs.recordcount '記錄總數
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showpages
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移動到開始顯示的記錄位置
showpages
showContent
showpages1
else
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
%>
<br></TD></TR></TABLE>
<table width="98%" border="0" style="border-collapse: collapse" cellpadding="0" cellspacing="0" class="t5">
<% i=1
do while not (rs.eof or err)
if i mod 2 <> 0 then %>
<tr>
<%else%>
<tr>
<%end if%>
<td width="100%">
<ul>
<li><% if rs("gq")="需求" then%> <font color="#fc9603" size="2pt">【<%=rs("gq")%>】</font>
<%else%> <font color="#079807">【<%=rs("gq")%>】</font> <%end if%>
<font color="#aa0000"><%=rs("subject")%></font>(<%=rs("date")%>?<%=rs("time")%>)（<%=rs("lbid")%>地區<%=rs("name")%>）<br>
<%=rs("gs")%> (<%=rs("date")%>?<%=rs("time")%>)【<a href="../open.asp?id=<%=rs("id")%>" target="_blank">詳細信息...</a>】
<%Response.Write "【<A HREF=xggq.asp?userid=" & cstr(rs("id")) & "&page=" & cstr(currentpage) & "&lbid=" & cstr(request("lbid"))& ">修改</A>】" %>
<%Response.Write "【<A HREF=delelist.asp?userid=" & cstr(rs("id")) & "&page=" & cstr(currentpage) & "&lbid=" & cstr(request("lbid"))& ">刪除</A>】"%>
</ul>
</td>
</tr>
</TR>
<%
if i>=MaxPerPage then exit do '循環時如果到尾部則先退出，如果記錄達到頁最大顯示數，也退出
i=i+1
rs.movenext
loop
%>
</table>
<%end sub
sub showpages()
%>
<table width="98%">
<tr>
<td align="right" class="t2" width="100%">共查詢到<font color="#FF0000"><%=totalPage%></font>頁/<font color="red"><b><%=totalPut%></b></font>條信息</td>
</tr>
</table>
<%
end sub
sub showpages1()
dim n
n=totalPage
%>
<form action="search.asp" method="GET" align="right">
<center>
<table border="0" cellspacing="0" cellpadding="0" class="t2" width="100%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="30" align="right"><%
If currentPage <> 1 Then
Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "> 第一頁 </A> "
Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "&Page=" & (currentPage-1) & "> 上一頁 </A> "
End If
If currentPage <> rs.PageCount Then
Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "&Page=" & (currentPage+1) & "> 下一頁 </A> "
Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "&Page=" & totalPage & "> 最后一頁 </A> "
End If
%>第<font color="#FF0000"><%=currentPage%></font>頁/共<font color="#FF0000"><%=totalPage%></font>頁<% response.write " 轉到：<select name='page' size=1 class=smallselsect style='font-family: 宋體; font-size: 9pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write "<input type='hidden' name='keyword' value="&request("keyword")&">"
response.write " <input class=buttonface type='submit' value='確定' style='font-family: 宋體; font-size: 9pt;'>"
%>
</td>
</tr>
</table>
</center>
</form>
<%end sub%>
</P>
</body>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -