savereview.asp

管理系统部分功能如下： （１）在线增加、修改、删除管理员 （２）在线增加、修改、删除作品、支持HTML等.. （３）前台作品付有评论功能．．以及评论数目和点击次数显示

<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
if request.form("reviewname")="" then
  ' Request.Form("reviewname")
   'response.redirect"index.asp"
   response.write"请填写您的大名!!<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
if request.form("review")="" then
  ' Request.Form("review")
   'response.redirect"index.asp"
   response.write"评论内容不能为空，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
if len(request.form("review"))>800 then  
    response.write"评论内容不能太多，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if   
  reviewname=htmlencode2(request.form("reviewname"))
  review=request.form("review")
  face=Request.Form("face") 
id=request("id")
reviewtitle=request("reviewtitle")
IP=Request("REMOTE_ADDR")
  

siteid=CLng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open "Select * from book where book.id="&siteid,conn,1,3

 rs("reviewcount")=rs("reviewcount")+1

rs("review")=rs("review")&"<br><font color=red> &nbsp;&nbsp;评论者：</font>"&reviewname&_
       "<font>　 </font><font face=""Wingdings""></font><table bgcolor=""#333333"" cellspacing=""0"" cellpadding=""5"" border=""0"" width=""100%"" align=""center""  onmouseover=""this.style.backgroundColor='#454545';return true;"" onmouseout=""this.style.backgroundColor='#333333';""><tr><td width=""100%"" style=""font-size:9pt""><strong><font color=green>"&reviewtitle&"</font></strong><br>"&_
         review&"<br><br><font color=#ffffff>发表日期："&date()&"  / 来自: "&ip&"</font><br></td></tr></table>  " 
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing

response.redirect "80diy_work_list.asp?ID="&request("id")
%>