script.asp

小型网上购物网站

<%@LANGUAGE="VBSCRIPT" CodePage="936"%>
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
%>
<%
'jetiben.com
Option Explicit
Response.Buffer = True
Server.scriptTimeout="20"
on error resume next
Dim strSourceFile,objXML,objRootsite,AllNodesNum
strSourceFile=Server.MapPath("xml/info.xml")
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite=objXML.documentElement.selectSingleNode("qqinfo")
Dim startX,startY
startX=objRootsite.childNodes.item(0).childNodes.item(2).text
startY=objRootsite.childNodes.item(0).childNodes.item(3).text
Set objRootsite=nothing
Set objXML=nothing
%>