?? search.asp
字號:
<!--#include file="conn.asp" -->
<html>
<head>
<title>客戶管理系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="bg_more.gif">
<div align="center">
<table width="0" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#000000" >
<table border="0" width="430" cellspacing="1" cellpadding="5" bordercolorlight="#4984ce"
bordercolordark="#000000">
<%
search = trim(Request("search"))
select1 = trim(Request("select1"))
select case select1
case "1"
sql = "select * from reg where name like '%" & search & "%' or content like '%" & search & "%' order by id desc"
case "2"
sql = "select * from reg where email like '%" & search & "%' or content like '%" & search & "%' order by id desc"
end select
%>
<%sub ShowBody(Str)
dim result
dim l
l=len(str)
result=""
dim i
for i = 1 to 100
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(13)
result=result+"<br>"
case chr(9)
result=result+" "
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case else
result=result+mid(str,i,1)
end select
next
response.write result
end sub
const MaxPerPage=10
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
dim i
i=0
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
'sql="select * from reg order by id desc"
rs.open sql,db,1,1
if rs.eof or rs.bof then
'response.write "<p align='center'>There is not any message...</p>"
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('SORRY!沒有找到您要的信息！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
else
totalPut=rs.recordcount
if currentPage=1 then
showContent
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
else
currentPage=1
showContent
end if
end if
end if
sub showContent
do while not (rs.eof or err)%>
<tr bgcolor="#006699">
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="71%"><font color="#FFFFFF"> 添加時間:<%= rs("time1") %></font></td>
<td width="29%">
<div align="right"><a href=post.htm></a></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="90" bgcolor="#FFFFFF"> 姓名</td>
<td width="317" bgcolor="#FFFFFF"><%=rs("name")%></td>
</tr>
<tr>
<td width="90" bgcolor="#F5F5F5"> 電話</td>
<td width="317" bgcolor="#F5F5F5" >
<% =rs("email") %>
</td>
</tr>
<tr>
<td width="90" bgcolor="#FFFFFF" > 金額</td>
<td width="317" bgcolor="#FFFFFF" ><%= rs("address") %></td>
</tr>
<tr bgcolor="#F5F5F5">
<td width="90">日期</td>
<td width="317"><%=rs("homepage")%></td>
</tr>
<tr bgcolor="#F5F5F5">
<td colspan="2">備注</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" height="29">
<p>
<% showbody(rs("content")) %>
</p>
</td>
</tr>
<%i=i+1
if i >= MaxPerPage then exit do
rs.movenext
loop
end sub%>
</table>
</td>
</tr>
</table>
<form action="default.asp" method="post">
<div align="center">
<p><font size="-1" face="Verdana, Arial, Helvetica, sans-serif">
<%
If currentPage <> 1 Then
Response.Write "<A HREF=search.asp>First</A> "
Response.Write "<A HREF=search.asp?Page=" & (currentPage-1) & ">Prev</A> "
End If
If currentPage <> rs.PageCount Then
Response.Write "<A HREF=search.asp?Page=" & (currentPage+1) & ">Next</A> "
Response.Write "<A HREF=search.asp?Page=" & rs.PageCount & ">Last</A> "
End If%>
Num:<%=currentPage%> Total:<%=rs.PageCount%> Pages<font color="#000000">
Input Num
<input type="TEXT" name="page" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" size=2>
<br>
</font></font></p>
</div>
</form>
<%
rs.close
set rs=nothing
db.close
set db=nothing
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -