dbt.asp 超文本多用户论坛程序 1.1 - ASP源码程序

www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/dbt.asp

    
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>Banner图片预览</title>
</head>
<%
connstr1="../imgs/dbt/dbt.mdb"
set conn1=server.createobject("adodb.connection")
conn1.connectionstring="Provider = Microsoft.jet.OLEDB.4.0 ; Data Source = "& Server.Mappath ( ""& connstr1 &"" )
conn1.open
set rs=server.createobject("adodb.recordset")
sql="select*from dbts order by id"
rs.open sql,conn1,1,1
%>
<body topmargin=0>
<table cellpadding="0" cellspacing="0" width="98%" align=center height="98">
	<tr>
		<td height="98">
		<%for i=1 to rs.recordcount%>
		<img border="0" src="../imgs/dbt/<%=rs("tpurl")%>" width="269" height="46" style="border: 1px solid #000000"><span style="font-size: 12px">编号:<font color="#FF0000"><%=rs("id")%></font></span>
		<%if i mod 3=0 then%><p>
		<%
		end if
		RS.MoveNext
        next
		%></td>
	</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn1.close
set conn1=nothing
%>