submit_gb.asp

一个企业网站的php源代码

<%@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
%>