|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码这个socket组件是由开辟jmail的那家公司作的。
很老的一个版本了。不外挺好的。我一向在用。
对照不乱。之前发明xmlhttp在win2003server上不太好。流量年夜了iis简单当失落。用这个组件倒还算不乱。
paraHost="www.ckuyun.com"host
paraPort=80port
paraFileUrl="/test/test.htm"
SetSocket=CreateObject("Socket.TCP")
Socket.Host=paraHost&":"¶Port
Socket.Timeout=paraTimeout
IfErr.Number0ThenErr.Clear
Socket.open
timeouterror=8000ffff
Socket.SendLine"GET"¶FileUrl&"HTTP/1.0"
Socket.SendLine"HOST:"¶Host
Socket.SendLine""
Socket.SendLine""
Sleep200
Socket.WaitForDisconnect
IfErr.Number0Then
response.writeErr.Number&"--"&Err.Description
Err.Clear
Else
response.writeHTTPResponse(Socket.Buffer,1)outputtextfromsocket
EndIf
Socket.Close
SetSocket=Nothing
PrivateFunctionHTTPResponse(ByValtoHTTPResponse,ByValwhichHTTPResponse)
OnErrorResumeNext
DimHTTPResponseDelimiter
HTTPResponseDelimiter=Chr(13)&Chr(10)&Chr(13)&Chr(10)
If(InStr(1,toHTTPResponse,HTTPResponseDelimiter,vbBinaryCompare)0)Then
SelectCasewhichHTTPResponse
Case0Header
HTTPResponse=Mid(toHTTPResponse,1,(InStr(1,toHTTPResponse,HTTPResponseDelimiter,vbBinaryCompare)-1))
Case1Body
HTTPResponse=Mid(toHTTPResponse,(InStr(1,toHTTPResponse,HTTPResponseDelimiter,vbBinaryCompare)+Len(HTTPResponseDelimiter)),(Len(toHTTPResponse)-(InStr(1,toHTTPResponse,HTTPResponseDelimiter,vbBinaryCompare)-1)))
EndSelect
EndIf
EndFunction
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 |
|