4,009
社区成员




<%
Name=request("name")
Email=request("Email")
Memo=request("memo")
if len(name)=0 or len(Email)=0 or len(memo)=0 then response.write"不能为空": response.end
dim Connstr,conn,SQL
set conn=Server.CreateObject("adodb.connection")
'conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ#留言板.mdb;"
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("留言板.mdb")
conn.open
if conn.state<>1 then
response.write("数据库连接失败!原因:"&err.description)
set conn=nothing
response.end
end if
'注意:把数据库中原来的E-mail字段改为Email字段!
SQL="INSERT INTO 留言版(姓名,Email,内容) VALUES('"&name&"','"&email&"','"&memo&"')"
response.write(SQL)'把打印的这句SQL贴出来
conn.Execute(SQL)
conn.close(): set conn=nothing
response.redirect("display.asp")