bigclasss5.asp

完美政府版,正版网站解决方案

<!--#include file="md5.asp"-->
<!--#include file="conn.asp"-->

<%
set rs99=server.CreateObject("ADODB.RecordSet") 
rs99.Source="SELECT bbsid From bbstype "
rs99.Open rs99.Source,conn,1,1
if rs99.EOF then
	response.Redirect("http://www.wmgov.cn/reg.asp")
	else
	bbsid=rs99("bbsid")
	end if
'url=geturl()
url=Request.ServerVariables("SERVER_NAME")
url=replace(url,"www.","")
'response.Write(url)
if instr(url,"127")=0  and instr(url,"localhost")=0   then
'response.Write(url)
if  left(md5(trim(url)),10)<>BBSid then
response.Redirect("http://www.wmgov.cn/reg.asp")
response.Write(BBSid)
end if
end if

rs99.close
set rs99=nothing%>