addreview.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<%@ Language=VBScript %>
<!--#include file=include/conn.asp -->
<!--#include file="inc/config.asp"-->
<!--#include file="admin/char.inc"-->

<%
reviewID=checkstr(Request.Form("reviewID"))
NewsID=checkstr(Request.Form("NewsID"))
title=checkstr(Request.Form("title"))
url=trim(checkstr(Request.Form("url")))
Author=trim(checkstr((Request.Form("Author"))))
if author="" then
%>
<script language=javascript>
history.back()
alert("请输入您的姓名！")
</script>
<%
Response.End
end if
author=replace(author,"'","''")

email=trim(Request.Form("email"))
if email="" then
%>
<script language=javascript>
history.back()
alert("请输入您的EMAIL。")
</script>
<%
Response.End
end if
if Instr(email,".")=0 or  Instr(email,"@")=0  then
%>
<script language=javascript>
history.back()
alert("请输入正确的EMAIL。")
</script>
<%
Response.End
end if

email=replace(email,"'","''")

content=checkstr(request.form("content"))
dim byte1
byte1=split(byteType,"|")
		for i=0 to ubound(byte1)
		content=replace(content,trim(byte1(i)),"***")
		next
Response.cookies("content")=content
if content="" then
%>
<script language=javascript>
history.back()
alert("请输入评论内容！")
</script>
<%
Response.End
end if
reviewip=Request.ServerVariables("REMOTE_ADDR")
passed=checkstr(Request.Form("passed"))

set rs=server.createobject("adodb.recordset")
sql="select * from review" 
rs.open sql,conn,1,3
rs.addnew
rs("author")=author
rs("content")=content
rs("title")=title
rs("NewsID")=NewsID
rs("passed")=passed
rs("reviewip")=reviewip
rs("email")=email
rs("updatetime")=now()
rs.update
rs.close


reviewid=reviewID+1
newsid=newsid
Response.cookies("content")=""
Response.Redirect url

%>