📄 more.asp
字号:
end if
show_topic=show_emot
show_addtime=rs(5)
if rs(2)>0 then
set rssubject=conn.execute("select subjectname from subject where id="&rs(2))
if not (rssubject.eof and rssubject.bof) then
show_topic=show_topic&"<a href=blog.asp?name="&rs(4)&"&subjectid="&rs(2)&">["&rssubject(0)&"]"
end if
set rssubject=nothing
end if
commenttopic="回复:"&htmlencode(rs(1))
show_topictxt="<a href=more.asp?name="&rs(4)&"&id="&rs(3)&">"&htmlencode(rs(1))&"</a>"
if rs(13)="true" then
show_topictxt=show_topictxt&" <img src=images/jhinfo.gif >"
end if
show_topic=show_topic&show_topictxt
show_loginfo=show_author&" 发表于 "&show_addtime
show_more="<a href=more.asp?name="&rs(4)&"&id="&rs(3)&">阅读全文("&rs(11)&")</a>"
show_more=show_more&" | "&"<a href=more.asp?name="&rs(4)&"&id="&rs(3)&"#comment>回复("&rs(8)&")</a>"
qurl="more.asp?name="&rs(4)&"&id="&rs(3)
show_more=show_more&" | "&"<a href=showtb.asp?id="&rs(3)&" target=_blank>引用("&rs(12)&")</a>"
if DecodeCookie(Request.Cookies(cookiesname)("userlevel"))=8 and vip_prosee="true" then
vipsee=true
else
vipsee=false
end if
if rs(7)="true" and DecodeCookie(Request.Cookies(cookiesname)("UserName"))<>rs(4) and DecodeCookie(Request.Cookies(cookiesname)("userlevel"))<>9 and vipsee=false then
show_logtext="<div align=center>此处隐藏一篇日志。</div>"
isshowcomment=false
elseif rs(10)<>"" and DecodeCookie(Request.Cookies(cookiesname)("UserName"))<>rs(4) and DecodeCookie(Request.Cookies(cookiesname)("userlevel"))<>9 and vipsee=false and showlogpass<>true then
' call sub_showpasswordlog()
' show_logtext="<div align=center>此日志需要密码访问。</div>"
show_logtext="<form name=logpassword method=post action=''>"& vbcrlf
show_logtext=show_logtext&"请输入日志密码：<input name=logpassword type=password id=logpassword size=15 maxlength=20> "
show_logtext=show_logtext&"<input type=submit name=Submit value=提交>"
show_logtext=show_logtext&"</form>"
isshowcomment=false
else
show_logtext=filtimg(filtscript(rs(6)))
end if
conn.execute("update blog set iis=iis+1 where id="&show_logid)
show_logcyc=replace(show_logtmp,"$show_topic$",show_topic)
show_logcyc=replace(show_logcyc,"$show_loginfo$",show_loginfo)
show_logcyc=replace(show_logcyc,"$show_logtext$",show_logtext)
show_logcyc=replace(show_logcyc,"$show_more$",show_more)
show_logcyc=replace(show_logcyc,"$show_emot$",show_emot)
show_logcyc=replace(show_logcyc,"$show_author$",show_author)
show_logcyc=replace(show_logcyc,"$show_addtime$",show_addtime)
show_logcyc=replace(show_logcyc,"$show_topictxt$",show_topictxt)
show_logmore=show_logmore&show_logcyc
if isshowcomment then
if show_comment_asc="true" then
show_comment_asc=" order by id asc"
else
show_comment_asc=" order by id desc"
end if
if issqldate then
set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandType=4
cmd.CommandText="ob_user_showcommentmore"
cmd("@mainid")=show_logid
cmd("@addstr")=show_comment_asc
set rs=cmd.Execute
set cmd=nothing
else
set rs=conn.execute("select comment_user,commenttopic,comment,addtime,id,homepage from comment where mainid="&show_logid&show_comment_asc)
end if
if not rs.eof then
dim isshowpage
isshowpage=true
end if
if page <>1 then rs.move pagesize*(page-1)
for temp=1 to pagesize
if rs.eof then exit for
if isnull(rs(5)) then
homepage="个人主页"
else
if trim(replace(rs(5),"http://",""))="" then
homepage="个人主页"
else
homepage="<a href='"&HTMLEncode(rs(5))&"' target='_blank'>个人主页</a>"
end if
end if
show_topic=htmlencode(rs(1))&"<a name='"&rs(4)&"'></a>"
show_author=htmlencode(rs(0))
show_addtime=rs(3)
show_topictxt=show_topic
show_loginfo=show_author&"发表评论于"&show_addtime
show_logtext=filtimg(filtscript(rs(2)))
show_more=homepage&" | <a href="&qurl&"&commentid="&rs(4)&"#comment>引用</a> | <a href='#top'>返回</a>"
show_logcyc=replace(show_logtmp,"$show_topic$",show_topic)
show_logcyc=replace(show_logcyc,"$show_loginfo$",show_loginfo)
show_logcyc=replace(show_logcyc,"$show_logtext$",show_logtext)
show_logcyc=replace(show_logcyc,"$show_more$",show_more)
show_logcyc=replace(show_logcyc,"$show_emot$","")
show_logcyc=replace(show_logcyc,"$show_author$",show_author)
show_logcyc=replace(show_logcyc,"$show_addtime$",show_addtime)
show_logcyc=replace(show_logcyc,"$show_topictxt$",show_topictxt)
show_logmore=show_logmore&show_logcyc
rs.movenext
next
'===================分页尾部=======================
dim pagelist
dim pot,i
strurl=joinchar(strurl)
if page-1 mod 10=0 then
pot=(page-1) \ 10
else
pot=(page-1) \ 10
end if
if page=1 then
pagelist=" <font face=webdings color='red'>9</font> "
else
pagelist=" <a href='"&strurl&"page=1' title=首页><font face=webdings>9</font></a> "
end if
if pot*10>0 then pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(pot*10)&"' title=上十页><font face=webdings>7</font></a> "
pagelist=pagelist & "<b>"
for i=pot*10+1 to Pot*10+10
if i=cint(Page) then
pagelist=pagelist & " <font color='red'>"+Cstr(i)+"</font> "
else
pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(i)&"'>"+Cstr(i)+"</a> "
end if
if i=pagecount then exit for
next
pagelist=pagelist & "</b>"
if i<pagecount then pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(i)&"' title=下十页><font face=webdings>8</font></a> "
if Page=pagecount then
pagelist=pagelist & "<font face=webdings color='red'>:</font>"
else
pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(pagecount)&"' title=尾页><font face=webdings>:</font></a> "
end if
dim showpage
if isshowpage=false then
showpage=""
else
showpage=showpage&"<div align=right>"&pagelist&"</div>"
end if
dim strguest,struser,strhompage
if enguestcomment="true" then
strguest="(游客无须输入密码)"
else
strguest=""
end if
struser=trim(DecodeCookie(Request.Cookies(cookiesname)("UserName")))
if struser<>"" then
if Application(cachename&"info")(32)="true" then
strhompage=struser&"."&lcase(trim(Application(cachename&"info")(6)))
else
strhompage=left(lcase(trim(request.ServerVariables("HTTP_REFERER"))),instrrev(request.ServerVariables("HTTP_REFERER"),"/"))&"blog.asp?name="&struser
strhompage=replace(strhompage,"http://","")
end if
end if
show_logmore=show_logmore&showpage
show_logmore=show_logmore&"<br><a name='comment'></a><table width='90%' border='0' align='center' cellspacing='0' cellpadding='0'> <tr> <td><strong>发表评论：</strong></tr></td></table>"& vbcrlf
show_logmore=show_logmore&"<table width='90%' border='0' align='center' cellspacing='0' cellpadding='0'> <tr> <td><table align='left' width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbcrlf
show_logmore=show_logmore& "<form action='more.asp?name="&show_username&"&id="&show_logid&"&action=addcomment' method='post' name='commentform' onSubmit='return Verifycomment()'>" & vbcrlf
show_logmore=show_logmore& "<tr><td height='25' align='left'>昵称：<input name='UserName' type='text' id='UserName' size='15' maxlength='20' value='"&DecodeCookie(Request.Cookies(cookiesname)("UserName"))&"'></td></tr>" & vbcrlf
show_logmore=show_logmore& "<tr><td height='25' align='left'>密码：<input name='Password' type='password' id='Password' size='15' maxlength='20' value='"&DecodeCookie(Request.Cookies(cookiesname)("Password"))&"'> "&strguest&"</td></tr>" & vbcrlf
show_logmore=show_logmore&"<tr ><td height='25' align='left' >主页：<input name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://"&strhompage&"'><td></tr>"
show_logmore=show_logmore&"<tr ><td height='25' align='left' >标题：<input name='commenttopic' type='text' id='commenttopic' size='42' maxlength='50' value='"&commenttopic&"'><td></tr>"
show_logmore=show_logmore& "<tr height='200'><td ><INPUT type='hidden' name='edit' id='edit' value=''>"& vbcrlf
show_logmore=show_logmore& aApplicationValue(31) & vbcrlf
show_logmore=show_logmore& "</td></tr>" & vbcrlf
show_logmore=show_logmore& "<tr><td height='30' ><input name='login' type='submit' id='Login' value=' 提交 '> " & vbcrlf
show_logmore=show_logmore& "</td>" & vbcrlf
show_logmore=show_logmore& "</tr></form></table></td></tr></table>" & vbcrlf
end if
else
show_logmore="日志不存在！"
end if
end sub
function debadstr(str)
dim rs,badstr,i
debadstr=str
set rs=conn.execute("select blogFiltrate from filtrate")
badstr=split(rs(0),"|")
for i=0 to ubound(badstr)
debadstr=replace(debadstr,badstr(i),"***")
next
end function
%>
<SCRIPT language="javascript">
function del_space(s)
{
for(i=0;i<s.length;++i)
{
if(s.charAt(i)!=" ")
break;
}
for(j=s.length-1;j>=0;--j)
{
if(s.charAt(j)!=" ")
break;
}
return s.substring(i,++j);
}
function Verifycomment()
{
//submits();
v = del_space(document.commentform.commenttopic.value);
if (v.length == 0)
{
alert("您忘了填写题目!");
return false;
}
v = del_space(document.commentform.UserName.value);
if (v.length == 0)
{
alert("您忘了留下名字!");
return false;
}
submits();
if (document.commentform.edit.value == "")
{
alert("内容不能为空!");
return false;
}
return true;
}
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -