?? input.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> <img src=images/caution.gif> 提交數據錯誤：")
response.write("<br><br> 1,沒有填寫以下項目之一：“姓名”、“電子郵件地址”、“主題”或“留言內容”；")
response.write("<br><br> 2,E-mail地址格式錯誤；")
response.write("<br><br> <a href=javascript:history.go(-1)>- 返回更正 - <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> <img src=images/contact.gif> 恭喜，您的留言保存成功!")
response.write("<br><br>   <a href=bbs.asp><img src=images/view_words.gif border=0 align=middle> 瀏覽留言</a>")
response.write("<br><br>   <a href=bbs.asp#writewords><img src=images/copy.gif border=0 align=middle> 再次留言</a>")
end if
end if
%>
</Body>
</Html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -