statuslist.asp

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

ASP
107 行
字号 
<%@ Language=VBScript %>
<%Response.Buffer=true%>


<html>
<head>
<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>
</head>
 <!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<%
'修改：潘树文
'时间：2001年2月9日
%>
<body bgcolor="#C0C0C0">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><font color="#008080">天气状况管理：<br>
  </font></td>
</tr>
</table>
<form method="POST" action="statusDel.asp" id=form2 name=form2>
<table border="1" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="60%" align="center">已存在天气状况名称</td>
    <td width="20%" align="center">　</td>
    <td width="20%" align="center">　</td>
  </tr>
<%
Dim rs
Dim sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql = "Select * From weather_status Order By statusID"
rs.open sql,conn,1,2

While Not rs.Eof 

%>  
  
  
  <tr>
    <td width="60%" align="center"><%=rs("statusName")%></td>
    <td width="20%" align="center"><a href="modifystatus.asp?id=<%=rs("statusID")%>" target="_self"><font color="#FF6600">编辑</font></a></td>
    <td width="20%" align="center">
        <p><input type="checkbox" name="del" value="<%=rs("statusID")%>"></p>
    </td>
  </tr>
  
<%
rs.MoveNext
Wend
%>  

  <tr>
    <td width="100%" align="center" colspan="3">　</td>
  </tr>


  <tr>
    <td width="100%" align="center" colspan="3">
      <table border="0" width="100%">
        <tr>
          <td width="50%" align="center"><input type="submit" value="确定删除" name="B1"></td>
          <td width="50%" align="center"><input type="reset" value="重新选择" name="B2"></td>
        </tr>
      </table>
    </td>
  </tr>

</table>
</form>

<hr>

<form method="POST" action="statusSave.asp" name=form1  onsubmit="return check(this);">

<table border="1" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="33%">
      <p align="right">增加天气状况：</td>
    <td width="67%" colspan="2">
        <input type="text" name="Name" size="20"></td>
  </tr>
  <tr>
    <td width="50%" colspan="2" align="center"><input type="submit" value="确    认" name="B1"></td>
    <td width="50%" align="center"><input type="reset" value="重新填写" name="B2"></td>
  </tr>
</table>
      </form>

</body>

</html>
<%
rs.Close
Set rs = nothing
conn.Close
Set conn = nothing
%>

statuslist.asp - 源码说明

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

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

⌨️ 快捷键说明

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