save.asp

来自「我的小网站个人利用业余时间设计的」· ASP 代码 · 共 32 行

<%
dim username,useremail,content,conn,path
username=request("txtname")
useremail=request("txtemail")
content=request("content")

if username="" or useremail="" or content="" then
     showmessage"标题，和修改内容不能为空！"
     end if

Set conn= Server.CreateObject("ADODB.Connection")
path=Server.MapPath("AnswerData.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&path
Set rssql= Server.CreateObject("ADODB.recordset")
strsql="insert into bbs(name,email,content)values('"&username&"','"&useremail&"','"&content&"')"
conn.execute(strsql)
conn.close
set conn=nothing
response.redirect"bbs.asp"

sub showmessage(message)
  response.write"<center><h3>"&message&"</h3>"
  response.write"<a href=write.asp>返回上一页!</a></center>"
  response.end
  end sub
%>