📄 lyb_view.asp
字号:
<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_news.asp-->
<!--#include file=../system/include/function.asp-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<%
dim strSql,rs,i,PageNo
if request("paper_id")="" then
response.write "对不起，参数出错了！请重新访问此页!"
response.end
end if
if request("type")="" then
response.write "对不起，参数出错了！请重新访问此页!"
response.end
end if
strSql="select * from [paper] where id=" & request("paper_id")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs("click")=rs("click")+1
rs.update
%>
<style> body{ scrollbar-face-color:fd9035; scrollbar-shadow-color:ffffff; scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff; scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffefd7; scrollbar-arrow-color:ffffff;}
.kuan1 { border-color: #000000 black black; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.kuan2 { border-color: #FFFFFF black black; border-style: solid; border-top-width: 2px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.kuan3 { border-color: black black #CCCCCC; font-size: 9pt; line-height: 180%; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.kuan4 { border-color: #CCCCCC black black; font-size: 9pt; line-height: 180%; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.fontw6 { border-color: #CCCCCC black black; font-size: 14px; line-height: 150%; font-family: "宋体"; border-style: none; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
</style>
<script language="JavaScript" src="../share/nei_fc.js"></script>
<script language="JavaScript">
<!--
function checkdata()
{
if(!CheckIsNull(form1.man,"请输入'留言人'！")) return false;
if(!CheckIsNull(form1.email,"请输入email！")) return false;
if(!CheckIsNull(form1.bz,"请输入发言内容！")) return false;
}
//-->
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="../share/gg_top.htm"-->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" valign="middle" height="45" width="778" class="kuan1"><b><font size="5"><a href="sub_paper.asp?id=<%=request("paper_id")%>&type=<%=request("type")%>" ><%=rs("title")%></a></font></b></td>
</tr>
<tr>
<td align="left" valign="middle" height="24" width="778" class="font">当前位置:
<a href="../index.asp" class="ffbyfont">首页</a> > 相关评论</td>
</tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<%
strSql="select * from [paper_lyb] where paper_id='" & request("paper_id") & "' order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs.PageSize=10
PageNo=request("PageNo")
if PageNo<1 or not isnumeric(PageNo) then
PageNo=1
end if
if cint(PageNo)>rs.PageCount then
PageNo=rs.PageCount
end if
if rs.eof then
%>
<tr>
<td width="778" class="kuan1" height="26" align="center" valign="middle">
<div class=font>暂且没有评论！</div>
</td>
</tr>
<%else%>
<tr>
<td width="778" height="59">
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FF9933" class="font" width="617"> <font color="#FFFFFF">相关评论：
<%=rs.recordcount%> 条</font></td>
<td bgcolor="#FF9933" class="font" width="161"><a href="lyb_view.asp?pageno=1&type=<%=request("type")%>&paper_id=<%=request("paper_id")%>" class="menu2">首页</a>
<a href="lyb_view.asp?pageno=<%=pageno-1%>&type=<%=request("type")%>&paper_id=<%=request("paper_id")%>" class="menu2">上一页</a>
<a href="lyb_view.asp?pageno=<%=pageno+1%>&type=<%=request("type")%>&paper_id=<%=request("paper_id")%>" class="menu2">下一页</a>
<a href="lyb_view.asp?pageno=<%=rs.pagecount%>&type=<%=request("type")%>&paper_id=<%=request("paper_id")%>" class="menu2">尾页</a></td>
</tr>
</table>
<table width="778" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFCC99" class="kuan2">
<%
if rs.recordcount>0 then
rs.AbsolutePage =PageNo
for i=1 to rs.pageSize
if rs.eof then exit for
%>
<tr>
<td bgcolor="#FFEAB3" align="left" valign="middle" height="22" class="font" width="778"> <font color="#FF6600">留言人：</font> <%=rs("man")%><font color="#FF6600" class="font"> E-mail：</font> <%=rs("email")%> <font color="#FF6600" class="font">留言时间：</font><%=rs("date")%></td>
</tr>
<tr>
<td bgcolor="#fff9e1" align="left" valign="middle" height="20" class="smallfont" width="778"> <%=rs("bz")%></td>
</tr>
<%
rs.movenext
next
end if
end if
%>
</table>
</td>
</tr>
</table>
<table width="776" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFC68C" align="center" class="kuan2">
<tr>
<td width="778" align="left" valign="middle" class="font"><b><font color="#FFFFFF">
■ 我来说两句</font></b></td>
</tr>
<tr>
<td width="778" bgcolor="#FFFFFF" height="223" align="left" valign="middle" class="font">
<table width="776" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="lyb_save.asp" onSubmit="return checkdata()">
<tr>
<td width="251" align="right" valign="middle" class="font" height="30">
<input type="text" name="paper_id" size="3" value="<%=request("paper_id")%>" readonly style="border: 1px #ffffff solid;BACKGROUND: #ffffff;FONT-SIZE: 9pt;color: #ffffff; FONT-FAMILY: arial">
留言人：</td>
<td width="527" align="left" valign="middle">
<input type="text" name="man" size="50" maxlength="50">
</td>
</tr>
<tr>
<td width="251" align="right" valign="middle" class="font" height="30">E-mail：</td>
<td width="527" align="left" valign="middle">
<input type="text" name="email" maxlength="50" size="50">
</td>
</tr>
<tr>
<td width="251" align="right" valign="top" class="font">评 论：<br>
</td>
<td width="527" align="left" valign="middle">
<textarea name="bz" rows="6" cols="50"></textarea>
</td>
</tr>
<tr align="center" valign="bottom">
<td colspan="2" height="43" class="font">
<input type="submit" name="Submit" value="发 表">
<input type="reset" name="Submit2" value="清 除">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<!--#include file="../share/gg_foot.htm"-->
</body>
</html>
<!--#include file=../system/include/foot.asp-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -