📄 remarklist.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!----------------------------------------------
Powered by QCDN_NEWS Version 1.4.3.10.6.0 (青创文章系统 - 测试版)
个人免费版
http://www.qcdn.net/
此版本只能在个人网站使用并要求保留青创网络版权！
-------------------------------------------------->
<HTML><HEAD><TITLE><%=NetName%> (<%=NetUrl%>)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="青创,asp,qcsky,qcdn,QCDN_NEWS">
<link href="<%=CssDir%>style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
If Request("flag")="" then
Currentpage=1
Else
Currentpage=Cint(Request("flag"))
End if
Unid = Request("Unid")
if Unid = "" then
Errmsg = "<li>发现异常错误。<li>错误编号为: error 111。<li>请和青创网络联系解决问题。"
call Qcdn.Err_List(errmsg,1)
Response.end
end if
sql = "select title from article_info where Unid = " & Unid
set rs = conn.execute(sql)
if not rs.eof then
title = rs(0)
rs.close
end if
%>
<table width=600 align=center cellspacing=0 cellpadding=0>
<tr>
<td class="mframe-t-left"></td>
<td class="mframe-t-mid">
<b><a href=list.asp?unid=<%=Unid%>><%=title%></a> 的评论 </b>
</td>
<td class="mframe-t-right"></td>
</tr>
</table>
<table width=600 align=center cellspacing=0 cellpadding=0>
<tr>
<td class="mframe-m-left"></td>
<td class="mframe-m-mid">
<table width=100% cellpadding=0 cellspacing=0 >
<tr>
<form name="remarkForm" action="list.asp" method="post" onsubmit="return checkRemark();">
<input type="hidden" name="articleid" value="<%=Unid%>">
<td class="tdbg">
<table width=100% cellpadding=5 cellspacing=0 border=0>
<tr valign="top">
<td>
<script>
function checkRemark()
{
var form=document.all.remarkForm;
if (form.content.value=="")
{ alert("请填写评论内容");
form.content.focus();
return false;
}
if (form.username.value=="")
{ alert("请填写姓名");
form.username.focus();
return false;
}
if (form.content.value.length>200)
{ alert("评论内容不可以超过200字");
form.content.focus();
return false;
}
if (form.username.value.length>10)
{ alert("姓名不可以超过10个字");
form.username.focus();
return false;
}
form.submit.disabled=true;
return true;
}
function showLen(obj)
{
document.all.bodyLen.innerText=obj.value.length;
}
</script>
<input type="radio" name="face" value="1" checked="True"><img src=image/face/face1.gif>
<input type="radio" name="face" value="2"><img src=image/face/face2.gif>
<input type="radio" name="face" value="3"><img src=image/face/face3.gif>
<input type="radio" name="face" value="4"><img src=image/face/face4.gif>
<input type="radio" name="face" value="5"><img src=image/face/face5.gif>
<input type="radio" name="face" value="6"><img src=image/face/face6.gif>
<input type="radio" name="face" value="7"><img src=image/face/face7.gif>
<input type="radio" name="face" value="8"><img src=image/face/face8.gif>
<input type="radio" name="face" value="9"><img src=image/face/face9.gif>
<input type="radio" name="face" value="10"><img src=image/face/face10.gif>
<input type="radio" name="face" value="11"><img src=image/face/face11.gif>
<input type="radio" name="face" value="12"><img src=image/face/face12.gif>
<input type="radio" name="face" value="13"><img src=image/face/face13.gif>
<input type="radio" name="face" value="14"><img src=image/face/face14.gif>
<input type="radio" name="face" value="15"><img src=image/face/face15.gif>
<input type="radio" name="face" value="16"><img src=image/face/face16.gif>
<input type="radio" name="face" value="17"><img src=image/face/face17.gif>
<input type="radio" name="face" value="18"><img src=image/face/face18.gif><br>
点 评：
<textarea name="content" cols="35" Rows="4" onkeydown="showLen(this)" onkeyup="showLen(this)"></textarea>
字数<span id="bodyLen">0</span> <br>
<%
if Request.Cookies("qcdn")("user_name")="" then
Response.write("用户名： <input type=text name='username' value='' MaxLength=50 size=10>")
Response.write(" 密码：")
Response.write("<input type=password name='password' value='' MaxLength=50 size=10>")
else
Response.write("<input type=hidden name=username value='"& Request.Cookies("qcdn")("user_name") &"'>")
Response.write("<input type=hidden name=password value='"& Request.Cookies("qcdn")("password") &"'>")
end if
%>
<input type=submit name=submit value=" 发 表 " >
<br><br>
</td>
<td width=200>
<ul style="list-style-type:square;margin-left:1em;margin-bottom:0px">
<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规
<li> 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
<li> 本站管理人员有权保留或删除其管辖留言中的任意内容
<li> 本站有权在网站内转载或引用您的评论
<li> 参与本评论即表明您已经阅读并接受上述条款
</ul>
</td></tr>
</table>
</td>
<input type="hidden" name="method" value="1">
</form>
</tr>
<tr>
<td width=50% class="summary-title"> >> 新闻点评</td></tr>
<tr height=30><td class="tdbg" style="padding:5px 2px">
<%
Set Record=Server.CreateObject("Adodb.Recordset")
Sql = "SELECT article_remark.username, article_remark.content, article_remark.faceid, article_remark.Intime, article_remark.Unid FROM article_remark INNER JOIN article_info ON article_remark.articleID = article_info.Unid WHERE article_info.Unid = "& Unid &" ORDER BY article_remark.Unid DESC"
Record.CursorType=3
Record.PageSize=10
Record.Open SQL,Conn
if Record.eof and Record.bof then
response.write "还没有会员发表评论。"
else
if Not Record.Eof Then
SumCount = Record.recordcount
Record.AbsolutePage=Currentpage
End If
RowCount=0
While Not Record.eof and Rowcount<Record.PageSize
username = Record(0)
content = Record(1)
faceid = Record(2)
Intime = Record(3)
%>
<table width=100% cellpadding=0 cellspacing=0 border=0 >
<tr><td class="tdbg-dark" height=25>
<img src="image/face/face<%=faceid%>.gif" align=absmiddle>
网友 <b><%=username%></b>
于
<font class=gray><%=Intime%></font>
发表评论
</td></tr>
<tr><td >
<span style="padding:5px 10px 5px 30px;width=100%; word-break:break-all">
<%=Qcdn.HTMLcode(content)%>
</span>
</td></tr>
<tr height=1><td class=hr></td></tr>
</table>
<br>
<%
RowCount=RowCount+1
Record.Movenext
Wend
%>
<center><table cellpadding=0 cellspacing=0 width=100%><tr><td>
<% if CurrentPage<>1 And Record.pageCount<>0 then%><font class=gray><a href="?flag=1&unid=<%=Unid%>" title="首页">首页</a></font><%Else%><font class=gray>首页</font><%End If%>
| <% if CurrentPage<>1 And Record.pageCount<>0 then%><font class=gray><a href="?flag=<%=CurrentPage-1%>&unid=<%=Unid%>" title="上一页">前页</a></font><%Else%><font class=gray>前页</font><%End If%> | <% If CurrentPage<>Record.PageCount And Record.pageCount<>0 Then%><font class=gray><a href="?flag=<%=CurrentPage+1%>&unid=<%=Unid%>" title="下一页">后页</a></font><%Else%><font class=gray>后页</font><% End if%> | <% If CurrentPage<>Record.PageCount And Record.pageCount<>0 Then%><font class=gray><a href="?flag=<%=Record.pagecount%>&unid=<%=Unid%>" title="尾页">尾页</a></font><%Else%><font class=gray>尾页</font><%End If%></td><td align=right>分页 <%=CurrentPage%>/<%=Record.pagecount%> </td></tr></table></center>
</td></tr>
</table>
</td>
<td class="mframe-m-right"></td>
<%end if%>
</tr>
</table>
<table width=600 align=center cellspacing=0 cellpadding=0 >
<tr>
<td class="mframe-b-left"></td>
<td class="mframe-b-mid"> </td>
<td class="mframe-b-right"></td>
</tr>
</table>
</body>
<html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -