📄 word.asp
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<!--#include file="Check.asp"-->
<%
set rs=server.createobject("adodb.recordset")
%>
<html>
<head>
<STYLE>BODY {
FONT-SIZE: 9pt
}
TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 150%
}
A {
TEXT-DECORATION: none
}
A:hover {
TEXT-DECORATION: underline
}
</STYLE>
<script language="javascript"></script>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background="../pic/user/bg.jpg" leftmargin="0" topmargin="0">
<%
up=request("up")
select case up
case "word_del"
call word_del
case "word_up"
call word_up
case "word_up_save"
call word_up_save
case else
call word
end select
%>
<%sub word%>
<!--客户留言======================================= -->
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="43">
<div align="center"><strong><font color="#0000FF">网店客户留言管理</font></strong></div></td>
</tr>
<tr>
<td>
<%
dim page
page=request("page")
PageSize = 6
sqltext="select * from book order by id desc"
rs.open sqltext,conn,1,1
rs.PageSize=PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
if rs.eof then
response.write "<p align=center>没有留言内容 </p>"
else
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<table width="92%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#3366cc" bordercolordark="#FFFFFF" bgcolor="#ECECFF">
<tr>
<td width="10%">
<div align="center">标 题</div></td>
<td colspan="2"><div align="center"><strong><%=rs("bk_top")%></strong></div></td>
<td align="right">所属商家：</td>
<td colspan="2"><a href="../<%=rs("shop_name")%>" target="_blank"><%=rs("shop_name")%></a></td>
</tr>
<tr>
<td height="40" valign="top"> <div align="center">内 容</div></td>
<td colspan="5" valign="top"><%=replace(replace(rs("bk_content")," "," "),chr(13)+chr(10),"<br>")%></td>
</tr>
<%if rs("bk_anser")<>"" then%>
<tr>
<td valign="top"> <div align="center"><font color="#0000FF">回 复</font></div></td>
<td colspan="5" valign="top"><font color="#0000FF"><%=replace(replace(rs("bk_anser")," "," "),chr(13)+chr(10),"<br>")%></font></td>
</tr>
<%end if%>
<tr>
<td><div align="center">姓 名</div></td>
<td width="18%"><%=rs("bk_Name")%></td>
<td width="8%">
<div align="center">时 间</div></td>
<td width="31%"><%=rs("bk_time")%></td>
<td width="6%">
<div align="center">IP</div></td>
<td width="27%"><%=rs("bk_IP")%></td>
</tr>
</table>
<div align="center"><a href="?up=word_up&id=<%=rs("id")%>">答复</a> | <a href="?up=word_del&id=<%=rs("id")%>">删除</a></div>
<BR>
<%
rs.movenext
count=count+1
loop
%>
<div align="center">
[<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[<a href="word.asp?up=word&page=1">首 页</a>] [<a href="word.asp?up=word&page=<%=page-1%>">上一页</a>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[<a href="word.asp?up=word&page=<%=page+1%>">下一页</a>] [<a href="word.asp?up=word&page=<%=rs.pagecount%>">尾
页</a>]
<%end if%>
<%
end if
%>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%
sub word_del
response.write"<script>alert('试用版本功能限制！');history.go(-1);</script>"
end sub
%>
<%sub word_up
sqltext="select * from book where id="&request("id")
rs.open sqltext,conn,1,1
%>
<form name="form1" method="post" action="word.asp?up=word_up_save&id=<%=rs("id")%>">
<table width="559" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="43">
<div align="center"><font color="#0000FF"><strong>答复留言</strong></font> (<a href="word.asp">管理留言</a>)</div></td>
</tr>
<tr>
<td ><div align="center">
<textarea name="bk_anser" cols="60" rows="8"><%=rs("bk_anser")%></textarea>
</div></td>
</tr>
<tr>
<td height="40"><div align="center">
<input type="submit" name="Submit" value="确 认">
</div></td>
</tr>
</table>
</form>
<%end sub%>
<%sub word_up_save
response.write"<script>alert('试用版本功能限制！');window.location.href='word.asp'</script>"
end sub%>
<%
rs.close:set rs=nothing
conn.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -