<% 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) %>

 

 
   
<%Call MemberCenter%>
 
<% 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("
暂时没有日志
") 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=""&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"" Response.Write(MultiPages) Response.Write("
") 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"),"''","'") Response.Write("
") Else Response.Write(" "&log_ShowURL&""&webLog("log_Title")&"   [ "&DateToStr(webLog("log_PostTime"),"Y-m-d")&"  |  "&webLog("log_From")&" ]
") End IF Response.Write("
"&Ubbcode(log_Intro,weblog("log_DisSM"),weblog("log_DisUBB"),weblog("log_DisIMG"),weblog("log_AutoURL"),weblog("log_AutoKEY"))) Response.Write("

") If HtmlEncode(webLog("log_Content"))<>log_Intro Then Response.Write(log_ShowURL&" 阅读全文……") Response.Write("
作者："&log_Author&" | 分类："&webLog("cate_Name")&" | 评论："&webLog("log_CommNums")&" | 引用："&webLog("log_QuoteNums")&" | 查看："&webLog("log_ViewNums")&"") If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then Response.Write(" ") Response.Write("
") If log_IsTop=True Then Response.Write("") Else Response.Write("这是一篇隐藏日志，只有管理员才能观看，请先登录") End If webLog.MoveNext PageCount=PageCount+1 Response.Write("

") Loop End If webLog.Close Set webLog=Nothing Response.Write(MultiPages)%>
  | Home | Mail

Powered By L-Blog V1.06(SE) Final  ©  2005-08