<%
'==================================
' 显示日志
' 更新时间: 2007-5-22
'==================================
'处理日志信息
Dim id, tKey
If CheckStr(Request.QueryString("id"))<>Empty Then
id = CheckStr(Request.QueryString("id"))
End If
Dim log_View, log_ViewArr, keyword, preLog, nextLog, blog_Cate, blog_CateArray, comDesc, urlLink
Dim getCate,viewCount
Set getCate = New Category
If IsInteger(id) Then
Set log_View = Server.CreateObject("ADODB.RecordSet")
'If blog_postFile>1 Then
'SQL = "SELECT top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Readpw,log_Pwtips FROM blog_Content WHERE log_ID="&id&" and log_IsDraft=false"
'Else
SQL = "SELECT top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag,log_Readpw,log_Pwtips FROM blog_Content WHERE log_ID="&id&" and log_IsDraft=false"
'End If
log_View.Open SQL, Conn, 1, 3
SQLQueryNums = SQLQueryNums + 1
If log_View.EOF Or log_View.bof Then
log_View.Close
showmsg "错误信息", "不存在当前日志！ 单击返回", "ErrorIcon", ""
End If
viewCount = log_View("log_ViewNums") + 1
log_View("log_ViewNums") = viewCount
log_View.UPDATE
log_ViewArr = log_View.GetRows
log_View.Close
Set log_View = Nothing
getCate.load(Int(log_ViewArr(1, 0))) '获取分类信息
If blog_postFile>1 Then
Call updateViewNums(id, viewCount)
end if
If log_ViewArr(3, 0) And Not getCate.cate_Secret Then
BlogTitle = log_ViewArr(2, 0) & " - " & siteName
End If
Else
showmsg "错误信息", "非法操作", "ErrorIcon", ""
End If
getBlogHead BlogTitle, getCate.cate_Name, getCate.cate_ID
tKey = getTempKey
%>
<%=content_html_Top%>
<%
If id<>"" And IsInteger(id) = False Then
response.Write ("非法操作！！")
Else
ShowArticle id '显示日志
End If
Set getCate = Nothing
%>
<%=content_html_Bottom%>