<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: 朱煊(zx.asd) '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: default.asp '// 开始时间: 2004.07.25 '// 最后修改: '// 备 注: 主页 '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml") > 0 Then Response.Redirect "wap.asp" '向导部分wizard If ZC_DATABASE_PATH="data/zblog.mdb" Then Response.Redirect "wizard.asp?verify=" & MD5(ZC_DATABASE_PATH & Replace(LCase(Request.ServerVariables("PATH_TRANSLATED")),"default.asp","")) LoadGlobeCache Dim ArtList Set ArtList=New TArticleList ArtList.LoadCache ArtList.template="DEFAULT" If ArtList.ExportByCache("","","","","","") Then ArtList.Build Response.Write ArtList.html End If %><% If Err.Number<>0 then Call ShowError(0) End If %>