?? 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 + -