index01.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="185" 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 Calendar(log_Year,log_Month,log_Day)
	Response.Write("<br>")
	Call blogSearch%>                <br>
                </td><td width="12%" background="images/center_r3_c3.jpg">&nbsp;</td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td><img src="images/center_r6_c6.jpg" width="188" height="36"></td>
        </tr>
      </table>
    </td>
    <td width="511" valign="top">
<table width="517"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="517"><table width="511" height="229" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><iframe id="top" width="511" height="229" frameborder="0" scrolling="no" src="http://www.09v.net/dw/1.htm"></iframe></td>
                    </tr>
                  </table></td>
                </tr>
                <tr>
                  <td>                    <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="97%"><img src="images/center_r7_c4.jpg" width="517" height="37">
                          <table width="95%" height="98"  border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="28%"><img src="images/new.jpg" width="95" height="72" align="right"></td>
                              <td width="72%"><p style="color: #0099FF"> 銆