?? userreg.asp
字號:
<%@ Language=VBScript %>
<%
'只有session("username")的用戶才能登記新的個人資料
'在登記后session("username")設置為個人資料的姓名，表示用戶已經登記了個人資料
'同時在可作為用戶是否進行個人資料的修改根據
if session("username")<>"" then
Response.Redirect "mainFrame.asp?message=你已經進行的個人資料的登記，可以進行修改"
else
if Request.ServerVariables("http_method")="GET" then%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="userreg.asp" method=post id=form1 name=form1>
<P align=center><STRONG><FONT color=slateblue face=幼圓
size=5>個人情況登記</FONT></STRONG></P>
<P align=center><STRONG><FONT color=crimson face=幼圓
size=4>姓 名</FONT></STRONG>：
<INPUT id=text1 name=username style="HEIGHT: 21px; WIDTH: 103px" >
<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 height=300
style="HEIGHT: 300px; WIDTH: 496px" width=496>
<TR>
<TD>性別：
<INPUT id=radio1 name=usersex type=radio CHECKED value=男>男
<INPUT id=radio2 name=usersex style="LEFT: 86px; TOP: 2px"
type=radio value=女>女</TD>
<TD>年齡：
<INPUT id=text2 name=userage style="HEIGHT: 21px; WIDTH: 88px">
</TD></TR>
<TR>
<TD>學歷：<SELECT id=select1 name=edulevel style="HEIGHT: 21px; WIDTH: 102px">
<OPTION selected>本科
<OPTION>碩士
<OPTION>博士
</SELECT>
</TD>
<TD>專業：
<INPUT id=text3 name=usermajor style="HEIGHT: 21px; WIDTH: 87px">
</TD></TR>
<TR>
<TD>求職意向：
<TD colSpan=2>1.
<INPUT id=text4 name=job1 style="HEIGHT: 21px; WIDTH: 120px">
<TR>
<TD>
<TD colSpan=2>2.
<INPUT id=text5 name=job2 style="HEIGHT: 21px; WIDTH: 122px">
<TR>
<TD colSpan=3>聯系地址：
<INPUT id=text6 name=addr style="HEIGHT: 21px; WIDTH: 299px">
<TR>
<TD colSpan=3>
<DIV align=center><STRONG><FONT face=幼圓>個人簡歷</FONT></STRONG></DIV>
<TR>
<TD colSpan=3>
<DIV align=center>
<TEXTAREA id=TEXTAREA1 name=resume style="HEIGHT: 135px; WIDTH: 434px"></TEXTAREA>
</DIV>
<TR>
<TD colSpan=3><INPUT id=submit1 name=submit1 type=submit value=提交>
</TD></TR></TABLE></P>
</FORM>
</BODY>
</HTML>
<%
else
'當Request.ServerVariables("http_method")="POST" 時處理用戶提交的登記數據
'以下為該asp文件提交后將用戶個人情況寫入到數據庫的程序代碼
set rec=server.CreateObject("adodb.recordset")
'聲明ADO的recordset對象
rec.ActiveConnection="dsn=findjob"
'從表userinfo中查找與當前用戶一致的記錄
rec.Source="select * from userinfo where user='" & session("useronline") & "'"
rec.Open ,,1,3
'向表userinfo寫入用戶注冊信息
rec("username")=Request.Form("username")
rec("usersex")=Request.Form("usersex")
rec("userage")=Request.Form("userage")
rec("userlevel")=Request.Form("edulevel")
rec("usermajor")=Request.Form("usermajor")
rec("addr")=Request.Form("addr")
rec("job1")=Request.Form("job1")
rec("job2")=Request.Form("job2")
rec("resume")=Request.Form("resume")
'更新記錄
rec.Update
rec.Close
set rec=nothing
session("username")=Request.Form("username")
'轉向mainframe.asp文件顯示消息
Response.Redirect "mainFrame.asp?message=你已經成功的登記了個人資料"
end if
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -