ASPµ÷ÓÃWEBSERVICEÎĵµ
----INDEX----
1. soapÇëÇó·½Ê½
2. postÇëÇó·½Ê½
3. SHOWALLNODEº¯Êý(¹ØÓÚ½Úµã¸÷ÊôÐÔºÍÊý¾ÝÏÔʾ)
---------------------
Ò»£®SOAPÇëÇóʾÀý
ÏÂÃæÊÇÒ»¸ö SOAP ÇëÇóʾÀý¡£ËùÏÔʾµÄռλ·ûÐèÒªÓÉʵ¼ÊÖµÌæ»»¡£
POST /WebService1/UserSignOn.asmx HTTP/1.1
Host: 192.100.100.81
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://tempuri.org/LoginByAccount"
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<LoginByAccount xmlns="http://tempuri.org/">
<username>string</username>
<password>string</password>
</LoginByAccount>
</soap:Body>
</soap:Envelope>
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/clchun4352/archive/2006/03/29/642477.aspx
ΪÁËÓëWEBSERVICE½»»¥£¬ÐèÒª¹¹ÔìÒ»¸öÓëÉÏÍêÈ«ÏàͬµÄSOAPÇëÇó£º
<%
url = "http://192.100.100.81/WebService1/UserSignOn.asmx"
SoapRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?>"& _
"<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "& _
"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"& _
"<soap:Body>"& _
"<LoginByAccount xmlns="&CHR(34)&"http://tempuri.org/"&CHR(34)&">"& _
"<username>"&username&"</username>"& _
"<password>"&password&"</password>"& _
"</LoginByAccount>"& _
"</soap:Body>"& _
"</soap:Envelope>"
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type
Ïà¹ØÎĵµ£º
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/828.html
Ìõ¼þÓï¾äÖ® select case Óï¾ä
1¡¢¶àÌõ¼þ·ÖÖ§µÄʱºòÓÅÏÈʹÓÃselect case½á¹¹£»
2¡¢Êý×ֵĴóÁ¿ÁоÙʱ×îºÃʹÓÃselect case
3¡¢±ØÐëʹÓà end select À´½áÊø·ÖÖ§½á¹¹
ʾÀý£º
ÒÔÏÂΪ ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/829.html
Ñ»·Óï¾äµÄ¸ÅÄî
Ñ»·Óï¾äÊÇÖ¸ÖØ¸´Ö´ÐеÄÓï¾ä£¬¿É·ÖΪÈýÀࣺ
1£¬µ±Ìõ¼þ±äΪ¼ÙÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
2£¬µ±Ìõ¼þ±äÎªÕæÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
3£¬°´ÕÕÖ¸¶¨µÄ´ÎÊýÖØ¸´Ö´ÐÐÓï¾ä¡£
VBscript µÄÑ»·Óï¾ä
<1> do ... loop Ö±µ½Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ»·£»
< ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/830.html
do ... loop Óï¾äÁ½ÖÖ¸ñʽµÄʾÀý
do whil ... loop £º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt ......
<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......