WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

Index_bm.asp：源码内容

							
<div align="center">
	<table cellpadding="0" cellspacing="0" width="980" height="97">
		<tr>
			<td height="33" background="../Ku_img/link_001.jpg">
			<table cellpadding="0" cellspacing="0" width="975">
				<tr>
					<td height="20" width="29">　</td>
					<td height="20" width="103"><div id="dazi">
						<p align="left"><font color="#0066FF"><b>便民服务</b></font></div></td>
						<%
	set rssm=server.CreateObject("adodb.recordset")
sqlsm="select * from bianmin_sm "
rssm.open sqlsm,conn,1,1%>
					<td height="20" width="843" align=right>
					<font color="#0066FF"><%=rssm("shuoming")%> </font> </td>
				</tr>
			</table>
			</td>
		</tr>
		<tr>
			<td height="60" background="Ku_img/link_002.jpg">
			
			<div align=center>
			<table border="0" width="98%"  cellpadding="" cellspacing="2" >
<%
	set rsbm=server.CreateObject("adodb.recordset")
sqlbm="select top 50 * from bianmin order by ID desc"
rsbm.open sqlbm,conn,1,1
if rsbm.eof then
%>
<tr style="border: 1px solid #D0D4D9"><td>没有电话</td></tr>
<% else 
  dim f
  f=1
%>
<tr align="center" >
<% do while not rsbm.eof%>
<td width="11%" style="border: 1px solid #D0D4D9" height="30"><table cellpadding="0" cellspacing="0" width="180"><tr><td height="24" width="70" align="right"><%=rsbm("leibie")%>: </td><td height="24" width="110"> <%if rsbm("tel")<>"" then%><b><font color="<%=rsbm("yanse")%>"><%=rsbm("tel")%></font></b><%else%><font color="#666666">招商中</font><%end if%></td></tr></table></td>
<% if f mod 5 =0 then%> 
</tr><tr align="center">
<% end if%><% f=f+1
   rsbm.movenext
   loop
end if
rsbm.close
set rsbm=nothing
%>
	</tr>
</table>
</div>
			</td>
		</tr>
		<tr>
			<td height="4">
			<img border="0" src="Ku_img/link_003.jpg" width="980" height="4"></td>
		</tr>
	</table>
</div>

						