📄 guestbook.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="guestbook"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/pages.asp"-->
<!--#include file="../comm/my_lib.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script language="javascript1.2" src="../comm/warning.js"></script>
<title>留言管理</title>
</head>

<body>
<table border="0" width="100%" id="table4" height="30" cellpadding="0" style="border-collapse: collapse">
<form action=guestBook.asp method=post>
			<tr>
				<td height="20" align=center>留言搜索：<select size="1" name="flag">
				<option value="1">按称呼查询</option>
				<option value="2">按电话号码查询</option>
				<option value="3">按电子邮件查询</option>
				<option value="4">按留言内容查询</option>
				</select><input type="text" name="keyword" size="20" maxlength="20"><input type="submit" value="搜索" name="B2"></td>
			</tr></form>
		</table>
		<table border="0" width="100%" id="table5" cellpadding="4" style="border-collapse: collapse; border: 1px solid #183789; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" cellspacing="1">
			<%
			flag=cint(my_request("flag",1))
keyword=my_request("keyword",0)
dim sql,rs,arrlists(7),p,ii
select case flag
case 1
sql="select id,username,useremail,userphone,usercontent,useraddtime,userip,replycontent,replyaddtime from messagecontent where username like '%"&keyword&"%' order by useraddtime desc"
case 2
sql="select id,username,useremail,userphone,usercontent,useraddtime,userip,replycontent,replyaddtime from messagecontent where userphone like '%"&keyword&"%' order by useraddtime desc"
case 3
sql="select id,username,useremail,userphone,usercontent,useraddtime,userip,replycontent,replyaddtime from messagecontent where useremail like '%"&keyword&"%' order by useraddtime desc"
case 4
sql="select id,username,useremail,userphone,usercontent,useraddtime,userip,replycontent,replyaddtime from messagecontent where usercontent like '%"&keyword&"%' order by useraddtime desc"
case else
sql="select id,username,useremail,userphone,usercontent,useraddtime,userip,replycontent,replyaddtime from messagecontent order by useraddtime desc"
end select
set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=760 colspan=6><font color=#FF0000>暂时还没有任何数据</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =12 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
for p=0 to 8
arrlists(p)=rs(p)
next

%>
<tr>
				<td bgcolor="#4A91DF" width="41%">
				<p align="left"><font color="#FFFFFF"><%=arrlists(1)%> 
				于 <%=arrlists(5)%> 留言如下</font></td>
				<td bgcolor="#4A91DF" width="56%">
				<p align="right"><font color="#FFFFFF">电话：<%=arrlists(3)%> 
				</font> <a href=mailto:<%=arrlists(2)%>><font color="#FFFFFF">电子邮件地址</font></a><font color="#FFFFFF"> 
				<img border="0" src="../images/ip.gif" width="13" height="15" title=IP：<%=arrlists(6)%>> 
				</font> <a href=# onclick="javascript:window.open('replymesg.asp?id=<%=arrlists(0)%>','newwindow', 'height=400, width=500', 'toolbar=no', 'menubar=no', 'scrollbars=auto', 'resizable=yes', 'location=no', 'status=no')">
				<font color="#FFFFFF">回复</font></a><font color="#FFFFFF"> </font> 
				<font color="#FF0000"><a title="删除" href="javascript:ask('您真的要这么做?','del_mesg.asp?id=<%=arrlists(0)%>')">
				<font color="#FFFFFF">删除</font></a></font></td>
			</tr>
			<tr>
				<td colspan="2" style="line-height: 150%"><font color="#808080">留言内容：</font><%=Outleach(arrlists(4))%>
				</td>
			</tr>
			<%
			if arrlists(7)<>"" then%>
			<tr>
				<td colspan="2" style="line-height: 150%"><font color="#FF0000">店长回复</font><font color="#666666">(回复时间：<%=rs("replyaddtime")%>)：<br>
				</font><%=Outleach(arrlists(7))%></td>
			</tr>
			<%
end if
rs.movenext
ii=ii+1
wend
%>
		</table>
		<table border="0" width="100%" id="table7" cellpadding="0" style="border-collapse: collapse">
			<tr>
				<td><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -