📄 remarks.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="inc/function.asp"-->
<%
dim cRs,cSql,PhotoNum,iPhoto,MaxPerPage,CurrentPage,TotalPages,x,HX33_WishID
HX33_WishID=Cint(request("HX33_WishID"))
if HX33_WishID ="" then
response.Write "<script>alert('帖子不能为空！');history.back(-1);</script>"
response.End()
end if
if request("type") = "comment" then
dim C_Sender,C_Content,C_ComeFrom,C_CommentIP
C_Sender=request("C_Sender")
C_Sender=lFilterBadHTML(C_Sender,CheckString)
C_Content=Trim(request("cc"))
C_Content=lFilterBadHTML(C_Content,CheckString)
C_CommentIP=GetIP()
C_ComeFrom=getFrom(C_CommentIP)
if C_ComeFrom = "" then
C_ComeFrom=C_CommentIP
end if
if C_Sender = "" then
response.Write "<script>alert('评论者不能为空！');location.href='remarks.asp?HX33_WishID="&HX33_WishID&"';</script>"
response.End()
end if
if C_Content = "" then
response.Write "<script>alert('内容不能为空！');location.href='remarks.asp?HX33_WishID="&HX33_WishID&"';</script>"
response.End()
end if
Conn.execute("update HX33_LoveWallPosts set HX33_Comments=HX33_Comments+1 where HX33_WishID="&HX33_WishID)
cSql="select * from HX33_Comment"
Set cRs=Server.CreateObject("ADODB.RecordSet")
cRs.Open cSql,Conn,1,3
cRs.addnew
cRs("HX33_WishID")=HX33_WishID
cRs("C_Sender")=C_Sender
cRs("C_Content")=C_Content
cRs("C_ComeFrom")=C_ComeFrom
cRs.update
cRs.close:set cRs=nothing
elseif request("type") = "delComment" and Session("Rank") = 1 then
if request("C_ID") = "" then
response.Write "<script>alert('请选择要删除的评论！');location.href='remarks.asp?HX33_WishID="&HX33_WishID&"';</script>"
response.End()
end if
cSql="select * from HX33_Comment where C_ID in ("&request("C_ID")&")"
Set cRs=Server.CreateObject("ADODB.RecordSet")
cRs.Open cSql,Conn,1,3
Do While Not cRs.eof
cRs.delete
cRs.update
cRs.MoveNext
Loop
cRs.close:set cRs=nothing
dim ids,delNum
ids=split(request("C_ID"),",")
delNum=UBound(ids)+1
Conn.execute("Update HX33_LoveWallPosts set HX33_Comments=HX33_Comments-"&delNum&" where HX33_WishID="&HX33_WishID)
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD>
<title>爱墙评论 华夏爱墙 免费爱情许愿墙 ASP爱墙程序演示下载 - Powered by HX33</title>
<meta name="Author" content="华夏信息网 & HX33.Net" />
<meta name="Keywords" content="<%=HX33_KeyWord%>" />
<meta name="Description" content="<%=HX33_Descrip%>" />
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE>
@import url( inc/style1.css );
@import url( inc/c1.css );
@import url( inc/remarks.css );
BODY {
BACKGROUND: #fff
}
#FaceListOuter {
CLEAR: both; POSITION: relative
}
#FaceList {
PADDING-RIGHT: 6px; DISPLAY: none; PADDING-LEFT: 6px; LEFT: 10px; PADDING-BOTTOM: 6px; WIDTH: 280px; PADDING-TOP: 6px; POSITION: absolute; TOP: -65px
}
#FaceList IMG {
PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 4px; CURSOR: pointer; PADDING-TOP: 0px
}
#remarkswrap {
MARGIN-BOTTOM: 20px
}
</STYLE>
<SCRIPT src="inc/regex.js" type="text/javascript"></script>
<META content="MSHTML 6.00.2900.3086" name=GENERATOR></HEAD>
<BODY onLoad="adjest()">
<DIV id=remarkswrap>
<P class=pmar><SELECT onchange=changefont(this.value); name=fontfamily>
<OPTION value=9 selected>字体</OPTION> <OPTION value=0>Veranda</OPTION> <OPTION
value=1>Arial</OPTION> <OPTION value=2>宋体</OPTION> <OPTION
value=3>黑体</OPTION></SELECT> <SELECT onchange=changesize(this.value);
name=fontfamily> <OPTION value=9 selected>字号</OPTION> <OPTION
value=1>1</OPTION> <OPTION value=2>2</OPTION> <OPTION value=3>3</OPTION>
<OPTION value=4>4</OPTION> <OPTION value=5>5</OPTION></SELECT> <SELECT
onchange=changecolor(this.value); name=fontcolor> <OPTION selected>颜色</OPTION>
<OPTION style="COLOR: #f00" value=0>红色</OPTION> <OPTION style="COLOR: #f60"
value=1>橙色</OPTION> <OPTION style="COLOR: #ff0" value=2>黄色</OPTION> <OPTION
style="COLOR: #0c0" value=3>绿色</OPTION> <OPTION style="COLOR: #0ff"
value=4>青色</OPTION> <OPTION style="COLOR: #06f" value=5>蓝色</OPTION> <OPTION
style="COLOR: #f0f" value=6>紫色</OPTION></SELECT>
<IMG onClick="format_sel('B');" src="images/icon_bold.gif" width=22>
<IMG onClick="format_sel('I');" height=20 src="images/icon_ita.gif" width=22>
<IMG onClick="format_sel('U');" height=20 src="images/icon_underline.gif" width=22>
<IMG onClick="format_sel('L');" height=20 src="images/left.gif" width=22>
<IMG onClick="format_sel('M');" height=20 src="images/center.gif" width=22>
<IMG onClick="format_sel('R');" height=20 src="images/right.gif" width=22>
<IMG onClick="javascript:Face('block');return false;" height=20 src="images/icon_face.gif" width=22> </P><br>
<FORM id=myremarks name=myremarks onSubmit="return false;" action="">
<INPUT type=hidden value=comment name=type>
<INPUT type=hidden value=<%=HX33_WishID%> name=HX33_WishID>
<div style=" margin-left:32px;">
留言名：<input type="text" value="" name="C_Sender" id="C_Sender"> <span style="color:#FF0000">*</span></div>
<TEXTAREA id=c name=c onKeyUp="javascript:strCounter(this);" onChange="javascript:strCounter(this);"></TEXTAREA>
<div style="display:none;"><TEXTAREA id=cc name=cc></TEXTAREA></div>
<div align="center">还可以输入 <span id="char">300</span> 个字，不支持恶意html语法。<span style="color:#FF0000">*</span></div>
<DIV id=FaceListOuter>
<DIV id=FaceList onMouseOver="Face('block');" onMouseOut="Face('none');">
<SCRIPT type=text/javascript>
for (j = 2; j < 52; j++) {document.write("<img src='images/faces/e" + j + ".gif' onclick='appEmotionStr(" + j + ")'>");}
</SCRIPT>
</DIV></DIV>
<P class="pmar AC" id=Face><INPUT type=button onClick="C_Submit()" value=发表评论 name=Submit>
</P></FORM></DIV>
<H4 id=latestremarks>最新评论(共<%=Conn.execute("select HX33_Comments from HX33_LoveWallPosts where HX33_WishID="&HX33_WishID)(0)%>条)</H4>
<%
x=0
MaxPerPage=15
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
cSql="select * from HX33_Comment where HX33_WishID="&HX33_WishID&" order by C_ID desc"
Set cRs=Server.createObject("AdoDb.recordset")
cRs.Open cSql,Conn,1,1
if Not cRs.Eof then
%>
<%
if session("Rank")=1 then
%>
<form id="myForm" action="">
<input type="hidden" name="type" value="delComment" />
<INPUT type=hidden value=<%=HX33_WishID%> name=HX33_WishID>
<%end if%>
<DL id=remarkslist>
<%
cRs.PageSize=MaxPerPage
TotalPages=cRs.PageCount
If CurrentPage>TotalPages Then CurrentPage=1
PhotoNum=cRs.RecordCount
cRs.MoveFirst
cRs.AbsolutePage=CurrentPage
iPhoto=0
Do While Not cRs.Eof
x=x+1
if x mod 2 <> 0 then
%>
<DT class=bggray>
<%if Session("Rank")=1 then response.Write "<input type=checkbox value="&cRs("C_ID")&" name=C_ID>"%>
<SPAN class=t_green><%=cRs("C_Sender")%></SPAN> <SPAN class=font_9><%=cRs("C_Date")%></SPAN> (来自：<SPAN style="font-size:12px;"><%=cRs("C_ComeFrom")%></SPAN>)
<DD class=bggray><%=cRs("C_Content")%></DD></DT>
<%else%>
<DT>
<%if Session("Rank")=1 then response.Write "<input type=checkbox value="&cRs("C_ID")&" name=C_ID>"%>
<SPAN class=t_green><%=cRs("C_Sender")%></SPAN> <SPAN class=font_9><%=cRs("C_Date")%></SPAN>
(来自：<SPAN style="font-size:12px;"><%=cRs("C_ComeFrom")%></SPAN>)
<DD><%=cRs("C_Content")%></DD></DT>
<%end if
iPhoto=iPhoto+1
If iPhoto>=MaxPerPage Then Exit Do
cRs.MoveNext
Loop
%>
</DL>
<%if session("Rank")=1 then%>
<input type="checkbox" onClick="CheckAll()" name="chkAll" style=" margin-top:10px;margin-left:25px;" />全选
<input type="submit" value="删除所选" />
</form>
<%end if%>
<P class="AR pmar">
共 <%=PhotoNum%> 篇
<%=MaxPerPage%>篇/页
页次：<%=CurrentPage%>/<%=TotalPages%>页
<a class="a_greenu" href="?HX33_WishID=<%=HX33_WishID%>&page=1">首页</a>
<%if CurrentPage>1 Then%>
<a class="a_greenu" href="?HX33_WishID=<%=HX33_WishID%>&page=<%=CurrentPage-1%>" >上一页</a>
<%Else%>
<a class="a_greenu" href="#" >上一页</a>
<%End If%>
<%if CurrentPage<TotalPages Then%>
<a class="a_greenu" href="?HX33_WishID=<%=HX33_WishID%>&page=<%=CurrentPage+1%>">下一页</a>
<%Else%>
<a class="a_greenu" href="#" >下一页</a>
<%End If%>
<a class="a_greenu" href="?HX33_WishID=<%=HX33_WishID%>&page=<%=TotalPages%>">尾页</a>
转到：
<select name="select" size="1" onChange="javascript:window.location='?HX33_WishID=<%=HX33_WishID%>&page='+this.value+''">
<%For i =1 to TotalPages%>
<option value="<%=i%>" <%if cint(CurrentPage)=i then%>selected<%end if%>><%=i%></option>
<% next%>
</select>
页
</P>
<%
End If
cRs.Close:Set cRs=Nothing
%>
<SCRIPT src="inc/validate.js" type=text/javascript></SCRIPT>
<SCRIPT languag="javascript">
<!--
function appEmotionStr(inum)
{
var str = "[em]e"+inum+"[/em]";
document.getElementById("c").value += str;
Face('none');
strCounter(document.getElementById("c"));
}
function Face(AttrStr){
var ObjFacelist = document.getElementById("FaceList");
ObjFacelist.style.cssText = "display:"+AttrStr+";";
ObjFacelist.setAttribute("style","display:"+AttrStr+";");
}
function beforeSubmit()
{
var v = document.getElementById("c").value;
var sender=document.getElementById("C_Sender").value;
if(sender == ""){
alert("请输入留言名！");
document.getElementById("C_Sender").focus();
return false;
}
if(v == ""){
alert("请输入评论内容！");
document.getElementById("c").focus();
return false;
}
if(v.length > 300){
alert("评论字数请勿超过300字!");
document.getElementById("c").focus();
return false;
}
if(check_keyword(document.getElementById("c")) != -1){
alert(" 对不起！你输入的内容涉及政治言论或不健康内容，请重新输入！");
document.getElementById("c").focus();
return false;
}
return true;
}
function C_Submit()
{
if(beforeSubmit())
{
document.getElementById("cc").innerText=regex();
document.getElementById("myremarks").submit();
}
}
function CheckAll()
{
var form=document.getElementById("myForm");
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll"&&e.disabled==false)
e.checked = form.chkAll.checked;
}
}
-->
</SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -