📄 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 + -