?? b_kantie.asp
字號:
<!--#include file="d_tou.asp" -->
<!--#include file="d_ubb.asp" -->
<script language=javascript>
function rejian(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.fa.submit();}}
</script>
<%
tiezi=clng(Request("tiezi"))
if tiezi="" then
tiezi=0
end if
set zhutie=lj.execute("select * from tiezi where xuhao="& tiezi &"")
if not zhutie.eof then
lj.execute("update tiezi set liulan=liulan+1 where xuhao="& tiezi &"")
xuhao=zhutie("bankuai")
set bankuai=lj.execute("select mingzi from bankuai where xuhao="& xuhao &"")
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#F6F6F6" bgcolor="#FBFBFB"><img src="tupian/weizhi.gif" width="9" height="9"> <a href="b_bankuai.asp">論壇版塊</a> →
<a href="b_luntan.asp?bankuai=<%=xuhao%>"><%=server.HTMLEncode(bankuai("mingzi"))%></a> → 當前帖子</td>
</tr>
</table>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td>題目：<%=server.HTMLEncode(zhutie("biaoti"))%> 回復：<%
set huifushu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& tiezi &"'")
response.Write(huifushu("huifu"))
%>
瀏覽：<%
response.Write(zhutie("liulan"))
%>
</td><td width="100" rowspan="2"> <div align="center">
<%
if zhutie("mingzi")=mingzi then
Response.Write("<a href=b_xiugai.asp?dongzuo=shanchu&tiezi="&zhutie("xuhao")&">刪除</a> <a href=b_xiugai.asp?dongzuo=xiugai&tiezi="&zhutie("xuhao")&">修改</a>")
elseif mingzi<>zhutie("mingzi") and session("mima")<>"" then
Response.Write("<a href=c_gl.asp?tiezi="&zhutie("xuhao") &">刪除</a>")
elseif mingzi="" then
Response.Write("^_^!")
elseif mingzi<>"" then
Response.Write("<a href=b_shantie.asp?tiezi="&zhutie("xuhao")&">刪除</a> <a href=b_dingtie.asp?tiezi="&zhutie("xuhao")&">頂帖</a>")
end if
%>
</div></td></tr><tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"> 心情：<img src="xinqing/<%=zhutie("xinqing")%>.gif" align="absmiddle">
作者：<a href="b_kanren.asp?mingzi=<%=zhutie("mingzi")%>" target="_blank"><%=server.HTMLEncode(zhutie("mingzi"))%></a>
時間 <%=zhutie("shijian")%> 序號：<%=zhutie("xuhao")%></td>
</tr></table>
<table width="778"" height="100" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" style="TABLE-LAYOUT:fixed;WORD-WRAP:break-word">
<tr><td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><%=UBBCode(zhutie("neirong"))%></td>
</tr></table>
<%
sql="select * from tiezi where tiezi='"& tiezi &"' order by shijian"
set liulanpaixu=lj.execute("select liulanpaixu from luntan")
if liulanpaixu("liulanpaixu")=0 then
sql=sql+" desc"
end if
set huifu=server.CreateObject("adodb.recordset")
huifu.open sql,lj,1,2
if huifu.bof and huifu.eof then
Response.Write("<table align=center><tr><td>沒有回復帖子</td></tr></table>")
else
if request("ye")="" then
ye=1
else
ye=cint(request("ye"))
end if
set luntan=lj.execute("select meiyehuifu from luntan")
huifu.pagesize=luntan("meiyehuifu")
huifu.absolutepage=ye
zong=huifu.pagecount
tou=luntan("meiyehuifu")
do while not huifu.eof and tou>0
tou=tou-1
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td> 心情：<img src="xinqing/<%=huifu("xinqing")%>.gif" align="absmiddle">
作者：<a href="b_kanren.asp?mingzi=<%=huifu("mingzi")%>" target="_blank"><%=server.HTMLEncode(huifu("mingzi"))%></a> 時間 <%=huifu("shijian")%> 序號：<%=huifu("xuhao")%></td>
<td width="100"> <div align="center">
<%
if huifu("mingzi")=mingzi then
Response.Write("<a href=b_hxiugai.asp?dongzuo=shanchu&tiezi="&huifu("xuhao")&">刪除</a> <a href=b_hxiugai.asp?dongzuo=xiugai&tiezi="&huifu("xuhao")&">修改</a>")
elseif mingzi<>huifu("mingzi") and session("mima")<>"" then
q111="boai"
Response.Write("<a href=c_gl.asp?tiezi="&huifu("xuhao") &">刪除</a>")
else
Response.Write("^_^!")
end if
%>
</div></td></tr></table>
<table width="778"" height="100" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" style="TABLE-LAYOUT:fixed;WORD-WRAP:break-word">
<tr><td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><%=UBBCode(huifu("neirong"))%></td>
</tr></table>
<%
huifu.movenext
loop
end if
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#EBEBEB" bgcolor="#EFEFEF"> <div align="center">
<%
if ye=1 then
response.Write("頭頁 上頁 ")
end if
if ye<>1 then
response.Write("<a href=b_kantie.asp?ye=1&tiezi="& tiezi &">頭頁</a> ")
response.Write("<a href=b_kantie.asp?ye="&(ye-1)&"&tiezi="& tiezi &">上頁</a> ")
end if
if ye<>zong then
response.Write("<a href=b_kantie.asp?ye="&(ye+1)&"&tiezi="& tiezi &">下頁</a> ")
response.Write("<a href=b_kantie.asp?ye="&zong&"&tiezi="& tiezi &">尾頁</a> ")
end if
if ye=zong then
response.Write("頭頁 尾頁 ")
end if
response.Write(" 總頁數 "&zong&"")
response.Write(" 當前頁 "&ye&"")
%>
</div></td></tr></table>
<table width="778"" border="0" align="center" cellpadding="0" cellspacing="0">
<form method="post" action="c_huifu.asp?xuhao=<%=tiezi%>" name="fa"><tr><td>
<table width="100%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr><td width="20%" bordercolor="#F0F0F0" bgcolor="#F5F5F5">
<div align="center">心情</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><input type="radio" name="xinqing" value="1">
<img src="xinqing/1.gif" width="19" height="19"> <input type="radio" name="xinqing" value="2">
<img src="xinqing/2.gif" width="19" height="19"> <input type="radio" name="xinqing" value="3">
<img src="xinqing/3.gif" width="19" height="19"> <input type="radio" name="xinqing" value="4">
<img src="xinqing/4.gif" width="19" height="19"> <input type="radio" name="xinqing" value="5">
<img src="xinqing/5.gif" width="19" height="19"> <input type="radio" name="xinqing" value="6">
<img src="xinqing/6.gif" width="19" height="19"> <input type="radio" name="xinqing" value="7">
<img src="xinqing/7.gif" width="19" height="19"> <input name="xinqing" type="radio" value="8" checked>
<img src="xinqing/8.gif" width="19" height="19"> </td></tr><tr>
<td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">插入</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA">
<input name="button" type="button" onClick="neirong.value=neirong.value+'[url][/url]'" value="鏈接">
<input name="Input" type="button" onClick="neirong.value=neirong.value+'[mail][/mail]'" value="郵件">
<input name="Input" type="button" onClick="neirong.value=neirong.value+'[img][/img]'" value="圖片"> </td>
</tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">上傳</div></td>
<td bordercolor="#F5F5F5" bgcolor="#F9F9F9"><iframe border=0 frameborder=0 framespacing=0 height=25
marginheight=0 marginwidth=0 name=iframe noResize scrolling=no src="b_boaisc.asp" width="100%"></iframe>
</td></tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">內容</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA">
<textarea name="neirong" cols="70" rows="10" wrap="VIRTUAL" id="neirong" onKeyDown="rejian()"></textarea></td>
</tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"> </td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><input type="submit" value="發表">
<%
set youke=lj.execute("select youkefatie from luntan")
if youke("youkefatie")<>0 and mingzi="" then
response.Write("請注意：本論壇設置游客不能發帖子。")
end if
fanhui=request("fanhui")
if fanhui="" then
response.Write("回復帖子")
elseif fanhui="kong" then
response.Write("您剛才的表單沒填完，請填好以后再提交。")
elseif fanhui="duo" then
response.Write("帖子內容不能超過65535個文字。")
end if
%>
</td></tr></table></td></tr></table>
<%
else
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#EBEBEB">
<tr><td bordercolor="#D6D6D6"><a href="b_bankuai.asp">論壇版塊</a> → 錯誤提示</td></tr></table>
<table width="778"" border="1" align="center" cellpadding="20" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#D6D6D6" bgcolor="#EBEBEB"><div align="center">找不到這個帖子</div></td></tr></table>
<%
end if
%>
<!--#include file="d_wei.asp" -->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -