showmessage.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 156 行
ASP
156 行
<!--#include file="conn.asp"-->
<!--#include file="webtop.asp"-->
<HTML>
<head><title><%=webname%>--留言显示</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<BODY>
<%
dim page,i,fkusername,fkemail,fksubject,fkcontent,fkip,fkdate,fkid,fkreply
set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM shop_fk where fklginuser='"&request.Cookies("bookshop")("username")&"'order by fkid desc",conn, 1, 1
page=1
i=0
rs.PageSize = 5
if not isempty(request("Page")) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
end if
Page = rs.AbsolutePage
%>
<br>
<table align=center border=0 cellpadding=0 cellspacing=1 bgcolor="#666666" width=776>
<%
for i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if //利用for next 循环依次读出记录
%>
<tr>
<td bgcolor="#e8e8e8" rowspan=2 height="150" width=18%>
<center><img src="images/face.gif" width="32" height="32" border="0"><br>
发表人：<font color=red ><%=rs("fkusername")%></a></font><br><br>
来自于：<font color=red ><%=rs("fklaizi")%></a></font><br>
</center></td>
<td bgcolor="#e8e8e8">
<table border=0 cellpadding=0 cellspacing=0 width="99%">
<tr>
<td width="60%"> 发表于：<%=rs("fkdate")%> </td>
<td><img src="images/paihan.ico" width="16" height="16" border="0" align="absmiddle"><a href="bookorder.asp?action=xspk" target="_self"> 查看排行榜</a></td>
<td><img src="images/newbook.ico" width="16" height="16" border="0" align="absmiddle"><a href="book.asp?id=59" target="_self"> 张老师新书</a></td>
<td><img src="images/email.gif" width="16" height="16" border="0" align="absmiddle"><a href="mailto:tao_guo_rong@163.com" title="tao_guo_rong@163.com"> 给版主写信</a></td>
</tr>
</table>
</tr>
<tr>
<td bgcolor="#ffffff">
<table border=0 cellpadding=0 cellspacing=2 width="100%">
<tr>
<td height="20"><font color=red > 主题：</font><b><%=rs("fksubject")%></b>
</tr>
<tr>
<td><hr align="center" size=1 width="98%" color=#666666 noshade> <%=rs("fkcontent")%><br><br>
<%if rs("fkreply")<>"" then%>
<br><hr align="center" size=1 width="98%" color=#666666 noshade> <font color="#ff0099"> 版主回复：</font>
<%=rs("fkreply")%>
<%end if%>
</td>
</tr>
</table>
<% rs.movenext
next
%>
</tr>
</table>
<br>
<table width=776 border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr><td bgcolor="#ffffff">
<table width=100% border="0" align="center" cellpadding="1" cellspacing="2" >
<form name="fkinfo" method="post" action="fk.asp?action=savelist">
<tr bgcolor="#e8e8e8">
<td align="center" width="17%">类 型：</td>
<td height="22"><select name="fkleixing" id="fkleixing">
<option value="1">简单的留言</option>
<option value="2">对网站的意见</option>
<option value="3">对公司的建议</option>
<option value="4">具有合作意向</option>
<option value="5">产品投诉</option>
<option value="6">服务投诉</option>
</select></td>
</tr>
<tr bgcolor="#e8e8e8">
<td align="center" width="17%">主 题：</td>
<td height="22"><input name="fksubject" type="text" id="fksubject" size="28"><font color="#FF0000">！</font></td>
</tr>
<tr bgcolor="#e8e8e8">
<td align="center" width="17%">姓 名：</td>
<td height="22"><input name="fkusername" type="text" id="fkusername" size="12"></td>
</tr>
<tr bgcolor="#e8e8e8">
<td align="center" width="17%">来 自：</td>
<td height="22"><input name="fklaizi" type="text" id="fklaizi" size="28">
如：北京</td>
</tr>
<tr bgcolor="#e8e8e8">
<td align="center" width="17%">留言信息：<br></td>
<td>[请注意适当使用<font color="#FF0000">Enter</font>键来换行]<br>
<textarea name="fkcontent" cols="52" rows="8" id="fkcontent"></textarea><font color="#FF0000">！</font></td>
</tr>
<tr bgcolor="#e8e8e8">
<td colspan=2 height="28" style="padding-left:160px"><input type="submit" name="Submit4" value="提交信息" onclick="return checkfk();"
</td>
</tr>
</form>
</table>
</tr>
</table>
<br>
<table width="776" height="28" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr>
<td bgcolor="#e8e8e8"><div align="center">留言共<%=rs.recordcount%>条<%=rs.pagecount%>页
<%if request("page")>1 then%><a Href="index.asp?Page=<% = 1%>">首页</a> <a Href="showmessage.asp?Page=<% =page -1 %>">上一页</a><%end if %><%if request("page")<>rs.pagecount and page<rs.pagecount then %><a Href="showmessage.asp?Page=<% =page + 1%>">下一页</a> <a Href="showmessage.asp?Page=<% = rs.PageCount%>">尾页</a> <% end if %>
<%if rs.pagecount>0 then %>
当前第<font color="#FF3300"> <%=page%></font> 页
<%end if%> </font></div></td>
</tr>
</table>
<%rs.close
set rs=nothing%>
<!--#include file="copyright.asp"-->
</body>
</HTML>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkfk_list()
{
if(checkspace(document.fkinfo.fksubject.value)) {
document.fkinfo.fksubject.focus();
alert("您没有填写主题！");
return false;
}
if(checkspace(document.fkinfo.fkcontent.value)) {
document.fkinfo.fkcontent.focus();
alert("请填写反馈信息内容！");
return false;
}
}
//-->
</script> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?