<%@ 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) And (InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") = 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","")) Call System_Initialize_WithOutDB() 'plugin node For Each sAction_Plugin_Default_Begin in Action_Plugin_Default_Begin If Not IsEmpty(sAction_Plugin_Default_Begin) Then Call Execute(sAction_Plugin_Default_Begin) Next Dim ArtList Set ArtList=New TArticleList ArtList.LoadCache ArtList.template="DEFAULT" If ArtList.ExportByCache("","","","","","") Then ArtList.Build Response.Write ArtList.html End If 'plugin node For Each sAction_Plugin_Default_End in Action_Plugin_Default_End If Not IsEmpty(sAction_Plugin_Default_End) Then Call Execute(sAction_Plugin_Default_End) Next Call System_Terminate_WithOutDB() %><% If Err.Number<>0 then Call ShowError(0) End If %> wow gold wow gold wow gold wow power leveling wow power leveling wow power leveling nike shoes nike shoes nike shoes nike shoes jordan shoes Jordan shoes jordan shoes Jordan shoes world of warcraft gold world of warcraft gold Replica handbags