middlel.asp

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

 <!--#include file="conn.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%>