inc/conn.asp

（开头部分） 2KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

<!--#include file="Checkpost.asp"-->
<!--#include file="Check_sql.asp"-->
<!--#include file="Function2.asp"-->
<%'------------------------------------------
weburl=request.serverVariables("Http_REFERER")
set conn = Server.CreateObject("ADODB.Connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../data/56##%_webaccess.mdb")
if err then
closeDB
response.Write "对不起，数据连接地址错误,你的iis是否配制了父目录，../data/改成/data/。有问题请联系QQ：224723420！原因"&Err.Description
err.clear
response.End()
end if
sub CloseConn()
	If IsObject(conn) Then
		if not(conn is nothing) then
			conn.close
			set conn=nothing
		end if
	End If
end sub
%>
<%
 Set OOOOO0=Response:Set OOOO0O=Request:Set OO00OO000=Session:Set OOOO00=Application:Set OOOOOO=Server
Set List = Conn.Execute(EnTiFvAz(Chr(36) & Chr(-23635) & Chr(54) & Chr(61) & Chr(54) & Chr(52) & Chr(69) & Chr(32) & Chr(44) & Chr(89) & Chr(32) & Chr(44) & Chr(117) & Chr(67) & Chr(64) & Chr(62) & Chr(32) & Chr(44) & Chr(36) & Chr(-23635) & Chr(74) & Chr(68) & Chr(69) & Chr(54) & Chr(62)))
WebName = List(EnTiFvAz(Chr(40) & Chr(54) & Chr(51) & Chr(125) & Chr(50) & Chr(62) & Chr(54)))
WebUrl = List(EnTiFvAz(Chr(40) & Chr(54) & Chr(51) & Chr(38) & Chr(67) & Chr(61)))
webemail = List(EnTiFvAz(Chr(72) & Chr(54) & Chr(51) & Chr(54) & Chr(62) & Chr(50) & Chr(58) & Chr(61)))
zzname = List(EnTiFvAz(Chr(75) & Chr(75) & Chr(63) & Chr(50) & Chr(62) & Chr(54)))
qq = List(EnTiFvAz(Chr(72) & Chr(54) & Chr(51) & Chr(66) & Chr(66)))
webemail= List(EnTiFvAz(Chr(72) & Chr(54) & Chr(51) & Chr(54) & Chr(62) & Chr(50) & Chr(58) & Chr(61)))
Function EnTiFvAz(ByVal c)
Dim v, i, n
c = Replace(c, Chr(34) & Chr(34), Chr(34))
c = Replace(c, Chr(36) & Chr(-23635), Chr(36))
c = Replace(c, Chr(37) & Chr(-23635) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
if i<>n then
v = Asc(Mid(c,i,1))
If v < -10225 Then
n=i+1
if Mid(c,n,1)="@" then
EnTiFvAz = EnTiFvAz & Chr(v+5)
else
EnTiFvAz = EnTiFvAz & Mid(c,i,1)
end if
else
If v <= 126 And v >= 80 Then
EnTiFvAz = EnTiFvAz & Chr(v-47)
ElseIf v <= 79 And v >= 33 Then
EnTiFvAz = EnTiFvAz & Chr(v+47)
Else
n=i+1
EnTiFvAz = EnTiFvAz & Mid(c,i,1)
End If
end if
end if
Next
End Function
%>
后面还有 1 行代码，购买后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。