📄 index.asp
字号:
<HTML>
<HEAD><title>同学录</title></HEAD>
<BODY background=background.gif>
<P align=center><FONT face=华文彩云 size=6>同 学 录</FONT><hr>
<A HREF="add.htm">添加</A>
<%
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 or rs.BOF then
Response.Write "<P>数据库中暂无资料!"
else
%>
<table border=1 align=center cellspacing=0 cellpadding=2>
<tr align=center>
<td width=80>姓名<td>性别<td>生日<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("住址")
t7=rs("单位")
t8=rs("Email")
dd="<tr align=center><td>" & t1 & "<td>" & t2 & "<td>" & t3 & "<td>" & t4
dd=dd & "<td>" & t5 & "<td>" & t6 & "<td>" & t7 & "<td>" & t8
dd=dd & "<td><a href=delnew.asp?id="& t1 & ">删除</a> "
dd=dd & "<a href=modify.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 + -