ASP×î»ù±¾µÄ¼Ó½âÃܺ¯Êý
<%
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
dim str
str = "neok"
Response.Write("¼ÓÃÜǰ:" + str + "<br>")
Response.Write("¼ÓÃܺó:" + encrypt(str) + "<br>")
Response.Write("½âÃÜ:"+ decrypt(encrypt(str)))
%>
Ïà¹ØÎĵµ£º
·þÎñÆ÷¶Ë×é¼þ
Ê×ÏÈ,·þÎñÆ÷¶ËµÄ×é¼þÒªÓбðÓÚ¿Í»§¶ËµÄ×é¼þ.¿Í»§¶ËµÄ×é¼þÊÇͨ¹ýÍøÂç´«Êä,ÒÀ*HTMLÀ´Æð×÷ÓÃ.¶øÇÒÖ»ÄÜÔÚIEÉÏÓÐÓÃ.µ«ÊÇ·þ ÎñÆ÷¶ËµÄ×é¼þÊÇÔËÐÐÔÚ·þÎñÆ÷¶Ë,ËüÔÚ·þÎñÆ÷ÉÏÖ´Ðи÷ÖÖ²Ù×÷.Òò´Ë,ËùÓеÄä¯ÀÀÆ÷¶¼ÄÜÏíÓÃ,ËüÒÀ*µÄÊÇ·þÎñÆ÷¶ø²»ÊÇä¯ÀÀÆ÷.
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½¡´%%>±êǩ֮¼ä ......
Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......
±àÕß×¢£ºÕâ¸öclassÖ÷ÒªÓÃÓÚ²Ù×÷aspÖеÄxmlhttp¡£
¡¡¡¡
Ê×ÏÈÊÇÀඨÒå Cls_AspHttp.asp£º
<%
''=================================================================
''·ÉÑïÔ¶³Ì»ñÈ¡Àà(AspHttp) 1.0.1 Bate1
''¡¡¡¡ By ±¼ÌÚµÄÐÄ
''¡¡¡¡ 2006-04-19
''=========================================================== ......
1. ʹÓÃVisual Studio 2008,ÏÂÔØASP.NET MVC Framework
2. ĬÈϵÄASP.NET MVC Project°üÀ¨6¸öĿ¼
Controls – ·ÅÖÃController À࣬´¦ÀíURL ÇëÇó¡£
Models – ·ÅÖÃÒµÎñʵÌåÀ࣬±íʾºÍ²Ù×÷Êý¾Ý¡£
Views – ·ÅÖÃUI Ä£°åÎļþ£¬¸ºÔðչʾÊä³ö½á¹û¡£
£¨MVCÖ÷ÒªµÄĿ¼£©
Scripts – ·ÅÖÃJavascript Àà¿â ......
<%
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)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBi ......