📄 input.asp

📁 电脑知识十万个为什么-v1.5注册版.zip
💻 ASP
字号:
<!- 将留言送入留言数据库 bbs.mdb--words 中保存 ->
<Html>
<Head>
<style type="text/css">
 <!--
 body { font: 9pt "宋体";margin-top: 0px; margin-left: 0px; margin-right:0px;}
    A { COLOR: black; FONT-SIZE: 9pt; FONT-WEIGHT: 400; TEXT-DECORATION: none }
 A:hover { COLOR: red; FONT-SIZE: 9pt; FONT-WEIGHT: 400; TEXT-DECORATION: underline }
 a:active{ font: 9pt "宋体"; cursor: hand; color: #FF0033 }
       td{ FONT-SIZE: 9pt}
 -->
</style>
</Head>
<body bgcolor="azure" background="images/bg_quarter.gif">
<%
if request.form("submit")="done" then
 xname=left(trim(request.form("xname")),16)
 email=left(trim(request.form("email")),40)
 tel=left(trim(request.form("tel")),30)
 bp=left(trim(request.form("bp")),20)
 wap=left(trim(request.form("wap")),20)
 country=left(trim(request.form("country")),30)
 addr=left(trim(request.form("addr")),60)
 postcode=left(trim(request.form("postcode")),10)
 unit=left(trim(request.form("unit")),30)
 mysubject=left(trim(request.form("mysubject")),32)
 mywords=left(trim(request.form("mywords")),3000)

 if len(xname)=0 or len(email)=0 or len(mysubject)=0 or len(mywords)=0 or instr(email,"@")=0 then
  response.write("<br><br>&nbsp;&nbsp;&nbsp;<img src=images/caution.gif>&nbsp;提交数据错误：")
  response.write("<br><br>&nbsp;&nbsp;1,没有填写以下项目之一：“姓名”、“电子邮件地址”、“主题”或“留言内容”；")
  response.write("<br><br>&nbsp;&nbsp;2,E-mail地址格式错误；")
  response.write("<br><br>&nbsp;&nbsp;&nbsp;<a href=javascript:history.go(-1)>- 返回更正 -&nbsp;<img src=images/undo.gif border=0 align=middle></a>")
 else
  set conn=server.createobject("adodb.connection")
  DBpath="DBQ=" & server.mappath("bbs.mdb")
  conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBpath
  sqlstr="insert into words (xname,email,tel,bp,wap,country,addr,postcode,unit,mysubject,mywords) values ('"&xname&"','"&email&"','"&tel&"','"&bp&"','"&wap&"','"&country&"','"&addr&"','"&postcode&"','"&unit&"','"&mysubject&"','"&mywords&"')"
  conn.execute sqlstr
  conn.close
  set conn=nothing
  response.write("<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/contact.gif>&nbsp;恭喜，您的留言保存成功!")
  response.write("<br><br>&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=bbs.asp><img src=images/view_words.gif border=0 align=middle>&nbsp;浏览留言</a>")
  response.write("<br><br>&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=bbs.asp#writewords><img src=images/copy.gif border=0 align=middle>&nbsp;再次留言</a>")
 end if
end if
%>
</Body>
</Html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -