showlog.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

scode=scode&"&nbsp;&nbsp<font class='eng'>["&ASPLOG("l_year")&"-"&ASPLOG("l_month")&"-"&ASPLOG("l_day")&"]</font> &nbsp;</td></tr>"
scode=scode&"<tr><td colspan=2 bgcolor="&color2&"><br></td></tr>"
scode=scode&"<tr><td style='font-size:10px'>By [<a href='usermdb.asp?un="&ASPLOG("log_author")&"' class='cn'>"&ASPLOG("log_author")&"</a>] at "& TimeValue(ASPLOG("written_time"))&" | Comments ["&ASPLOG("lr_count")&"] | "&ASPLOG("lv_count")+1&" views</td><td></td></tr></table>"

else

'插入上下文翻页
   getlnlog()
   scode=lncode
   scode=scode&"<div id='content'><div id='contentTitle'>"
   win_head=ASPLOG("log_tittle")

   scode=scode&"<img src='images/TitleIco.gif' alt='' align='bottom' /> <strong>"&ASPLOG("log_tittle")&"</strong>&nbsp;&nbsp["&ASPLOG("l_year")&"-"&ASPLOG("l_month")&"-"&ASPLOG("l_day")&"]</div>"
   scode=scode&"<div id='weather' align='right'><IMG src='images/hn2_t_"&ASPLOG("log_weather")&".gif'  align='middle' alt=''/> <img src='images/hn2_"&ASPLOG("log_weather")&".gif' align='middle' />&nbsp;<img src='images/face"&ASPLOG("face")&".gif' alt='心情指数#"&ASPLOG("face")&"'  align='middle'></div>"
   scode=scode&"<div id='contentText'> "
realcontent=ASPLOG("log_content")
   if ASPLOG("log_type")=1 then
	realcontent=realcontent
   else
	realcontent=unhtml(realcontent)
		if ASPLOG("allows")=0 then realcontent=Smilies(realcontent)
		if ASPLOG("allowubb")=0 then realcontent=ubb(realcontent)
   end if
   scode=scode&realcontent&"<div align='right' id='textForm'><br />[ from <a target='_blank' href='"&ASPLOG("author_url")&"' title=本文来自——&#13"&ASPLOG("author")&">"&ASPLOG("author")&"</a> ]</div>"	'Poorfish增加日志“来自于”
   scode=scode&"</div>"

   ''读出引用数
   sql = "select count(*) from trackback where blogArId="&ASPLOG("log_ID")
   set rs = conn.Execute(sql)
   dim tbCount
   tbCount = rs(0)
   ''end 读出引用数

   scode=scode&"<div id='contentI'>By [<a href='usermdb.asp?un="&ASPLOG("log_author")&"' target='_blank'>"&ASPLOG("log_author")&"</a>] at "& TimeValue(ASPLOG("written_time"))&" | Comments ["&ASPLOG("lr_count")&"] | <a href='showTB.asp?log_id="&ASPLOG("log_id")&"' target=_blank>TrackBack</a>["&tbCount&"] | "&ASPLOG("lv_count")+1&" views "

   if username=ASPLOG("log_author") or isad=-1 then
if ASPLOG("log_type")=1 Then
	scode=scode&"&nbsp;&nbsp;<a href='edit_log.asp?log_id="&ASPLOG("log_id")&"'><img src='images/icon_edit.gif' border='0' alt='编辑或删除此日志' align='absmiddle'></a>"
	Else	
   scode=scode&"&nbsp;&nbsp;<a href='edit_log_ubb.asp?log_id="&ASPLOG("log_id")&"'><img src='images/icon_edit.gif' border='0' alt='编辑或删除此日志' align='absmiddle'></a>"
End If
   end if
   scode=scode&"</div></div>"

'评论开始------------------------------------------------------------------------------------------------------------------------
   scode=scode&"<div id='showCommends'><div id='showCommendsTitle'>≡≡≡ 网友评论 ≡≡≡</div>"


SQL="UPDATE log SET lv_count = lv_count+1 WHERE log_ID = " & log_id
conn.Execute(sql)

