?? detailinfo.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
If Session("UserName")="" Then
Response.Redirect "login.htm"
End If
Function IIf(e)
If e = True Then
IIf = "CHECKED"
End If
End Function
%>
<HTML>
<HEAD>
<TITLE>查看學生資料</TITLE>
<STYLE>
P, TABLE{FONT-SIZE: 9pt}
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style2 {color: #003399}
</STYLE>
</HEAD>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<BODY>
<P align="center"><img src="image/logo.gif" width="500" height="200"></P>
<P align="center"><A HREF = "index.asp" ><br>
返回首頁</A>|
<% If Session("Level") >1 Then %>
<A HREF = "addInfo.asp" >添加資料</A>|
<A HREF = "editInfo.asp" >修改資料</A>|
<A HREF = "deleteInfo.asp" >刪除資料</A>|
<% End If %>
<A HREF = "browseInfo.asp" >查詢資料</A></P>
<DIV ALIGN = "center">
<!-- #include file="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL, StuNum
StuNum = Trim(Request.Form("txtStuNum"))
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
StuNum = Request.QueryString("StuNum")
sSQL = "SELECT * FROM students WHERE student_num='" & StuNum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If Not rst.EOF Then
%>
<TABLE width="624" BORDER = "0" align="center" cellpadding="2" cellspacing="0" bordercolor="#0099FF" bgcolor="#B5E6FF">
<tr bgcolor="#003399"><td colspan="6"><div align="center" class="style1">學號為“
<% = StuNum %>
”的學生資料如下：</div></td></tr>
<TR bgcolor="#CCCCCC">
<TD width="83" NOWRAP><span class="style2">學號：</span></TD>
<TD width="103"><span class="style2">
<% = rst("student_num")%>
</span></TD>
<TD width="66"><span class="style2">姓名：</span></TD><TD width="131"><span class="style2">
<% = rst("student_name") %>
</span></TD>
<TD width="72"><span class="style2">性別：</span></TD><TD width="145"><span class="style2">
<% = rst("student_sex") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">出生日期：</span></TD><TD><span class="style2">
<% = rst("birthdate") %>
</span></TD>
<TD><span class="style2">所在院系：</span></TD><TD><span class="style2">
<% = rst("department") %>
</span></TD>
<TD><span class="style2">所在專業：</span></TD><TD><span class="style2">
<% = rst("speciality") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">年級：</span></TD><TD><span class="style2">
<% = rst("grade") %>
</span></TD>
<TD><span class="style2">班級：</span></TD><TD><span class="style2">
<% = rst("class") %>
</span></TD>
<TD><span class="style2">家長姓名：</span></TD><TD><span class="style2">
<% = rst("parent_name") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">家庭住址：</span></TD><TD COLSPAN="3"><span class="style2">
<% = rst("home_addr") %>
</span></TD>
<TD><span class="style2">住宅電話：</span></TD><TD><span class="style2">
<% = rst("home_phone") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">備注：</span></TD><TD COLSPAN="5"><span class="style2">
<% = rst("remark") %>
</span></TD>
</TR>
</TABLE>
<% End If %>
<DIV>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -