📄 syscode_blog.asp
字号:
<%
Dim Hx_Year,Hx_Month,Hx_Day,sBlog_ID,sCat_ID
Hx_Year=CheckStr(Trim(Request.QueryString("Hx_Year")))
Hx_Month=CheckStr(Trim(Request.QueryString("Hx_Month")))
Hx_Day=CheckStr(Trim(Request.QueryString("Hx_Day")))
sCat_ID=CheckStr(Trim(Request.QueryString("cat_id")))
sBlog_ID=CheckStr(Trim(Request.QueryString("blog_id")))
if sBlog_ID<>Empty then
if not isInteger(sBlog_ID) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>非法的ID参数！</li>"
else
sBlog_ID=CLng(sBlog_ID)
end if
else
sBlog_ID=0
end if
if sBlog_ID>0 then
dim slog_Title,slog_Content,slog_Author,slog_PostTime,slog_DisSM,slog_DisUBB,slog_DisIMG,slog_AutoURL,slog_AutoKEY,slog_From,slog_FromURL,slog_Modify,slog_IsShow,slog_QuoteNums,slog_DisComment,slog_Weather,mainTitle
sql="select * from b_Content where blog_ID="&sBlog_ID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你要找的日志不存在，或者已经被管理员删除！</li>"
else
slog_Title=rs("blog_Title")
slog_Content=rs("blog_Content")
slog_Author=rs("blog_Author")
slog_PostTime=rs("blog_PostTime")
slog_DisSM=rs("blog_DisSM")
slog_DisUBB=rs("blog_DisUBB")
slog_DisIMG=rs("blog_DisIMG")
slog_AutoURL=rs("blog_AutoURL")
slog_AutoKEY=rs("blog_AutoKEY")
slog_From=rs("blog_From")
slog_FromURL=rs("blog_FromURL")
slog_Modify=rs("blog_Modify")
slog_IsShow=rs("blog_IsShow")
slog_QuoteNums=rs("blog_QuoteNums")
slog_DisComment=rs("blog_DisComment")
slog_Weather=Split(rs("blog_Weather"),"|")
rs("blog_ViewNums")=rs("blog_ViewNums")+1
IF slog_IsShow=False Then
start="BLOG日志 - 一篇隐藏日志"
mainTitle="一篇隐藏日志"
else
start="BLOG日志 - "&slog_Title&""
mainTitle=slog_Title
end if
rs.UPDATE
rs.Close
Set rs=Nothing
end if
end if
if FoundErr=True then
Call HxErrMsg()
response.end
end if
sub main_blog()
Response.Write " 您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='blog.asp'>BLOG日志</a>"
if sCat_ID<>empty then
sCat_ID=clng(sCat_ID)
Response.Write " >> <a href='blog.asp?cat_id="&sCat_ID&"'>"&conn.execute("select cate_Name from b_cat where cate_ID="&sCat_ID&"")(0)&"</a>"
end if
if sBlog_ID>0 then Response.Write " >> "&mainTitle&""
if Request.QueryString("tags")<>empty then Response.Write " >> TAG标签"
end sub
sub contextual_blog()
Dim blog_Prev,blog_Next
Dim cateQuery,Url_Add,Previmg,Nextimg
cateQuery=""
Url_Add="?"
Previmg="<div><img src=""img/blog/Prev.gif"" border=""0""><font color='#CC3300'><strong>上篇日志：</strong></font>"
Nextimg="<div style=""margin-top:5px;""><img src=""img/blog/Next.gif"" border=""0""><font color='#339900'><strong>下篇日志：</strong></font>"
If sCat_ID<>Empty Then
cateQuery=" AND blog_cateID="&sCat_ID
Url_Add=Url_Add&"cat_id="&sCat_ID&"&"
End If
Set blog_Prev=Conn.Execute("SELECT TOP 1 blog_ID,blog_Title,blog_IsShow,blog_Author FROM b_Content WHERE blog_ID<"&sBlog_ID&""&cateQuery&" ORDER BY blog_ID DESC")
IF blog_Prev.eof and blog_Prev.bof Then
Response.Write "" & Previmg & "已经没有了</DIV> " & vbCrLf
else
If blog_Prev(2)=True OR (blog_Prev(2)=False And (SupAdmin=true OR (checkmember=true And Hx66_name=blog_Prev(3)))) Then
Response.Write "" & Previmg & "<a href="""&Url_Add&"blog_id="&blog_Prev(0)&""">"&blog_Prev(1)&"</a></DIV>" & vbCrLf
else
Response.Write "" & Previmg & "<a href="""&Url_Add&"blog_id="&blog_Prev(0)&""">隐藏日志……</a></DIV>" & vbCrLf
end if
end if
Set blog_Prev=Nothing
Set blog_Next=Conn.Execute("SELECT TOP 1 blog_ID,blog_Title,blog_IsShow,blog_Author FROM b_Content WHERE blog_ID>"&sBlog_ID&""&cateQuery&" ORDER BY blog_ID ASC")
IF blog_Next.eof and blog_Next.bof Then
Response.Write "" & Nextimg & "已经没有了</DIV>" & vbCrLf
else
If blog_Next(2)=True OR (blog_Next(2)=False And (SupAdmin=true OR (checkmember=true And Hx66_name=blog_Next(3)))) Then
Response.Write "" & Nextimg & "<a href="""&Url_Add&"blog_id="&blog_Next(0)&""">"&blog_Next(1)&"</a></DIV>" & vbCrLf
else
Response.Write "" & Nextimg & "<a href="""&Url_Add&"blog_id="&blog_Next(0)&""">隐藏日志……</a></DIV>" & vbCrLf
end if
end if
Set blog_Next=Nothing
end sub
Sub BlogList(num,fontnum,ls)
Response.Write("<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>")
Dim rslist,i
if ls=0 then
Set rslist=Conn.Execute("SELECT TOP "&num&" T.blog_ID,T.blog_Title,T.blog_Author,blog_PostTime,blog_IsShow FROM b_Content T,b_cat C WHERE T.blog_cateID=C.cate_ID ORDER BY T.blog_PostTime DESC")
elseif ls=1 then
Set rslist=Conn.Execute("SELECT TOP "&num&" T.blog_ID,T.blog_Title,T.blog_Author,blog_PostTime,blog_IsShow FROM b_Content T,b_cat C WHERE T.blog_cateID=C.cate_ID and blog_isbest=True ORDER BY T.blog_PostTime DESC")
elseif ls=2 then
Set rslist=Conn.Execute("SELECT TOP "&num&" T.blog_ID,T.blog_Title,T.blog_Author,blog_PostTime,blog_IsShow FROM b_Content T,b_cat C WHERE T.blog_cateID=C.cate_ID ORDER BY T.blog_ViewNums DESC, T.blog_PostTime DESC")
end if
i=1
IF rslist.EOF AND rslist.BOF Then
Response.Write("暂无")
Else
Do While NOT rslist.EOF
Response.Write("<TR><TD height='20'>")
IF rslist("blog_IsShow")=False Then
Response.Write(" <img src=""img/blog/top"&i&".gif"" border=""0""> <a href='showblog.asp?blog_id="&rslist("blog_ID")&"' title='隐藏日志，不显示预览'>隐藏日志……</a>")
Else
Response.Write(" <img src=""img/blog/top"&i&".gif"" border=""0""> <a href='showblog.asp?blog_id="&rslist("blog_ID")&"' title='日志标题："&HTMLEncode(rslist("blog_Title"))&" 发表日期："&rslist("blog_PostTime")&" 日志作者："&HTMLEncode(rslist("blog_Author"))&"'>"&HTMLEncode(cutStr(rslist("blog_Title"),fontnum))&"</a>")
End IF
Response.Write("</TD></TR>") & vbCrLf
i=i+1
rslist.MoveNext
Loop
End IF
rslist.Close
Set rslist=Nothing
Response.Write("</TABLE>")
End Sub
'Web: www.ynsky.com.cn
'=================================================
Sub NewCommList(num,fontnum)
Response.Write("<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>")
Dim Arr_LastComm
Dim rscomm
Set rscomm=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT TOP "&num&" C.comm_ID,C.comm_Content,C.comm_Author,C.comm_PostTime,C.blog_ID,H.blog_ID,H.blog_IsShow FROM b_review AS C,b_Content AS H WHERE H.blog_ID=C.blog_ID ORDER BY comm_PostTime DESC"
rscomm.Open SQL,Conn,1,1
If rscomm.EOF AND rscomm.BOF Then
Redim Arr_LastComm(7,0)
Else
Arr_LastComm=rscomm.GetRows
End If
rscomm.Close
Set rscomm=Nothing
Dim CommNums,i
CommNums=Ubound(Arr_LastComm,2)
For i=0 To CommNums
Response.Write("<TR><TD height='20'> <img src=""img/blog/dot3.gif"" border=""0"">")
IF Arr_LastComm(6,i)=Empty Then
Response.Write(" 隐藏日志的评论")
Else
IF DelQuote(Arr_LastComm(1,i))<>Empty Then
Dim CommContent
CommContent=DelQuote(HTMLEncode(Arr_LastComm(1,i)))
Response.Write(" <a href=""showblog.asp?blog_id="&Arr_LastComm(4,i)&"#commmark_"&Arr_LastComm(0,i)&""" title="""&Arr_LastComm(2,i)&" 于 "&Arr_LastComm(3,i)&" 发表评论： "&Replace(Left(CommContent,100),"<br>"," ")&""">"&SplitLines(cutStr(Replace(CommContent,"<br>",""),fontnum),0)&"</a>")
Else
Response.Write(" <a href=""showblog.asp?blog_id="&Arr_LastComm(4,i)&"#commmark_"&Arr_LastComm(0,i)&""">没有评论内容，只是引用</a>")
End IF
End IF
Response.Write("</TD></TR>")
Next
Response.Write("</TABLE>")
End Sub
'Web: www.ynsky.com.cn
'=================================================
sub class_blog()
Response.Write("<div style=""display:block;padding:5px 1px;"">")
Response.Write("<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>")
Dim ClassNum,i
ClassNum=Ubound(Arr_Cat,2)
For i=0 To ClassNum
IF Arr_Cat(1,i)=Empty Then
Response.Write("尚无分类，请先添加")
Else
Response.Write("<TR><TD height='20'>")
IF ucase(Trim(CheckStr(Trim(Request.QueryString("cat_id")))))=ucase(Trim(Arr_Cat(0,i))) Then
Response.Write(" <img src=""img/blog/dot.gif"" border=""0""> <font color=""#ff0000"">"&Arr_Cat(1,i)&"["&conn.execute("select count(blog_id) from b_content where blog_CateID="&Arr_Cat(0,i)&"")(0)&"]</font><img src='img/blog/rss.png' border='0' style='margin:3px 4px -2px 2px;'><BR>")
Else
Response.Write(" <img src=""img/blog/dot0.gif"" border=""0""> <a href=""blog.asp?cat_id="&Arr_Cat(0,i)&""" title=""分类名称："&Arr_Cat(1,i)&""">"&Arr_Cat(1,i)&"</a>["&conn.execute("select count(blog_id) from b_content where blog_CateID="&Arr_Cat(0,i)&"")(0)&"]<img src='img/blog/rss.png' border='0' style='margin:3px 4px -2px 2px;'><BR>")
End IF
Response.Write("</TD></TR>")
End IF
Next
Set ClassNum=Nothing
Response.Write("</TABLE>")
Response.Write("</div>")
end sub
'Web: www.ynsky.com.cn
'=================================================
sub search_blog()
Response.Write "<form name='form2' method='post' action='blog.asp'><div align=center><input type='radio' name='is_select' value='1' checked class='inuptCG'>标题 <input type='radio' name='is_select' value='2' class='inuptCG'>内容<br><input type='text' name='Search_keyword' size='15' value='搜索关键字' maxlength='20' onfocus=""this.value=''""class='input'> <input type='submit' name='search' value='搜索' onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'""></form></div><div align=center><img src='img/blog/rss2.png' border='0' style='margin:3px 4px -2px 2px;'><BR><BR></div>" & vbCrLf
end sub
sub content_blog()
if Request.querystring("blog_id")=Empty then
Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
Response.End
end if
%>
<table border="0" width="99%" align="center" cellpadding="0" cellspacing="0" class="b1" style="border-collapse: collapse;word-break:break-all;table-layout:fixed;text-align:left;display:block;padding:3px 12px;">
<%If slog_IsShow=True OR (checkmember=true and Hx66_name=slog_Author) OR SupAdmin=true Then%>
<tr>
<td height="26" class="a1" width="80%"><img src="img/blog/<%=slog_Weather(0)%>.gif" alt="<%=slog_Weather(1)%>" align="absmiddle"> <strong><%=slog_Title%></strong><%If slog_IsShow = False Then%>（隐）<%End If%></td><td height="26" class="a1" align="right"><%If checkmember=true and Hx66_name=slog_Author Then
Response.Write(" <a href=""blog_edit.asp?blogID="&sBlog_ID&"""><img src=""img/blog/icon_edit.gif"" border=""0"" align=""absmiddle"" alt=""编辑日志"">编辑日志</a>")
End If%></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -