基于asp的學生檔案管理系統-資料下載頁

　　

【正文】 總成績 F
user_testnumber 文本 50 準考證號 F
user_class 文本 10 班級 F
11
Page 22 揚州大學本科生畢業設計
第四章詳細設計
第一節用戶瀏覽頁面
用戶瀏覽界面分為信息管理、成績管理、班級管理、科目管理、用戶管理、退出系
統。
第二節用戶登陸模塊
一、程序描述
根據登陸用戶身份的不同，讓用戶分別登陸普通用戶模塊和系統管理員模塊。
二、流程
12
Page 23 揚州大學本科生畢業設計
三、詳細代碼設計
%
dim admin_name,admin_pwd
admin_name=trim(request(name))
admin_pwd=trim(request(pwd))
if admin_name= or admin_pwd= then
scriptalert(39。對不起，用戶名和密碼不能為空！39。)。=39。39。/script

end if
set rs=(adodb .recordset)
sql=select * from admin where admin_name=39。amp。admin_nameamp。39。
sql,conn,1,1
%
%
if not then
if rs(admin_pwd)admin_pwd then
scriptalert(39。 對 不 起 ， 密 碼 不 正 確 ， 請 重 新 輸 入
39。)。=39。39。/script

else if rs(admin_name)admin then
session(user)=admin_name

else
session(admin)=admin_name

end if
end if
else
scriptalert(39。 對 不 起 ， 你 的 用 戶 名 不 存 在 ， 請 與 管 理 員 聯 系 ！
39。)。=39。39。/script

end if
%
13
Page 24 揚州大學本科生畢業設計
第三節 學生信息管理模塊
一、 學生信息瀏覽
（一）界面預覽
（二）代碼設計
div align=center
center
table border=0 width=700 cellspacing=0 cellpadding=0
% if Not( and ) then39。判別數據表中是否為空記錄
NumRecord=
=10
NumPage=
if request(page)=empty then
NoncePage=1
else
if Cint(request(page))1 then
NoncePage=1
else
NoncePage=request(page)
end if
if Cint(Trim(request(page)))Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
% table border=1 width=700 bordercolorlight=000000 cellspacing=0 cellpadding=5
bordercolordark=FFFFFF
tr
td width=71 bgcolor=EBE9FE align=center學號/td
td width=78 bgcolor=EBE9FE align=center姓名/td
td width=65 bgcolor=EBE9FE align=center性別/td
td width=78 bgcolor=EBE9FE align=center班級/td
14
Page 25 揚州大學本科生畢業設計
td width=110 bgcolor=EBE9FE align=center出生年月/td
td width=110 bgcolor=EBE9FE align=center寢室電話/td
td width=71 bgcolor=EBE9FE align=center修改/td
td width=71 bgcolor=EBE9FE align=center刪除/td
/tr
%if Not( and ) then
(Cint(NoncePage)1)*10,1
for i=1 to
%
tr
td width=71 align=center%=rst(user_number)%/td
td width=78 align=centera
href=?id=%=rst(id)%%=rst(user_name)%/a/td
td width=65 align=center%=rst(user_sex)%/td
td width=78 align=center%=rst(user_class)%/td
td width=110 align=center%=rst(user_time)%/td
td width=110 align=center%=rst(user_bedroomphone)%/td
td width=71 align=centera href=?id=%=rst(id)%修改/a/td
td width=71 align=centera href=?id=%=rst(id)%刪除/a/td
/tr
%
if then exit for
next
else
trtd colspan=13marquee scrolldelay=120 behavior=alternate 沒 有 找 到 任 何 記
錄!!!/marquee/td/tr
end if

set rst=nothing
%
/table
/table
/div
table width=748 border=0 align=center
tr
td height=17
div align=right
input type=hidden name=page value=%=NoncePage%
%
if NoncePage1 then
15
Page 26 揚州大學本科生畢業設計
|a href=?page=1 首 頁 /a| |a
href=?page=amp。NoncePage1amp。上一頁/a|amp。nbsp
else
|首 頁| |上一頁|amp。nbsp
end if
if Cint(Trim(NoncePage))Cint(Trim(NumPage)) then
|a href=?page=amp。NoncePage+1amp。 下 一 頁 /a| |a
href=?page=amp。NumPageamp。尾 頁/a|
else
|下一頁| |尾 頁|
end if
%
amp。nbsp。 頁 次 ： font color=0033CC%=NoncePage%/font/font
color=0033CC%=NumPage%/font
共font color=0033CC%=NumRecord%/font條記錄amp。nbsp。 /div
/td
/table
二、 學生信息錄入
（一）界面預覽
（二）代碼設計
%
dim
user_number,user_name,user_testnumber,user_idnumber,user_sex,user_time,user_city,user_area,user_address,user_po
16
Page 27 揚州大學本科生畢業設計
stcode,user_homephone,user_bedroomphone,user_mobilephoe,user_,user_major,user_class,user_collogetestach,u
ser_rp,user_info
user_number=trim(request(user_number))
user_name=trim(request(user_name))
user_testnumber=trim(request(user_testnumber))
user_idnumber=trim(request(user_idnumber))
user_sex=trim(request(user_sex))
user_time=trim(request(user_time))
user_city=trim(request(user_city))
user_area=trim(request(user_area))
user_address=trim(request(user_address))
user_postcode=trim(request(user_postcode))
user_homephone=trim(request(user_homephone))
user_bedroomphone=trim(request(user_bedroomphone))
user_mobilephoe=trim(request(user_mobilephoe))
user_=trim(request(user_))
user_major=trim(request(user_major))
user_class=trim(request(user_class))
user_collogetestach=trim(request(user_collogetestach))
user_rp=trim(request(user_rp))
user_info=trim(request(user_info))
%
%
set rs=(adodb .recordset)
sql=select * from st_info where user_number=39。amp。user_numberamp。39。
sql,conn,1,3
%
%if not then
學號已經存在，請更換

else

rs(user_number)=user_number
rs(user_name)=user_name
rs(user_testnumber)=user_testnumber
rs(user_idnumber)=user_idnumber
rs(user_sex)=user_sex
rs(user_time)=user_time
rs(user_city)=user_city
rs(user_area)=user_area
rs(user_address)=user_address
rs(user_postcode)=user_postcode
17
Page 28 揚州大學本科生畢業設計
rs(user_homephone)=user_homephone
rs(user_bedroomphone)=user_bedroomphone
rs(user_mobilephoe)=user_mobilephoe
rs(user_)=user_
rs(user_major)=user_majo