?? more.asp
字號:
else
if rstmp(0)<>"" then show_author=rstmp(0) else show_author=rs(15)
end if
set rstmp=nothing
end if
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="回復:"&rs(1)
show_topictxt="<a href=more.asp?name="&rs(4)&"&id="&rs(3)&">"&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 Request.Cookies("oblog")("userlevel")=8 and vip_prosee="true" then
vipsee=true
else
vipsee=false
end if
if rs(7)="true" and Request.Cookies("oblog")("UserName")<>rs(4) and Request.Cookies("oblog")("userlevel")<>9 and vipsee=false then
show_logtext="<div align=center>此處隱藏一篇日志。</div>"
elseif rs(10)<>"" and Request.Cookies("oblog")("UserName")<>rs(4) and Request.Cookies("oblog")("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>"
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 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=rs(1)&"<a name='"&rs(4)&"'></a>"
show_author=rs(0)
show_addtime=rs(3)
show_topictxt=show_topic
show_loginfo=show_author&"發表評論于"&show_addtime
show_logtext=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
' showpage="頁次："&page&"/"&pagecount&" "
' showpage=showpage&"每頁："&pagesize
' showpage=showpage&" 日志數：<b>"&count&"</b>"
if isshowpage=false then
showpage=""
else
showpage=showpage&"<div align=right>"&pagelist&"</div>"
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='350' 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='12' maxlength='20' value='"&Request.Cookies("oblog")("UserName")&"'></td>" & vbcrlf
show_logmore=show_logmore& "<td height='25' align='left'>密碼：<input name='Password' type='password' id='Password' size='15' maxlength='20' value='"&Request.Cookies("oblog")("Password")&"'></td></tr>" & vbcrlf
show_logmore=show_logmore&"<tr ><td height='25' align='left' colspan='4' >主頁：<input name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://'><td></tr>"
show_logmore=show_logmore&"<tr ><td height='25' align='left' colspan='4' >標題：<input name='commenttopic' type='text' id='commenttopic' size='42' maxlength='50' value='"&commenttopic&"'><td></tr>"
show_logmore=show_logmore& "<tr height='200'><td colspan='4'><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' colspan='4'><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
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 + -