savereview.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 46 行

<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<!--#include file="INC/fun.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=request.form("reviewname")
  review=htmlencode2(request.form("review"))
  face=Request.Form("face") 
reviewurl=Request.Form("reviewurl") 
articleid=request("id")
u_id=request("u_id")
  

set rs=server.createobject("adodb.recordset")
sql="select review,reviewcount from learning where articleid="&articleid
rs.open sql,conn,3,3

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

rs("review")=rs("review")&"<table cellspacing=""6"" cellpadding=""0"" border=""0"" width=""100%""><tr><td colspan=2 width=1 background=""../images/hline.gif""></td></tr><tr><td><img src=images/mood"&face&".gif><font color=red> 评论者：</font><a href=""../read.asp?user_id="&u_id&""">"&reviewname&_
       "</a></td><td align=right>评论日期："&GetDateTime(now())&"</font>&nbsp;</td></tr></table><table cellspacing=""7"" cellpadding=""0"" border=""0"" width=""100%"" height=""50""><tr><td valign=top>"&_
         review&"</td></tr></table>  "
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing

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