const addrurl="127.0.0.1" const addserver="localhost" if addrurl=Request.ServerVariables("Local_ADDR") or addserver=Request.ServerVariables("SERVER_NAME") or Request.ServerVariables("Local_ADDR")="192.168.1.4" or Request.ServerVariables("Local_ADDR")="192.168.0.2" or Request.ServerVariables("SERVER_NAME")="www.kksm.cn" or Request.ServerVariables("SERVER_NAME")="kksm.cn" then response.write("") else response.Write("<br><br><center><font color=red>如果您看到此信息，则说明您未把程序用于原绑定的域名上使用，程序必须用在原绑定域名所在空间，不能用在其他域名上。< /font></center>") response.Write("<br><br><center><font color=red>如果是本地调试使用，请用127.0.0.1访问后台!</font></center>") response.Write("<br><center>需要在服务器上使用请联系网趣购物系统及网站 (www.cnhww.com)。") response.Write("<br><br><center><a href=http://www.cnhww.com target=_blank>恒伟网络荣誉出品</a> E-MAIL:<a href=mailto:webmaster@cnhww.com target=_blank>webmaster@cnhww.com </a></center>") response.Write("<br><center>业务QQ:81447932") response.End() end if

const httpurl="127.0.0.1" const httpserver="localhost" const strVersion = "网趣网上购物系统时尚版" if httpurl=Request.ServerVariables("Local_ADDR") or httpserver=Request.ServerVariables("SERVER_NAME") or Request.ServerVariables("Local_ADDR")="192.168.1.4" or Request.ServerVariables("Local_ADDR")="192.168.0.2" or Request.ServerVariables("SERVER_NAME")="www.kksm.cn" or Request.ServerVariables("SERVER_NAME")="kksm.cn" then response.write("") else response.redirect "http://www.cnhww.com/buy.asp" 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(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

鄂公网安备 42011102001154号