📄 b_luntan.asp

📁 Asp源码交易频道可对商品的添加、修改、删除
💻 ASP
字号:
<!--#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
%>
<body background="img/1.jpg">
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
  <tr> 
    <td bordercolor="#F6F6F6" bgcolor="#FBFBFB" background="img/2XP.jpg" height="14"><img src="img/2XP.jpg" width="17" height="14"> 
    </td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td bordercolor="#F6F6F6" bgcolor="EFEFEF"><img src="tupian/weizhi.gif" width="9" height="9"> 
      <a href="index.asp">论坛首页</a> → <%=server.HTMLEncode(bankuai("mingzi"))%></td>
  </tr>
</table>

<table width="777" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td><table width="90" border="0" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
          <td bordercolor="#EBEBEB" bgcolor="#FFCC00"> 
            <div align="center"><a href="b_fatie.asp?bankuai=<%=xuhao%>">发 表 帖 
              子</a></div>
          </td>
</tr></table></td>
  </tr>
</table>
<table width="777" border="0" cellspacing="3" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td>
      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <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="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <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="100%" border="0" 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_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>
    </td>
  </tr>
</table>
<table width="777" border="0" cellspacing="3" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td> 
      <%else%>
      <br>
      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#EBEBEB">
        <tr>
          <td bordercolor="#D6D6D6"><a href="index.asp">论坛首页</a> → 错误提示</td>
        </tr></table>
      <table width="100%" border="0" align="center" cellpadding="20" cellspacing="0" bordercolor="#FFFFFF">
        <tr> 
<td bordercolor="#D6D6D6" bgcolor="#EBEBEB"> <div align="center">没有此论坛板块</div></td></tr></table>
</td>
  </tr>
</table>
<%end if%>
<!--#include file="d_wei.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -