📄 code1.asp

📁 20041230162250801409：浙江省丽水市公铁联运有限公司OA系统（物流）开发语言：PHP/ASP/PERL 本系统包括各个部门的管理

💻 ASP

字号:

<%
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")
rr="select top 10 * from tuyun1"
rs.open rr,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>
<table width="234" align="center" cellpadding="0" cellspacing="0" class="FORMTABLE">
  <tr> 
    <td width="76" background="../../image/topBar_bg.gif"><div align="center">ID号</div></td>
    <td width="61" background="../../image/topBar_bg.gif"><div align="center">随机码</div></td>
    <td width="95" background="../../image/topBar_bg.gif"><div align="center">操作</div></td>
  </tr>
  <% do while not rs.eof %>
  <tr> 
    <td height="23"> <div align="center"><%=rs("id")%></div></td>
    <td><div align="center"><%=rs("code")%></div></td>
    <td><div align="center"><a href="codedel1.asp?ID=<%=rs("ID")%>" onclick="return confirm('你真的要删除此信息吗!')"><img src="../../image/buttonclear.gif" width="52" height="18" border="0"></a></div></td>
  </tr>
  <% rs.movenext
  loop
  %>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -