<!--#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), "&nbsp;")
    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
%>

为什么要用update，不是直接插入就行吗？

update是用来修改数据的呀。

conn.addnew
conn("title")=request.form("title")
conn("name")=request.form("name")
conn("tel")=request.form("tel")
conn("content")=request.form("content")
conn.update

改成以上的后，连提示留言成功都没了，同样没写进数据库。
conn.execute("insert into book(title,name,tel,content,ip) values('"&title&"','"&name&"','"&tel&"','"&content&"','"&ip&"')")
用这个提示成功，但写不进数据库

总是还没有解决呀，高手来指点一下呀，不然又要卡住了。