sql="SELECT * FROM log_r WHERE log_id="&log_id&" ORDER by log_r_id"
set ASPLOG=conn.EXECUTE(sql)
if ASPLOG.eof or ASPLOG.bof then

   scode=scode&"<div id='commendsAuthor'>此篇日志暂时没有相关的说明和评论。：）</div>"

else
do until ASPLOG.Eof

  log_r_id=CStr(ASPLOG("log_r_id"))
  scode=scode&"<a name='mark_"&ASPLOG("log_r_id")&"' />"	'加入锚点
  if log_r_id = e_log_r_id then
  scode=scode&"<div>"
  scode=scode&"<form name='EditRemark' method='POST' action='remark.asp'>"
  scode=scode&"<input type='hidden' name='log_r_author' value='"&ASPLOG("log_r_author")&"' />"
  scode=scode&"<input type='hidden' name='log_r_id' value='"&log_r_id&"' />"
  scode=scode&"<input type='hidden' name='log_id' value='"&log_id&"' />"
  scode=scode&"<input type='hidden' name='cat_id' value='"&cat_id&"' />"
  scode=scode&"<input type='hidden' name='remark_action' value='edit_remark' />"
  scode=scode&"<div id='commendsAuthor'><img src='"&ASPLOG("log_r_face")&"' border='0' alt='个性头像' align='middle' /> <a href='usermdb.asp?un="&ASPLOG("log_r_author")&"'>"&ASPLOG("log_r_author")&"</a> 说：</div>"
  scode=scode&"<div id='EditCommends1'><textarea name='log_r_content' rows='6'>"&ASPLOG("log_r_content")&"</textarea></div>"
  scode=scode&"<div id='EditCommends2'><input type='checkbox' name='allows' value='1'> 禁止笑脸转换 <input type='checkbox' name='allowubb' value='1'> 禁止UBB <input type='checkbox' name='del_log_r' value='true'> 删除　　缩放输入框: <SPAN title='放大输入框' style='FONT-SIZE: 12px; CURSOR: hand' class='arrow' onclick=document.EditRemark.log_r_content.rows+=4>6</SPAN> <SPAN title='缩小输入框' style='FONT-SIZE: 12px; CURSOR: hand' class='arrow' onclick='if(document.EditRemark.log_r_content.rows>=4)document.EditRemark.log_r_content.rows-=4;else return false'>5</SPAN> </div><div><input type='submit' name='Edit_Remark' value='完成编辑'></div>"
  'scode=scode&"<tr><td colspan=2><iframe border='0' frameBorder='0' frameSpacing='0' height='25' marginHeight='0' marginWidth='0' noResize scrolling='no' width='100%' vspale='0' src='upload2.asp' allowTransparency='true'></iframe></td></tr>"
  scode=scode&"<div align='right'>By [<a href='usermdb.asp?un="&ASPLOG("log_r_author")&"'>"&ASPLOG("log_r_author")&"</a>] on "&ASPLOG("r_written_time")&"&nbsp;</div></form></div>"

  else
  scode=scode&"<div id='commendsAuthor'>"
  scode=scode&"<img src='"&ASPLOG("log_r_face")&"' border='0' alt='个性头像' align='bottom' />&nbsp;&nbsp;<a href='usermdb.asp?un="&ASPLOG("log_r_author")&"'>"&ASPLOG("log_r_author")&"</a> 在 "&ASPLOG("r_written_time")&" 说：</div><div id='commendsText'>"
realremark=ASPLOG("log_r_content")
realremark=unhtml(realremark)
if ASPLOG("allows")<>1 then realremark=Smilies(realremark)
if ASPLOG("allowubb")<>1 then realremark=ubb(realremark)
  
  if username=ASPLOG("log_r_author") or isad=-1 then
     scode=scode&"<div align='right'><a href='showlog.asp?cat_id="&cat_id&"&log_id="&log_id&"&log_r_id="&ASPLOG("log_r_id")&"#mark_"&ASPLOG("log_r_id")&"'><img src='images/icon_edit.gif' border='0' alt='编辑此评论' align='right'></a></div>"	'链接跳转到当前评论的锚点
  end if
