📄 modifydisplay.asp.txt
字号:
<%
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 bordercolor=#3333ff cellspacing=0 cellpadding=2>
<tr align=center>
<td>姓名<td>性别<td>生日<td>电话<td>家庭住址<td>所在单位<td>操作</td>
</tr>
<%
do while not rs.EOF
%>
<TR><TD COLS=5 HEIGHT=5>
<tr><td><%=rs("姓名")%>
<td><%=rs("性别")%>
<td><%=rs("出生日期")%>
<td><%=rs("电话")%>
<td><%=rs("住址")%>
<td><%=rs("单位")%>
<td><a href=modify.asp?id=<%= rs("姓名") %>>修改</a>
<%
rs.MoveNext
loop
end if
rs.Close
set rs=nothing
%>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -