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

开发平台：

HTML/CSS

ppkind.asp：源码内容

							<%
    set rspkind=server.createobject("adodb.recordset")
    sqlpkind="select  * from Gu_pkind order by id desc"
    rspkind.open sqlpkind,conn,1,1
    
    if Rspkind.eof or Rspkind.bof then
    response.write"<div align='center'>还没有拼客分类<div>"
    end if 
    do while not rspkind.eof
    pname = rspkind("name")
    
%>
<%
    set rscount=server.createobject("adodb.recordset")	
    sqlCount="select Count(ID) from Gu_pinke where pkind="&rspkind("id")    
    rsCount.open sqlCount,conn,1,1
%>
<div align="center">
	<table cellpadding="0" cellspacing="0" width="220" height="32">
	<tr>
		<td height="16" width="30">
		<p align="center">
		<img border="0" src="Ku_img/ppkind.jpg" width="6" height="14"></td>
		<td height="16" width="190" colspan="2"><b>
		<a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>"><%=rspkind("name")%></a></b> (<a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>"><%=rscount(0)%></a>)</td>
	</tr>
	<tr>
		<td height="16" width="30"></td>
		<td height="16" width="85">
		<p align="left"><a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>&id=1">
		<font color="#6699FF">求 拼</font></a></td>
		<td height="16" width="105">
		<p align="left"><a href="Gu_pinke.asp?guxing=<%=rspkind("id")%>&id=2">
		<font color="#6699FF">提 供</font></a></td>
	</tr>
</table>
</div>
<% 
    rspkind.movenext  
    loop
    Rspkind.Close
    Set Rspkind=Nothing
%>

						