scode=scode&realremark&"</div>"

  end if
ASPLOG.movenext
loop
end if
  scode=scode&"</div>"
'插入上下文翻页
'   getlnlog()
'   scode=scode&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>"&lncode&"</td></tr></table>" 


'if Ulogin="true" then
   scode=scode&"<div id='AddCommends'>"
   scode=scode&"<form name='NewRemark' method='POST' action='remark.asp'><div id='AddCommendsTitle'>"
   scode=scode&"<input type='hidden' name='log_id' value='"&log_id&"'>"
   scode=scode&"<input type='hidden' name='cat_id' value='"&cat_id&"'>"
   scode=scode&"<input type='hidden' name='remark_action' value='add_remark'>≡≡≡ 发表评论 ≡≡≡</div>"
   scode=scode&"<div id='commendsAuthor'>"
if Ulogin="true" then
   scode=scode&"昵称: <input type='text' size='8' name='log_r_author' value='"&username&"' readonly>&nbsp;&nbsp;&nbsp;头像: <select name=log_r_face onChange=document.images['face'].src=options[selectedIndex].value; class=bk><option value='face/face1.gif' selected>头像1</option>  <option value='face/face2.gif'>头像2</option>  <option value='face/face3.gif'>头像3</option>  <option value='face/face4.gif'>头像4</option>  <option value='face/face5.gif'>头像5</option>  <option value='face/face6.gif'>头像6</option>  <option value='face/face7.gif'>头像7</option>  <option value='face/face8.gif'>头像8</option>  <option value='face/face9.gif'>头像9</option>  <option value='face/face10.gif'>头像10</option>  <option value='face/face11.gif'>头像11</option>  <option value='face/face12.gif'>头像12</option>  <option value='face/face13.gif'>头像13</option>  <option value='face/face14.gif'>头像14</option>  <option value='face/face15.gif'>头像15</option>  <option value='face/face16.gif'>头像16</option>  <option value='face/face17.gif'>头像17</option>  <option value='face/face18.gif'>头像18</option>  <option value='face/face19.gif'>头像19</option>  <option value='face/face20.gif'>头像20</option>  <option value='face/face21.gif'>头像21</option>  <option value='face/face22.gif'>头像22</option>  <option value='face/face23.gif'>头像23</option>  <option value='face/face24.gif'>头像24</option>  <option value='face/face25.gif'>头像25</option>  <option value='face/face26.gif'>头像26</option>  <option value='face/face27.gif'>头像27</option>  <option value='face/face28.gif'>头像28</option>  <option value='face/face29.gif'>头像29</option>  <option value='face/face30.gif'>头像30</option>  <option value='face/face31.gif'>头像31</option>  <option value='face/face32.gif'>头像32</option>  <option value='face/face33.gif'>头像33</option>  <option value='face/face34.gif'>头像34</option>  <option value='face/face35.gif'>头像35</option>  <option value='face/face36.gif'>头像36</option>  <option value='face/face37.gif'>头像37</option>  <option value='face/face38.gif'>头像38</option>  <option value='face/face39.gif'>头像39</option>  <option value='face/face40.gif'>头像40</option></select>　　预览：<img src=face/face1.gif alt='头像' width='20' height='20' id=face align='middle'></div>"
