📄 blogview.asp
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<%Dim log_Year,log_Month,log_Day,logID,cateID,Url_Add
log_Year=CheckStr(Trim(Request.QueryString("log_Year")))
log_Month=CheckStr(Trim(Request.QueryString("log_Month")))
log_Day=CheckStr(Trim(Request.QueryString("log_Day")))
logID=CheckStr(Trim(Request.QueryString("logID")))
cateID=CheckStr(Trim(Request.QueryString("cateID")))
Dim errMSG
If IsInteger(logID)=False OR (cateID<>Empty AND IsInteger(cateID)=False) Then
errMSG="<br><center><div class=""msg_content""><a href=""default.asp"">对不起，无效的参数，点击返回首页重新操作</a></div></center>"
Else
Dim log_View
Set log_View=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT * FROM blog_Content WHERE log_ID="&logID&""
log_View.Open SQL,znwl,1,3
SQLQueryNums=SQLQueryNums+1
If log_View.EOF AND log_View.BOF Then
errMSG="<br><center><div class=""msg_content""><a href=""default.asp"">对不起，没有找到相关日志，点击返回首页重新操作</a></div></center>"
log_View.Close
Set log_View=Nothing
Else
Dim log_Title,log_Content,log_Author,log_PostTime,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_From,log_FromURL,log_Modify,log_IsShow,log_QuoteNums,log_AutoKEY,log_DisComment,log_ReComment,log_Weather,log_tags
log_Title=log_View("log_Title")
siteTitle = log_Title&" - "
log_Content=log_View("log_Content")
log_Author=log_View("log_Author")
log_PostTime=log_View("log_PostTime")
log_DisSM=log_View("log_DisSM")
log_DisUBB=log_View("log_DisUBB")
log_DisIMG=log_View("log_DisIMG")
log_AutoURL=log_View("log_AutoURL")
log_AutoKEY=log_View("log_AutoKEY")
log_From=log_View("log_From")
log_FromURL=log_View("log_FromURL")
log_Modify=log_View("log_Modify")
log_IsShow=log_View("log_IsShow")
log_QuoteNums=log_View("log_QuoteNums")
log_DisComment=log_View("log_DisComment")
log_ReComment=log_View("log_ReComment")
log_Weather=Split(log_View("log_Weather"),"|")
log_tags=log_view("log_tags")
log_View("log_ViewNums")=log_View("log_ViewNums")+1
log_View.UPDATE
log_View.Close
Set log_View=Nothing
End If
End If%>
<!--#include file="header.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="160" valign="top" bgcolor="#F8F8F8" nowrap><%
Call MemberCenter
Call Calendar(log_Year,log_Month,log_Day)
Call SiteInfo
Call NewCommList
Call blogSearch%><br></td>
<td width="100%" valign="top" bgcolor="#FFFFFF">
<%
If errMSG<>Empty Then
Response.Write(errMSG)
Else
Url_Add="?logID="&logID&"&"
Dim cateQuery,catePage
If cateID<>Empty Then
cateQuery=" AND log_cateID="&cateID
catePage="&cateID="&cateID
Url_Add=Url_Add&"cateID="&cateID&"&"
End If
Dim log_PrevLog,log_PrevLogStr,log_PrevLogTitle,log_NextLog,log_NextLogStr,log_NextLogTitle
Set log_PrevLog=znwl.Execute("SELECT TOP 1 log_Title,log_ID,log_IsShow,log_Author FROM blog_Content WHERE log_ID<"&logID&""&cateQuery&" ORDER BY log_ID DESC")
SQLQueryNums=SQLQueryNums+1
If log_PrevLog.EOF AND log_PrevLog.BOF Then
log_PrevLogStr=""
Else
If log_PrevLog(2) = True OR (log_PrevLog(2)=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_PrevLog(3)))) Then
log_PrevLogTitle=log_PrevLog(0)
Else
log_PrevLogTitle="隐藏日志，无权浏览"
End If
log_PrevLogStr="<img src=""images/icon_ar.gif"" border=""0"" align=""absmiddle""> <a href='blogview.asp?logID="&log_PrevLog(1)&""&catePage&"'>"&log_PrevLogTitle&"</a>"
End IF
Set log_PrevLog=Nothing
Set log_NextLog=znwl.Execute("SELECT TOP 1 log_Title,log_ID,log_IsShow,log_Author FROM blog_Content WHERE log_ID>"&logID&""&cateQuery&" ORDER BY log_ID ASC")
SQLQueryNums=SQLQueryNums+1
If log_NextLog.EOF AND log_NextLog.BOF Then
log_NextLogStr=""
Else
If log_NextLog(2) = True OR (log_NextLog(2)=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_NextLog(3)))) Then
log_NextLogTitle=log_NextLog(0)
Else
log_NextLogTitle="隐藏日志，无权浏览"
End If
log_NextLogStr="<a href=""blogview.asp?logID="&log_NextLog(1)&""&catePage&""">"&log_NextLogTitle&"</a> <img src=""images/icon_al.gif"" border=""0"" align=""absmiddle"">"
End If
Set log_PrevLog=Nothing%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-bottom:4px;">
<tr>
<td width="50%" align="left"><%=log_PrevLogStr%></td>
<td width="50%" align="right"><%=log_NextLogStr%></td>
</tr>
</table>
<%
If log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then
Response.Write("<div class=""content_head""><img src=""images/weather/"&log_Weather(0)&".gif"" border=""0"" align=""absmiddle"" alt="""&log_Weather(1)&"""> <b><font color=""#0066CC"">"&log_Title&"</font></b> [ 日期："&DateToStr(log_PostTime,"Y-m-d")&" ] [ 来自：<a href="""&HTMLEncode(log_FromURL)&""" target=""_blank"">"&HTMLEncode(log_From)&"</a> ]")
If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then
Response.Write(" <a href=""blogedit.asp?logID="&logID&"""><img src=""images/icon_edit.gif"" border=""0"" align=""absmiddle"" alt=""编辑日志""></a>")
End If%></div>
<div align="right" class="smalltxt" height=""35px"">[ 阅读字体大小：<a href='javascript:fontZoom(16)' class=black><font color=red>大</font></a> <a href='javascript:fontZoom(14)' class=black><font color=red>中</font></a> <a href='javascript:fontZoom(12)' class=black><font color=red>小</font></a> ] [ 收藏此页到： <a href=""javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(vivi=window.open('http://vivi.sina.com.cn/collect/icollect.php?pid=15&title='+escape(d.title)+'&url='+escape(d.location.href)+'&desc='+escape(t),'vivi','scrollbars=no,width=480,height=480,left=75,top=20,status=no,resizable=yes'));vivi.focus();""><font color=red>新浪ViVi</font></a> | <A href='javascript:StorePage()'><font color=red>365Key</font></A> ]</div>
<div class="content_main"><%
Response.Write("<SPAN id='fontzoom'>"&Ubbcodes(HTMLEncode(log_Content),log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,logID)&"<br><br>")
'显示TAGS
if ShowTag(logID,"Show")<>empty then
Response.Write (ShowTag(logID,"Show"))
end if '显示TAGS结束
IF log_Modify<>Empty Then
Response.Write("<div align=""right"" class=""smalltxt"" height=""35px"">"&log_Modify&"</div>")
End If
Response.Write("<div align=""right"" class=""smalltxt"" height=""35px"">[ 阅读字体大小：<a href='javascript:fontZoom(16)' class=black><font color=red>大</font></a> <a href='javascript:fontZoom(14)' class=black><font color=red>中</font></a> <a href='javascript:fontZoom(12)' class=black><font color=red>小</font></a> ] [ 收藏此页到： <a href=""javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(vivi=window.open('http://vivi.sina.com.cn/collect/icollect.php?pid=15&title='+escape(d.title)+'&url='+escape(d.location.href)+'&desc='+escape(t),'vivi','scrollbars=no,width=480,height=480,left=75,top=20,status=no,resizable=yes'));vivi.focus();""><font color=red>新浪ViVi</font></a> | <A href='javascript:StorePage()'><font color=red>365Key</font></A> ]</div>")
if log_From="本站原创" then
else
response.write ("<div align=""left"" class=""smalltxt"" height=""35px""><b><font color=red>本站声明：</font></b><font color=Black>此文章来源于网络，如果未属名，可能因为此文被转摘多次，原作者不详，如果您认为侵权，请联系我admin@znwl.com。我将在第一时间按要求做出处理，并消除影响。</font></span></div>")
end if
Response.Write("<div><img src=""images/icon_trackback.gif"" border=""0"" align=""absmiddle""><b><a href=""trackback.asp?logID="&logID&""">引用通告地址</a>:</b><br /><img src=""images/utf8.gif"" border=""0"" align=""absmiddle"" style=""cursor:hand;"" alt=""复制引用地址"" onClick=""CopyText(document.all.tbUTFURL)""><span class=""smalltxt"" id=""tbUTFURL"">"&siteURL&"/trackback.asp?tbID="&logID&"</span><br /><img src=""images/gbk.gif"" border=""0"" align=""absmiddle"" style=""cursor:hand;"" alt=""复制引用地址"" onClick=""CopyText(document.all.tbGBKURL)""><span class=""smalltxt"" id=""tbGBKURL"">"&siteURL&"/trackback.asp?tbID="&logID&"&CP=GBK</span></div></div>")
Else
Response.Write("<br><center><div class=""msg_content""><a href=""default.asp"">对不起，你没有权限查看此日志，请点击返回首页</a></div></center>")
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -