cls_modify.asp

一个简历管理系统

<%
'程序名称：萍萍多用户简历系统
'程序版本：v1.0
'开发环境：SQL Server 2005 + IIS6.0（SQL Server 2000也能用）
'程序设计：秋忆工作室
'作者网站：http://www.skymean.com
'联系邮箱：[e-mail]
%>
<%
Class Modify
	Private UserID,sql,rs,IsErr,data,Html,i
	Private act,rowlst,comeurl,values,temp

	Private Sub Class_Initialize()
		IsErr = True
		If Not sys.IsLogin Then
			sys.Echo("<div style=""margin:20px 0 20px 0;"">"&sys.WarnningBox("错误：你还没有登录，请先<a href=""login.asp?action=reg"">注册</a>或者<a href=""login.asp"">登录</a>。<a href=""javascript:window.close();"">「关闭」</a>")&"</div>")
			Exit Sub
		End If

		UserID = sys.m_UserID
		If Not sys.IsNum(UserID) Then
			sys.Echo("<div style=""margin:20px 0 20px 0;"">"&sys.WarnningBox("错误：参数不正确，请确保操作无误！<a href=""javascript:window.close();"">「关闭」</a>")&"</div>")
			Exit Sub
		End If
		
		IsErr = False
		ConnData()
		If DB_State <> 1 Then Exit Sub
		sql = "SELECT [ID] FROM [User] WHERE [ID]=" & UserID
		Set rs = Conn.Execute(sql)
		If rs.Eof And rs.Bof Then
			IsErr = True
		End If
		rs.Close
		Set rs = Nothing
		If IsErr Then
			sys.Echo("<div style=""margin:20px 0 20px 0;"">"&sys.WarnningBox("错误：此用户不存在或者已经被删除！<a href=""javascript:window.close();"">「关闭」</a>")&"</div>")
			CloseConn()
		End If
	End Sub
	
	Public Function ShowAll()
		If IsErr Then Exit Function
		
		BasicInfo()
		ContactInfo()
		EducateLive()
		CurrentWork()
		WorkLive()
		BringUpLive()
		JobPurpose()
		OtherCert()
		SkillInfo()
	End Function

	Public Function Head()
		Dim TempStr
		TempStr = "<div style=""margin:6px 5px 6px 5px;text-align:right;"">" & vbcrlf
		TempStr = TempStr & "<a href=""modify.asp?action=release&type=1"" title=""发布后会显示在首页公开"">发布简历</a>&nbsp;<a href=""modify.asp?action=release&type=0"">取消发布简历</a>" & vbcrlf
		TempStr = TempStr & "</div>" & vbcrlf
		sys.Echo(TempStr)
	End Function

	Public Function BasicInfo()
		If IsErr Then Exit Function
		
		ReDim data(13)
		sql = "SELECT [RealName],[Sex],[Birthday],[Nation],[PolityVisage],[NativePlace],[RegPerRes],[Course],[CourseType],[StudyForm],[AbilityType],[LeaveSchoolType],[GraduateSchool],[Speciality] FROM [BasicInfo] WHERE [UserID]=" & UserID
		Set rs = Conn.Execute(sql)
		If Not (rs.Eof And rs.Bof) Then
			For i=0 To 13
				data(i) = rs(i)
			Next
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=bas" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title">姓　名</td>
    <td><input type="text" name="Bas_0" class="input1" value="<%=sys.HTML_Encode(data(0))%>" /></td>
    <td class="title">性　别</td>
    <td align="left">
	<div style="margin-left:4px">
	<select name="Bas_1" size="1">
	<option value="">选择</option>
	<option value="0"<%If Not sys.ChkEmpty(data(1)) And data(1)=False Then sys.Echo(" selected")%>>男</option>
	<option value="1"<%If Not sys.ChkEmpty(data(1)) And data(1)=True Then sys.Echo(" selected")%>>女</option>
	</select>
	</div>
	</td>
    <td class="title">出生年月</td>
    <td><input type="text" name="Bas_2" class="input1" value="<%=sys.HTML_Encode(data(2))%>" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <!--<td rowspan="5" style="width:133px;"><img align="absmiddle" src="viewResume.asp?mode=photo&uid=<%=UserID%>" onload="resizepic(this,133,160);" onerror="this.style.display='none'" /></td>-->
  </tr>
  <tr>
    <td class="title">民　族</td>
    <td><input type="text" name="Bas_3" class="input1" value="<%=sys.HTML_Encode(data(3))%>" /></td>
    <td class="title" nowrap>政治面貌</td>
    <td><input type="text" name="Bas_4" class="input1" value="<%=sys.HTML_Encode(data(4))%>" /></td>
    <td class="title">籍　贯</td>
    <td><input type="text" name="Bas_5" class="input1" value="<%=sys.HTML_Encode(data(5))%>" /></td>
    </tr>
  <tr>
    <td class="title" nowrap>户口所在地</td>
    <td><input type="text" name="Bas_6" class="input1" value="<%=sys.HTML_Encode(data(6))%>" /></td>
    <td class="title">学　历</td>
    <td><input type="text" name="Bas_7" class="input1" value="<%=sys.HTML_Encode(data(7))%>" /></td>
    <td class="title">学历类型</td>
    <td><input type="text" name="Bas_8" class="input1" value="<%=sys.HTML_Encode(data(8))%>" /></td>
    </tr>
  <tr>
    <td class="title">学习形式</td>
    <td><input type="text" name="Bas_9" class="input1" value="<%=sys.HTML_Encode(data(9))%>" /></td>
    <td class="title">人才类别</td>
    <td><input type="text" name="Bas_10" class="input1" value="<%=sys.HTML_Encode(data(10))%>" /></td>
    <td class="title" nowrap>毕业/结业</td>
    <td><input type="text" name="Bas_11" class="input1" value="<%=sys.HTML_Encode(data(11))%>" /></td>
    </tr>
  <tr>
    <td class="title">毕业院校</td>
    <td colspan="2"><input type="text" name="Bas_12" class="input2" value="<%=sys.HTML_Encode(data(12))%>" /></td>
    <td class="title">专　业</td>
    <td colspan="2"><input type="text" name="Bas_13" class="input2" value="<%=sys.HTML_Encode(data(13))%>" /></td>
    </tr>
</table>
<div class="frm_submit"><input type="hidden" name="url" /><input type="submit" value="保 存" /></div>
</form>
<div class="br2"></div>
<%
		Erase data
	End Function
	
	Public Function ContactInfo()
		If IsErr Then Exit Function
		
		ReDim data(5)
		sql = "SELECT [MobilePhone],[LineatePhone],[Postalcode],[Address],[Email],[WebSite] FROM [ContactInfo] WHERE [UserID]=" & UserID
		Set rs = Conn.Execute(sql)
		If Not (rs.Eof And rs.Bof) Then
			For i=0 To 5
				data(i) = rs(i)
			Next
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=con" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap>手机号码</td>
    <td><input type="text" name="Con_0" class="input3" value="<%=sys.HTML_Encode(data(0))%>" /></td>
    <td class="title" nowrap>固定电话</td>
    <td><input type="text" name="Con_1" class="input3" value="<%=sys.HTML_Encode(data(1))%>" /></td>
  </tr>
  <tr>
    <td class="title">邮　编</td>
    <td><input type="text" name="Con_2" class="input3" value="<%=sys.HTML_Encode(data(2))%>" /></td>
    <td class="title">联系地址</td>
    <td><input type="text" name="Con_3" class="input3" value="<%=sys.HTML_Encode(data(3))%>" /></td>
  </tr>
  <tr>
    <td class="title">电子邮件</td>
    <td><input type="text" name="Con_4" class="input3" value="<%=sys.HTML_Encode(data(4))%>" /></td>
    <td class="title">个人主页</td>
    <td><input type="text" name="Con_5" class="input3" value="<%=sys.HTML_Encode(data(5))%>" /></td>
  </tr>
</table>
<div class="frm_submit"><input type="hidden" name="url" /><input type="submit" value="保 存" /></div>
</form>
<div class="br2"></div>
<%
		Erase data
	End Function
	
	Public Function EducateLive()
		If IsErr Then Exit Function
		
		ReDim data(0)
		Html = ""
		data(0) = 2
		sql = "SELECT [CurrentCalling],[From],[To],[Speciality],[Course],[ID] FROM [EducateLive] WHERE [UserID]=" & UserID & "ORDER BY [From]"
		Set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,Conn,1,1
		If Not (rs.Eof And rs.Bof) Then
			data(0) = rs.RecordCount + 2
			While Not rs.Eof
				Html = Html & "  <tr>" & vbcrlf
				For i=0 To 4
					If i = 1 Or i = 2 Then
						Html = Html & "    <td><input type=""text"" name=""Edu_"&i&""" class=""input1"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" onclick=""SelectDate(this);"" title=""点击选择日期..."" /></td>" & vbcrlf
					Else
						Html = Html & "    <td><input type=""text"" name=""Edu_"&i&""" class=""input1"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" /></td>" & vbcrlf
					End If
				Next
				Html = Html & "    <input type=""hidden"" name=""Edu_"&i&""" value="""&rs(5)&""" />" & vbcrlf
				Html = Html & "  </tr>" & vbcrlf
				rs.MoveNext
			Wend
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=edu" method="post" onSubmit="backurl(this);">
<table id="tab_edu" class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" rowspan="<%=data(0)%>" nowrap>教育经历</td>
    <td class="title2">现从事行业</td>
    <td class="title2">从</td>
    <td class="title2">至</td>
    <td class="title2">所属专业</td>
    <td class="title2">学　历</td>
  </tr>
<%
		If Not sys.ChkEmpty(Html) Then sys.Echo(Html)
%>
  <tr>
    <td><input type="text" name="Edu_0" class="input1" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="Edu_1" class="input1" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <td><input type="text" name="Edu_2" class="input1" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <td><input type="text" name="Edu_3" class="input1" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="Edu_4" class="input1" onBlur="formatstr(this);" /></td>
    <input type="hidden" name="Edu_5" value="new" />
  </tr>
</table>
<div class="frm_submit"><input type="hidden" name="url" /><input type="submit" value="保 存" /></div>
</form>
<div class="br2"></div>
<%
		Erase data
	End Function
	
	Public Function CurrentWork()
		If IsErr Then Exit Function
		
		ReDim data(3)
		sql = "SELECT [SchoolName],[CurrentProfession],[ProfessionalLevel],[CurrentPay] FROM [CurrentWork] WHERE [UserID]=" & UserID
		Set rs = Conn.Execute(sql)
		If Not (rs.Eof And rs.Bof) Then
			For i=0 To 3
				data(i) = rs(i)
			Next
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=CurWork" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" rowspan="2" nowrap>现职业概况</td>
    <td class="title2">学校名称</td>
    <td class="title2">现从事职业</td>
    <td class="title2">现职位级别</td>
    <td class="title2">目前薪水</td>
  </tr>
  <tr>
    <td><input type="text" name="CurWork_0" class="input4" value="<%=sys.HTML_Encode(data(0))%>" /></td>
    <td><input type="text" name="CurWork_1" class="input4" value="<%=sys.HTML_Encode(data(1))%>" /></td>
    <td><input type="text" name="CurWork_2" class="input4" value="<%=sys.HTML_Encode(data(2))%>" /></td>
    <td><input type="text" name="CurWork_3" class="input4" value="<%=sys.HTML_Encode(data(3))%>" /></td>
  </tr>
</table>
<div class="frm_submit"><input type="hidden" name="url" /><input type="submit" value="保 存" /></div>
</form>
<div class="br2"></div>
<%
		Erase data
	End Function
	
	Public Function WorkLive()
		If IsErr Then Exit Function

		ReDim data(0)
		Html = ""
		data(0) = 3
		sql = "SELECT [UnitsName],[From],[To],[DeptJob],[Responsibility],[ID] FROM [WorkLive] WHERE [UserID]=" & UserID & "ORDER BY [From]"
		Set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,Conn,1,1
		If Not (rs.Eof And rs.Bof) Then
			data(0) = rs.RecordCount*2+3
			While Not rs.Eof
				Html = Html & "  <tr>" & vbcrlf
				For i=0 To 3
					If i = 1 Or i = 2 Then
						Html = Html & "    <td><input type=""text"" name=""WorLive_"&i&""" class=""input4"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" onclick=""SelectDate(this);"" title=""点击选择日期..."" /></td>" & vbcrlf
					Else
						Html = Html & "    <td><input type=""text"" name=""WorLive_"&i&""" class=""input4"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" /></td>" & vbcrlf
					End If
				Next
				Html = Html & "  </tr>" & vbcrlf
				Html = Html & "  <tr>" & vbcrlf
				Html = Html & "    <td class=""title2"">工作职责</td>" & vbcrlf
				Html = Html & "    <td colspan=""3""><input type=""text"" name=""WorLive_4"" style=""width:430px"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" /></td>" & vbcrlf
				Html = Html & "    <input type=""hidden"" name=""WorLive_"&i&""" value="""&rs(i+1)&""" />" & vbcrlf
				Html = Html & "  </tr>" & vbcrlf
				rs.MoveNext
			Wend
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=WorLive" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" rowspan="<%=data(0)%>" nowrap>工作经历</td>
    <td class="title2">单位名称</td>
    <td class="title2">从</td>
    <td class="title2">至</td>
    <td class="title2">所属部门及所任职位</td>
  </tr>
