提示留言成功，但不会写进数据库，什么原因？
<!--#include file="conn.asp"--><%
'Response.Addheader "Content-Type","text/html; charset=gb2312"
Response.Charset="GB2312"
ip=request.servervariables("REMOTE_ADDR")
title=nohtml(request.form("title"))
name=nohtml(request.form("name"))
tel=nohtml(request.form("tel"))
content=nohtml(request.form("content"))
code=Get_SafeStr(request.form("code"))
Function telpd(strPassword)
Dim regEx
Set regEx = new RegExp
regEx.IgnoreCase = false
regEx.global = false
regEx.Pattern = "(^0[0-9]{2,3}-[0-9]{7,8}$)|(^0?1[0-9]{10}$)"
if regEx.Test(strPassword) then
telpd = true
else
telpd = false
end if
set regEx = Nothing
End Function
function incode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
fString = Replace(fString, CHR(10), "<br/>")
incode = fString
end if
end function
if Code<>CStr(session("CheckCode")) then
response.write "验证码不正确"
response.end
end if
if title="" then
response.write "留言主题不能为空"
response.end
end if
if name="" then
response.write "您的姓名不能为空"
response.end
end if
if telpd(tel)=false then
response.write "电话号码填写不正确,请重新填写！格式如：0592-5983163或13400693163"
response.end
end if
if content="" then
response.write "内容不能为空"
response.end
end if
content=incode(content)
conn.execute("insert into book(title,name,tel,content,ip) values('"&title&"','"&name&"','"&tel&"','"&content&"','"&ip&"')")
response.write "留言成功"
conn.close:set conn=nothing
response.end
%>
