📄 code1.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 + -