thief.asp

后台： 1.后台安全方面做了防注处理 2.添加了显示修改数据功能 3.添加了数据库压缩恢复备份功能 4.防注入管理 5.程序完全独立使用

<%
Function getHttpPage(Url) 
	On Error Resume Next
	Dim Http 
	Set Http = Server.CreateObject("MSXML2.XMLHttp") 
	Http.Open "GET",Url,False 
	Http.Send()
		If Http.Status <> 200 Then
			getHttpPage = "ServerClose"
		Else
			getHttpPage = bytes2BSTR(Http.responseBody)
		End If
	Set Http = Nothing
	If Err.number <> 0 Then Err.Clear  
End function 

Function bytes2BSTR(vIn) 
	Dim strReturn 
	Dim i1,ThisCharCode,NextCharCode 
	strReturn = "" 
	For i1 = 1 To LenB(vIn) 
		ThisCharCode = AscB(MidB(vIn,i1,1)) 
		If ThisCharCode < &H80 Then 
			strReturn = strReturn & Chr(ThisCharCode) 
		Else 
			NextCharCode = AscB(MidB(vIn,i1+1,1)) 
			strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
			i1 = i1 + 1 
		End If
	Next
	bytes2BSTR = strReturn
End Function
%>