📄 index.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>同学录</title>
</HEAD>
<BODY background=background.gif>
<P align=center><FONT face=隶书 size=6>实例 同学录</FONT></P>
<table border="1" align=center bordercolor=#0099cc cellspacing="0" cellpadding="0">
<tr><td colspan=6><A HREF="add.asp">添加</A>
<A HREF="del.asp">删除</A>
<A HREF="modify.asp">修改</A></td></tr>
<%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from mytable"
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
Response.Write "数据库中暂无资料!"
else
do while not rs.EOF or rs.BOF
%>
<tr>
<td colspan=2 align=center><FONT face=隶书 size=4><STRONG><%=rs("username")%></STRONG></font></td>
<td>性别：</td><td> <%=rs("sex")%></td>
<td>生日：</td><td> <%=rs("borndate")%></td>
</tr>
<tr>
<td width=100>联系电话：</td><td width=120> <%=rs("phone")%></td>
<td width=100>呼机号：</td><td width=120> <%=rs("BP")%></td>
<td width=100>手机号：</td><td width=120> <%=rs("policy")%></td>
</tr>
<tr>
<td>所在公司：</td><td> <%=rs("company")%></td>
<td>电子信箱：</td><td> <%=rs("email")%></td>
<td>家庭住址：</td><td> <%=rs("address")%></td>
</tr>
<tr><td colspan=6 height=10></td></tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -