⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 bzyl.asp

📁 单版面小型论坛 单版面小型论坛
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>my bbs</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body bgcolor="#FFFFFF">
<!--#include file="top2.asp"-->
<table width="100%" border="0" cellspacing="2" cellpadding="2" class=buinput>
  <tr>
    <td>
      <div align="center">版 主 一 览 表</div>
    </td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class=buinput>
<tr>
  <td width="75%" valign='top'>
<table width="100%" border="0" cellspacing="1" cellpadding="1" class=rightline>
  <tr> 
    <td colspan="4">
      <hr size="1" noshade>
    </td>
  </tr>
<%
    set reco=server.createobject("adodb.recordset")
    sqlstr="select * from manboard where manbid<>0 order by manbid"
    reco.open sqlstr,conn,1,1
    if reco.eof then
%>
  <tr>
    <td colspan="4" align='center'>暂 未 有 版 主 !</td>
  </tr>
  <tr>
    <td colspan="4"><hr size="1" noshade></td>
  </tr>
<%else
    do while not reco.eof
%>
  <tr> 
    <td width="15%" align="right">网名:</td>
    <td width="25%"><a href="mailto:<%=reco("email")%>" title="给 <%=reco("username")%> 发封妹儿"><%=reco("username")%></a></td>
    <td width="15%" align="right">网页:</td>
    <td><a href="<%=reco("homepage")%>" target="_blank"><%=reco("homepage")%></a></td>
  </tr>
  <tr> 
    <td width="15%" align="right">简介:</td>
    <td colspan="3"><%=reco("jj")%> 管理版面:<font color='red'><b><%=reco("manbid")%></b></font></td>
  </tr>
  <tr> 
    <td colspan="4">
      <hr size="1" noshade>
    </td>
  </tr>
<%
reco.movenext
loop
set reco=nothing
end if
%>
</table>
</td>
<td width="25%" valign='top' align='right'>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
    	<tr>
      	<td align="center">版 面 列 表</td>
	    </tr>
	    <tr>
      	<td align="center" class=trtop>版面号//版面名</td>
	    </tr>
	<%
    	set bidreco=server.createobject("adodb.recordset")
    	sqlstr="select * from board"
    	bidreco.open sqlstr,conn,1,1
    	if bidreco.eof then
        	response.write "<tr><td align='center'>尚 未 有 版 面</td></tr>"
	    else
	    	do while not bidreco.eof
	%>
    		<tr>
      		<td align='center'><b><%=bidreco("bid")%></b>//<%=bidreco("cname")%></td>
	    	</tr>
	<%
			bidreco.movenext
			loop
			set bidreco=nothing
       end if
	%>
	</table>
</td>
<tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
<%set conn=nothing%>

⌨️ 快捷键说明

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