b_luntan.asp

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

<!--#include file="d_tou.asp" -->
<%
	xuhao=clng(request("bankuai"))
		if xuhao="" then
			xuhao=0
		end if
	set bankuai=lj.execute("select mingzi from bankuai where xuhao="& xuhao &"")
	if not bankuai.eof then
%>
<table width="778" border="0" align="center" cellpadding="0" 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>  → <%=server.HTMLEncode(bankuai("mingzi"))%></td>
  </tr>
</table>
<table width="90" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#EBEBEB" bgcolor="#F0F0F0" border="0" > <div align="center" border="0"><a href="b_fatie.asp?bankuai=<%=xuhao%>" border="0"><img src="Tupian/but_AddArticle_01.gif" border="0"></a></div></td>
</tr></table><table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td width="30">心情</td>
<td>
<div align="center">标题</div></td><td width="40"><div align="center">浏览</div></td>
<td width="30"> <div align="center">回复</div></td>
<td width="100"> <div align="center">作者</div></td></tr></table>
<%
	sql="select xuhao,biaoti,xinqing,mingzi,liulan from tiezi where bankuai="& xuhao &" and tiezi='tiezi' order by shijian desc"
	set tiezi=server.CreateObject("adodb.recordset")
	tiezi.open sql,lj,1,2
			if tiezi.bof and tiezi.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 meiyetiezi from luntan")
				tiezi.pagesize=luntan("meiyetiezi")
				tiezi.absolutepage=ye
				zong=tiezi.pagecount
				tou=luntan("meiyetiezi")
				do while not tiezi.eof and tou>0
				tou=tou-1
%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#F0F0F0" bgcolor="#F5F5F5"><td width="30"><div align="center"><img src="xinqing/<%=tiezi("xinqing")%>.gif"></div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><a href="b_kantie.asp?tiezi=<%=tiezi("xuhao")%>"><%=server.HTMLEncode(tiezi("biaoti"))%></a></td>
<td width="40" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <div align="center">
<%
	response.Write(tiezi("liulan"))
%>
</div></td><td width="30" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <div align="center"> 
<%
		shuyu=tiezi("xuhao")
		set huifu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& shuyu &"'")
		response.Write(huifu("huifu"))
%>
</div></td><td width="100" bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <div align="center">
<a href="b_kanren.asp?mingzi=<%=tiezi("mingzi")%>" target="_blank">
<%=server.HTMLEncode(tiezi("mingzi"))%></a></div></td></tr></table>
<%
				tiezi.movenext
				loop
			end if
%>
<table width="778" border="0" align="center" cellpadding="0" 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_luntan.asp?ye=1&bankuai="& xuhao &">头页</a>　")
			response.Write("<a href=b_luntan.asp?ye="&(ye-1)&"&bankuai="& xuhao &">上页</a>　")
		end if
		if ye<>zong then
			response.Write("<a href=b_luntan.asp?ye="&(ye+1)&"&bankuai="& xuhao &">下页</a>　")
			response.Write("<a href=b_luntan.asp?ye="&zong&"&bankuai="& xuhao &">尾页</a>　")
		end if
		if ye=zong then
			response.Write("下页　尾页　")
		end if
			response.Write("　总页数　"&zong&"")
			response.Write("　当前页　"&ye&"")
%>
</div></td></tr></table>
<%else%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#EBEBEB">
<tr><td bordercolor="#D6D6D6"><a href="b_bankuai.asp">论坛版块</a> → 错误提示</td></tr></table>
<table width="778" border="0" 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" -->