<%
		If Not sys.ChkEmpty(Html) Then sys.Echo(Html)
%>
  <tr>
    <td><input type="text" name="WorLive_0" class="input4" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="WorLive_1" class="input4" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <td><input type="text" name="WorLive_2" class="input4" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <td><input type="text" name="WorLive_3" class="input4" onBlur="formatstr(this);" /></td>
  </tr>
  <tr>
    <td class="title2">工作职责</td>
    <td colspan="3"><input type="text" name="WorLive_4" style="width:430px" onBlur="formatstr(this);" /></td>
    <input type="hidden" name="WorLive_5" value="new" />
  </tr>
</table>
<div class="frm_submit"><input type="hidden" name="url" /><input type="submit" value="保 存" /></div>
</form>
<div class="br2"></div>
<%
		Erase data
	End Function
	
	Public Function BringUpLive()
		If IsErr Then Exit Function

		ReDim data(0)
		Html = ""
		data(0) = 2
		sql = "SELECT [CoursesName],[From],[To],[Certificate],[Organization],[ID] FROM [BringUpLive] WHERE [UserID]=" & UserID & "ORDER BY [From]"
		Set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,Conn,1,1
		If Not (rs.Eof And rs.Bof) Then
			data(0) = rs.RecordCount + 2
			While Not rs.Eof
				Html = Html & "  <tr>" & vbcrlf
				For i=0 To 4
					If i = 1 Or i = 2 Then
						Html = Html & "    <td><input type=""text"" name=""BriLive_"&i&""" class=""input1"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" onclick=""SelectDate(this);"" title=""点击选择日期..."" /></td>" & vbcrlf
					Else
						Html = Html & "    <td><input type=""text"" name=""BriLive_"&i&""" class=""input1"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" /></td>" & vbcrlf
					End If
				Next
				Html = Html & "    <input type=""hidden"" name=""BriLive_"&i&""" value="""&rs(i)&""" />" & vbcrlf
				Html = Html & "  </tr>" & vbcrlf
				rs.MoveNext
			Wend
		End If
		rs.Close
		Set rs = Nothing
%>