map_city.asp

来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 71 行

ASP
71 行
字号 
<%st=timer()%>
<%Session.CodePage=936%>
<% Response.Buffer = True %>
<!--#include file="config.asp" -->
<!--#include file="conn.asp" -->
<%
set rspov=server.CreateObject("adodb.recordset")
set rscity=server.CreateObject("adodb.recordset")
set rsinfo=server.CreateObject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language='javascript' src='inc/pop.js'></SCRIPT>
<title>城市列表 -- <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<base target="_parent">
</head>
<body leftmargin="0" topmargin="2" ondragstart="window.event.returnvalue=false" oncontextmenu="return false" onselectstart="return false" ondragstart="return false" ondragstart="return false">
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">

<table border="0" cellpadding="3" width="738" cellspacing="3" bgcolor="#FFFFFF" style="border-collapse: collapse">
  <%
  rspov.open "select * from 省份 where 审核=1 order by 排名 asc",conn,1,1
  Do while not rspov.bof and not rspov.eof
    response.write "<tr height=33><td align='center' width='100' bgcolor='#B3DEE8' style='letter-spacing: 5; font-size: 10pt; font-weight: bold'>" &rspov("省份") & "</td>"
    
    rscity.open "select * from 城市 where 审核=1 and 省份='"& rspov("省份") &"' order by 排名 asc",conn,1,1
    response.write "<td align='left' bgcolor='#F5F5F5' style='letter-spacing: 1; font-size: 10pt;'>"
    
    Do while not rscity.bof and not rscity.eof
      response.write "<a alt='前往"&rscity("城市")&"' href='info.asp?ct="& rscity("城市") &"'>"&rscity("城市")&"</a>"
      
      rsinfo.open "select * from 资讯 where 审核=1 and 城市='"& rscity("城市") &"'",conn,1,1
      response.write "<font color=red>" &rsinfo.recordcount&"</font>"
      rsinfo.close      
      response.write "&nbsp;"
      rscity.movenext
    loop
    response.write "</td></tr>"
    rscity.close
    rspov.movenext
  loop
  rspov.close
  %>           
</table>
<script type="text/javascript"><!--
google_ad_client = "pub-2105805198420581";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "image";
google_ad_channel ="6158325403";
google_color_border = ["336699","FF4500","578A24"];
google_color_bg = ["FFFFFF","FFEBCD","CCFF99"];
google_color_link = ["0000FF","DE7008","00008B"];
google_color_url = ["008000","E0AD12","00008B"];
google_color_text = ["000000","8B4513","000000"];
//--></script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
</div>
</body></html>
<%
set rspov=nothing
set rscity=nothing
set rsinfo=nothing
et=timer()
response.write("<div align=center>查询城市列表总用时 "&int((et-st)*1000000)/1000&" 毫秒</div>")
%>

map_city.asp - 源码说明

本页面展示了「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」中的 map_city.asp 源码文件，采用 ASP 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与CityCN相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?