📄 del.asp.txt
字号:
<%
dim sql
dim rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("classmate.mdb")
Conn.Open
set rs=server.createobject("adodb.recordset")
sql="select * from classmate"
rs.Open sql,conn,1,1
if rs.EOF then
Response.Write "没有信息可删除！<P>"
Response.Write "<A HREF=index.asp>返回首页</A>"
else
%>
<HTML>
<HEAD><title>同学录</title></HEAD>
<BODY>
<P align=center><FONT face=隶书 size=5>同学信息</FONT><hr>
<A HREF="index.asp">首页</A>
<A HREF="add.htm">添加</A>
<table border=1 align=center cellspacing=0 cellpadding=2>
<tr align=center>
<td width=80>姓名<td>性别<td>生日<td>电话<td>家庭住址<td>所在单位<td>操作</td>
</tr>
<%
do while not rs.EOF
t1=rs("姓名")
t2=rs("性别")
t3=rs("出生日期")
t4=rs("电话")
t5=rs("住址")
t6=rs("单位")
dd="<tr align=center><td>" & t1 & "<td>" & t2 & "<td>" & t3
dd=dd & "<td>" & t4 & "<td>" & t5 & "<td>" & t6
dd=dd & "<td><a href=delnew.asp?id="& t1 & ">删除</a>" & "</tr>"
response.write dd
rs.MoveNext
loop
end if
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -