Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASP Encode/Decode Functions

http://www.aspnut.com/reference/encoding.asp
Server.URLEncode
Used for encoding data that will be passed via a querystring variable. A querystring variable is anything following the question mark (?) in the URL (location) field of your browser. You create querystring variables when you perform a redirect or build a hyperlink to another page on your site.
<a href="page2.asp?name=Joe+Schmoe">here</a>
<%
Response.Redirect "page2.asp?ID=3"
%>
In the example above, the hyperlink contains a variable named "name" which has a value of "Joe Schmoe" (the space is encoded as "+") In the Response.Redirect statement, we have a querystring variabled named "ID" with a value of 3. To perform a URL encode on a variable (for purposes of passing this variable to another page) use the following:
<a href="page2.asp?name=<%= Server.URLEncode(sName) %>">
here</a>
<%
Response.Redirect "page2.asp?ID=" &_
Server.URLEncode(nID)
%>
URLDecode
For some reason, Microsoft did not include a URL decode function with Active Server Pages. Most likely, this was because the decoding of querystring variables is done automatically for you when you access the querystring object:
<%= Request.QueryString("name") %>

For those of you who are desperately in need of this function:
' -----------------------------------------
' URL decode to retrieve the original value
Function URLDecode(sConvert)
Dim aSplit
Dim sOutput
Dim I
If IsNull(sConvert) Then
URLDecode = ""
Exit Function
End If

' convert all pluses to spaces
sOutput = REPLACE(sConvert, "+", " ")

' next convert %hexdigits to the character
aSplit = Split(sOutput, "%")

If IsArray(aSplit) Then
sOutput = aSplit(0)
For I = 0 to UBound(aSplit) - 1
sOutput = sOutput & _
Chr("&H" & Left(aSplit(i + 1), 2)) &_
Right(aSplit(i + 1), Len(aSplit(i + 1)) -


Ïà¹ØÎĵµ£º

asp¡¢delphi¡¢oracleµÄ¼¼ÊõÎĵµ×ܽá

1) DelphiÏòoracleÖд«µÝ²ÎÊý ÈçoracleÖеIJÎÊýÃûΪerpcx 
´ð£ºÈç¹ûÏë´Ó±íÀïȡֵµ½oracle£¬Ôòerpcx:=trim(aq1.fieldbyname('erpcx').AsString);
·ñÔòÖ±½ÓÓÿؼþÃû×Ö
Óï¾äΪ
with aperp do    
begin
connection:=dm.ADOCerp;      
parameters.Clear;&nbs ......

dz˵aspµÄÒ»Ð©ÌØµã£¬ºÇºÇ

µ½µ×ʹÓÃPHP£¬ASP£¬»òÆäËüÄÄÖÖ¼¼Êõʱ£¬¿ÉÄÜÑ¡ÔñPHP »áºÜ¿á£¬µ«ÊÇÈç¹ûÄã¶ÔUnixϵͳ£¬ÒÔ¼°Perl »òC µÈÖªÖ®ÉõÉٵϰ£¬Õâ¾Í²»ÊÇÒ»¸öÃ÷ÖªµÄÑ¡Ôñ¡£ASP ¿ÉÒÔÓÃVBScript ½øÐбàд£¬¶øVBScript ±¾ÉíÊÇMICROSOFT Visual Basic ²úÆ·µÄ¼ò»¯°æ±¾£¬Ëü²ÉÓÃÓëVisual Basic ½üËÆµÄÓï·¨¿ò¼Ü£¬¼òµ¥Ò×ѧ¡£¿¼Âǵ½Visual Basic µÄÆÕ¼°ÐÔ£¬ÄÇôÄ㻹 ......

aspһЩ֧¸¶½Ó¿Ú

99bill:
1.md5.asp
<%
'''''''''
' @Description: ¿ìÇ®Íø¹Ø½Ó¿Ú·¶Àý
' @Copyright (c) ÉϺ£¿ìÇ®ÐÅÏ¢·þÎñÓÐÏÞ¹«Ë¾
' @version 2.0
'''''''''
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)

Pr ......

asp¶ÁÈ¡XMLÎļþ

<%
'
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://127.0.0.1/1.xml",False
http.send
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
'xml.load (Server.MapPath("1.xml"))¡¡'Èç¹û²»ÊÇÔ¶³ÌÎļþÖ±½ÓÕâÒ»²½
xml.Load(http.ResponseXML)
Dim t ......

ASP.NET ÈçºÎ£º¶ÔÕÕÌØ¶¨ÖµÑéÖ¤ ASP.NET ·þÎñÆ÷¿Ø¼þ


      ͨ¹ýʹÓà ASP.NET ÑéÖ¤¿Ø¼þ£¬¿ÉÒÔʹÓÃÂß¼­ÔËËã·û¶ÔÕÕÒ»¸öÌØ¶¨ÖµÀ´ÑéÖ¤Óû§ÊäÈë¡£ÀýÈ磬Äú¿ÉÒÔÖ¸¶¨Óû§ÊäÈë±ØÐëÊÇ“1950 Äê 1 Ô 1 ÈÕ”Ö®ºóµÄÈÕÆÚ£¬»òÊÇÒ»¸ö´óÓÚµÈÓÚ 0 µÄÕûÊýÖµ¡£»òÕߣ¬Äú»¹¿ÉÒÔÖ¸¶¨½«Óû§ÊäÈëÓëÁíÒ»¿Ø¼þµÄÖµ½øÐбȽϡ£
1¡¢½« CompareValidator ¿Ø¼þÌí¼Óµ½Ò³Ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