开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Gu_city.asp
资源名称：pinke2010.rar　[点击查看]
上传用户：pengwei803
上传日期：2021-02-10
资源大小：3311k
文件大小：3k
源码类别：

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

开发平台：

HTML/CSS

Gu_city.asp：源码内容
  1. <!--#include file="ku_top.asp"-->
  2. <% id=request.querystring("guxing")%>
  3. <%
  4. function title()
  5. title="城市联盟"
  6. end function
  7. %>
  9. <div align="center">
  10. <table cellpadding="0" cellspacing="0" width="100">
  11. <tr>
  12. <td height="5"></td>
  13. </tr>
  14. </table>
  15. </div>
  16. <div align="center">
  17. <table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
  18. <tr>
  19. <td height="454" width="740" valign="top">
  22. <div align="center">
  25. <table cellpadding="0" cellspacing="0" width="740" height="452">
  26. <tr>
  27. <td height="36" background="Ku_img/News/news_001.JPG">&nbsp;&nbsp;&nbsp;
  28. <font size="3"><b>城市联盟</b></font> </td>
  29. </tr>
  30. <tr>
  31. <td height="396" background="Ku_img/News/news_002.JPG" valign="top">
  32. <!---->
  33. <%
  34.     set rsArt=server.createobject("adodb.recordset")
  35.     sqlArt="select * from Gu_shi ORDER BY id ASC"
  36.     rsArt.open sqlArt,conn,1,1
  37.     
  38.     if RsArt.eof or RsArt.bof then
  39.     response.write"<div align='center'>还没有信息<div>"
  40.     end if 
  41.     do while not rsArt.eof
  42.     shi = rsArt("class1")
  43.     sid = rsArt("id")
  44.     
  46. %>
  47. <div align="center">
  48. <table cellpadding="0" cellspacing="1" width="730" bgcolor="#F5F5F5" height="70">
  50. <tr>
  51. <td height="31" bgcolor="#FFFFFF">&nbsp;<a href="index.asp?city=<%=sid%>">
  52. <b><%=shi%></b></a></td>
  53. </tr>
  54. <tr>
  55. <td height="36" bgcolor="#FFFFFF">
  56. <div align=center>
  57. <table border="0" width="98%"  cellpadding="1" cellspacing="3" >
  59. <%
  60. set rskind=server.CreateObject("adodb.recordset")
  61. sqlkind="select top 18 * from Gu_qu where class1="&sid&" order by ID asc"
  62. rskind.open sqlkind,conn,1,1
  63. if rskind.eof then
  64. %>
  65. <tr style="border: 1px solid #D0D4D9"><td>区县城市</td></tr>
  66. <% else 
  68.   dim k
  69.   k=1
  70. %>
  71. <tr align="center" >
  72. <% do while not rskind.eof%>
  73. <td width="11%" style="border: 1px solid #D0D4D9" height="30"><a target="_blank" href="index.asp?city=<%=sid%>&q=<%=rskind("id")%>" ><%=rskind("class2")%></a> 
  74. </td>
  75. <% if k mod 9 =0 then%> 
  76. </tr><tr align="center">
  77. <% end if%><% k=k+1
  78.    rskind.movenext
  79.    loop
  80. end if
  81. rskind.close
  82. set rskind=nothing
  83. %>
  85. </tr>
  86. </table>
  87. </div>
  89. </td>
  90. </tr>
  91. </table>
  92. </div>
  93. <div align="center">
  94. <table cellpadding="0" cellspacing="0" width="100">
  95. <tr>
  96. <td height="5"></td>
  97. </tr>
  98. </table>
  99. </div>
  100. <% 
  101.     rsArt.movenext  
  102.     loop
  103.     RsArt.Close
  104.     Set RsArt=Nothing
  105. %>
  106. <!---->
  107. </td>
  108. </tr>
  109. <tr>
  110. <td height="16" background="Ku_img/News/news_002.JPG" align=center></td>
  111. </tr>
  112. <tr>
  113. <td height="4">
  114. <img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
  115. </tr>
  116. </table>
  119. </div>
  122. </td>
  123. <td height="454" width="8">　</td>
  124. <td height="454" width="232" valign="top">
  125. <!--#include file="Ku_type/Index_login.asp"-->
  126. <div align="center">
  127. <table cellpadding="0" cellspacing="0" width="100">
  128. <tr>
  129. <td height="5"></td>
  130. </tr>
  131. </table>
  132. </div>
  133. <!--#include file="Ku_type/Index_ppkind.asp"-->
  135. </td>
  136. </tr>
  137. </table>
  138. </div>
  139. <!--#include file="Ku_foot.asp"-->