📄 guestbook.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
OpenDataConn
action=request("action")
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%
if session("gbook")="1" then
Select case action
Case "del"
call del
Case "add"
call add
Case "saveadd"
call saveadd
Case "edit"
call edit
Case "saveedit"
call saveedit
Case "list1"
call list1
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list
%>
<form method="post" action="gbook_del_ok.asp" name="form1">
<div align="center">
<center>
<table border="0" width="91%" cellspacing="1" cellpadding="0">
<tr>
<td width="100%" class="black" valign="top"> <table border="0" width="100%" cellspacing="1" cellpadding="0" class="black">
<tr bgcolor="#AABFEC" align="center">
<td width="18%" height="28">发布人</td>
<td width="46%">留言主题</td>
<td width="23%">回复</td>
</tr>
<%
dim curpage
if request.querystring("curpage")="" then
curpage=1
else
curpage=request.querystring("curpage")
end if
const numperpage=15
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from gbook order by book_date desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr bgcolor="#DEF0FA" align="center">
<td width="18%" height="28"><%=rs("book_name")%></td>
<td width="400" style="TABLE-LAYOUT: fixed;word-wrap:break-word;"><%=rs("book_meno")%><br>
<font color="#FF0000">发布时间:<%=rs("book_date")%></font></td>
<td width="23%" ><a href="?action=add&id=<%=rs("id")%>">回复</a></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr valign="bottom">
<td width="100%" align="center" colspan="3" height="59">
<% if cint(curpage)<>1 then %>
<a href="gbook_back.asp?curpage=1">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="gbook_back.asp?curpage=<%=curpage-1%>">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="gbook_back.asp?curpage=<%=curpage+1%>"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="gbook_back.asp?curpage=<%=totalpages%>"> 末页
<% else %>
末页
<% end if %>
</a>
<select name="menu1" onChange="MM_jumpMenu('self',this,0)">
<option value="#" selected>请选择</option>
<option>
<%
k=1
do while k<=totalpages
%>
</option>
<option>
<%
k=1
do while k<=totalpages
%>
</option>
<option>
<%
k=1
do while k<=totalpages
%>
</option>
<option value="gbook_back.asp?curpage=<%=k%>">第<%=k%>页</option>
<option>
<%
k=k+1
loop
%>
</option>
<option>
<%
k=k+1
loop
%>
</option>
<option>
<%
k=k+1
loop
%>
</option>
</select>
</td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</form>
<%end sub
sub add
%><div align="center">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="7" align="center" valign="top">留言回复
<table width="88%" height="19" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<%
set rs=server.createobject("adodb.recordset")
id=trim(request("id"))
sql="select * from gbook where id="&id&""
rs.open sql,conn,1,1%>
<tr>
<td width="93%" bgcolor="#DFF3FF"> <%if not rs.eof then%> <table width="89%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="400" style="TABLE-LAYOUT: fixed;word-wrap:break-word;"><%=rs("book_meno")%></td>
</tr>
</table>
<table width="89%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
set ms=server.createobject("adodb.recordset")
sql2="select * from gbook_back where back_id="&id&""
ms.open sql2,conn,1,1
do while not ms.eof
%>
<tr>
<td align="left" valign="top"><hr></td>
</tr>
<tr>
<td align="left" valign="top">回复内容:<%=trim(ms("back_meno"))%></td>
</tr>
<%
ms.movenext
loop
ms.close
set ms=nothing
%>
<tr height="12">
<td height="12"></td>
</tr>
</table>
<%end if%> </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -