blogview.asp

来自「L-Blog是一套BLOG系统」· ASP 代码 · 共 232 行 · 第 1/2 页

<!--#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,Conn,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_Weather
			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_Weather=Split(log_View("log_Weather"),"|")
	  		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="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif" class="wordbreak">
  <tr>
    <td width="160" valign="top" bgcolor="#F8F8F8" nowrap><%
	Call MemberCenter
	Response.Write("<br>")
	Call Calendar(log_Year,log_Month,log_Day)
	Response.Write("<br>")
	Response.Write("<br>")
	Call SiteInfo
	Response.Write("<br>")
	Call NewCommList
	Response.Write("<br>")
	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=Conn.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=Conn.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>&nbsp;&nbsp;&nbsp;[ 日期："&DateToStr(log_PostTime,"Y-m-d")&" ]&nbsp;&nbsp;&nbsp;[ 来自：<a href="""&log_FromURL&""" target=""_blank"">"&log_From&"</a> ]")
			If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then
				Response.Write("&nbsp;&nbsp;<a href=""blogedit.asp?logID="&logID&"""><img src=""images/icon_edit.gif"" border=""0"" align=""absmiddle"" alt=""编辑日志""></a>")
			End If%></div><div class="content_main"><%
			Response.Write(Ubbcode(HTMLEncode(log_Content),log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY)&"<br><br>")
			IF log_Modify<>Empty Then
				Response.Write("<div align=""right"" class=""smalltxt"" height=""35px"">"&log_Modify&"</div>")
			End If