HttpSendRequest¤ÇVBScript¤Ë¥Ç¡¼¥¿Á÷¿®¤¹¤ë¤Ë¤Ï¡©

[ ¥ê¥¹¥Èɽ¼¨ ] [ ¥Û¡¼¥à¥Ú¡¼¥¸ ]
Åê¹Æ¼Ô:nah - Åê¹ÆÆü»þ:2004ǯ04·î22Æü 22»þ56ʬ52ÉÃ
°úÍÑ

¤Ï¤¸¤á¤Þ¤·¤Æ¡£
¸½ºß¡¢HttpSendRequest´Ø¿ô(POST)¤Ë¥Ç¡¼¥¿¤òÀßÄꤷ¡¢
VBScript(.asp)¤Ë¥Ç¡¼¥¿¤òÁ÷¤ë½èÍý¤ò¤·¤Æ¤¤¤Þ¤¹¡£
VBScript¤Ï¡¢HttpSendRequest¤Çư¤¯»ö¤ò³Îǧ¤·¤¿¤Î¤Ç¤¹¤¬¡¢
Âè4°ú¿ô¤ËÃÍ¡¢Âè5°ú¿ô¤ËÃͤΥì¥ó¥°¥¹¤òÀßÄꤷ¤Æ¤âÅϤ¹»ö¤¬½ÐÍè¤Ê¤¤¤Ç¤¤¤Þ¤¹¡£
<VB>
' HTTP¥µ¡¼¥Ð¡¼¤Ë¥ê¥¯¥¨¥¹¥È¤òÁ÷¿®
Dim str As String
Dim lng As Long
str = "NID=" & "99"
lng = Len(str)
lngWin32ApiResultCode = _
HttpSendRequest(lngHttpOpenRequestHandle, _
vbNullString, _
0, _
ByVal str, _
lng)
<VBScript>
'¥Ç¡¼¥¿¼èÆÀ
NID =Request.Form("NID")

VBScript¤ÎÊý¤Ï¡¢¥Ö¥é¥¦¥¶¤«¤é¼õ¤±¼è¤Ã¤Æ½èÍý¤ò¤·¤Æ¤¤¤ë.asp¤ò
¿÷·¿¤Ë¤·¤Æ½¤Àµ¤ò²Ã¤¨¤Æ»È¤Ã¤Æ¤¤¤Þ¤¹¤¬¡¢Wininet¤âVBScript¤â
asp¤âÃ챤¬Ë³¤·¤¤¤Î¤Ç¶ìÀ路¤Æ¤¤¤Þ¤¹¡£
VBScript¦¤Î¼õ¤±¼è¤êÊý¤Ë¤âÌäÂ꤬¤¢¤ê¤½¤¦¤Ç¤¹¤¬¡¢Ê¬¤«¤ê¤Þ¤»¤ó¡£
¤É¤Ê¤¿¤«¤´¶µ¼ø¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£

¤³¤Îµ­»ö¤ËÂФ¹¤ë¥³¥á¥ó¥È

[ ¥ê¥¹¥Èɽ¼¨ ] [ ¥Û¡¼¥à¥Ú¡¼¥¸ ]

GeoCities