code.asp

来自「20041230162250801409: 浙江省丽水市公铁联运有限公司OA系」· ASP 代码 · 共 46 行

ASP
46
字号
<%On Error Resume Next

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../../data.mdb")
set rs=server.createobject("adodb.recordset")
  sql="select top 10 * from tuyun "
rs.open sql,conn,1,3
%>
<html>
<head>
<link href="../../appmain.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>随机码清除</title>
</head>

<body>
<div align="left"></div>
<div align="center">

  <table width="601" cellspacing="0" cellpadding="0" >
    <tr >
      <td >
<table width="233" align="center" cellpadding="0" cellspacing="0" class="FORMTABLE">
          <tr> 
            <td background="../../image/topBar_bg.gif"> <div align="center">ID号(货运站)</div></td>
            <td background="../../image/topBar_bg.gif"> <div align="center">随机码</div></td>
            <td background="../../image/topBar_bg.gif"> <div align="center">操作</div></td>
          </tr>
          <tr> 
            <% do while not rs.eof %>
            <td width="96"> <div align="center"><%=rs("id")%> </div></td>
            <td width="97"><div align="center"><%=rs("code") %></div></td>
            <td width="38"><a href="codedel.asp?ID=<%=rs("ID")%>" onclick="return confirm('你真的要删除此信息吗!')"><img src="../../image/buttonclear.gif" width="52" height="18" border="0"></a></td>
          </tr>
          <% rs.movenext
		loop
		%>
        </table>
        <div align="right"></div></td>
    </tr>
  </table>
</div>
<p>&nbsp; </p>
  </body>
</html>

⌨️ 快捷键说明

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