<% dim CommentPurviewGrade,CommentUserGrade UserLogined=CheckUserLogined() if UserLevel="" then UserLevel=9999 else UserLevel=Cint(UserLevel) end if select case UserLevel case 9999 CommentUserGrade="游客" case 999 CommentUserGrade="注册用户" case 99 CommentUserGrade="收费用户" case 9 CommentUserGrade="VIP用户" case 5 CommentUserGrade="管理员" end select select case CommentPurview case 9999 CommentPurviewGrade="游客" case 999 CommentPurviewGrade="注册用户" case 99 CommentPurviewGrade="收费用户" case 9 CommentPurviewGrade="VIP用户" case 5 CommentPurviewGrade="管理员" end select if CommentPurview
  • 对不起,只有本站的" ErrMsg=ErrMsg & CommentPurviewGrade ErrMsg=ErrMsg & "才能发表评论!


  • " ErrMsg=ErrMsg & "
  • 如果你还没注册,请赶紧点此注册吧!


  • " ErrMsg=ErrMsg & "
  • 如果你已经注册但还没登录,请赶紧点此登录吧!


  • " end if dim ArticleID,Action,ErrMsg,FoundErr dim Commented,CommentedID,arrCommentedID,i Action=trim(request("Action")) ArticleID=trim(request("ArticleID")) Commented=False CommentedID=""'session("CommentedID") if ArticleId="" then founderr=true errmsg=errmsg+"
  • 请指定要评论的文章ID
  • " else ArticleID=Clng(ArticleID) end if if CommentedID<>"" then if instr(CommentedID,"|")>0 then arrCommentedID=split(CommentedID,"|") for i=0 to ubound(arrCommentedID) if Clng(arrCommentedID(i))=ArticleID then Commented=True exit for end if next else if Clng(CommentedID)=ArticleID then Commented=True end if end if end if if Commented=True then FoundErr=True ErrMsg=ErrMsg & "
  • 你已经对该篇文章发表过评论了!请勿连续对同一篇文章发表评论。
  • " end if if FoundErr<>True then if Action="Save" then call SaveComment() else call main() end if end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() sub main() %> 发表评论
    <% if UserLogined=false then%> <%else%> <% end if %>
    发 表 评 论 (<%=CommentUserGrade%>)
    姓  名: * Oicq:
    性  别: 男      Msn:
    E-mail: Icq:
    主  页:
    评 分: 1分     2分     3分     4分     5分
    评论内容:

  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任(直接或间接导致的)。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点,与本网站立场无关。
  • <% end sub sub SaveComment() dim rsComment,ClassID,tClass dim CommentUserType,CommentUserName,CommentUserSex,CommentUserEmail,CommentUserOicq dim CommentUserIcq,CommentUserMsn,CommentUserHomepage,CommentUserScore,CommentUserContent if UserLogined=false then CommentUserType=0 CommentUserName=trim(request("Name")) if CommentUserName="" then founderr=true errmsg=errmsg & "
  • 请输入姓名
  • " end if else CommentUserType=1 CommentUserName=UserName end if CommentUserScore=Clng(request.Form("Score")) CommentUserContent=trim(request.Form("Content")) if CommentUserContent="" then founderr=true errmsg=errmsg & "
  • 请输入评论内容
  • " end if CommentUserContent=DvHtmlEncode(CommentUserContent) set tClass=conn.execute("select ClassID from Article where ArticleID=" & ArticleID) if tClass.bof and tClass.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 找不到要评论的文章,可能已经被删除!
  • " else ClassID=tClass(0) end if set tClass=nothing if founderr=true then exit sub end if set rsComment=server.createobject("adodb.recordset") sql="select * from ArticleComment" rsComment.open sql,conn,1,3 rsComment.addnew rsComment("ClassID")=ClassID rsComment("ArticleID")=ArticleID rsComment("UserType")=CommentUserType rsComment("UserName")=CommentUserName rsComment("IP")=Request.ServerVariables("REMOTE_ADDR") rsComment("Score")=CommentUserScore rsComment("Content")=CommentUserContent rsComment("WriteTime")=now() rsComment.update rsComment.close set rsComment=nothing if CommentedID="" then session("CommentedID")=ArticleID else session("CommentedID")=CommentedID & "|" & ArticleID end if '生成文件 dim UseCreateHTML dim rsGlobal Set rsGlobal = Server.CreateObject("ADODB.Recordset") rsGlobal.open "SELECT Channel.UseCreateHTML FROM (Article INNER JOIN ArticleClass ON Article.ClassID = ArticleClass.ClassID) INNER JOIN Channel ON ArticleClass.ChannelID = Channel.ChannelID WHERE Article.ArticleID=" & ArticleID,conn,1,1 if not rsGlobal.eof then UseCreateHTML = rsGlobal(0) end if rsGlobal.close set rsGlobal = nothing if UseCreateHTML>=4 and UseCreateHTML<=7 then call CreateArticle(ArticleID) end if call WriteSuccessMsg2("发表评论成功!3秒后自动跳转",ArticleFilePath(ArticleID)) response.Write("") end sub %>