<% 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("
") Call Calendar(log_Year,log_Month,log_Day) Response.Write("
") 'Call SiteInfo 'Response.Write("
") 'Call NewCommList 'Response.Write("
") 'Call blogSearch%>
<%Call SiteInfo%>
   她说
   时光碎片
<%Call CategoryList%>
<%Call blogSearch%>
 
<%Call NewCommList%>
<% 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&"
" Else blog_LinksMainTXT=blog_LinksMainTXT&"" End IF Next Response.Write(blog_LinksMainIMG) Response.Write(blog_LinksMainTXT) %>