www.gusucode.com > 书生图片管理Asp源码程序 > code/savereview.asp
<!--#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")) 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 from learning where articleid="&articleid rs.open sql,conn,3,3 rs("reviewcount")=rs("reviewcount")+1 rs("review")=rs("review")&"<br><img src=images/mood"&face&".gif><font color=red> 评论者:</font><a href=""mailto:"&reviewemail&""">"&reviewname&_ "<a><font> </font><font face=""Wingdings""></font><font color=red>个人网页:</font><a href="""&reviewurl&""">"_ &reviewurl&"</a><table bgcolor=""#F7F7F7"" cellspacing=""0"" cellpadding=""5"" border=""0"" width=""100%"" align=""center""><tr><td width=""100%"" style=""font-size:9pt""><strong><font color=green>"&reviewtitle&"</font></strong><br>"&_ review&"<br><br><font style=""font-size:8pt"">--发表日期:"&date()&"<br>[来自: "&ip&"]</font><br></td></tr></table> " rs.update rs.close set rs=noting conn.close set conn=nothing response.redirect "review.asp?ID="&request("id") %>