一个检测网站是否备案的asp源代码

利用这个小程序可以检测网站是否备案,如果备案了则自动转到首页index.asp文件,如果没有备案则提示信息出现。

<%
Set fso = Server.CreateObject(“scripting.filesystemobject”)
If fso.fileexists(server.mappath(“cert\bazs.cert”)) = True Then
Response.write(“系统检测为已备案站点,正在转向中…”)
Response.Redirect “index.asp”
Else
Response.write(“WAP站长之家提醒您：您的网站尚未备案,请尽快备案…”)
End If
%>