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

开发平台：

HTML/CSS

Pinke_hot.asp：源码内容

							<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table cellpadding="0" cellspacing="0" width="232" height="242">
		<tr>
			<td height="32" background="Ku_img/down_001.jpg">
			<div align="center">
			<table cellpadding="0" cellspacing="0" width="232">
				<tr>
					<td height="10" width="110">
					<p align="center"><div id="dazi">
							<p align="center"><font color="#0066FF">
							<b>拼客热门信息</b></font></div></td>
					<td height="10">&nbsp;</td>
					<td height="10" width="60"></td>
				</tr>
			</table>
			</div>
			</td>
		</tr>
		<tr>
			<td height="204" background="Ku_img/down_002.jpg" valign="top">
			<table width="100%" border="0" cellspacing="0" cellpadding="2">
<%
    set rsArt=server.createobject("adodb.recordset")
    sqlArt="select top 9 * from Gu_pinke ORDER BY hits DESC"
    rsArt.open sqlArt,conn,1,1
    
    if RsArt.eof or RsArt.bof then
    response.write"<div align='center'>还没有信息<div>"
    end if 
    do while not rsArt.eof
    titles = rsArt("title")
    
%>
<tr> 
<td width="261" height = "24"> · <a href="Gu_showpinke.asp?guxing=<%=rsArt("id")%>" title="标题：<%=titles%>&#13&#10时间：<%=rsArt("addtime")%>&#13&#10点击：<%=rsArt("llcs")%>次" target=_blank>
<% 
    if Getlen(titles)>28 then
    response.write LeftStr(titles,26)
    response.write "..."
    else
    response.write ""&titles&""
    end if
   
%></a> 
</td>
</tr>
<% 
    rsArt.movenext  
    loop
    RsArt.Close
    Set RsArt=Nothing
%>
</table>
			</td>
		</tr>
		<tr>
			<td height="6">
			<img border="0" src="Ku_img/down_003.jpg" width="232" height="6"></td>
		</tr>
	</table>
</div>

						