<%=CategoryList(0)%>
<%
End Sub
'读取Flash导航条
Dim SkinInfo
Sub getSkinFlash
If CheckObjInstalled(getXMLDOM()) Then
Dim SkinXML
Set SkinXML = New PXML
SkinInfo = ""
SkinXML.XmlPath = "skins/"&Skins&"/skin.xml"
SkinXML.Open
If SkinXML.getError = 0 Then
SkinInfo = " ,
"
Dim useFlash
useFlash = SkinXML.SelectXmlNodeText("Flash/UseFlash")
If useFlash = "" Then useFlash = "false"
If CBool(useFlash) Then
%>
<%
End If
SkinXML.CloseXml
Set SkinXML = Nothing
'合作信息
SkinInfo = SkinInfo & "
"
End If
End If
End Sub
%>
<%
'=================================================
' moduleSetting Class for PJBlog2
' Author: PuterJam
' UpdateDate: 2005-7-31
'=================================================
Class ModSet
Private ModSetArray
Private ModName
Private state
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
'=================================================
' 打开模块Open(ModName)
'=================================================
Public Function Open(LoadName)
ModName = LoadName
If Not IsArray(Application(CookieName&"_Mod_"&ModName))Then
state = -18902
ReLoad()
Else
ModSetArray = Application(CookieName&"_Mod_"&ModName)
state = 0
End If
End Function
'=================================================
' 从数据库里重新读取模块到缓存ReLoad()
'=================================================
Public Function ReLoad()
If ModName = "" Then
state = -18901
Exit Function
End If
Dim ModDB, KeyLen, i, GetPlugPath
i = 0
KeyLen = conn.Execute("select count(*) from blog_ModSetting where set_ModName='"&ModName&"'")(0)
Set ModDB = conn.Execute("select * from blog_ModSetting where set_ModName='"&ModName&"'")
ReDim ModSetArray(KeyLen, 1)
Do Until ModDB.EOF
ModSetArray(i, 0) = ModDB("set_KeyName")
ModSetArray(i, 1) = ModDB("set_KeyValue")
i = i + 1
ModDB.movenext
Loop
ModSetArray(KeyLen, 0) = "PlugingPath"
Set GetPlugPath = conn.Execute("select InstallFolder from blog_module where name='"&ModName&"'")
If GetPlugPath.EOF Then
state = -18903
Exit Function
Else
ModSetArray(KeyLen, 1) = GetPlugPath(0)
End If
Application.Lock
Application(CookieName&"_Mod_"&ModName) = ModSetArray
Application.UnLock
state = 0
End Function
'=================================================
' 读取字段名称getKeyValue(KeyName)
'=================================================
Public Function getKeyValue(KeyName)
Dim KeysLen, i
getKeyValue = ""
KeysLen = UBound(ModSetArray, 1)
For i = 0 To KeysLen
If ModSetArray(i, 0) = KeyName Then
getKeyValue = ModSetArray(i, 1)
Exit Function
End If
Next
End Function
'=================================================
' 获得出错信息ReLoad()
'=================================================
Public Function PasreError
PasreError = state
' -18901 没有打开模块
' -18902 缓存里没有任何信息
' -18903 没有安装插件
End Function
'=================================================
' 获得插件所在路径
'=================================================
Public Function GetPath
Dim KeysLen, i
GetPath = ""
KeysLen = UBound(ModSetArray, 1)
GetPath = ModSetArray(KeysLen, 1)
End Function
'=================================================
' 清除插件占用的 Application 地址
'=================================================
Public Function RemoveApplication
Application.Lock
Application.Contents.Remove(CookieName&"_Mod_"&ModName)
Application.UnLock
End Function
End Class
%>
<%'---- ASPCode For AboutMeForPJBlog ----%>
<%'---- ASPCode For GuestBookForPJBlog ----%>
<%'---- ASPCode For GuestBookForPJBlogSubItem1 ----%>
<%
function NewMessage(ByVal action)
Dim blog_Message
IF Not IsArray(Application(CookieName&"_blog_Message")) or action=2 Then
Dim book_Messages,book_Message
Set book_Messages=Conn.Execute("SELECT top 10 * FROM blog_book order by book_PostTime Desc")
SQLQueryNums=SQLQueryNums+1
TempVar=""
Do While Not book_Messages.EOF
if book_Messages("book_HiddenReply") then
book_Message=book_Message&TempVar&book_Messages("book_ID")&"|,|"&book_Messages("book_Messager")&"|,|"&book_Messages("book_PostTime")&"|,|"&"[隐藏留言]"
else
book_Message=book_Message&TempVar&book_Messages("book_ID")&"|,|"&book_Messages("book_Messager")&"|,|"&book_Messages("book_PostTime")&"|,|"&book_Messages("book_Content")
end if
TempVar="|$|"
book_Messages.MoveNext
Loop
Set book_Messages=Nothing
blog_Message=Split(book_Message,"|$|")
Application.Lock
Application(CookieName&"_blog_Message")=blog_Message
Application.UnLock
Else
blog_Message=Application(CookieName&"_blog_Message")
End IF
if action<>2 then
dim Message_Items,Message_Item
For Each Message_Items IN blog_Message
Message_Item=Split(Message_Items,"|,|")
NewMessage=NewMessage&"
"
Next
end if
end function
'处理最新留言内容
Dim Message_code
if Session(CookieName&"_LastDo")="DelMessage" or Session(CookieName&"_LastDo")="AddMessage" then NewMessage(2)
Message_code=NewMessage(0)
side_html_default=replace(side_html_default,"<$NewMsg$>",Message_code)
side_html=replace(side_html,"<$NewMsg$>",Message_code)
%>
<%'---- ASPCode For NewLogForPJBlog ----%>
<%
function NewArticle(ByVal action)
Dim blog_Article
IF Not IsArray(Application(CookieName&"_blog_Article")) or action=2 Then
Dim book_Articles,book_Article
Set book_Articles=Conn.Execute("SELECT top 10 C.log_ID,C.log_Author,C.log_IsShow,C.log_PostTime,C.log_title,L.cate_ID,L.cate_Secret FROM blog_Content AS C,blog_Category AS L where L.cate_ID=C.log_CateID and L.cate_Secret=false and C.log_IsDraft=false order by log_PostTime Desc")
SQLQueryNums=SQLQueryNums+1
TempVar=""
Do While Not book_Articles.EOF
if book_Articles("cate_Secret") then
book_Article=book_Article&TempVar&book_Articles("log_ID")&"|,|"&book_Articles("log_Author")&"|,|"&book_Articles("log_PostTime")&"|,|"&"[隐藏分类日志]"
elseif book_Articles("log_IsShow") then
book_Article=book_Article&TempVar&book_Articles("log_ID")&"|,|"&book_Articles("log_Author")&"|,|"&book_Articles("log_PostTime")&"|,|"&book_Articles("log_title")
else
book_Article=book_Article&TempVar&book_Articles("log_ID")&"|,|"&book_Articles("log_Author")&"|,|"&book_Articles("log_PostTime")&"|,|"&"[隐藏日志]"
end if
TempVar="|$|"
book_Articles.MoveNext
Loop
Set book_Articles=Nothing
blog_Article=Split(book_Article,"|$|")
Application.Lock
Application(CookieName&"_blog_Article")=blog_Article
Application.UnLock
Else
blog_Article=Application(CookieName&"_blog_Article")
End IF
if action<>2 then
dim Article_Items,Article_Item
For Each Article_Items IN blog_Article
Article_Item=Split(Article_Items,"|,|")
NewArticle=NewArticle&"
"
Next
end if
end function
'处理最新日志内容
Dim Article_code
if Session(CookieName&"_LastDo")="DelArticle" or Session(CookieName&"_LastDo")="AddArticle" or Session(CookieName&"_LastDo")="EditArticle" then NewArticle(2)
Article_code=NewArticle(0)
side_html_default=replace(side_html_default,"<$NewLog$>",Article_code)
side_html=replace(side_html,"<$NewLog$>",Article_code)
%>
<%'---- ASPCode For Article_CJ ----%>
<%
'==================================
' 系统首页类文件
' 更新时间: 2006-1-22
'==================================
'**********************************************
'日志列表处理
'**********************************************
Function ContentList()'日志列表
Dim webLog, webLogArr, webLogArrLen, Log_Num, PageCount, CanRead, ViewType, ViewDraft, strSQL, ViewTag, Readpw
Dim getCate, ArticleList
PageCount = 0
Set getCate = New Category
ViewDraft = checkstr(Request.QueryString("display"))
ViewTag = checkstr(Request.QueryString("tag"))
CanRead = False
If Len(checkstr(Request.QueryString("distype")))>0 Then
Response.Cookies(CookieNameSetting)("ViewType") = checkstr(Request.QueryString("distype"))
Else
If Len(Request.Cookies(CookieNameSetting)("ViewType"))<1 Then
If blog_DisMod Then
Response.Cookies(CookieNameSetting)("ViewType") = "list"
Else
Response.Cookies(CookieNameSetting)("ViewType") = "normal"
End If
End If
End If
Dim CT
CT = ""
If IsInteger(cateID) = True Then
getCate.load(cateID)
CT = "分类: "&getCate.cate_Name&""
If getCate.cate_Secret Then
If Not stat_ShowHiddenCate And Not stat_Admin Then
%>
<%
Exit Function
End If
End If
End If
If Request.Cookies(CookieNameSetting)("ViewType") = "list" Then ViewType = "list" Else ViewType = "normal"
If ViewType = "list" Then
strSQL = "log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Readpw,log_Pwtitle"
Else
strSQL = "log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Intro,log_Content,log_edittype,log_DisComment,log_ubbFlags,log_tag,log_Readpw,log_Pwtitle"
End If
'row序号: 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,10 ,11 ,12 ,13 ,14 ,15
If Len(ViewTag)>0 Then
Dim getTag, getTID
Set getTag = New tag
getTID = getTag.getTagID(ViewTag)
If getTID<>0 Then
SQLFiltrate = SQLFiltrate & " log_tag LIKE '%{"&getTID&"}%' AND "
Url_Add = Url_Add & "tag="&Server.URLEncode(ViewTag)&"&"
CT = "Tag: "&ViewTag&""
End If
Set getTag = Nothing
End If
'=================Load Cache List============================
Set ArticleList = New ArticleCache
If ArticleList.loadCache And Len(ViewTag)<1 And IsInteger(log_Year) = False And IsInteger(log_Month) = False And IsInteger(log_Day) = False And ViewDraft<>"draft" Then
If IsInteger(cateID) = True Then
ArticleList.outHTML "C"&cateID, ViewType, CT
Else
If stat_Admin Or stat_ShowHiddenCate Then
ArticleList.outHTML "A", ViewType, CT
Else
ArticleList.outHTML "G", ViewType, CT
End If
End If
Exit Function
End If
'=================Load DB List===============================
If stat_ShowHiddenCate Or stat_Admin Then
SQL = "SELECT "&strSQL&" FROM blog_Content "&SQLFiltrate&" log_IsDraft=false ORDER BY log_IsTop ASC,log_PostTime DESC"
Else
SQL = "SELECT "&strSQL&" FROM blog_Content As T,blog_Category As C "&SQLFiltrate&" T.log_CateID=C.cate_ID and C.cate_Secret=false and log_IsDraft=false ORDER BY log_IsTop ASC,log_PostTime DESC"
End If
'if stat_ShowHiddenCate or stat_Admin then
If ViewDraft = "draft" And Len(memName)>0 Then
ViewType = "list"
SQL = "SELECT "&strSQL&" FROM blog_Content "&SQLFiltrate&" log_IsDraft=true and log_Author='"&memName&"' ORDER BY log_IsTop ASC,log_PostTime DESC"
End If
Set webLog = Server.CreateObject("Adodb.Recordset")
webLog.Open SQL, CONN, 1, 1
SQLQueryNums = SQLQueryNums + 1
If webLog.EOF Or webLog.BOF Then
If ViewDraft = "draft" Then
%>
<%End If
Exit Function
Else
If ViewDraft = "draft" Then Url_Add = Url_Add&"display=draft&"
If ViewType = "list" Then blogPerPage = blogPerPage * 4
webLog.PageSize = blogPerPage
webLog.AbsolutePage = CurPage
Log_Num = webLog.RecordCount
If webLog.EOF Or webLog.BOF Then
%>
<%
Exit Function
End If
webLogArr = webLog.GetRows(Log_Num)
webLog.Close
Set webLog = Nothing
webLogArrLen = UBound(webLogArr, 2)
If ViewDraft = "draft" Then
%>
<%End If
End Function
' ----------------------- 输出普通模式--------------------
Function OutNomal(webLogArr, PageCount, getCate, CanRead)
If getCate.cate_Secret Then
If Not stat_ShowHiddenCate And Not stat_Admin Then Exit Function
End If
Dim getTag,aUrl
Set getTag = New tag
If blog_postFile>1 Then
aUrl = caload(webLogArr(0,PageCount))
else
aUrl = "article.asp?id=" & webLogArr(0,PageCount)
end if
%>
<%If webLogArr(9,PageCount)=True Then%>
<%end if%>
作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>
style="display:none"<%end if%>>
<%
If CanRead Then
If webLogArr(12, PageCount) = 1 Then
%>
<%=UnCheckStr(UBBCode(webLogArr(10,PageCount),mid(webLogArr(14,PageCount),1,1),mid(webLogArr(14,PageCount),2,1),mid(webLogArr(14,PageCount),3,1),mid(webLogArr(14,PageCount),4,1),mid(webLogArr(14,PageCount),5,1)))%>
<%if webLogArr(10,PageCount)<>HtmlEncode(webLogArr(11,PageCount)) then%>
查看更多...
<%end if%>
<%else%>
<%=UnCheckStr(webLogArr(10,PageCount))%>
<%if webLogArr(10,PageCount)<>webLogArr(11,PageCount) then%>
查看更多...
<%End If
End If
If Len(webLogArr(15, PageCount))>0 Then
%>
Tags: <%=getTag.filterHTML(webLogArr(15,PageCount))%>
<%
End If
Else
%>
<%if Trim(webLogArr(16,PageCount))<>"" then%>
该日志是加密日志，需要输入正确密码才可以查看！
<%else%>
该日志是私密日志，只有管理员或发布者可以查看！
<%end if%>
<%end if%>
分类:
<%=getCate.cate_Name%> |
固定链接 |
<%if webLogArr(13,PageCount)=true then%>
禁止评论
<%Else%>
评论: <%=webLogArr(6,PageCount)%>
<%end If%>
| 引用: <%=webLogArr(7,PageCount)%> | 查看次数: <%=webLogArr(8,PageCount)%>
<%if stat_EditAll or (stat_Edit and webLogArr(2,PageCount)=memName) then%>
|
<%end if%>
<%if stat_DelAll or (stat_Del and webLogArr(2,PageCount)=memName) then%>
|
<%end if%>
<%
Set getTag = Nothing
End Function
' ----------------------- 输出列表模式 --------------------
Function OutList(webLogArr, PageCount, getCate, ViewDraft, CanRead)
Dim logLink, logIcon,aUrl
If getCate.cate_Secret Then
If Not stat_ShowHiddenCate And Not stat_Admin Then Exit Function
End If
If blog_postFile>1 Then
aUrl = caload(webLogArr(0,PageCount))
else
aUrl = "article.asp?id=" & webLogArr(0,PageCount)
end if
%>
<%If ViewDraft = "draft" Then
logLink = "blogedit.asp?id="&webLogArr(0, PageCount)
logIcon = "![]() "
Else
logLink = aUrl
logIcon = "![]() "
End If
If webLogArr(9, PageCount) Then
%><%end If%>
<%=logIcon%>
<%If CanRead Then%>
"><%=HtmlEncode(webLogArr(3,PageCount))%>
<%Else%>
<%if webLogArr(11,PageCount)=False then%><%=HtmlEncode(webLogArr(3,PageCount))%><%ElseIf Trim(webLogArr(10,PageCount)) <> "" Then%>[加密日志]<%Else%>[私密日志]<%End If%>
<%End If
If webLogArr(5, PageCount) = False Or getCate.cate_Secret Then
%>
<%If Trim(webLogArr(10,PageCount)) <> "" Then%> <%Else%> <%End If%>
<%end if%>
|
<%If webLogArr(9,PageCount) Then %><%end If%>
<%If not ViewDraft="draft" then %>
<%=webLogArr(6,PageCount)%> | <%=webLogArr(7,PageCount)%> | <%=webLogArr(8,PageCount)%> |
<%else%>
<%=webLogArr(2,PageCount)%> |
<%end if%>
<%end function%>
<%
'==================================
' 日志编辑类
' 更新时间: 2006-1-22
'==================================
Class logArticle
Private weblog
Public categoryID, logTitle, logAuthor, logEditType
Public logIsShow, logIsDraft, logWeather, logLevel, logCommentOrder, logReadpw, logPwtips, logPwtitle, logPwcomm
Public logDisableComment, logIsTop, logFrom, logFromURL, isajax, logdescriptionFilt
Public logDisableImage, logDisableSmile, logDisableURL, logDisableKeyWord, logMeta, logKeyWords, logDescription, TagMeta
Public logQuote, logMessage, logIntro, logIntroCustom, logTags, logPublishTimeType, logPubTime, logTrackback, logCommentCount, logQuoteCount, logViewCount, logCname, logCtype
Private logUbbFlags, PubTime, sqlString
Private Sub Class_Initialize()
Set weblog = Server.CreateObject("ADODB.RecordSet")
categoryID = 0
logTitle = ""
logEditType = 1
logIntroCustom = 0
logIntro = ""
logAuthor = "null"
logWeather = "sunny"
logLevel = "level3"
logCommentOrder = 1
logDisableComment = 0
logIsShow = True
logIsTop = False
logIsDraft = False
logFrom = "本站原创"
logFromURL = siteURL
logDisableImage = 0
logDisableSmile = 0
logDisableURL = 0
logDisableKeyWord = 0
logCommentCount = 0
logQuoteCount = 0
logViewCount = 0
logMessage = ""
logTrackback = ""
logTags = ""
logPubTime = "2006-1-1 00:00:00"
logPublishTimeType = "now"
If blog_postFile = 2 Then
logCname = ""
logCtype = "0"
End If
logReadpw = ""
logPwtips = ""
logPwtitle = False
logPwcomm = False
logmeta = 0
logKeyWords = ""
logDescription = ""
isajax = false
End Sub
Private Sub Class_Terminate()
Set weblog = Nothing
End Sub
'*********************************************
'发表新日志
'*********************************************
Public Function postLog()
postLog = Array( -4, "准备发表日志!", -1)
weblog.Open "blog_Content", Conn, 1, 2
SQLQueryNums = SQLQueryNums + 1
If stat_AddAll<>True And stat_Add<>True Then
postLog = Array( -3, "您没有权限发表日志!", -1)
Exit Function
End If
TagMeta = logTags
'-------------------处理Tags--------------------
Dim tempTags,tempTags2, loadTagString, loadTags, loadTag, getTags
tempTags = Split(CheckStr(logTags), ",")
Set getTags = New Tag
Dim post_tag,post_tag2, post_taglist
post_taglist = ""
'添加新的Tag
For Each post_tag in tempTags
tempTags2 = Split(post_tag," ")
If UBound(tempTags2)>0 Then
For Each post_tag2 in tempTags2
If Len(Trim(post_tag2))>0 Then
post_taglist = post_taglist & "{" & getTags.insert(CheckStr(Trim(post_tag2))) & "}"
End If
Next
Else
If Len(Trim(post_tag))>0 Then
post_taglist = post_taglist & "{" & getTags.insert(CheckStr(Trim(post_tag))) & "}"
End If
End If
Next
logTags = post_taglist
Call Tags(2)
Set getTags = Nothing
'--------------处理日期---------------------
If CheckStr(logPublishTimeType) = "now" Then
PubTime = DateToStr(Now(), "Y-m-d H:I:S")
Else
PubTime = DateToStr(CheckStr(logPubTime), "Y-m-d H:I:S")
End If
'---------------分割日志--------------------
If logIntroCustom = 1 Then
If Int(logEditType) = 1 Then
logdescriptionFilt = closeUBB(logIntro)
Else
logdescriptionFilt = closeHTML(logIntro)
End If
Else
If Int(logEditType) = 1 Then
If blog_SplitType Then
logdescriptionFilt = closeUBB(SplitLines(logMessage, blog_introLine))
Else
logdescriptionFilt = closeUBB(CutStr(logMessage, blog_introChar))
End If
Else
logdescriptionFilt = closeHTML(SplitLines(logMessage, blog_introLine))
End If
End If
If logIntroCustom = 1 Then
If Int(logEditType) = 1 Then
logIntro = closeUBB(CheckStr(HTMLEncode(logIntro)))
Else
logIntro = closeHTML(CheckStr(logIntro))
End If
Else
If Int(logEditType) = 1 Then
If blog_SplitType Then
logIntro = closeUBB(SplitLines(CheckStr(HTMLEncode(logMessage)), blog_introLine))
Else
logIntro = closeUBB(CutStr(CheckStr(HTMLEncode(logMessage)), blog_introChar))
End If
Else
logIntro = closeHTML(SplitLines(CheckStr(logMessage), blog_introLine))
End If
End If
'日志基本状态
logIsShow = CBool(logIsShow)
logCommentOrder = CBool(logCommentOrder)
logDisableComment = CBool(logDisableComment)
logIsTop = CBool(logIsTop)
logIsDraft = CBool(logIsDraft)
logPwtitle = CBool(logPwtitle)
logPwcomm = CBool(logPwcomm)
logMeta = CBool(logMeta)
'UBB 特别属性
If logDisableSmile = 1 Then logDisableSmile = 1 Else logDisableSmile = 0
If logDisableImage = 1 Then logDisableImage = 1 Else logDisableImage = 0
If logDisableURL = 1 Then logDisableURL = 0 Else logDisableURL = 1
If logDisableKeyWord = 1 Then logDisableKeyWord = 0 Else logDisableKeyWord = 1
If logIntroCustom = 1 Then logIntroCustom = 0 Else logIntroCustom = 1
logUbbFlags = logDisableSmile & "0" & logDisableImage & logDisableURL & logDisableKeyWord & logIntroCustom
'Meta特别属性
If logMeta <> true Then
logDescription = FilterHtmlTags(logdescriptionFilt)
Else
logDescription = FilterHtmlTags(logDescription)
End If
If logMeta <> true Then
logKeyWords = CheckStr(TagMeta)
If len(logKeyWords) = 0 Then
logKeyWords = CheckStr(logTitle)
Else
logKeyWords = Replace(Replace(Replace(logKeyWords, ",", "|"), " ", "|"), "|", ",")
End If
End If
weblog.addNew
If len(logCname) < 1 or logCname = "" or logCname = empty or logCname = null Then
logCname = weblog("log_ID")
End If
weblog("log_CateID") = CheckStr(categoryID)
weblog("log_Author") = CheckStr(logAuthor)
weblog("log_Title") = CheckStr(logTitle)
weblog("log_weather") = CheckStr(logWeather)
weblog("log_Level") = CheckStr(logLevel)
weblog("log_From") = CheckStr(logFrom)
weblog("log_FromURL") = CheckStr(logFromURL)
weblog("log_Content") = CheckStr(logMessage)
weblog("log_Intro") = logIntro
weblog("log_Tag") = logTags
weblog("log_UbbFlags") = logUbbFlags
weblog("log_IsShow") = logIsShow
weblog("log_IsTop") = logIsTop
weblog("log_PostTime") = PubTime
weblog("log_IsDraft") = logIsDraft
weblog("log_DisComment") = logDisableComment
weblog("log_EditType") = logEditType
weblog("log_ComOrder") = logCommentOrder
weblog("log_Cname") = logCname
weblog("log_Ctype") = logCtype
weblog("log_Readpw") = logReadpw
weblog("log_Pwtips") = logPwtips
weblog("log_Pwtitle") = logPwtitle
weblog("log_Pwcomm") = logPwcomm
weblog("log_Meta") = logMeta
weblog("log_KeyWords") = logKeyWords
weblog("log_Description") = logDescription
SQLQueryNums = SQLQueryNums + 2
weblog.update
weblog.Close
'------------------统计日志-----------------------------
Dim PostLogID
PostLogID = Conn.Execute("SELECT TOP 1 log_ID FROM blog_Content ORDER BY log_ID DESC")(0)
if isajax <> true then
Conn.Execute("UPDATE blog_Member SET mem_PostLogs=mem_PostLogs+1 WHERE mem_Name='"&logAuthor&"'")
end if
If Not logIsDraft Then
if isajax <> true then
Conn.Execute("UPDATE blog_Info SET blog_LogNums=blog_LogNums+1")
Conn.Execute("UPDATE blog_Category SET cate_count=cate_count+1 where cate_ID="&categoryID)
SQLQueryNums = SQLQueryNums + 2
end if
End If
'-------------------输出静态日志档案--------------------
Dim preLog, nextLog
'输出日志到文件
if isajax = false then
PostArticle PostLogID, False
end if
'输出附近的日志到文件
Set preLog = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime<#"&PubTime&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime DESC")
Set nextLog = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime>#"&PubTime&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime ASC")
if isajax = false then
If Not preLog.EOF Then PostArticle preLog("log_ID"), False
If Not nextLog.EOF Then PostArticle nextLog("log_ID"), False
end if
Call updateCache
Session(CookieName&"_LastDo") = "AddArticle"
session(CookieName&"_draft_"&logAuthor) = conn.Execute("select count(log_ID) from blog_Content where log_Author='"&logAuthor&"' and log_IsDraft=true")(0)
SQLQueryNums = SQLQueryNums + 1
If logIsDraft Then
postLog = Array(1, "日志成功保存为草稿!", PostLogID)
Else
postLog = Array(0, "恭喜!日志发表成功!", PostLogID)
End If
'-------------------引用通告-------------------
If logTrackback<>Empty And logIsShow = True And logIsDraft = False Then
Dim log_QuoteEvery, log_QuoteArr, logid, LastID
Set LastID = Conn.Execute("SELECT TOP 1 log_ID FROM blog_Content ORDER BY log_ID DESC")
logid = LastID("log_ID")
log_QuoteArr = Split(logTrackback, ",")
For Each log_QuoteEvery In log_QuoteArr
Trackback Trim(log_QuoteEvery), siteURL&"default.asp?id="&logid, logTitle, CutStr(CheckStr(logIntro), 252), siteName
Set LastID = Nothing
Next
End If
End Function
'*********************************************
'编辑日志
'*********************************************
Public Function editLog(id)
editLog = Array( -4, "准备编辑日志!", -1)
If IsEmpty(id) Then
getLog = Array( -5, "ID号不能为空!")
Exit Function
End If
If Not IsInteger(id) Then
editLog = Array( -1, "非法ID号!", -1)
Exit Function
End If
sqlString = "SELECT top 1 * FROM blog_Content WHERE log_ID="&id&""
weblog.Open sqlString, Conn, 1, 3
SQLQueryNums = SQLQueryNums + 1
If weblog.EOF Or weblog.bof Then
editLog = Array( -2, "无法找到相应文章!", -1)
Exit Function
End If
If stat_EditAll<>True And (stat_Edit And weblog("log_Author") = logAuthor)<>True Then
editLog = Array( -3, "您没有权限编辑日志!", -1)
Exit Function
End If
logAuthor = weblog("log_Author")
Conn.Execute("UPDATE blog_Category SET cate_count=cate_count-1 where cate_ID="&weblog("log_CateID"))
Conn.Execute("UPDATE blog_Category SET cate_count=cate_count+1 where cate_ID="&CheckStr(categoryID))
TagMeta = logTags
'-------------------处理Tags--------------------
Dim tempTags,tempTags2, loadTagString, loadTags, loadTag, getTags
tempTags = Split(CheckStr(logTags), ",")
loadTagString = weblog("log_Tag")
Set getTags = New Tag
'清除旧的Tag
If Len(loadTagString)>0 Then
loadTagString = Replace(loadTagString, "}{", ",")
loadTagString = Replace(loadTagString, "}", "")
loadTagString = Replace(loadTagString, "{", "")
loadTags = Split(loadTagString, ",")
For Each loadTag in loadTags
getTags.Remove loadTag
Next
End If
Dim post_tag,post_tag2, post_taglist
post_taglist = ""
'添加新的Tag
For Each post_tag in tempTags
tempTags2 = Split(post_tag," ")
If UBound(tempTags2)>0 Then
For Each post_tag2 in tempTags2
If Len(Trim(post_tag2))>0 Then
post_taglist = post_taglist & "{" & getTags.insert(CheckStr(Trim(post_tag2))) & "}"
End If
Next
Else
If Len(Trim(post_tag))>0 Then
post_taglist = post_taglist & "{" & getTags.insert(CheckStr(Trim(post_tag))) & "}"
End If
End If
Next
logTags = post_taglist
Call Tags(2)
Set getTags = Nothing
'--------------处理日期---------------------
If CheckStr(logPublishTimeType) = "now" Then
PubTime = DateToStr(Now(), "Y-m-d H:I:S")
Else
PubTime = DateToStr(CheckStr(logPubTime), "Y-m-d H:I:S")
End If
'---------------分割日志--------------------
If logIntroCustom = 1 Then
If Int(logEditType) = 1 Then
logdescriptionFilt = closeUBB(logIntro)
Else
logdescriptionFilt = closeHTML(logIntro)
End If
Else
If Int(logEditType) = 1 Then
If blog_SplitType Then
logdescriptionFilt = closeUBB(SplitLines(logMessage, blog_introLine))
Else
logdescriptionFilt = closeUBB(CutStr(logMessage, blog_introChar))
End If
Else
logdescriptionFilt = closeHTML(SplitLines(logMessage, blog_introLine))
End If
End If
If logIntroCustom = 1 Then
If Int(logEditType) = 1 Then
logIntro = closeUBB(CheckStr(HTMLEncode(logIntro)))
Else
logIntro = closeHTML(CheckStr(logIntro))
End If
Else
If Int(logEditType) = 1 Then
If blog_SplitType Then
logIntro = closeUBB(SplitLines(CheckStr(HTMLEncode(logMessage)), blog_introLine))
Else
logIntro = closeUBB(CutStr(CheckStr(HTMLEncode(logMessage)), blog_introChar))
End If
Else
logIntro = closeHTML(SplitLines(CheckStr(logMessage), blog_introLine))
End If
End If
'日志基本状态
logIsShow = CBool(logIsShow)
logCommentOrder = CBool(logCommentOrder)
logDisableComment = CBool(logDisableComment)
logIsTop = CBool(logIsTop)
logIsDraft = CBool(logIsDraft)
logPwtitle = CBool(logPwtitle)
logPwcomm = CBool(logPwcomm)
logMeta = CBool(logMeta)
'UBB 特别属性
If logDisableSmile = 1 Then logDisableSmile = 1 Else logDisableSmile = 0
If logDisableImage = 1 Then logDisableImage = 1 Else logDisableImage = 0
If logDisableURL = 1 Then logDisableURL = 0 Else logDisableURL = 1
If logDisableKeyWord = 1 Then logDisableKeyWord = 0 Else logDisableKeyWord = 1
If logIntroCustom = 1 Then logIntroCustom = 0 Else logIntroCustom = 1
logUbbFlags = logDisableSmile & "0" & logDisableImage & logDisableURL & logDisableKeyWord & logIntroCustom
If logIsDraft = False Then weblog("log_Modify") = "[本日志由 "&memName&" 于 "&DateToStr(Now(), "Y-m-d H:I A")&" 编辑]"
'If logIsDraft = False And weblog("log_IsDraft")<>logIsDraft Then
'if isajax <> true then
'Conn.Execute("UPDATE blog_Info SET blog_LogNums=blog_LogNums+1")
'Conn.Execute("UPDATE blog_Category SET cate_count=cate_count+1 where cate_ID=" & CheckStr(categoryID))
'end if
'SQLQueryNums = SQLQueryNums + 2
' End If
'Meta特别属性
If logMeta <> true Then
logDescription = FilterHtmlTags(logdescriptionFilt)
Else
logDescription = FilterHtmlTags(logDescription)
End If
If logMeta <> true Then
logKeyWords = CheckStr(TagMeta)
If len(logKeyWords) = 0 Then
logKeyWords = CheckStr(logTitle)
Else
logKeyWords = Replace(Replace(Replace(logKeyWords, ",", "|"), " ", "|"), "|", ",")
End If
End If
If len(logCname) < 1 or logCname = "" or logCname = empty or logCname = null Then
logCname = weblog("log_ID")
End If
weblog("log_Title") = CheckStr(logTitle)
weblog("log_weather") = CheckStr(logWeather)
weblog("log_Level") = CheckStr(logLevel)
weblog("log_From") = CheckStr(logFrom)
weblog("log_FromURL") = CheckStr(logFromURL)
weblog("log_Content") = CheckStr(logMessage)
weblog("log_Intro") = logIntro
weblog("log_CateID") = CheckStr(categoryID)
weblog("log_Tag") = logTags
weblog("log_UbbFlags") = logUbbFlags
weblog("log_IsShow") = logIsShow
weblog("log_IsTop") = logIsTop
weblog("log_PostTime") = PubTime
weblog("log_IsDraft") = logIsDraft
weblog("log_DisComment") = logDisableComment
weblog("log_EditType") = logEditType
weblog("log_ComOrder") = logCommentOrder
weblog("log_Cname")=logCname
weblog("log_Ctype")=logCtype
weblog("log_Readpw") = logReadpw
weblog("log_Pwtips") = logPwtips
weblog("log_Pwtitle") = logPwtitle
weblog("log_Pwcomm") = logPwcomm
weblog("log_Meta") = logMeta
weblog("log_KeyWords") = logKeyWords
weblog("log_Description") = logDescription
SQLQueryNums = SQLQueryNums + 2
weblog.update
weblog.Close
Dim preLog, nextLog
'-------------------输出静态日志档案--------------------
'输出日志到文件
If blog_postFile = 2 Then
dim oldcate,oldctype,oldcname,A,B,C,D
On Error Resume Next
'之前如果调用过request.BinaryRead后，不能直接调用request.form了
'live write 就挂在这里
oldcname = Checkxss(request.form("oldcname"))
oldcate = Checkxss(request.form("oldcate"))
oldctype = Checkxss(request.form("oldtype"))
D = conn.execute("select cate_Part from blog_Category where cate_ID="&oldcate)(0)
A = "article/"&D
If D = "" or len(D) = 0 then
A = "article"
End If
B=oldcname
If oldctype="0" Then
C="htm"
Else
C="html"
End If
If oldcname<>request.Form("Cname") or oldcate<>request.Form("log_CateID") or oldctype<>request.Form("Ctype") Then
DeleteFiles Server.MapPath(A&"/"&B&"."&C)
End If
'用来检查是否有
If Err Then
Err.Clear
End If
if isajax = false then
PostArticle id, False
end if
End If
'输出附近的日志到文件
Set preLog = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime<#"&PubTime&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime DESC")
Set nextLog = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE log_PostTime>#"&PubTime&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime ASC")
if isajax = false then
If Not preLog.EOF Then PostArticle preLog("log_ID"), False
If Not nextLog.EOF Then PostArticle nextLog("log_ID"), False
end if
Call updateCache
Session(CookieName&"_LastDo") = "EditArticle"
Session(CookieName&"_draft_"&logAuthor) = conn.Execute("select count(log_ID) from blog_Content where log_Author='"&logAuthor&"' and log_IsDraft=true")(0)
SQLQueryNums = SQLQueryNums + 1
If logIsDraft Then
editLog = Array(1, "日志成功保存为草稿!", id)
Else
editLog = Array(0, "恭喜!日志编辑成功!", id)
End If
'-------------------引用通告-------------------
If logTrackback<>Empty And logIsShow = True And logIsDraft = False Then
Dim log_QuoteEvery, log_QuoteArr
log_QuoteArr = Split(logTrackback, ",")
For Each log_QuoteEvery In log_QuoteArr
Trackback Trim(log_QuoteEvery), siteURL&"default.asp?id="&logid, logTitle, CutStr(CheckStr(logIntro), 252), siteName
Next
End If
if isajax = false then
If blog_postFile = 1 Then
PostHalfStatic id,false
End If
end if
End Function
'*********************************************
'删除日志
'*********************************************
Public Function deleteLog(id)
Dim pcmpad
pcmpad=Alias(id)
deleteLog = Array( -4, "准备删除!")
If IsEmpty(id) Then
getLog = Array( -5, "ID号不能为空!")
Exit Function
End If
If Not IsInteger(id) Then
deleteLog = Array( -1, "非法ID号!")
Exit Function
End If
sqlString = "SELECT top 1 * FROM blog_Content WHERE log_ID="&id&""
weblog.Open sqlString, Conn, 1, 3
SQLQueryNums = SQLQueryNums + 1
If weblog.EOF Or weblog.bof Then
deleteLog = Array( -2, "找不到相应文章!")
Exit Function
End If
If stat_DelAll<>True And (stat_Del And weblog("log_Author") = logAuthor)<>True Then
deleteLog = Array( -3, "没有权限删除!")
Exit Function
End If
Dim Pdate, getTag
Dim tempTags, loadTagString, loadTags, loadTag, getTags, post_Tag
Pdate = weblog("log_PostTime")
Conn.Execute("UPDATE blog_Member SET mem_PostLogs=mem_PostLogs-1 WHERE mem_Name='"&weblog("log_Author")&"'")
If Not weblog("log_IsDraft") Then
Conn.Execute("UPDATE blog_Category SET cate_count=cate_count-1 where cate_ID="&weblog("log_CateID"))
Conn.Execute("UPDATE blog_Info SET blog_LogNums=blog_LogNums-1")
Conn.Execute("update blog_Info set blog_CommNums=blog_CommNums-"&weblog("log_CommNums"))
End If
loadTag = weblog("log_Tag")
Set getTag = New Tag
'清除旧的Tag
If Len(loadTag)>0 Then
loadTag = Replace(loadTag, "}{", ",")
loadTag = Replace(loadTag, "}", "")
loadTag = Replace(loadTag, "{", "")
loadTags = Split(loadTag, ",")
For Each post_tag in loadTags
getTag.Remove post_tag
Next
End If
Call Tags(2)
Set getTag = Nothing
Dim preLog, nextLog
Conn.Execute("DELETE * FROM blog_Content WHERE log_ID="&id)
Conn.Execute("DELETE * FROM blog_Comment WHERE blog_ID="&id)
DeleteFiles Server.MapPath("post/"&logid&".asp")
DeleteFiles Server.MapPath("cache/"&logid&".asp")
DeleteFiles Server.MapPath("cache/c_"&logid&".js")
DeleteFiles Server.MapPath(pcmpad)
Set preLog = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime<#"&Pdate&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime DESC")
Set nextLog = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime>#"&Pdate&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime ASC")
'输出附近的日志到文件
If Not preLog.EOF Then PostArticle preLog("log_ID"), False
If Not nextLog.EOF Then PostArticle nextLog("log_ID"), False
SQLQueryNums = SQLQueryNums + 5
weblog.Close
Call updateCache
Session(CookieName&"_LastDo") = "DelArticle"
session(CookieName&"_draft_"&logAuthor) = conn.Execute("select count(log_ID) from blog_Content where log_Author='"&logAuthor&"' and log_IsDraft=true")(0)
SQLQueryNums = SQLQueryNums + 1
deleteLog = Array(0, "删除成功!")
End Function
'*********************************************
'获得日志
'*********************************************
Public Function getLog(id)
Dim getTag
getLog = Array( -3, "准备提取日志!")
If IsEmpty(id) Then
getLog = Array( -4, "ID号不能为空!")
Exit Function
End If
If Not IsInteger(id) Then
getLog = Array( -1, "非法ID号!")
Exit Function
End If
sqlString = "SELECT top 1 log_CateID,log_Author,log_Title,log_EditType,log_UbbFlags,log_Intro,log_weather,log_Level,log_ComOrder,log_DisComment,log_IsShow,log_IsTop,log_IsDraft,log_From,log_FromURL,log_Content,log_Tag,log_PostTime,log_CommNums,log_QuoteNums,log_ViewNums,log_Readpw,log_Pwtips,log_Pwtitle,log_Pwcomm,log_Cname,log_Ctype,log_KeyWords,log_Description,log_Meta FROM blog_Content WHERE log_ID="&id&""
weblog.Open sqlString, Conn, 1, 1
SQLQueryNums = SQLQueryNums + 1
If weblog.EOF Or weblog.bof Then
getLog = Array( -2, "找不到相应文章!")
Exit Function
End If
categoryID = weblog("log_CateID")
logAuthor = weblog("log_Author")
logTitle = weblog("log_Title")
logEditType = weblog("log_EditType")
logIntroCustom = Mid(weblog("log_UbbFlags"), 6, 1)
logIntro = weblog("log_Intro")
logWeather = weblog("log_weather")
logLevel = weblog("log_Level")
logCommentOrder = weblog("log_ComOrder")
logDisableComment = weblog("log_DisComment")
logIsShow = weblog("log_IsShow")
logIsTop = weblog("log_IsTop")
logIsDraft = weblog("log_IsDraft")
logFrom = weblog("log_From")
logFromURL = weblog("log_FromURL")
logDisableImage = Mid(weblog("log_UbbFlags"), 3, 1)
logDisableSmile = Mid(weblog("log_UbbFlags"), 1, 1)
logDisableURL = Mid(weblog("log_UbbFlags"), 4, 1)
logDisableKeyWord = Mid(weblog("log_UbbFlags"), 5, 1)
logMessage = weblog("log_Content")
logCommentCount = weblog("log_CommNums")
logQuoteCount = weblog("log_QuoteNums")
logViewCount = weblog("log_ViewNums")
logCname = weblog("log_Cname")
logCtype = weblog("log_Ctype")
logReadpw = Trim(weblog("log_Readpw"))
logPwtips = weblog("log_Pwtips")
logPwtitle = weblog("log_Pwtitle")
logPwcomm = weblog("log_Pwcomm")
logmeta = weblog("log_Meta")
logKeyWords = weblog("log_KeyWords")
logDescription = weblog("log_Description")
logTrackback = ""
Set getTag = New Tag
logTags = getTag.filterEdit(weblog("log_Tag"))
Set getTag = Nothing
logPubTime = weblog("log_PostTime")
logPublishTimeType = "now"
weblog.Close
getLog = Array(0, "成功获取日志!")
End Function
'*********************************************
'删除文件
'*********************************************
Private Function DeleteFiles(FilePath)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FilePath) Then
FSO.DeleteFile FilePath, True
DeleteFiles = True
Else
DeleteFiles = False
End If
Set FSO = Nothing
End Function
'*********************************************
'更新缓存
'*********************************************
Private Sub updateCache
Call Archive(2)
Call CategoryList(2)
Call getInfo(2)
Call NewComment(2)
Call Calendar("", "", "", 2)
If blog_postFile>0 Then
Dim lArticle
Set lArticle = New ArticleCache
lArticle.SaveCache
Set lArticle = Nothing
End If
End Sub
End Class
%>
<%
'======================================================
' PJblog2 静态缓存类
'======================================================
Class ArticleCache
Private cacheList
Private cacheStream
Private errorCode
Private Sub Class_Initialize()
cacheList = ""
End Sub
Private Sub Class_Terminate()
End Sub
Private Function clearT(Str)
Dim tempLen
tempLen = Len(Str)
If tempLen>0 Then
Str = Left(Str, tempLen -1)
End If
clearT = Str
End Function
Private Function LoadIntro(id, Cpart, Cname, Ctype, aisshow, aRight, outType)
Dim getIntro, tempI, TempStr, getC, author
If not IsEmpty(Application(CookieName&"_introCache_"&id)) then
getIntro = Application(CookieName&"_introCache_"&id)
Else
If Cpart = "" or Cpart = empty or Cpart = null or len(Cpart) = 0 then
getIntro = LoadFile("cache/" & id & ".asp")
Else
getIntro = LoadFile("cache/" & id & ".asp")
End If
End If
If getIntro = "error" or getIntro="" Then
If stat_Admin Then
response.Write "
编号为[" + id + "]的日志读取失败！建议您重新
编辑 此文章获得新的缓存
"
End If
Exit Function
End If
getIntro = Split(getIntro, "<"&"%ST(A)%"&">")
author = Trim(getIntro(1))
If outType = "list" Then
If CBool(Int(aRight)) Or stat_Admin Or (Not CBool(Int(aRight)) And memName = author) Then
tempI = getIntro(4)
Else
tempI = getIntro(6)
End If
'evio
dim ceeurl2,chtml2
If Ctype = "0" then
chtml2 = "htm"
Else
chtml2 = "html"
End If
chtml2 ="."&chtml2
ceeurl2=""
If blog_postFile = 2 and aisshow = "True" then
If Cpart = "" or Cpart = empty or Cpart = null or len(Cpart) = 0 then
ceeurl2 = ceeurl2&"article/"&cname&chtml2
Else
ceeurl2 = ceeurl2&"article/"&cpart&"/"&cname&chtml2
End If
Else
ceeurl2 = ceeurl2&"article.asp?id="&id
End If
tempI = Replace(tempI, "<$log_ceeurl$>", ceeurl2)
'evio
tempI = Replace(tempI, "<$log_viewC$>", getIntro(2))
response.Write tempI
Else
TempStr = ""
If stat_EditAll Or (stat_Edit And memName = author) Then
TempStr = TempStr&" |
![]()
"
End If
If stat_DelAll Or (stat_Del And memName = author) Then
TempStr = TempStr&" |
![]()
"
End If
If CBool(Int(aRight)) Or stat_Admin Or (Not CBool(Int(aRight)) And memName = author) Then
tempI = getIntro(3)
Else
tempI = getIntro(5)
End If
'evio
dim ceeurl,chtml
If Ctype = "0" then
chtml = "htm"
Else
chtml = "html"
End If
chtml="."&chtml
ceeurl=""
If blog_postFile = 2 and aisshow = "True" then
If Cpart = "" or Cpart = empty or Cpart = null or len(Cpart) = 0 then
ceeurl = ceeurl&"article/"&cname&chtml
Else
ceeurl = ceeurl&"article/"&cpart&"/"&cname&chtml
End If
Else
ceeurl = ceeurl&"article.asp?id="&id
End If
tempI = Replace(tempI, "<$log_ceeurl$>", ceeurl)
'evio
tempI = Replace(tempI, "<"&"%Article In PJblog2%"&">", "")
tempI = Replace(tempI, "<$editRight$>", TempStr)
tempI = Replace(tempI, "<$log_viewC$>", getIntro(2))
response.Write tempI
End If
End Function
Private Function LoadFile(ByVal File)
On Error Resume Next
LoadFile = "error"
With cacheStream
.Type = 2
.Mode = 3
.Open
.Charset = "utf-8"
.Position = cacheStream.Size
.LoadFromFile Server.MapPath(File)
If Err Then
.Close
Err.Clear
Exit Function
End If
LoadFile = .ReadText
.Close
End With
End Function
Public Function outHTML(loadType, outType, title)
Dim re, strMatchs, strMatch, i, j, id, aRight, hiddenC , aCpart, aCname, aCtype, aisshow
Set cacheStream = Server.CreateObject("ADODB.Stream")
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "\[""([^\r]*?)"";([^\r]*?);\(([^\r]*?)\)\]"
Set strMatchs = re.Execute(cacheList)
For Each strMatch in strMatchs
If loadType = strMatch.SubMatches(0) Then
Dim aList, pageSize
pageSize = blogPerPage
If outType = "list" Then pageSize = pageSize * 4
aList = Split(strMatch.SubMatches(2), ",")
hiddenC = strMatch.SubMatches(1)
If stat_Admin Or stat_ShowHiddenCate Then hiddenC = 0
If (UBound(aList) + 1 - hiddenC)>0 Then
%>
<%
If outType = "list" Then response.Write "
"
i = 0
Do Until i >= pageSize
j = i + (CurPage -1) * pageSize
If j<= UBound(aList) Then
id = Split(aList(j), "|")(1)
aRight = Split(aList(j), "|")(0)
aCpart = Split(aList(j), "|")(2)
aCname = Split(aList(j), "|")(3)
aCtype = Split(aList(j), "|")(4)
aisshow = Split(aList(j), "|")(5)
LoadIntro id, aCpart, aCname, aCtype, aisshow, aRight, outType
i = i + 1
Else
If outType = "list" Then response.Write "
"
%>
<%=MultiPage(ubound(aList)+1-hiddenC,pageSize,CurPage,Url_Add,"","float:Left","")%>
<%
Exit For
End If
Loop
If outType = "list" Then response.Write "
"
%>
<%=MultiPage(ubound(aList)+1-hiddenC,pageSize,CurPage,Url_Add,"","float:Left","")%>
<%
Else
response.Write "
抱歉，没有找到任何日志！"
End If
Set re = Nothing
Exit Function
End If
Next
Set re = Nothing
Set cacheStream = Nothing
End Function
Public Function loadCache
Dim LoadList
If blog_postFile<1 Then
loadCache = False
Exit Function
End If
If not isEmpty(Application(CookieName&"_listCache")) then
LoadList = Array(0,Application(CookieName&"_listCache"))
Else
LoadList = LoadFromFile("cache/listCache.asp")
End If
If LoadList(0) = 0 Then
cacheList = LoadList(1)
loadCache = True
Else
loadCache = False
End If
End Function
Public Function SaveCache
If blog_postFile<1 Then Exit Function
Dim LogList, LogListArray, SaveList, CateDic, CateHDic, TagsDic
Set CateDic = Server.CreateObject("Scripting.Dictionary")
Set CateHDic = Server.CreateObject("Scripting.Dictionary")
Set TagsDic = Server.CreateObject("Scripting.Dictionary")
SQL = "select T.log_ID,T.log_CateID,T.log_IsShow,C.cate_Secret,C.cate_part,T.log_Cname,T.log_Ctype FROM blog_Content As T,blog_Category As C where T.log_CateID=C.cate_ID and log_IsDraft=false ORDER BY log_IsTop ASC,log_PostTime DESC"
Set LogList = conn.Execute(SQL)
If LogList.EOF Or LogList.BOF Then
dim temp1
temp1 = "[""A"";0;()]" & Chr(13) & "[""G"";0;()]"
SaveList = SaveToFile(temp1, "cache/listCache.asp")
' If memoryCache = true then
Application.Lock
Application(CookieName&"_listCache") = temp1
Application.UnLock
' End If
Set LogList = Nothing
Exit Function
End If
LogListArray = LogList.GetRows()
Set LogList = Nothing
Dim i, AList, AListC, GList, GListC, outIndex, tempS, tempCS, hiddenC
AList = ""
AListC = 0
GList = ""
GListC = 0
outIndex = ""
For i = 0 To UBound(LogListArray, 2)
tempS = 1
hiddenC = 1
'response.write LogListArray(0,i) & " "
If Not LogListArray(2, i) Then tempS = 0
If Not LogListArray(3, i) Then
tempCS = 0
hiddenC = 0
GList = GList & tempS & "|" & LogListArray(0, i) & "|" & LogListArray(4, i) & "|" & LogListArray(5, i) & "|" & LogListArray(6, i) & "|" & LogListArray(2, i) & ","
GListC = GListC + hiddenC
End If
AList = AList & tempS & "|" & LogListArray(0, i) & "|" & LogListArray(4, i) & "|" & LogListArray(5, i) & "|" & LogListArray(6, i) & "|" & LogListArray(2, i) & ","
AListC = AListC + hiddenC
If Not CateDic.Exists("C"&LogListArray(1, i)) Then
CateDic.Add "C"&LogListArray(1, i), tempS & "|" & LogListArray(0, i) & "|" & LogListArray(4, i) & "|" & LogListArray(5, i) & "|" & LogListArray(6, i) & "|" & LogListArray(2, i) &","
Else
CateDic.Item("C"&LogListArray(1, i)) = CateDic.Item("C"&LogListArray(1, i)) & tempS & "|" & LogListArray(0, i) & "|" & LogListArray(4, i) & "|" & LogListArray(5, i) & "|" & LogListArray(6, i) & "|" & LogListArray(2, i) & ","
End If
If Not CateHDic.Exists("CH"&LogListArray(1, i)) Then
CateHDic.Add "CH"&LogListArray(1, i), hiddenC
Else
CateHDic.Item("CH"&LogListArray(1, i)) = CateHDic.Item("CH"&LogListArray(1, i)) + hiddenC
End If
Next
outIndex = outIndex & "[""A"";"&AListC&";("&clearT(AList)&")] " & Chr(13)
outIndex = outIndex & "[""G"";"&GListC&";("&clearT(GList)&")] " & Chr(13)
Dim CateKeys, CateItems, CateHKeys, CateHItems
CateKeys = CateDic.Keys
CateItems = CateDic.Items
CateHKeys = CateHDic.Keys
CateHItems = CateHDic.Items
For i = 0 To CateDic.Count -1
outIndex = outIndex & "["""&CateKeys(i)&""";"&CateHItems(i)&";("&clearT(CateItems(i))&")] " & Chr(13)
Next
SaveList = SaveToFile(outIndex, "cache/listCache.asp")
' If memoryCache = true then
Application.Lock
Application(CookieName&"_listCache") = outIndex
Application.UnLock
' End If
Set CateDic = Nothing
Set CateHDic = Nothing
Set TagsDic = Nothing
call newEtag
End Function
End Class
%>
<%
'======================================================
' PJblog2 动态文章保存
'======================================================
Sub PostArticle(ByVal LogID, ByVal UpdateListOnly)
If blog_postFile = 1 Then
PostHalfStatic LogID, UpdateListOnly
ElseIf blog_postFile = 2 Then
PostFullStatic LogID, UpdateListOnly
End If
call newEtag
End Sub
'======================================================
'半静态化
'======================================================
Sub PostHalfStatic(ByVal LogID, ByVal UpdateListOnly)
Dim SaveArticle, LoadTemplate1, Temp1, TempStr, log_View, preLogC, nextLogC
'读取日志模块
LoadTemplate1 = LoadFromFile("Template/Article.asp")
If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息
'读取分类信息
Temp1 = LoadTemplate1(1)
'读取日志内容
SQL = "SELECT TOP 1 * FROM blog_Content WHERE log_ID=" & LogID
SQLQueryNums = SQLQueryNums + 1
Set log_View = conn.Execute(SQL)
Dim blog_Cate, blog_CateArray, comDesc
Dim getCate, getTags
Set getCate = New Category
Set getTags = New Tag
getCate.load(Int(log_View("log_CateID"))) '获取分类信息
If UpdateListOnly then '只更新列表缓存
PostArticleListCache LogID, log_View, getCate, getTags
Set log_View = Nothing
Set getCate = Nothing
Set getTags = Nothing
exit Sub
End If
Temp1 = Replace(Temp1, "<$Cate_icon$>", getCate.cate_icon)
Temp1 = Replace(Temp1, "<$Cate_Title$>", getCate.cate_Name)
Temp1 = Replace(Temp1, "<$log_CateID$>", log_View("log_CateID"))
Temp1 = Replace(Temp1, "<$LogID$>", LogID)
Temp1 = Replace(Temp1, "<$log_Title$>", HtmlEncode(log_View("log_Title")))
Temp1 = Replace(Temp1, "<$log_Author$>", log_View("log_Author"))
Temp1 = Replace(Temp1, "<$log_PostTime$>", DateToStr(log_View("log_PostTime"), "Y-m-d"))
Temp1 = Replace(Temp1, "<$log_weather$>", log_View("log_weather"))
Temp1 = Replace(Temp1, "<$log_level$>", log_View("log_level"))
Temp1 = Replace(Temp1, "<$log_Author$>", log_View("log_Author"))
Temp1 = Replace(Temp1, "<$log_IsShow$>", log_View("log_IsShow"))
If log_View("log_IsShow") and not getCate.cate_Secret Then
Temp1 = Replace(Temp1, "<$log_hiddenIcon$>", "")
Else
If log_View("log_Readpw") <> "" then
Temp1 = Replace(Temp1, "<$log_hiddenIcon$>", "
![]()
")
Else
Temp1 = Replace(Temp1, "<$log_hiddenIcon$>", "
![]()
")
End If
End If
If Len(log_View("log_Tag"))>0 Then
Temp1 = Replace(Temp1, "<$log_tag$>", getTags.filterHTML(log_View("log_Tag")))
Else
Temp1 = Replace(Temp1, "<$log_tag$>", "")
End If
If log_View("log_ComOrder") Then comDesc = "Desc" Else comDesc = "Asc" End If
Temp1 = Replace(Temp1, "<$comDesc$>", comDesc)
Temp1 = Replace(Temp1, "<$log_DisComment$>", log_View("log_DisComment"))
If log_View("log_EditType") = 1 Then
Temp1 = Replace(Temp1, "<$ArticleContent$>", UnCheckStr(UBBCode(HtmlEncode(log_View("log_Content")), Mid(log_View("log_UbbFlags"), 1, 1), Mid(log_View("log_UbbFlags"), 2, 1), Mid(log_View("log_UbbFlags"), 3, 1), Mid(log_View("log_UbbFlags"), 4, 1), Mid(log_View("log_UbbFlags"), 5, 1))))
Else
Temp1 = Replace(Temp1, "<$ArticleContent$>", UnCheckStr(log_View("log_Content")))
End If
If Len(log_View("log_Modify"))>0 Then
Temp1 = Replace(Temp1, "<$log_Modify$>", "
"&log_View("log_Modify")&"
")
Else
Temp1 = Replace(Temp1, "<$log_Modify$>", "")
End If
Temp1 = Replace(Temp1, "<$log_FromUrl$>", log_View("log_FromUrl"))
Temp1 = Replace(Temp1, "<$log_From$>", log_View("log_From"))
Temp1 = Replace(Temp1, "<$trackback$>", SiteURL&"trackback.asp?tbID="&LogID&"&action=view")
Temp1 = Replace(Temp1, "<$log_CommNums$>", log_View("log_CommNums"))
Temp1 = Replace(Temp1, "<$log_QuoteNums$>", log_View("log_QuoteNums"))
Temp1 = Replace(Temp1, "<$log_IsDraft$>", log_View("log_IsDraft"))
Set preLogC = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime<#"&DateToStr(log_View("log_PostTime"), "Y-m-d H:I:S")&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime DESC")
Set nextLogC = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime>#"&DateToStr(log_View("log_PostTime"), "Y-m-d H:I:S")&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime ASC")
Dim BTemp,urlLink
BTemp = ""
If Not preLogC.EOF Then
If blog_postFile = 2 then
urlLink = Alias(preLogC("log_ID"))
Else
urlLink = "?id="&preLogC("log_ID")
End If
BTemp = BTemp & "
![]()
上一篇"
Else
BTemp = BTemp & "
![]()
上一篇"
End If
If Not nextLogC.EOF Then
If blog_postFile = 2 then
urlLink = Alias(nextLogC("log_ID"))
Else
urlLink = "?id="&nextLogC("log_ID")
End If
BTemp = BTemp & " |
![]()
下一篇"
Else
BTemp = BTemp & " |
![]()
下一篇"
End If
Temp1 = Replace(Temp1, "<$log_Navigation$>", BTemp)
SaveArticle = SaveToFile(Temp1, "post/" & LogID & ".asp")
PostArticleListCache LogID, log_View, getCate, getTags
Set log_View = Nothing
Set getCate = Nothing
Set getTags = Nothing
'getCate.cate_Secret or (not log_View("Log_IsShow"))
End Sub
'======================================================
'全静态化
'======================================================
Sub PostFullStatic(ByVal LogID, ByVal UpdateListOnly)
Dim SaveArticle, LoadTemplate1, Temp1, TempStr, log_View, preLogC, nextLogC, Category,baseUrl
'读取日志模块
LoadTemplate1 = LoadFromFile("Template/static.htm")
If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息
'静态页面特有的属性
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))
'读取分类信息
Temp1 = LoadTemplate1(1)
'读取日志内容
SQL = "SELECT TOP 1 * FROM blog_Content WHERE log_ID=" & LogID
SQLQueryNums = SQLQueryNums + 1
Set log_View = conn.Execute(SQL)
blog_currentCategoryID = log_View("log_CateID")
Dim blog_Cate, blog_CateArray, comDesc, CanRead
Dim getCate, getTags
Set getCate = New Category
Set getTags = New Tag
getCate.load(Int(log_View("log_CateID"))) '获取分类信息
If UpdateListOnly then '只更新列表缓存
PostArticleListCache LogID, log_View, getCate, getTags
Set log_View = Nothing
Set getCate = Nothing
Set getTags = Nothing
exit Sub
End If
If log_View("log_IsShow") = false or getCate.cate_Secret then '如果是私密日志
SaveArticle = SaveToFile(""& vbcrlf &_
"
加载私密日志"& vbcrlf &_
""& vbcrlf &_
""& vbcrlf &_
"
请稍后...正在加载私密日志
"& vbcrlf &_
"
"& vbcrlf &_
""& vbcrlf &_
"
", Alias(LogID))
PostHalfStatic LogID, UpdateListOnly
Set log_View = Nothing
exit Sub
End If
If log_View("log_ComOrder") Then comDesc = "Desc" Else comDesc = "Asc" End If
Temp1 = Replace(Temp1, "<$CategoryList$>", CategoryList(0))
Temp1 = Replace(Temp1, "<$base$>", baseUrl)
Temp1 = Replace(Temp1, "<$siteName$>", siteName)
Temp1 = Replace(Temp1, "<$siteURL$>", siteURl)
Temp1 = Replace(Temp1, "<$blog_Title$>", blog_Title)
Temp1 = Replace(Temp1, "<$blog_email$>", blog_email)
Temp1 = Replace(Temp1, "<$blog_master$>", blog_master)
Temp1 = Replace(Temp1, "<$skin$>", blog_DefaultSkin)
Temp1 = Replace(Temp1, "<$blogabout$>", blogabout)
Temp1 = Replace(Temp1, "<$comDesc$>", comDesc)
Temp1 = Replace(Temp1, "<$CookieName$>", CookieName)
Temp1 = Replace(Temp1, "<$blog_version$>", blog_version)
'输出第一页评论
Temp1 = Replace(Temp1, "<$comment$>", ShowComm(LogID, comDesc, log_View("log_DisComment"), True, log_View("log_IsShow"), log_View("log_Readpw"), CanRead))
Temp1 = Replace(Temp1, "<$Cate_icon$>", getCate.cate_icon)
Temp1 = Replace(Temp1, "<$Cate_Title$>", getCate.cate_Name)
Temp1 = Replace(Temp1, "<$log_CateID$>", log_View("log_CateID"))
Temp1 = Replace(Temp1, "<$LogID$>", LogID)
Temp1 = Replace(Temp1, "<$log_Title$>", HtmlEncode(log_View("log_Title")))
Temp1 = Replace(Temp1, "<$log_Author$>", log_View("log_Author"))
Temp1 = Replace(Temp1, "<$log_PostTime$>", DateToStr(log_View("log_PostTime"), "Y-m-d"))
Temp1 = Replace(Temp1, "<$log_weather$>", log_View("log_weather"))
Temp1 = Replace(Temp1, "<$log_level$>", log_View("log_level"))
Temp1 = Replace(Temp1, "<$log_Author$>", log_View("log_Author"))
If len(log_View("log_KeyWords")) > 0 Then
Temp1 = Replace(Temp1, "<$keywords$>", log_View("log_KeyWords"))
Else
Temp1 = Replace(Temp1, "<$keywords$>", "")
End If
If len(log_View("log_Description")) > 0 Then
Temp1 = Replace(Temp1, "<$description$>", log_View("log_Description"))
Else
Temp1 = Replace(Temp1, "<$description$>", "")
End If
If Len(log_View("log_Tag"))>0 Then
Temp1 = Replace(Temp1, "<$log_tag$>", getTags.filterHTML(log_View("log_Tag")))
Else
Temp1 = Replace(Temp1, "<$log_tag$>", "")
End If
Temp1 = Replace(Temp1, "<$comDesc$>", comDesc)
Temp1 = Replace(Temp1, "<$log_DisComment$>", log_View("log_DisComment"))
If log_View("log_EditType") = 1 Then
Temp1 = Replace(Temp1, "<$ArticleContent$>", UnCheckStr(UBBCode(HtmlEncode(log_View("log_Content")), Mid(log_View("log_UbbFlags"), 1, 1), Mid(log_View("log_UbbFlags"), 2, 1), Mid(log_View("log_UbbFlags"), 3, 1), Mid(log_View("log_UbbFlags"), 4, 1), Mid(log_View("log_UbbFlags"), 5, 1))))
Else
Temp1 = Replace(Temp1, "<$ArticleContent$>", UnCheckStr(log_View("log_Content")))
End If
If Len(log_View("log_Modify"))>0 Then
Temp1 = Replace(Temp1, "<$log_Modify$>", "
"&log_View("log_Modify")&"
")
Else
Temp1 = Replace(Temp1, "<$log_Modify$>", "")
End If
Temp1 = Replace(Temp1, "<$log_FromUrl$>", log_View("log_FromUrl"))
Temp1 = Replace(Temp1, "<$log_From$>", log_View("log_From"))
Temp1 = Replace(Temp1, "<$trackback$>", SiteURL&"trackback.asp?tbID="&LogID&"&action=view")
Temp1 = Replace(Temp1, "<$log_CommNums$>", log_View("log_CommNums"))
Temp1 = Replace(Temp1, "<$log_QuoteNums$>", log_View("log_QuoteNums"))
Temp1 = Replace(Temp1, "<$log_IsDraft$>", log_View("log_IsDraft"))
Set preLogC = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime<#"&DateToStr(log_View("log_PostTime"), "Y-m-d H:I:S")&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime DESC")
Set nextLogC = Conn.Execute("SELECT TOP 1 T.log_Title,T.log_ID FROM blog_Content As T,blog_Category As C WHERE T.log_PostTime>#"&DateToStr(log_View("log_PostTime"), "Y-m-d H:I:S")&"# and T.log_CateID=C.cate_ID and (T.log_IsShow=true or T.log_Readpw<>'') and C.cate_Secret=False and T.log_IsDraft=false ORDER BY T.log_PostTime ASC")
Dim BTemp
BTemp = ""
If Not preLogC.EOF Then
BTemp = BTemp & "
![]()
上一篇"
Else
BTemp = BTemp & "
![]()
上一篇"
End If
If Not nextLogC.EOF Then
BTemp = BTemp & " |
![]()
下一篇"
Else
BTemp = BTemp & " |
![]()
下一篇"
End If
Temp1 = Replace(Temp1, "<$log_Navigation$>", BTemp)
createfolder "article/"&getCate.cate_Part
SaveArticle = SaveToFile(Temp1, Alias(LogID))
PostArticleListCache LogID, log_View, getCate , getTags
Set log_View = Nothing
Set getCate = Nothing
Set getTags = Nothing
'getCate.cate_Secret or (not log_View("Log_IsShow"))
End Sub
'======================================================
'缓存静态化列表
'======================================================
Sub PostArticleListCache(ByVal LogID,ByVal log_View,ByVal getCate,ByVal getTags)
Dim LoadTemplate2, Temp2, comDesc, SaveArticle
LoadTemplate2 = LoadFromFile("Template/ArticleList.asp")
If LoadTemplate2(0) <> 0 Then Exit Sub
Temp2 = LoadTemplate2(1)
Temp2 = Replace(Temp2, "<$Cate_icon$>", getCate.cate_icon)
Temp2 = Replace(Temp2, "<$Cate_Title$>", getCate.cate_Name)
Temp2 = Replace(Temp2, "<$log_CateID$>", log_View("log_CateID"))
Temp2 = Replace(Temp2, "<$LogID$>", LogID)
Temp2 = Replace(Temp2, "<$log_Title$>", HtmlEncode(log_View("log_Title")))
Temp2 = Replace(Temp2, "<$log_Author$>", log_View("log_Author"))
Temp2 = Replace(Temp2, "<$log_PostTime$>", DateToStr(log_View("log_PostTime"), "Y-m-d"))
Temp2 = Replace(Temp2, "<$log_viewCount$>", log_View("log_ViewNums"))
'article.asp?id=<$LogID$>
If blog_postFile = 2 and log_View("log_IsShow") and not getCate.cate_Secret Then
Temp2 = Replace(Temp2, "<$pLink$>", Alias(LogID))
Else
Temp2 = Replace(Temp2, "<$pLink$>", "article.asp?id=" & LogID)
End If
If log_View("log_IsTop") Then
Temp2 = Replace(Temp2, "<$ShowButton$>", "
")
Temp2 = Replace(Temp2, "<$ShowStyle$>", " style=""display:none""")
Else
Temp2 = Replace(Temp2, "<$ShowButton$>", "")
Temp2 = Replace(Temp2, "<$ShowStyle$>", "")
End If
If log_View("log_IsShow") and not getCate.cate_Secret Then
Temp2 = Replace(Temp2, "<$log_hiddenIcon$>", "")
Else
If log_View("log_Readpw") <> "" Then
Temp2 = Replace(Temp2, "<$log_Secret$>", "该日志是加密日志，需要输入正确密码才可以查看！")
Temp2 = Replace(Temp2, "<$log_hiddenIcon$>", "
![]()
")
Else
Temp2 = Replace(Temp2, "<$log_Secret$>", "该日志是私密日志，只有管理员或发布者可以查看！")
Temp2 = Replace(Temp2, "<$log_hiddenIcon$>", "
![]()
")
End If
If log_View("log_Pwtitle") = False Then
Temp2 = Replace(Temp2, "<$Show_Title$>", HtmlEncode(log_View("log_Title")))
ElseIf log_View("log_Readpw") <> "" Then
Temp2 = Replace(Temp2, "<$Show_Title$>", "[加密日志]")
Else
Temp2 = Replace(Temp2, "<$Show_Title$>", "[私密日志]")
End If
End If
If Len(log_View("log_Tag"))>0 Then
Temp2 = Replace(Temp2, "<$log_tag$>", "
Tags: "&getTags.filterHTML(log_View("log_Tag"))&"
")
Else
Temp2 = Replace(Temp2, "<$log_tag$>", "")
End If
If log_View("log_ComOrder") Then comDesc = "Desc" Else comDesc = "Asc" End If
If log_View("log_EditType") = 1 Then
Temp2 = Replace(Temp2, "<$log_Intro$>", UnCheckStr(UBBCode(log_View("log_Intro"), Mid(log_View("log_UbbFlags"), 1, 1), Mid(log_View("log_UbbFlags"), 2, 1), Mid(log_View("log_UbbFlags"), 3, 1), Mid(log_View("log_UbbFlags"), 4, 1), Mid(log_View("log_UbbFlags"), 5, 1))))
If log_View("log_Intro")<>HtmlEncode(log_View("log_Content")) Then
If blog_postFile = 2 and log_View("log_IsShow") and not getCate.cate_Secret Then
Temp2 = Replace(Temp2, "<$log_readMore$>", "
查看更多...
")
Else
Temp2 = Replace(Temp2, "<$log_readMore$>", "
查看更多...
")
End If
Else
Temp2 = Replace(Temp2, "<$log_readMore$>", "")
End If
Else
Temp2 = Replace(Temp2, "<$log_Intro$>", UnCheckStr(log_View("log_Intro")))
If log_View("log_Intro")<>log_View("log_Content") Then
If blog_postFile = 2 and log_View("log_IsShow") and not getCate.cate_Secret Then
Temp2 = Replace(Temp2, "<$log_readMore$>", "
查看更多...
")
Else
Temp2 = Replace(Temp2, "<$log_readMore$>", "
查看更多...
")
End If
Else
Temp2 = Replace(Temp2, "<$log_readMore$>", "")
End If
End If
Temp2 = Replace(Temp2, "<$log_CommNums$>", log_View("log_CommNums"))
Temp2 = Replace(Temp2, "<$log_QuoteNums$>", log_View("log_QuoteNums"))
SaveArticle = SaveToFile(Temp2, "cache/" & LogID & ".asp")
If memoryCache = true then
Application.Lock
Application(CookieName&"_introCache_"&LogID) = Temp2
Application.UnLock
End If
End Sub
'======================================================
'模板文件保存到内存里
'======================================================
Sub LoadTemplateFile(Path)
Dim cache
End Sub
%>
<%
'==================================
' 系统首页
' 更新时间: 2006-1-15
'==================================
%>
<%=content_html_Top_default%>
<%ContentList%>
<%=content_html_Bottom_default%>
<%Side_Module_Replace '处理系统侧栏模块信息%>
<%
'==================================
' 底部页面
' 更新时间: 2005-8-25
'==================================
%>
<%
Session.CodePage = 936
Session(CookieName&"_LastDo") = "" '最近的一次数据库操作
'Session(CookieName&"_LastDo")返回值说明
'DelComment 删除评论
'AddComment 添加评论
'EditUser 用户编辑个人资料
'RegisterUser 新用户注册
'AddArticle 添加新日志
'EditArticle 编辑日志
'DelArticle 删除日志
'DelMessage 删除留言 (需要留言本插件支持)
'AddMessage 添加留言 (需要留言本插件支持)
Call CloseDB
%>
<%
Session.CodePage = 936
Session(CookieName&"_LastDo") = "" '最近的一次数据库操作
'Session(CookieName&"_LastDo")返回值说明
'DelComment 删除评论
'AddComment 添加评论
'EditUser 用户编辑个人资料
'RegisterUser 新用户注册
'AddArticle 添加新日志
'EditArticle 编辑日志
'DelArticle 删除日志
'DelMessage 删除留言 (需要留言本插件支持)
'AddMessage 添加留言 (需要留言本插件支持)
Call CloseDB
%>