|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;encode|编码|函数<%
Coding.inc.asp
AllRightsReserved,Room3rd@hotmail.com
FunctionEncode(Str)
DimCount,Pos,Ch,Code
DimSweetCh
SweetCh中暗示不必要举行编码的字符
SweetCh="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
Encode=""
Count=Len(Str)
Pos=1
DoWhilePos<=Count
Ch=Mid(Str,Pos,1)
Code=Asc(Ch)
IfCode>=0AndCode<256Then汉字不予处置
IfCh"%"Then
IfInStr(SweetCh,Ch)=0Then
Ch="%"&Right("0"&Hex(Code),2)
EndIf
Else
Ch="%25"
EndIf
EndIf
Encode=Encode&Ch
Pos=Pos+1
Loop
EndFunction
FunctionDecode(Str)
DimCount,Pos,Ch,Code
Decode=""
Count=Len(Str)
Pos=1
DoWhilePos<=Count
Ch=Mid(Str,Pos,1)
IfCh="%"Then
IfPos+2<=CountThen
Ch=Chr((InStr("0123456789ABCDEF",UCase(Mid(Str,Pos+1,1)))-1)*16+InStr("0123456789ABCDEF",UCase(Mid(Str,Pos+2,1)))-1)
Else
编码串不准确
Ch=""
EndIf
Pos=Pos+2
EndIf
Decode=Decode&Ch
Pos=Pos+1
Loop
EndFunction
%>
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 |
|