default.asp
上传用户:saigedz
上传日期:2019-10-14
资源大小:997k
文件大小:2k
- <%@ 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 %>
- <!-- #include file="c_option.asp" -->
- <!-- #include file="function/c_function.asp" -->
- <!-- #include file="function/c_function_md5.asp" -->
- <!-- #include file="function/c_system_lib.asp" -->
- <!-- #include file="function/c_system_base.asp" -->
- <!-- #include file="function/c_system_event.asp" -->
- <!-- #include file="function/c_system_plugin.asp" -->
- <!-- #include file="plugin/p_config.asp" -->
- <%
- 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()
- %><!-- <%=RunTime()%>ms --><%
- If Err.Number<>0 then
- Call ShowError(0)
- End If
- %>