upme6.asp

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

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