📄 main.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>同学录</title>
<LINK HREF="style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY>
<P align=center>计科033 同学通讯录</P>
<table border="1" align=center bordercolor="#CCCCFF" cellspacing="0" cellpadding="0">
<tr><td colspan=10><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("data.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from class"
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
Response.Write "数据库中暂无资料!"
else
%>
<tr>
<td class="field">姓名</td>
<td class="field">性别</td><td class="field">出生年月</td><td class="field">电话</td><td class="field">手机</td>
<td class="field">QQ</td><td class="field">所在公司</td><td class="field">电子信箱</td><td class="field">家庭住址</td> <td class="field">Http</td>
</tr>
<%
do while not rs.EOF or rs.BOF
%>
<tr>
<td><%=rs("Name")%></td>
<td align="center"><%=rs("Sex")%></td>
<td><%=rs("Birth")%></td>
<td><%=rs("Tel")%></td>
<td><%=rs("Mobile")%></td>
<td><%=rs("Qq")%></td>
<td><%=rs("Company")%></td>
<td><%=rs("Email")%></td>
<td><%=rs("Address")%></td>
<td><%=rs("Http")%></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 + -