admin_searc5.asp

来自「完美政府版,正版网站解决方案」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
set rs88=server.CreateObject("ADODB.RecordSet") 

rs88.Source="SELECT bbsid From bbstype "
rs88.Open rs88.Source,conn,1,1

if rs88.EOF then
	response.Redirect("http://www.wmgov.cn/reg.asp")
	else
	bbsid=rs88("bbsid")
	end if

url=Request.ServerVariables("SERVER_NAME")
url=replace(url,"www.","")

if instr(url,"127")=0  and instr(url,"localhost")=0   then

if  left(md5(trim(url)),10)<>BBSid then
response.Redirect("http://www.wmgov.cn/reg.asp")
response.Write(BBSid)
end if
end if

rs88.close
set rs88=nothing%>