?? submit_gb.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="open.asp" -->
<%'on error resume next
if request("title")="" then
con.close
Set con=nothing
response.End()
end if
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.async=false
xml.load(Server.MapPath("gb.xml"))
Set root=xml.documentElement
Set rs=Server.CreateObject("adODB.RecordSet")
SQL="Select * from guestbook"
rs.open SQL,con,3,3
rs.addnew
for i=0 to root.childnodes.length-1
Set node=root.childnodes.item(i)
if node.attributes.item(1).nodevalue<>"pub_date" then
'Response.Write(node.attributes.item(1).nodevalue)
if Request(node.attributes.item(0).nodevalue)<>"" then
rs(node.attributes.item(1).nodevalue)=Request(node.attributes.item(0).nodevalue)
end if
end if
Set node=nothing
next
rs("pub_date")=now
rs.update
Set rs=nothing
call alert
Set xml=nothing
%>
<!--#include file="close.asp" -->
<%sub alert %>
<script>
alert("留言成功");
history.go(-1);
</script>
<%end sub
'if err.number<>0 then
'response.Write(err.description)
'end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -