bloglinks.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" class="wordbreak">
  <tr>
    <td width="188" valign="top" nowrap><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/center_r2_c1.jpg" width="188" height="72"></td>
      </tr>
    </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="7%" background="images/center_r3_c1.gif">&nbsp;</td>
              <td width="81%" bgcolor="#F6F6F6"><%
	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 CategoryList
	Response.Write("<br>")
	Call Calendar(log_Year,log_Month,log_Day)
	Response.Write("<br>")
	Call SiteInfo
	Response.Write("<br>")
	Call NewCommList
	Response.Write("<br>")
	Call blogSearch%>
                <br>
                <div class="siderbar_head"><img src="images/sider_links.gif" border="0" align="absmiddle" /> 鍙嬫儏閾炬帴</div>
                <div class="siderbar_main">
                  <%
		Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT
		blog_LinksListNums=Ubound(Arr_Bloglinks,2)
		For blog_LinksListNumI=0 To blog_LinksListNums
			IF Arr_Bloglinks(2,blog_LinksListNumI)<>Empty Then
				blog_LinksMainIMG=blog_LinksMainIMG&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank""><img src="""&Arr_Bloglinks(2,blog_LinksListNumI)&""" border=""0"" alt="""&Arr_Bloglinks(0,blog_LinksListNumI)&"""></a></div>"
			Else
				blog_LinksMainTXT=blog_LinksMainTXT&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank"">"&Arr_Bloglinks(0,blog_LinksListNumI)&"</a></div>"
			End IF
		Next
		Response.Write(blog_LinksMainIMG)
		Response.Write(blog_LinksMainTXT)
		%>
                  <div align="right" style="margin: 4px;"><a href="bloglinks.asp">鏇村