blog2.asp

一套很好的可研究竟ASP源代码！ 如果您是ASP的初学者

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="header.asp" -->
<table width="830" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
   <td><img src="images/spacer.gif" width="198" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="37" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="418" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="8" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="13" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="26" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="48" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="35" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="47" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>
  <tr>
   <td rowspan="6" background="images/center_r2_c1.jpg">&nbsp;<%
	Dim log_Year,log_Month,log_Day,cateID,SQLFiltrate,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")))
	cateID=CheckStr(Trim(Request.QueryString("cateID")))
	SQLFiltrate="WHERE "
	Url_Add="?"
	IF IsInteger(cateID)=True Then
		SQLFiltrate=SQLFiltrate&" log_CateID="&CateID&" AND"
		Url_Add=Url_Add&"CateID="&CateID&"&"
	End IF
	IF IsInteger(log_Year)=True Then
		SQLFiltrate=SQLFiltrate&" log_PostYear="&log_Year&" AND"
		Url_Add=Url_Add&"log_Year="&log_Year&"&"
	End IF
	IF IsInteger(log_Month)=True Then
		SQLFiltrate=SQLFiltrate&" log_PostMonth="&log_Month&" AND"
		Url_Add=Url_Add&"log_Month="&log_Month&"&"
	End IF
	IF IsInteger(log_Day)=True Then
		SQLFiltrate=SQLFiltrate&" log_PostDay="&log_Day&" AND"
		Url_Add=Url_Add&"log_Day="&log_Day&"&"
	End IF
	Call MemberCenter
	Response.Write("<br>")
	Call NewCommList%>     <br>
     <br>
        </td>
   <td colspan="7"><img name="center_r2_c2" src="images/center_r2_c2.jpg" width="585" height="35" border="0" alt=""></td>
   <td rowspan="6"><img name="center_r2_c9" src="images/center_r2_c9.jpg" width="47" height="557" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="35" border="0" alt=""></td>
  </tr>
  <tr>
   <td rowspan="2"><img name="center_r3_c2" src="images/center_r3_c2.jpg" width="37" height="197" border="0" alt=""></td>
   <td colspan="2"><img name="center_r3_c3" src="images/center_r3_c3.jpg" width="426" height="176" border="0" alt=""></td>
   <td><img name="center_r3_c5" src="images/center_r3_c5.jpg" width="13" height="176" border="0" alt=""></td>
   <td><img name="center_r3_c6" src="images/center_r3_c6.jpg" width="26" height="176" border="0" alt=""></td>
   <td rowspan="4"><img name="center_r3_c7" src="images/center_r3_c7.jpg" width="48" height="357" border="0" alt=""></td>
   <td rowspan="4"><img name="center_r3_c8" src="images/center_r3_c8.jpg" width="35" height="357" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="176" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4"><img name="center_r4_c3" src="images/center_r4_c3.jpg" width="465" height="21" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="21" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="center_r5_c2" src="images/center_r5_c2.jpg" width="37" height="33" border="0" alt=""></td>
   <td><img name="center_r5_c3" src="images/center_r5_c3.jpg" width="418" height="33" border="0" alt=""></td>
   <td colspan="3"><img name="center_r5_c4" src="images/center_r5_c4.jpg" width="47" height="33" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="33" border="0" alt=""></td>
  </tr>
  <tr>
   <td rowspan="2" colspan="5"><%
Dim CurPage
If CheckStr(Request.QueryString("Page"))<>Empty Then
	Curpage=CheckStr(Request.QueryString("Page"))
	If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
	Curpage=1
End If

Dim webLog
Set webLog=Server.CreateObject("Adodb.Recordset")
SQL="SELECT L.*,C.cate_Name FROM blog_Content AS L,blog_Category AS C "&SQLFiltrate&" C.cate_ID=L.log_CateID ORDER BY log_IsTop ASC,log_ID DESC"
webLog.Open SQL,CONN,1,1
SQLQueryNums=SQLQueryNums+1
If webLog.EOF AND webLog.BOF Then 
	Response.Write("<div class=""message"">鏆傛椂娌℃湁鏃ュ織</div>")
Else
	Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather
	webLog.PageSize=blogPerPage
	webLog.AbsolutePage=CurPage
	Log_Num=webLog.RecordCount
	Dim Log_Num,MultiPages,PageCount
	MultiPages="<span class=""smalltxt"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"</span>"
	Response.Write(MultiPages)
	Response.Write("<table width=""100%"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")
	Do Until webLog.EOF OR PageCount=blogPerPage
		weblog_ID=weblog("log_ID")
		log_IsShow=weblog("log_IsShow")
		log_Author=webLog("log_Author")
		log_IsTop=weblog("log_IsTop")
		log_Weather=Split(weblog("log_Weather"),"|")
		log_Intro=Replace(webLog("log_Intro"),"&#39;&#39;","&#39;")
		Response.Write("<div class=""content_head"">")
		If IsInteger(cateID)=False Then
			log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&""">"
		Else
			log_ShowURL="<a href=""blogview.asp?logID="&weblog_ID&"&cateID="&cateID&""">"
		End If
		If log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then
			If log_IsTop=True Then
				Response.Write("<span style=""cursor:hand;"" onclick=""showIntro('log_"&weblog_ID&"');"" title=""鐐瑰嚮鏌ョ湅璇︾粏浠嬬粛""><img src=""images/blogtop.gif"" border=""0"" align=""absmiddle"" /><font color=""#FF0000""><strong>[缃