asp¼ÓÔØXMLÎÊÌâ
ÎÒÒªÓÃASP¼ÓÔØÒ»¸öXML£¬ÓÐÁ½¸öÎļþ£¬sxml.aspÕâ¸öÎļþÓÃÀ´ÏÔʾXML£¬search.asp Õâ¸öÎļþ¼ÓÔØXML
´úÂëÈçÏ£º
sxml.asp
VBScript code:
<%
response.ContentType = "text/xml"
response.Write("<?xml version=""1.0"" encoding=""utf-8""?><Root><Citys RowCounts=""2""><row><SubRowId>1</SubRowId><CityID>489</CityID><CityName>È«¹ú</CityName></row><row><SubRowId>2</SubRowId><CityID>530</CityID><CityName>±±¾©</CityName></row></Citys></Root>")
%>
XMLͼ£º
search.asp
VBScript code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
response.Charset = "uft-8"
dim xmlcontentCity,xmldocCity
function SearchCity()
set xmlHttp = server.CreateObject("Msxml2.XMLHTTP")
xmlHttp.open "GET","sxml.asp",false
xmlHttp.send
if xmlHttp.readyState = 4 then
xmlcontentCity = xmlHttp.responseText
set xmldocCity = server.CreateObject("Microsoft.XMLDOM")
xmldocCity.async = false
xmldocCity.l
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=")
......
µ±½áÊøÊ±¼ä´óÓÚ¿ªÊ¼Ê±¼äÔòÏÔʾδÍê³É
µ±½áÊøÊ±¼äСÓÚ¿ªÊ¼Ê±¼äÔòÏÔʾδ´ïµ½ÈÎÎñ
ûÓÐʱ¼äÔòÏÔʾÕýÔÚ½øÐÐÖÐ
asp´úÂëÓ¦¸ÃÔõôд
Èç:¿ªÊ¼Ê±¼ä ½áÊøÊ±¼ä & ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
½¨ÁËÒ»¸öÕ¾µã£¬ÀïÃæÓÐ login.aspx. events.aspx µÈµÈ ÆäËûµÄÒ³Ãæ¡£
µ«ÊÇÎÒµ÷ÊÔ ÆäËûÒ³ÃæµÄʱºò£¬±Ä³öÀ´µÄ×ÜÊÇ login.aspx Ò³Ãæ¡£
¸Õѧasp ÇëÖ¸½Ì
ÄãÉèÖÃÆðʼҳÁ˰ɡ£¡£
¶÷ÔõôȡÏûÄØ£¿
Òªµ ......