📄 index.asp

📁 asp开发 asp开发 asp开发 asp开发

💻 ASP

字号:

<!--#INCLUDE FILE="odbc_connection.asp"-->
<html> <head>
	<link href="general.css" rel="stylesheet" type="text/css">
</head>

<body>

	<table width="708" border="1" bordercolorlight="#80BF00" bordercolordark="#80BF00" cellspacing="0" cellpadding="0" bgcolor="#80BF00" align="center">
		<tr> 
			<td width="100%" valign="top" align="center"> 
				<table border="1" cellpadding="2" bgcolor="#E1F3F4" cellspacing="0" style="border-collapse: collapse" bordercolor="#80BFFF" width="700" id="AutoNumber1" >
					<tr bgcolor="#C5EDE7" height="23" align="center">    
						<td width="20%">&nbsp;</td>  
						<td width="60%">论坛栏目</td>
						<td width="20%">文章数</td>
					</tr>  
					<%
					'打开记录集，显示所有论坛栏目
					dim rs,strSql
					strSql="select * from forum"
					set rs=db.Execute(strSql)
					Dim no                         '该变量用来显示图片
					no=0
					do while Not rs.Eof
						no=no+1
						%>                   
						<tr bgcolor="#E1F3F4" height="60" valign="middle">   
							<td align="center">  
								<a href="bbslist.asp?forum_id=<%=rs("ID")%>"><img src="images/<%=no%>.gif" border="0" width=100 height=80></a>
							</td>  
							<td align="left">  
								<a href="bbslist.asp?forum_id=<%=rs("ID")%>"><%=rs("forumname")%>&gt;&gt;</a>  
							</td>  
							<td align="center">  
								<%=rs("forumcount") %>
							</td>
						</tr>  
						<%                
						rS.MoveNext                
					Loop
					'关闭对象
					db.Close
					Set db=Nothing
					%>   
				</table>  
			</td>  
		</tr>  
	</table>  

	<table width="708" border="1" bordercolorlight="#80BFFF" bordercolordark="#80BFFF" cellspacing="0" cellpadding="0" bgcolor="#80BFFF" align="center">
		<tr>
			<td width="100%"><font class=s2 color="#FFFFFF">&nbsp</font></td>   
		</tr>   
	</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -