📄 blogview.asp
字号:
%>
<%
If log_IsShow=True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then
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 blog_Comment
Set blog_Comment=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,comm_ReComment FROM blog_Comment where blog_ID="&logID&" ORDER BY comm_PostTime DESC"
blog_Comment.Open SQL,znwl,1,1
SQLQueryNums=SQLQueryNums+1
If blog_Comment.EOF And blog_Comment.BOF Then
Response.Write("<div class=""content_head"">暂时没有评论</div>")
Else
Dim Comm_Nums,MultiPages,PageCount
blog_Comment.PageSize=blogPerPage
blog_Comment.AbsolutePage=CurPage
Comm_Nums=blog_Comment.RecordCount
MultiPages="<span class=""smalltxt"">"&MultiPage(Comm_Nums,blogPerPage,CurPage,Url_Add)&"</span>"
Response.Write(MultiPages)
Response.Write("<table width=""100%"" height=""5"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")
Do Until blog_Comment.EOF OR PageCount=blogPerPage
Dim blog_CommID,blog_CommAuthor,blog_CommContent,blog_Commre,blog_ReComment
blog_CommID=blog_Comment("comm_ID")
blog_CommAuthor=blog_Comment("comm_Author")
blog_CommContent=blog_Comment("comm_Content")
blog_ReComment=blog_Comment("comm_ReComment")
Response.Write("<div class=""content_head""><a name=""commmark_"&blog_CommID&"""></a>")
IF blog_CommID=0 Then
Response.Write("<img src=""images/icon_ctb.gif"" border=""0"" align=""absmiddle""/>")
Else
Response.Write("<img src=""images/icon_quote.gif"" alt=""引用这个评论"" border=""0"" align=""absmiddle"" style=""cursor:hand;"" onclick=""blogquote('quote_"&blog_CommID&"','"&blog_CommAuthor&"','"&DateToStr(blog_Comment("comm_PostTime"),"Y-m-d H:I A")&"')"";/>")
Response.Write(" <span class=""smalltxt""><strong><a href=""member.asp?action=view&memName="&Server.URLEncode(blog_CommAuthor)&""">"&blog_CommAuthor&"</a> 于 "&DateToStr(blog_Comment("comm_PostTime"),"Y-m-d H:I A")&" 发表评论：</strong></span>")
End IF
If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then
If blog_CommID=0 Then
Response.Write(" <a href=""trackback.asp?action=deltb&logID="&logID&"&tbID="&blog_Comment("comm_DisIMG")&""" title=""删除引用通告"" onClick=""winconfirm('你真的要删除这个引用吗？','trackback.asp?action=deltb&logID="&logID&"&tbID="&blog_Comment("comm_DisIMG")&"'); return false""><b><font color='#FF0000'>×</font></b></a>")
Else
Response.Write(" <a href=""blogcomm.asp?action=delecomm&logID="&logID&"&commID="&blog_CommID&""" title=""删除评论"" onClick=""winconfirm('你真的要删除这个评论吗？','blogcomm.asp?action=delecomm&logID="&logID&"&commID="&blog_CommID&"'); return false""><b><font color=""#FF0000"">×</font></b></a> | <a href=""ipview.asp?ipdata="&blog_Comment("comm_PostIP")&""" title=""点击查看IP地址："&blog_Comment("comm_PostIP")&" 的来源"" target=""_blank"">IP</a>")
End If
End If
If (memStatus="Admin" AND memName=log_Author) OR memStatus="SupAdmin" Then
Response.Write(" </div><div class=""content_main""><div style=""display:none;"" id=""quote_"&blog_CommID&""">"&cutStr(DelQuote(Replace(HTMLEncode(blog_CommContent),"<br>","")),60)&"</div>"&UbbCode(HTMLEncode(blog_CommContent),blog_Comment("comm_DisSM"),blog_Comment("comm_DisUBB"),blog_Comment("comm_DisIMG"),blog_Comment("comm_AutoURL"),blog_Comment("comm_AutoKEY"))&"</div><img name=""HideImage"" src="""" width=""2"" height=""9"" alt="""" style=""background-color: #FFFFFF"" border=""0""/><br>")
If blog_ReComment=False Then
Response.Write("<a href=""blogcomm.asp?action=shcomm&logID="&logID&"&commID="&blog_CommID&"""><font color='#FF0000'>通过</font></a>")
end if
Else
If blog_ReComment=False Then
Response.Write(" </div><div class=""content_main"">评论正在审核中...</div><img name=""HideImage"" src="""" width=""2"" height=""9"" alt="""" style=""background-color: #FFFFFF"" border=""0""/><br>")
elseIf blog_CommID=0 Then
Response.Write(" </div><div class=""content_main""><b>标题：</b>"&blog_CommAuthor&"<br><b>链接：</b><a href="""&blog_Comment("comm_DisSM")&""" target=""_blank"">"&blog_Comment("comm_DisSM")&"</a><br><b>摘要：</b>"&blog_CommContent&"</div><img name=""HideImage"" src="""" width=""2"" height=""9"" alt="""" style=""background-color: #FFFFFF"" border=""0""/><br>")
Else
Response.Write(" </div><div class=""content_main""><div style=""display:none;"" id=""quote_"&blog_CommID&""">"&cutStr(DelQuote(Replace(HTMLEncode(blog_CommContent),"<br>","")),60)&"</div>"&UbbCode(HTMLEncode(blog_CommContent),blog_Comment("comm_DisSM"),blog_Comment("comm_DisUBB"),blog_Comment("comm_DisIMG"),blog_Comment("comm_AutoURL"),blog_Comment("comm_AutoKEY"))&"</div><img name=""HideImage"" src="""" width=""2"" height=""9"" alt="""" style=""background-color: #FFFFFF"" border=""0""/><br>")
End If
End If
PageCount=PageCount+1
blog_Comment.MoveNext
Loop
End If
blog_Comment.Close
Set blog_Comment=Nothing
Response.Write(MultiPages)
Response.Write("<table width=""100%"" height=""5"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td></td></tr></table>")
If log_DisComment=False Or (log_DisComment=True And (memStatus="SupAdmin" Or (memStatus="Admin" And memName=log_Author))) Then%>
<script language="JavaScript" src="include/ubbcode.js"></script><table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" bgcolor="#EFEFEF"><a name="#comment"></a><b>发表评论 - 不要忘了输入验证码哦！</b></td>
</tr><form name="input" method="post" action="blogcomm.asp?action=postcomm">
<tr>
<td width="102" align="right" bgcolor="#FFFFFF" nowrap><b>作者：</b></td>
<td width="100%" bgcolor="#FFFFFF">用户：
<%If memName<>Empty Then
Response.Write("<input name=""comm_memName"" type=""text"" id=""comm_memName"" value="""&memName&""" size=""12"" readonly />")
Else
Response.Write("<input name=""comm_memName"" type=""text"" id=""comm_memName"" size=""10"" /> 密码： <input name=""comm_memPassword"" type=""password"" id=""comm_memPassword"" size=""10"" /> <input name=""comm_SaveMem"" type=""checkbox"" id=""comm_SaveMem"" value=""1"" /> 注册？")
End IF%> 验证：<input name="validatecode" type="text" id="validatecode" size="3" /> <img src="include/validatecode.asp" align="absmiddle" border="0" /></td>
</tr>
<tr>
<td align="right" valign="top" bgcolor="#FFFFFF"><b>评论：
</b><div style="padding-left:5px;" align="left" width="100%">
<br>
<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" nowrap><textarea name="message" cols="62" rows="8" wrap="VIRTUAL" id="Message" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyUp="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();"></textarea></td>
<td width="200" align="left" valign="top"><div><b>表 情</b></div><div class="siderbar_main"><%Dim log_SmiliesListNums,log_SmiliesListNumI
log_SmiliesListNums=Ubound(Arr_Smilies,2)
TempVar=""
For log_SmiliesListNumI=0 To log_SmiliesListNums
Response.Write(TempVar&"<img style=""cursor:hand;"" onclick=""AddText('"&Arr_Smilies(2,log_SmiliesListNumI)&"');"" src=""images/smilies/"&Arr_Smilies(1,log_SmiliesListNumI)&""" />")
TempVar=" "
Next
%></div></td>
</tr>
</table><iframe border="0" frameBorder="0" frameSpacing="0" height="21" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="attachment.asp"></iframe></td>
</tr>
<tr align="center">
<td colspan="2" nowrap bgcolor="#FFFFFF"><input name="blog_ID" type="hidden" id="blog_ID" value="<%=logID%>" /><input type="submit" name="replysubmit" value=" 发表评论 [可按 Ctrl+Enter 发布] " onClick="this.disabled=true;document.input.submit();" />
<input name="Reset" type="reset" id="Reset" value=" 重置评论 " /></td>
</tr></form>
</table>
<%End If
End If
End If%>
</td>
</tr>
</table>
<!--#include file="footer.asp" -->
<script>
function fontZoom(size)
{
document.getElementById('fontzoom').style.fontSize=size+'px'
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -