conn.asp

九酷网络个人主页系统破解版

<%
' FSO 系统自定义
'--------------------------------------------------------------------------------
dim Const_ScriptFileSystem
Const_ScriptFileSystem="Scripting.FileSystemObject"
if not IsObjInstalled("Scripting.FileSystemObject") Then
	Response.Write "<b><font color=red>你的服务器不支持 FSO，不能使用本系统！</font></b>"
	Response.End
end if
'定义变量
dim conn,connstr,datapath,datafile,connftp,connstrftp,dbftp
datapath    ="/data/"      '数据库目录的相对路径，必须以"/"结束
datafile    ="#data.mdb"      '数据库的文件名
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(datapath&datafile)
ver="V7.0 Access Server"
set rs=server.createobject("ADODB.Recordset")
Set fso=Server.CreateOBject(Const_ScriptFileSystem) 
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
'ftp数据库链接
dbftp="ftp.mdb" 'ftp数据库的文件名
connstrftp="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(datapath&dbftp)
set connftp=server.createobject("ADODB.CONNECTION")
connftp.open connstrftp
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查！"
Response.End
End If
On Error GoTo 0
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"&lt;"
case ">"
result=result+"&gt;"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"&quot;"
case "&"
result=result+"&amp;"
case chr(32)	
'result=result+"&nbsp;"
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	
result=result+"&nbsp;"
else
result=result+" "
end if
else
result=result+"&nbsp;"	
end if
case chr(9)
result=result+"    "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
sub WriteErrMsg(errmsg)
	Response.Cookies("9cool_errinfo")=errmsg
	response.redirect "error.asp"
	response.end
end sub
sub ErrMsg(errs)
	Response.Cookies("9cool_errinfo")=errs
	response.redirect "../error.asp"
	response.end
end sub
sub ShowPage()
PageUrl=ReplaceText(Request.QueryString,"PageIndex=([0-9]*)&","")
if Request.Form<>empty then PageUrl=""&PageUrl&"&"&Request.Form&""
%>
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"<%=PageUrl%>")</script>
<%
end sub
''''''''''替换模块START''''''''''''
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp  ' 建立正则表达式。
regEx.Pattern = patrn   ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True     ' 设置全局可用性。 
ReplaceText = regEx.Replace(fString, replStr) ' 作替换。
Set reg=nothing
End Function
''''''''''替换模块END''''''''''''
function ContentEncode(fString)
fString=replace(fString,vbCrlf, "")
fString=replace(fString,"\","&#92;")
fString=replace(fString,"'","&#39;")
'fString=ReplaceText(fString,"<(.[^>]*)(&#|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse))", "&lt;$1$2$3")
fString=ReplaceText(fString,"<(.[^>]*)(javascript:|Document.|onerror|onload|onmouseover)", "&lt;$1$2")
fString=ReplaceText(fString,"<(\/|)(iframe|SCRIPT|form|style|div|object|TEXTAREA)", "&lt;$1$2")
if badwords<>empty then
filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
ContentEncode=fString
end function
Function CheckChar(testchar,testpathyes) 
CheckChar=true 
	dim char,pathyes
	char=testchar
	pathyes=testpathyes
	if len(pathyes)=1 then char=replace(char,pathyes,"")
	if Instr(char,"=")>0 _
	  	or Instr(char,"\")>0 _
	  	or Instr(char,"/")>0 _
	  	or Instr(char,"%")>0 _
	  	or Instr(char,chr(32))>0 _
	  	or Instr(char,"?")>0 _
	  	or Instr(char,"&")>0 _
	  	or Instr(char,"$")>0 _
	  	or Instr(char,";")>0 _
	  	or Instr(char,",")>0 _
	  	or Instr(char,"'")>0 _
	  	or Instr(char,chr(34))>0 _
	  	or Instr(char,chr(9))>0 _
	  	or Instr(char,"*")>0 _
	  	or Instr(char,">")>0 _
	  	or Instr(char,"<")>0 _
	  	or Instr(char,"|")>0  _
	  	or Instr(char,":")>0 _
	  	or Instr(char,chr(0))>0 _
	  	or Instr(char,"#")>0 then CheckChar=false
End function
''================================================== 
''函数名：ServUPassEnCode 
''作 用：Serv-U软件密码加密函数 
''参 数：strPass ------ 字符串 
''================================================== 
Function SerUPassEnCode(strPass) 
Dim Char1,Char2,Seed,prePass,EncodePass,FinalPass 
If IsNull(strPass) Or strPass="" Then Exit Function 
Char1 = Chr(Rand(97,122)) 
Char2 = Chr(Rand(97,122)) 
Seed = Char1 & Char2 
prePass = Seed & strPass 
EnCodePass = Ucase(md5(prePass,32)) ''32位md5 
FinalPass = Seed & EnCodePass 
SerUPassEnCode = FinalPass 
End Function 

''================================================== 
''函数名：Rand 
''作 用：取两个整数之间的随机数 
''参 数：n,m ------ 整数 
''================================================== 
Function Rand(n,m) 
Dim a,b,t 
a = n : b = m 
If b < a Then t = b : b = a : a = t 
Randomize 
Rand = Int(rnd*(b-a+1)+a) 
End Function 
%>