infolist.asp

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

ASP
108 行
字号 
<%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_Info Order by city"
rs.open sql,conn,1,2

%>  

<body bgcolor="#C0C0C0">

<form method="POST" action="infoDel.asp">


<table border="1" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="66%" align="center" colspan="6">今日天气(<%=FormatDateTime(now(),1)%>)</td>
  </tr>
  <tr>
    <td width="14%" align="center" bgcolor="#993300"><font color="#00FF00">城市</font></td>    
    <td width="13%" align="center" bgcolor="#993300"><font color="#00FF00">状况</font></td>    
    <td width="13%" align="center" bgcolor="#993300"><font color="#00FF00">风向</font></td>    
    <td width="13%" align="center" bgcolor="#993300"><font color="#00FF00">风力</font></td>    
    <td width="13%" align="center" bgcolor="#993300"><font color="#00FF00">气温</font></td>    
    <td width="13%" align="center" bgcolor="#993300"><font color="#00FF00">是否删除</font></td>    
  </tr>    

 <%
 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="14%" align="center" <%=bg%>><A HREF="modifyInfo.asp?cityname=<%=Server.UrlEncode(rs("city"))%>"><%=rs("city")%></a></td>    
    <td width="13%" align="center" <%=bg%>><%=rs("status")%></td>    
    <td width="13%" align="center" <%=bg%>><%=rs("direction")%></td>    
    <td width="13%" align="center" <%=bg%>><%=rs("power")%></td>    
    <td width="13%" align="center" <%=bg%>><%=rs("temperature")%> ℃</td>    
    <td width="13%" align="center" <%=bg%>>
<p><input type="checkbox" name="del" value="<%=rs("city")%>"></p>
    </td>    
  </tr>   
<%
  rs.MoveNext
 Wend
rs.Close 
Set rs = nothing
conn.close
Set conn = nothing
  
%>              
 
</table>    
 <table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="79%" align="center" colspan="2"><br>
    </td>    
  </tr>    
  <tr>
    <td width="79%" align="center" colspan="2"></td>    
  </tr>    
  <tr>
    <td width="40%" align="center"><input type="submit" value="确认删除" name="B1"></td>    
    <td width="39%" align="center"><input type="reset" value="全部重写" name="B2"></td>    
  </tr>    
  </table>
</form>
 
    
</body>    
    
</html>

infolist.asp - 源码说明

本页面展示了「asp的新闻网站」中的 infolist.asp 源码文件，采用 ASP 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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