📄 syscode_blog.asp
字号:
<tr>
<td colspan=2 height="52"><div align="right">[时间：<%=datevalue(slog_PostTime)%> | 来源：<a href="<%=slog_FromURL%>" target="_blank"><%=slog_From%></a>]<BR>
[字体：<a href="javascript:ContentSize(16)">大</a> <a href="javascript:ContentSize(14)">中</a> <a href="javascript:ContentSize(12)">小</a>]</div><hr size="1" style="border:1px dotted #CCCCCC;"></TD>
</tr>
<tr>
<td valign="top" colspan=2 id="size"><%=Ubbcode(HTMLEncode(slog_Content),slog_DisSM,slog_DisUBB,slog_DisIMG,slog_AutoURL,slog_AutoKEY)%><BR><BR></TD>
</tr>
<%IF slog_Modify<>Empty Then
Response.Write ("<tr><td colspan=2>" & slog_Modify & "</TD></tr>")
End If%>
<%IF ShowTag(sBlog_ID,"Show")<>empty then
Response.Write ("<tr><td colspan=2>" & ShowTag(sBlog_ID,"Show") & "</TD></tr>")
End if%>
<tr>
<td valign="top" colspan=2><img src="img/blog/icon_trackback.gif" border="0" align="absmiddle"><b><a href="blog_tb.asp?blogID=<%=sBlog_ID%>">引用通告</a>(<%=slog_QuoteNums%>)：</b><%=webURL%>/blog_tb.asp?id=<%=sBlog_ID%></TD>
</tr>
<%Else
Response.Write("<tr><td height=""26"" class=""a1"" colspan=2><strong>隐藏日志……</strong></TD></TR>")
End If%>
<tr>
<td valign="top" colspan=2><hr size="1" noshade color="#CCCCCC"><%call contextual_blog()%></TD>
</tr>
<%If slog_IsShow=True OR (checkmember=true and Hx66_name=slog_Author) OR SupAdmin=true Then%>
<tr>
<td height="26" class="a1" colspan=2>相关评论与引用通告</td>
</tr>
<tr>
<td colspan=2>
<%
Dim CurPage,blogPerPage,Url_Add
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
blogPerPage=30
Url_Add="?blog_id="&sBlog_ID&"&"
If sCat_ID<>Empty Then
Url_Add=Url_Add&"cat_id="&sCat_ID&"&"
End If
Dim rsc
Set rsc=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY FROM b_review WHERE blog_ID="&sBlog_ID&" UNION ALL SELECT 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0 FROM b_Trackback WHERE blog_ID="&sBlog_ID&" ORDER BY comm_PostTime DESC"
rsc.Open SQL,Conn,1,1
If rsc.EOF And rsc.BOF Then
%>
<div style="height:26px"><li>暂时没有评论与引用</li></div>
<%Else
Dim Comm_Nums,MultiPages,PageCount
rsc.PageSize=blogPerPage
rsc.AbsolutePage=CurPage
Comm_Nums=rsc.RecordCount
MultiPages="<div style=""margin-top:10px;"" align=""center"">"&MultiPage(Comm_Nums,blogPerPage,CurPage,Url_Add)&"</div>"
Response.Write(MultiPages)
Do Until rsc.EOF OR PageCount=blogPerPage
Dim blog_CommID,blog_CommAuthor,blog_CommContent
blog_CommID=rsc("comm_ID")
blog_CommAuthor=rsc("comm_Author")
blog_CommContent=rsc("comm_Content")
Response.Write("<div style=""margin-top:10px;""><a name=""commmark_"&blog_CommID&"""></a>")
IF blog_CommID=0 Then
Response.Write("<img src=""img/blog/icon_ctb.gif"" border=""0"" align=""absmiddle""> 引用通告：<a href="""&rsc("comm_DisSM")&""" target=""_blank"">"&rsc("comm_DisUBB")&"</a> 于 "&datevalue(rsc("comm_PostTime"))&" ")
Else
Response.Write("<img src=""img/blog/dot3.gif"" alt=""引用这个评论"" border=""0"" align=""absmiddle"" style=""cursor:hand;"" onclick=""blogquote('quote_"&blog_CommID&"','"&blog_CommAuthor&"','"&rsc("comm_PostTime")&"')"";/>")
Response.Write("<div style=""display:none;"" id=""quote_"&blog_CommID&""">"&cutStr(DelQuote(Replace(HTMLEncode(blog_CommContent),"<br>","")),60)&"</div> 发表评论：<font color=red>"&blog_CommAuthor&"</font> 于 <i>"&rsc("comm_PostTime")&"</i> ")
End IF
If (checkmember=true and Hx66_name=slog_Author) OR SupAdmin=true Then
If blog_CommID=0 Then
Response.Write(" <a href=""blog_tb.asp?action=deltb&blogID="&sBlog_ID&"&tbID="&rsc("comm_DisIMG")&""" title=""删除引用通告"" onClick=""winconfirm('你真的要删除这个引用吗？','blog_tb.asp?action=deltb&blogID="&sBlog_ID&"&tbID="&rsc("comm_DisIMG")&"'); return false""><b><font color='#FF0000'>×</font></b>删除引用</a>")
Else
Response.Write(" <a href=""showblog.asp?action=delcomm&blogID="&sBlog_ID&"&commID="&blog_CommID&""" onClick=""return confirm('确定删除此条评论吗?');"" title=""删除评论""><b><font color=""#FF0000"">×</font></b>删除评论</a> | IP："&rsc("comm_PostIP")&"")
End If
End If
Response.Write("</div>")
If blog_CommID=0 Then
Response.Write("<div style=""BORDER-bottom: #CCCCCC 1px dotted;padding: 5px;""><b>标题：</b>"&blog_CommAuthor&"<br><b>链接：</b><a href="""&rsc("comm_DisSM")&""" target=""_blank"">"&rsc("comm_DisSM")&"</a><br><b>摘要：</b>"&blog_CommContent&"</div>")
Else
Response.Write("<div style=""BORDER-bottom: #CCCCCC 1px dotted;padding: 5px;"">"&UbbCode(HTMLEncode(blog_CommContent),rsc("comm_DisSM"),rsc("comm_DisUBB"),rsc("comm_DisIMG"),rsc("comm_AutoURL"),rsc("comm_AutoKEY"))&"</div>")
End If
PageCount=PageCount+1
rsc.MoveNext
Loop
End If
rsc.Close
Set rsc=Nothing
Response.Write(MultiPages)
IF slog_DisComment=False and slog_IsShow=True Then
%>
<script language="JavaScript" src="inc/ubbcode.js"></script>
<table bgcolor='#ffffff' borderColor='#f0f0f0' Border='1' Cellspacing='0' Cellpadding='3' width='100%' align='Center' style="border-collapse: collapse">
<form name="FrontPage_Form1" method="post" action="?action=addcomm" id="bnews">
<tr>
<td colspan="2" align="center"><a name="#comment"></a><b>发表评论</b></td>
</tr>
<tr>
<td width="20%" align="right"><b>作者：≤12</b></td>
<td width="80%">
<%If UserLogined=True Then
Response.Write("<input name=""comm_memName1"" type=""text"" id=""comm_memName1"" value="""&Hx66_Name&""" size=""12"" class=""input"">")
Response.Write("<input name=""comm_memName2"" type=""hidden"" value="""&Hx66_Name&""">")
Else
Response.Write("<input name=""comm_memName1"" type=""text"" id=""comm_memName1"" size=""12"" class=""input""> ")
Response.Write("<input name=""comm_memName2"" type=""hidden"" value="""">")
End If%>
验证码：
<input name="blog_Code" type="text" id="blog_Code" size="12" class="input">
<img src="inc/lycode.asp" align="absmiddle" border="0"></td>
</tr>
<tr>
<td align="right" valign="top"><b>评论：≤600</b>
<div style="padding-left:5px;" align="left" width="100%">
<input name="comm_DisSM" type="checkbox" id="comm_DisSM" value="1">
禁止表情<br>
<input name="comm_DisUBB" type="checkbox" id="comm_DisUBB" value="1">
禁止UBB<br>
<input name="comm_DisIMG" type="checkbox" id="comm_DisIMG" value="1">
禁止图片<br>
<input name="comm_AutoURL" type="checkbox" id="comm_AutoURL" value="1" checked>
识别链接<br>
<input name="comm_AutoKEY" type="checkbox" id="comm_AutoKEY" value="1">
识别关键字</div></td>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td valign="top"><textarea name="message" style="width:450px" rows="8" wrap="VIRTUAL" id="Content" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();" onKeyUp="javascript: storeCaret(this);" class="input"></textarea></td>
</tr></table></td>
</tr>
<tr>
<td width="100"> 表情图：<img alt='点击弹开所有表情图' onclick='opencat(Emot_open)' style='CURSOR: hand' src='img/info.gif' hspace='0' align='absmiddle'></td><td width="450" id='Emot_open' style='display: none'>
<%Dim emot_Nums,emot_i
emot_Nums=Ubound(Arr_Emot,2)
TempVar=""
For emot_i=0 To emot_Nums
Response.Write(TempVar&"<img style=""cursor:hand;"" onclick=""AddText('"&Arr_Emot(2,emot_i)&"');"" src=""img/blog/emot/"&Arr_Emot(1,emot_i)&""">")
TempVar=" "
Next%></td>
</tr>
<tr align="center">
<td colspan="2"><input name="PostBlogc" type="hidden" value="ok">
<input name="blog_ID" type="hidden" id="blog_ID" value="<%=sBlog_ID%>">
<input name="topicsubmit" type="submit" value="发表评论" onClick="this.disabled=true;document.bnews.submit();" class="input"> <input name="Reset" type="reset" id="Reset" value="重置评论" class="input"> [可按 Ctrl+Enter 发布] </td>
</tr>
</form>
</table>
<%
Else
IF slog_DisComment=False Then
Response.Write("<div style=""height:26px""><li>隐藏日志不允许发表评论</li></div>")
Else
Response.Write("<div style=""height:26px""><li>此日志禁止发表评论</li></div>")
End If
End If
End If%>
</td>
</tr>
</table>
<%
end sub
sub displayList_blog()
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 Hx_Year,Hx_Month,Hx_Day,sCat_ID,SQLFiltrate,Url_Add,blog_Search
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")))
tag=CheckStr(Trim(Request.QueryString("tags")))
blog_Search=""
SQLFiltrate="WHERE"
Url_Add="?"
IF tag<>empty then
SQLFiltrate=SQLFiltrate&" tagsName='"&tag&"' AND"
Url_Add=Url_Add&"tags="&tag&"&"
End IF
IF IsInteger(sCat_ID)=True Then
SQLFiltrate=SQLFiltrate&" blog_CateID="&sCat_ID&" AND"
Url_Add=Url_Add&"cat_id="&sCat_ID&"&"
End IF
IF IsInteger(Hx_Year)=True Then
SQLFiltrate=SQLFiltrate&" blog_PostYear="&Hx_Year&" AND"
Url_Add=Url_Add&"Hx_Year="&Hx_Year&"&"
End IF
IF IsInteger(Hx_Month)=True Then
SQLFiltrate=SQLFiltrate&" blog_PostMonth="&Hx_Month&" AND"
Url_Add=Url_Add&"Hx_Month="&Hx_Month&"&"
End IF
IF IsInteger(Hx_Day)=True Then
SQLFiltrate=SQLFiltrate&" blog_PostDay="&Hx_Day&" AND"
Url_Add=Url_Add&"Hx_Day="&Hx_Day&"&"
End IF
if Request("Search_keyword")<>empty then
Dim blog_SearchContent,is_select,Search_class
blog_SearchContent=CheckStr(Request.Form("Search_keyword"))
is_select=CheckStr(Request.Form("is_select"))
IF blog_SearchContent=Empty Then blog_SearchContent=CheckStr(Request.Querystring("Search_keyword"))
IF is_select=Empty Then is_select=CheckStr(Request.Querystring("is_select"))
select case is_select
case "1"
SQLFiltrate=SQLFiltrate&" blog_Title LIKE '%"&blog_SearchContent&"%' AND"
Url_Add=Url_Add&"is_select=1&Search_keyword="&Server.URLEncode(blog_SearchContent)&"&"
blog_Search="找到标题关键字为 <font color=red>"&blog_SearchContent&"</font> 的"
Search_class="<font color=green>标题</font>"
case "2"
SQLFiltrate=SQLFiltrate&" blog_Content LIKE '%"&blog_SearchContent&"%' AND"
Url_Add=Url_Add&"is_select=2&Search_keyword="&Server.URLEncode(blog_SearchContent)&"&"
blog_Search="找到内容关键字为 <font color=red>"&blog_SearchContent&"</font> 的"
Search_class="<font color=green>内容</font>"
case else
Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
Response.End
end select
end if
set rs=server.createobject("adodb.recordset")
IF tag<>empty then
SQL="SELECT H.*,C.cate_Name,A.* FROM b_Content AS H,b_Cat AS C,b_tag AS A "&SQLFiltrate&" C.cate_ID=H.blog_CateID AND H.blog_ID=A.BlogID ORDER BY blog_IsTop ASC,blog_ID DESC"
else
SQL="SELECT H.*,C.cate_Name FROM b_Content AS H,b_cat AS C "&SQLFiltrate&" C.cate_ID=H.blog_CateID ORDER BY blog_IsTop ASC,blog_ID DESC"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -