<% 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&"

"&Arr_Bloglinks(0,blog_LinksListNumI)&"

" End IF Next Response.Write(blog_LinksMainIMG) Response.Write(blog_LinksMainTXT) %>

更多友情链接...