readd.asp

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

<!--#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%>