📄 index.asp.txt
字号:
2. 创建主页面
网页文件index.asp是同学录的主页面，用来显示所有同学信息，其中包含添加和删除的热点链接，如图16-1所示。
在记事本中输入如下代码：
<%@ Language=VBScript %>
<HTML>
<HEAD><title>同学录</title></HEAD>
<BODY background=background.gif>
<P align=center><FONT face=华文彩云 size=6>同 学 录</FONT><br>
<A HREF="add.htm">添加</A>
<A HREF="del.asp">删除</A>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("classmate.mdb")
Conn.Open
' 建立Recordset对象并以追加记录方式打开数据表classmate
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 "<hr>数据库中暂无资料!"
else
do while not rs.EOF or rs.BOF
%>
<table border=1 align=center bordercolor=#0099cc cellspacing=0 cellpadding=4>
<tr><td width=220 align=center><FONT face=隶书 size=4>
<STRONG><%=rs("姓名")%></STRONG></td>
<td align=center width=40><%=rs("性别")%></td>
<td width=260>生日：<%=rs("出生日期")%></td>
<tr><td colspan=2>所在单位：<%=rs("单位")%></td>
<td>联系电话：<%=rs("电话")%></td>
<tr><td colspan=2>手机号：<%=rs("手机")%></td>
<td>电子信箱：<%=rs("Email")%></td>
<tr><td colspan=3>家庭住址：<%=rs("住址")%></td></tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
</table>
</BODY>
</HTML>
将文件以index.asp为名存盘。
说明：该页面主要包括两部分内容：
① 在表格第一行显示“添加”、“删除”两个热点链接。
② 打开数据库链接，以数据库记录为单位，显示所有同学信息。
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -