b_kantie.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

<!--#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">&nbsp;</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" -->