asp´¦ÀíxmlÎÊÌâ - Web ¿ª·¢ / ASP
¸Õ¿ªÊ¼×öasp£¬ÎÒ×ö.netµÄ£¬¼æ×öÏÂasp£¬ÏÖÔÚ¹ØÓÚxmlÎÊÌ⣬Çë½Ì
Èç¹û±ð¸öÇëÇóÎÒµÄÒ³Ãæ£¬´«µÝµÄÊÇxml¸ñʽ
ÎÒ¿ÉÒÔÕâÑù½ÓÊÕ
VBScript code:
set xmlDOC=Server.CreateObject("MSXML.DOMDocument")
xmlDOC.async = False
xmlDOC.Load Request
If xmlDOC.parseError.errorCode <> 0 Then
Response.Write "²»ÊÇxml¸ñʽ"
Response.End()
End If
set blogchild=xmlDOC.getElementsByTagName("msg")
'........................´¦Àí
µ«ÊÇÏÖÔÚÊÇÎÒÇëÇó±ðÈË£¬·µ»ØÊÇxml¸ñʽµÄ£¬ÎÒ½ÓÊÕ²»ÁË£¬ÒªÔõô½ÓÊÕ
VBScript code:
str=getHTTPPage("http://www.xxxx.com") '¶Ô·½·µ»ØµÄÊÇxml¸ñʽ
set xmlDOC=Server.CreateObject("MSXML.DOMDocument")
xmlDOC.async = False
xmlDOC.Load [color=#FF0000]str[/color]
If xmlDOC.parseError.errorCode <> 0 Then
Response.Write "²»ÊÇxml¸ñʽ"
Response.End()
End If
set blogchild=xmlDOC.getElementsByTagName("msg")
'........................´¦Àí
ÕâÑù²»ÐÐ
VBScript code:
str=getHTTPPage("http://www.xxxx.com") '¶Ô·½·µ»ØµÄÊÇxml¸ñʽ
set xmlDOC=Server.CreateObject("MSXML.DOMDocu
Ïà¹ØÎÊ´ð£º
function CheckOpwd(){//ÑéÖ¤Óû§Ãû
var pwd=document.all.txtOpwd;
var div1=document.getElementById("divPwd");
if (pwd.value=="")
{
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
1.asp.net×öµÄÒ»¸ö´ðÌâÒ³Ãæ£¬ÈçºÎʵʱÏÞʱºó×Ô¶¯Ìá½»£¬Çë´ó¼Ò¸øµã˼·
ÏÞʱµÄʱ¼äÐÅÏ¢´æ·ÅÔÚÊý¾Ý¿âÖÐ
2.Èç¹û´ðÌâʱ¼äÉèÖõĽϳ¤£¬ÈçºÎ·½Ê½session³¬Ê±ºóÒ³ÃæÎÞЧ
лл
ÓÃjs·½·¨À´¿ØÖÆ
»Ø¸´ÄÚÈÝÌ«¶ÌÁË¡£¡£
js ......
¸÷λºÃ£¬ÎÒ¸Õ°ÑÒ»¸öASPÍøÕ¾ÉèÖúÃÁË£¬Ò²ÄÜÕý³£·ÃÎÊ¡£µ«ÊÇÔÚÎÒ±¾»úÉϲ»ÄÜ´ò¿ªadmin\login.asp,ËùÒÔÎÞ·¨ÊµÏÖºǫ́¹ÜÀí¡££¨´íÎóÌáʾÎÞ·¨ÕÒµ½ÍøÒ³£¬´úÂë404£¬ÎҵIJÙ×÷ϵͳÊÇwin2000 server)
µ«ÊÇÆæ¹ÖµÄÊÇÔÚ¾ÖÓòÍøµÄÆäËû» ......