savereview.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
if request.form("reviewcontent")="" then
   response.write"评论内容不能为空，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
if len(request.form("reviewcontent"))>800 then  
    response.write"评论内容不能太多，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if   
reviewcontent=htmlencode2(request.form("reviewcontent"))
reviewtitle=Request.Form("reviewtitle")
reviewface=Request.Form("face") 
id=request("id")  
set rs=server.createobject("adodb.recordset")
sql="select * from review where id="&id
rs.open sql,conn,1,3
rs.addnew
rs("user")=session("HappyMusicUser")
rs("reviewtitle")=reviewtitle
rs("reviewcontent")=reviewcontent
rs("reviewface")=reviewface
rs("id")=id
rs("reviewupdatetime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "list.asp?ID="&request("id")
%>