else
   scode=scode&"呢称: <input type='text' name='log_r_author'> <font color='red'>*</font>&nbsp;&nbsp;&nbsp;头像：<select name=log_r_face onChange=document.images['face'].src=options[selectedIndex].value;><option value='face/face1.gif' selected>头像1</option>  <option value='face/face2.gif'>头像2</option>  <option value='face/face3.gif'>头像3</option>  <option value='face/face4.gif'>头像4</option>  <option value='face/face5.gif'>头像5</option>  <option value='face/face6.gif'>头像6</option>  <option value='face/face7.gif'>头像7</option>  <option value='face/face8.gif'>头像8</option>  <option value='face/face9.gif'>头像9</option>  <option value='face/face10.gif'>头像10</option>  <option value='face/face11.gif'>头像11</option>  <option value='face/face12.gif'>头像12</option>  <option value='face/face13.gif'>头像13</option>  <option value='face/face14.gif'>头像14</option>  <option value='face/face15.gif'>头像15</option>  <option value='face/face16.gif'>头像16</option>  <option value='face/face17.gif'>头像17</option>  <option value='face/face18.gif'>头像18</option>  <option value='face/face19.gif'>头像19</option>  <option value='face/face20.gif'>头像20</option>  <option value='face/face21.gif'>头像21</option>  <option value='face/face22.gif'>头像22</option>  <option value='face/face23.gif'>头像23</option>  <option value='face/face24.gif'>头像24</option>  <option value='face/face25.gif'>头像25</option>  <option value='face/face26.gif'>头像26</option>  <option value='face/face27.gif'>头像27</option>  <option value='face/face28.gif'>头像28</option>  <option value='face/face29.gif'>头像29</option>  <option value='face/face30.gif'>头像30</option>  <option value='face/face31.gif'>头像31</option>  <option value='face/face32.gif'>头像32</option>  <option value='face/face33.gif'>头像33</option>  <option value='face/face34.gif'>头像34</option>  <option value='face/face35.gif'>头像35</option>  <option value='face/face36.gif'>头像36</option>  <option value='face/face37.gif'>头像37</option>  <option value='face/face38.gif'>头像38</option>  <option value='face/face39.gif'>头像39</option>  <option value='face/face40.gif'>头像40</option></select>　　预览：<img src=face/face1.gif alt='头像' width='20' height='20' id=face><div id='passw'>密码: <input type='password' name='password'> <input type='checkbox' name='adduser' value='true'> 同时注册</div></div>"
end if

   scode=scode&"<div id='EditCommends1'><textarea name='log_r_content' rows='6'>"&covhtml(log_r_content)&"</textarea></div>"
   scode=scode&"<div id='addCommends2'><div><SPAN title='放大输入框' style='; CURSOR: hand'  onclick=document.NewRemark.log_r_content.rows+=4>放大输入框</SPAN> <SPAN title='缩小输入框' style=' CURSOR: hand'  onclick='if(document.NewRemark.log_r_content.rows>=4)document.NewRemark.log_r_content.rows-=4;else return false'>缩小输入框</SPAN></div>表情: <a href='###' title=加入心情图标 onClick=inputs(':)')><img src='smile/01.gif' width='15' height='15' border='0'></a>        <a href='###' title=加入心情图标 onClick=inputs(':(')><img src='smile/02.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':o')><img src='smile/03.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':D')><img src='smile/04.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(';)')><img src='smile/05.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':a')><img src='smile/06.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':b')><img src='smile/07.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':c')><img src='smile/08.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':d')><img src='smile/09.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':e')><img src='smile/10.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':f')><img src='smile/11.gif' width='15' height='15' border='0'></a>         <a href='###' title=加入心情图标 onClick=inputs(':g')><img src='smile/12.gif' width='15' height='15' border='0'></a>"
   scode=scode&"&nbsp;&nbsp;&nbsp;<input type='checkbox' name='allows' value='1'>  禁止笑脸转换 <input type='checkbox' name='allowubb' value='1'> 禁止UBB&nbsp;&nbsp;&nbsp;<input type='submit' name='New_Remark' value='发表评论'>"
   'scode=scode&"<tr><td colspan=2><iframe border='0' frameBorder='0' frameSpacing='0' height='25' marginHeight='0' marginWidth='0' noResize scrolling='no' width='100%' vspale='0' src='upload1.asp' allowTransparency='true'></iframe></td></tr>"
   scode=scode&"</div></form>"

'end if
end if

ASPLOG.close
set ASPLOG=nothing
end sub


'===================================================内容结束
getlogcode
mb_code=replace(mb_code,"$main_content$",scode)


response.write mb_code


%>
<script>

</script>
<%

conn.close
set conn=nothing
%>

<!--#include file="bottom.asp"-->