savereview.asp

这是一个文章管理的网页源程序

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%

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"))
  reviewemail=htmlencode2(request.form("reviewemail"))
  review=htmlencode2(request.form("review"))
  face=Request.Form("face") 
reviewurl=Request.Form("reviewurl") 
articleid=request("id")
reviewtitle=request("reviewtitle")
IP=Request("REMOTE_ADDR")


    

set rs=server.createobject("adodb.recordset")
sql="select review,reviewcount,reviewtime from article where articleid="&articleid
rs.open sql,conn,3,3
rs("reviewtime")=date()
 rs("reviewcount")=rs("reviewcount")+1

rs("review")=rs("review")&"<table bgcolor=""#ffffff"" cellspacing=""0"" cellpadding=""2"" border=""1"" width=""95%""  bordercolorlight=""#999999"" bordercolordark=""#FFFFFF"" align=""center""><tr><td  ><img src=../news/images/mood"&face&".gif><font color=red> 评论者:</font><a href=""mailto:"&reviewemail&""">"&reviewname&_
       "</a>　<font color=red>个人网页:</font><a href="""&reviewurl&""">"_
         &reviewurl&"</a>　<font color=red>来自:</font> [<font face=""arial"">"&ip&"</font>]<br><font color=green>标题:<strong>"&reviewtitle&"</strong></font><br>内容:"&_
         review&"<br><br><font style=""font-size:9pt"">--发表日期："&date()&"</font></td></tr></table>  " 
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

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