code1.asp

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

ASP
36
字号
<%
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 + =
减小字号Ctrl + -
显示快捷键?