<%
dim bookname
dim bookwhere
dim bookpic
dim bookface
dim bookcontent
dim booktime
dim bookip
dim rs
dim sql
dim FoundErr,ErrMsg
dim strArr,i,BookFilter,BookExamine
bookname=request("name")
bookwhere=request("where")
bookpic=request("pic")
bookface=request("face")
bookshow=request("show")
bookcontent=request("content")
bookip=request.ServerVariables("REMOTE_ADDR")
if bookname="" then
response.write "留言昵称不能为空！"
Response.End
end if
if bookcontent="" then
response.write "留言内容不能为空！"
Response.End
end if
strArr=split(W_BookWorryNeed,"|")
for i=0 to ubound(strArr)
bookname=replace(bookname,strArr(i),"请您文明用语")
next
for i=0 to ubound(strArr)
booktitle=replace(booktitle,strArr(i),"请您文明用语")
next
for i=0 to ubound(strArr)
bookcontent=replace(bookcontent,strArr(i),"请您文明用语")
next
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from book"
rs.open sql,conn,1,3
rs.addnew
rs("name")=htmlencode(bookname)
rs("where")=htmlencode(bookwhere)
rs("pic")=bookpic
rs("face")="../Imgs/icons/"&bookface&".gif"
rs("show")=bookshow
rs("content")=htmlencode(bookcontent)
rs("ip")=bookip
rs("time")=now()
rs.update
rs.close
%>
92design