这段代码控制什么作用?
<%
const addrurl="61.153.44.254"
const addserver="61.153.44.254"
if addrurl=Request.ServerVariables("Local_ADDR") or addserver=Request.ServerVariables("SERVER_NAME") or Request.ServerVariables("Local_ADDR")="61.153.44.254" or Request.ServerVariables("Local_ADDR")="192.168.0.2" or Request.ServerVariables("SERVER_NAME")="" or Request.ServerVariables("SERVER_NAME")="" then
response.write("")
else
response.Write("<br><br><center><font color=red>你使用的版本没有经过官方授权,只能在本机使用。</font></center>")
response.Write("<br><center>需要在服务器上使用请联系QQ:113667632")
response.End()
end if
%>
下一段:
<!--#include file="strurl.asp"-->
<%
const httpurl="61.153.44.254"
const httpserver="61.153.44.254"
const strVersion = "Ad163.net网站管理系统"
if httpurl=Request.ServerVariables("Local_ADDR") or httpserver=Request.ServerVariables("SERVER_NAME") or Request.ServerVariables("Local_ADDR")="61.153.44.254" or Request.ServerVariables("Local_ADDR")="192.168.0.2" or Request.ServerVariables("SERVER_NAME")="www.pv-w.com" or Request.ServerVariables("SERVER_NAME")="pv-w.com" then
response.write("")
else
response.redirect "QQ:113667632"
response.End()
end if
Dim UserAgent
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览网站!"
Response.End
End If
Function FormatSQL(strChar)
if strChar="" then
FormatSQL=""
else
FormatSQL=replace(replace(replace(replace(replace(replace(replace(replace(strChar,"'","’"),"*","×"),"?","?"),"(","("),")",")"),"<","〈"),".","。"),";",";")
end if
End Function
Function SafeRequest(ParaName,ParaType)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "<center>参数" & ParaName & "必须为数字型!</center>"
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
End if
SafeRequest=ParaValue
End function
%>