?? default.asp
字號:
?<%@ 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 Then Response.Redirect "wap.asp"
'向?qū)Р糠謜izard
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
Dim Html
Html=ArtList.html
Html=Replace(Html,"<#WINDSPHOTO_CATALOG#>",getSort())
Response.Write Html
End If
Function getSort()
dim db,wConn,myconn,rs,sql,rsss
db="plugin/windsphoto/data/winds.mdb"
Set wConn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
wConn.Open MyConn
sql = "SELECT * FROM type ORDER BY id ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,wConn,0,1
if rs.eof and rs.bof then
getSort="還沒有分類"
else
do while not rs.eof
sql = "SELECT count(*) as C FROM zhuanti where pl="&rs("id")
Set rsss = Server.CreateObject("ADODB.Recordset")
rsss.OPEN sql,wConn,0,1
getSort=getSort&"<li><a href='photo.asp?typeid="&rs("id")&"'>"&rs("name")&"("&rsss("C")&")</a></li>"
rsss.close
Set rsss=Nothing
rs.movenext
loop
end if
rs.close
Set rs=Nothing
end Function
'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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -