ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔÀíºÍ²ßÂÔ
±êÌâ: ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔÀíºÍ²ßÂÔ
- Óëʱ¾ã½ø 2009-09-17 09:01 ÔĶÁ:18
- ÆÀÂÛ:0 | Ìí¼ÓÆÀÂÛ | ·µ»Ø ↓
˵һÏÂÎÒ¶ÔHTML·À²É¼¯È´²»·ÀËÑË÷ÒýÇæÖ©ÖëµÄһЩ¾Ñ飺
ÎÒ¿ª·¢¹ý¼¸¸ö²É¼¯³ÌÐò£¬Ò²Ñо¿¹ýºÜ¶à²É¼¯³ÌÐò´úÂ룬ËùÒԶԲɼ¯³ÌÐòµÄÔÀí»¹ËãÊÇÉÔ΢ÓÐЩÁ˽⡣
ÏÈ˵һϲɼ¯ÔÀí£º
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒĿǰËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
Function GetBody(weburl)
'´´½¨¶ÔÏó
Dim ObjXMLHTTP
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
'ÇëÇóÎļþ,ÒÔÒì²½ÐÎʽ
ObjXMLHTTP.Open "GET",weburl,False
ObjXMLHTTP.send
While ObjXMLHTTP.readyState <> 4
ObjXMLHTTP.waitForResponse 1000
Wend
'µÃµ½½á¹û
GetBody=ObjXMLHTTP.responseBody
'ÊͷŶÔÏó
Set ObjXMLHTTP=Nothing
End Function
µ÷Ó÷½·¨£º
GetBody(ÎļþµÄURLfµØÖ·)
2¡¢»òXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
Function GetBody(weburl)
'´´½¨¶ÔÏó
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", weburl, False, "", ""
.Send
GetBody = .ResponseBody
End With
'ÊͷŶÔÏó
Set Retrieval = Nothing
End Function
µ÷Ó÷½·¨£º
GetBody(ÎļþµÄURLfµØÖ·)
ÕâÑù»ñÈ¡µÄÊý¾ÝÄÚÈÝ»¹ÐèÒª½øÐбàÂëת»»²Å¿ÉÒÔʹÓÃ
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
µ÷Ó÷½·¨£ºBytesToBstr(Ҫת»»µÄÊý¾Ý,±àÂë)'±àÂë³£ÓÃΪGB2312ºÍUTF-8
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
ĿǰÎÒÕÆÎյķ½·¨ÓУº
1¡¢ÓÃASPÄÚÖõÄMIDº¯Êý½ØÈ¡ÐèÒªµÄÊý¾Ý
Function body(wstr,start,over)
start=Newstring(wstr,start)
'ÉèÖÃÐèÒª´¦ÀíµÄÊý¾ÝµÄΨһµÄ¿ªÊ¼±ê¼Ç
over=Newstring(wstr,over)
'ºÍstartÏà¶ÔÓ¦µÄ¾ÍÊÇÐèÒª´¦ÀíµÄÊý¾ÝµÄΨһµÄ½áÊø±ê¼Ç
body=mid(wstr,start,over-start)
'ÉèÖÃÏÔÊ¾Ò³ÃæµÄ·
Ïà¹ØÎĵµ£º
ÎÒдÁ˸ö³ÌÐò£¬±¾µØÔËÐÐÍêÈ«Õý³££¬ÉÏ´«µ½·þÎñÆ÷ÔÚ·þÎñÆ÷ÉϲÙ×÷ÓÐʱºòÄÜÕý³£²Ù×÷£¬µ«ÊÇÔËÐÐÒ»»á¶ù¾Í·þÎñÆ÷Á¬½Ó³¬Ê±£¬È»ºó¾Í²»ÄÜÕý³£²Ù×÷ÁË£¬¹Ø±ÕÍøÒ³£¬´ò¿ª»¹ÊDz»ÄÜÁ¬½ÓÊý¾Ý¿â²Ù×÷£¬µÈ°ëСʱºó»òÕ߸ü¾ÃÓÖÄÜÕý³£ÁË£¬ÇëÎÊÕâ¸öÊÇÔõô»ØÊ£¿±¾µØËæÊ±¶¼ÄÜÕý³£ÔËÐÐÇÐÕÒ²»³öÈκÎÎÊÌâ¡£¸ßÊÖ°ï°ïæ°¡£¡ ......
Ô°æ
upload_5xsoft.inc ÎļþÄÚÈÝ
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim Data_5xsoft
Class upload_5xsoft
dim objForm,objFile,Version
Public function Form(strForm)
strForm=lcase(strForm)
if not ......
fixÊÇbmpµÄÒ»ÖÖÑÜÉú¸ñʽ£¬¿ÉÓÃÓÚaspÉú³ÉÑéÖ¤ÂëͼÐΡ£
Ò»¸öÀý×Ó£º
1 ͼÏó»æÖÆÍê³Éºó£¬½«Îļþ´æÎª24λλͼ¸ñʽµÄBMPͼÏóÎļþ¡£
2 È¥³ýǰ54ByteÄÚÈÝ.
3 ¸ÄÃûΪBODY+Êý×Ö.FIX
4 ÐÞ¸ÄCHECKCODE.ASP,µ÷ÓÃÄãÐÂ×öµÄÕâ¸öÎļþ.
£¨checkcode.asp ¸ºÔðÉú³ÉºÍÊä³öÑéÖ¤Âë 1309 byte£¬head.fix ÊÇ54byteµÄBMPÍ·£¬body.fix Êý×Ö0~9 10 ......
¿ÉÒÔʹÓÃÏÂÃæµÄÈκÎASPÄÚÖöÔÏ󣬶ø²»±ØÔÚASP½Å±¾ÖÐÌØ±ðÉùÃ÷¡£
1£® Request£º
¶¨Ò壺¿ÉÓÃÀ´·ÃÎÊ´Óä¯ÀÀÆ÷·¢Ë͵½·þÎñÆ÷µÄÇëÇóÐÅÏ¢£¬¿ÉÓô˶ÔÏó¶ÁÈ¡ÒÑÊäÈëHTML±íµ¥µÄÐÅÏ¢¡£
¼¯£º
Cookies£ºº¬ÓÐä¯ÀÀÆ÷cookiesµÄÖµ
Form£ºº¬ÓÐHTML±íµ¥ÓòÖеÄÖµ
QueryString£ºº¬Óвéѯ×Ö·û´®µÄÖµ
ServerVariables£ºº¬ÓÐÍ·ºÍ»·¾³±äÁ¿ ......
ASP.NET±à³ÌÄ£ÐÍÖÐASP.NETÒ³ÃæÉúÃüÖÜÆÚÊÇÖ¸Ê²Ã´ÄØ£¿Ëü°üÀ¨Ê²Ã´ÄØ£¿ASP.NET±à³ÌÄ£ÐÍÖ®ASP.NETÒ³ÃæÉúÃüÖÜÆÚ¾ßÌåµÄ¹ý³ÌÓÐÄÄÐ©ÄØ£¿ÏÂÃæ¾Í¿ªÊ¼ÎÒÃǵĽ²½â°É£º
ASP.NET Ò³ÔËÐÐʱ£¬´ËÒ³½«¾ÀúÒ»¸öÉúÃüÖÜÆÚ£¬ÔÚÉúÃüÖÜÆÚÖн«Ö´ÐÐһϵÁд¦Àí²½Öè¡£ÕâЩ²½Öè°üÀ¨³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹ÔºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂëÒÔ¼°½øÐгÊÏÖ ......