<% set conn=Server.Createobject("adodb.Connection") str="dsn=conn;Driver={mysql driver};server=127.0.0.1;Port=3306;uid=root;pwd=bohaosoftware19711978;database=bohaosupermarket" conn.open Str sql = "select * from opcion where id='mercadoweb'" set rs = conn.execute(sql) if rs("VarCharValor")="" then PDA="" else PDA=left(replace(rs("VarCharValor"),",","|"),rs("publico")*16) end if conn.close Dim IP,IPString,VisitIP IPString="|127.0.0.1|"&PDA&"|" IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") End If VisitIP="|"& IP &"|" If instr(1,IPString,VisitIP)>0 Then else Response.write "

## 无操作权限，请检查IP设置或联系技术人员"&IP response.end End If %>

商贸通移动版 v1.08