马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。显现|语法<%ClasscBuffer
PrivateobjFSO,objFile,objDict
Privatem_strPathToFile,m_TableBGColor,m_StartTime
Privatem_EndTime,m_LineCount,m_intKeyMin,m_intKeyMax
Privatem_CodeColor,m_CommentColor,m_StringColor,m_TabSpaces
PrivateSubClass_Initialize()
TableBGColor="white"
CodeColor="Blue"
CommentColor="Green"
StringColor="Gray"
TabSpaces=""
PathToFile=""
m_StartTime=0
m_EndTime=0
m_LineCount=0
KeyMin=2
KeyMax=8
SetobjDict=server.CreateObject("Scripting.Dictionary")
objDict.CompareMode=1
CreateKeywords
SetobjFSO=server.CreateObject("Scripting.FileSystemObject")
EndSub
PrivateSubClass_Terminate()
SetobjDict=Nothing
SetobjFSO=Nothing
EndSub
PublicPropertyLetCodeColor(inColor)
m_CodeColor="<fontcolor="&inColor&"><Strong>"
EndProperty
PrivatePropertyGetCodeColor()
CodeColor=m_CodeColor
EndProperty
PublicPropertyLetCommentColor(inColor)
m_CommentColor="<fontcolor="&inColor&">"
EndProperty
PrivatePropertyGetCommentColor()
CommentColor=m_CommentColor
EndProperty
PublicPropertyLetStringColor(inColor)
m_StringColor="<fontcolor="&inColor&">"
EndProperty
PrivatePropertyGetStringColor()
StringColor=m_StringColor
EndProperty
PublicPropertyLetTabSpaces(inSpaces)
m_TabSpaces=inSpaces
EndProperty
PrivatePropertyGetTabSpaces()
TabSpaces=m_TabSpaces
EndProperty
PublicPropertyLetTableBGColor(inColor)
m_TableBGColor=inColor
EndProperty
PrivatePropertyGetTableBGColor()
TableBGColor=m_TableBGColor
EndProperty
PublicPropertyGetProcessingTime()
ProcessingTime=Second(m_EndTime-m_StartTime)
EndProperty
PublicPropertyGetLineCount()
LineCount=m_LineCount
EndProperty
PublicPropertyGetPathToFile()
</p>大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 |