city_left.asp

来自「asp的新闻网站」· ASP 代码 · 共 104 行

ASP
104
字号
<%Response.Buffer=true%>
<!--
Programmer:jin kai 
Update:2000.8.14
CopyRight:东宇电子商务
-->


<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>城市列表</title>
<script language="javascript" src="check.js"></script>
<link rel=stylesheet href="style.css" type=text/css>
 <!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<%
'修改:潘树文
'时间:2001年2月9日
%>
</head>

<%
Dim city,direction,power,status,temperature
Dim rs
Dim sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql = "Select * From weather_city Order by cityName"
rs.open sql,conn,1,2

%>  

<body bgcolor="#C0C0C0">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <p align="center"><font color="#008080">请选择城市:</font></td>
  </tr>
  <tr>
    <td width="100%"><P>
    </td>
  </tr>
</table>

<table border="1" width="100%" cellspacing="0" cellpadding="0">
<% 
 Dim bg
 bg = "bgcolor=#00CACA"
 While Not rs.Eof
  If bg = "bgcolor=#00CACA" Then 
     bg = "bgcolor=#00F7F7"
  Else
     bg = "bgcolor=#00CACA"
  End If   

 %>
  <tr>
    <td width="100%" <%=bg%> >
      <p align="center"  ><A HREF="modifyInfo.asp?cityname=<%=Server.UrlEncode(rs("cityName"))%>" target="right"><%=rs("cityName")%></a></td>
  </tr>
<% 
  rs.MoveNext
Wend  
%>  
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="183">
  <tr>
    <td width="100%" height="19">
    </td>
  </tr>
    <tr>
    <td width="100%" height="127">
      <p align="center"> 
      <p align="center"> 
      <p align="center"> <p> </td>
  </tr>

  <tr>
    <td width="100%" height="19">
      <p align="center"><font color="#008080">今日是:</font></td>
  </tr>
  <tr>
    <td width="100%" height="18"><%=FormatDateTime(now(),1)%><P>
    </td>
  </tr>
</table>

<table border="0" width="100%">
  <tr>
    <td width="100%">
      <p align="center"><a href="../user/loginProcess.asp" target="_top">返回</a></td>
  </tr>
</table>

</body>

</html>

⌨️ 快捷键说明

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