⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cls_modify.asp

📁 一个简历管理系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<form action="<%=sys.SelfName(0)%>?action=save&type=BriLive" 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>
    <td class="title2">培训机构</td>
  </tr>
<%
		If Not sys.ChkEmpty(Html) Then sys.Echo(Html)
%>
  <tr>
    <td><input type="text" name="BriLive_0" class="input1" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="BriLive_1" class="input1" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <td><input type="text" name="BriLive_2" class="input1" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <td><input type="text" name="BriLive_3" class="input1" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="BriLive_4" class="input1" onBlur="formatstr(this);" /></td>
	<input type="hidden" name="BriLive_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 JobPurpose()
		If IsErr Then Exit Function

		ReDim data(0)
		Html = ""
		data(0) = 2
		sql = "SELECT [Job],[ExpectPay],[JobProperty],[OnDutyTime],[ID] FROM [JobPurpose] WHERE [UserID]=" & UserID & "ORDER BY [ID]"
		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 3
					Html = Html & "    <td><input type=""text"" name=""JobPur_"&i&""" class=""input4"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" /></td>" & vbcrlf
				Next
				Html = Html & "    <input type=""hidden"" name=""JobPur_"&i&""" value="""&rs(i)&""" />" & vbcrlf
				Html = Html & "  </tr>" & vbcrlf
				rs.MoveNext
			Wend
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=JobPur" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" rowspan="<%=data(0)%>" nowrap width="150">求职意向</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="JobPur_0" class="input4" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="JobPur_1" class="input4" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="JobPur_2" class="input4" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="JobPur_3" class="input4" onBlur="formatstr(this);" /></td>
    <input type="hidden" name="JobPur_4" 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 OtherCert()
		If IsErr Then Exit Function

		ReDim data(0)
		Html = ""
		data(0) = 2
		sql = "SELECT [OtherCertificate],[GetTime],[ID] FROM [OtherCert] WHERE [UserID]=" & UserID & "ORDER BY [GetTime]"
		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 1
					If i = 1 Then
						Html = Html & "    <td><input type=""text"" name=""Cert_"&i&""" class=""input5"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" onclick=""SelectDate(this);"" title=""点击选择日期..."" /></td>" & vbcrlf
					Else
						Html = Html & "    <td><input type=""text"" name=""Cert_"&i&""" class=""input5"" value="""&sys.HTML_Encode(rs(i))&""" onblur=""formatstr(this);"" /></td>" & vbcrlf
					End If
				Next
				Html = Html & "    <input type=""hidden"" name=""Cert_"&i&""" value="""&rs(i)&""" />" & vbcrlf
				Html = Html & "  </tr>" & vbcrlf
				rs.MoveNext
			Wend
		End If
		rs.Close
		Set rs = Nothing
%>
<form action="<%=sys.SelfName(0)%>?action=save&type=Cert" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" rowspan="<%=data(0)%>" nowrap width="150">其他证书</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="Cert_0" class="input5" onBlur="formatstr(this);" /></td>
    <td><input type="text" name="Cert_1" class="input5" onBlur="formatstr(this);" onClick="SelectDate(this);" title="点击选择日期..." /></td>
    <input type="hidden" name="Cert_2" 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 SkillInfo()
		If IsErr Then Exit Function
		
		ReDim data(5)
		sql = "SELECT [OnesStrongSuit],[Language],[ITSkill],[SelfEvaluate],[StateAtSchool],[Remark] FROM [SkillInfo] 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=ski" method="post" onSubmit="backurl(this);">
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap width="150">职业技能与特长</td>
    <td><textarea cols="82" rows="5" name="Ski_0" class="input6"><%=sys.HTML_Encode(data(0))%></textarea></td>
  </tr>
</table>
<div class="br2"></div>
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap width="150">外语及方言</td>
    <td><textarea cols="82" rows="5" name="Ski_1" class="input6"><%=sys.HTML_Encode(data(1))%></textarea></td>
  </tr>
</table>
<div class="br2"></div>
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap width="150">IT技能</td>
    <td><textarea cols="82" rows="5" name="Ski_2" class="input6"><%=sys.HTML_Encode(data(2))%></textarea></td>
  </tr>
</table>
<div class="br2"></div>
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap width="150">在校情况</td>
    <td><textarea cols="82" rows="5" name="Ski_3" class="input6"><%=sys.HTML_Encode(data(3))%></textarea></td>
  </tr>
</table>
<div class="br2"></div>
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap width="150">自我评价</td>
    <td><textarea cols="82" rows="5" name="Ski_4" class="input6"><%=sys.HTML_Encode(data(4))%></textarea></td>
  </tr>
</table>
<div class="br2"></div>
<table class="TableStyle1" cellspacing="1" cellpadding="0">
  <tr>
    <td class="title" nowrap width="150">特别说明</td>
    <td><textarea cols="82" rows="5" name="Ski_5" class="input6"><%=sys.HTML_Encode(data(5))%></textarea></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 modify_save()
		Dim action
		action = LCase(Trim(Request.QueryString("type")))
		comeurl = Trim(Request.Form("url"))
		Select Case action
			Case "bas"
				Save_BasicInfo()
			Case "con"
				Save_ContactInfo()
			Case "edu"
				Save_EducateLive()
			Case "curwork"
				Save_CurrentWork()
			Case "worlive"
				Save_WorkLive()
			Case "brilive"
				Save_BringUpLive()
			Case "jobpur"
				Save_JobPurpose()
			Case "cert"
				Save_OtherCert()
			Case "ski"
				Save_SkillInfo()
		End Select
		
		If Not sys.ChkEmpty(comeurl) Then
			sys.Go comeurl,301
		Else
			sys.Go "modify.asp",301
		End If
	End Function
	
	Public Function Save_BasicInfo()
		sys.CheckSubmit(True)

		rowlst = "[RealName],[Sex],[Birthday],[Nation],[PolityVisage],[NativePlace],[RegPerRes],[Course],[CourseType],[StudyForm],[AbilityType],[LeaveSchoolType],[GraduateSchool],[Speciality]"
		sql = "SELECT [UserID] FROM [BasicInfo] WHERE [UserID]=" & UserID
		Set rs = Conn.Execute(sql)
		If rs.Eof And rs.Bof Then
			act = "insert"
		Else
			act = "update"
			temp = Split(rowlst,",")
		End If
		rs.Close
		Set rs = Nothing
	
		sql = ""
		For i=0 To Ubound(Split(rowlst,","))
			values = Trim(Request.Form("Bas_"&i))
			If act = "insert" Then
				If i = 1 Then
					sql = sql & values & ","
				Else
					sql = sql & sys.SqlVar(values) & ","
				End If
			ElseIf act = "update" Then
				If i = 1 Then
					sql = sql & temp(i)&"="& values & ","
				Else
					sql = sql & temp(i)&"="& sys.SqlVar(values) & ","
				End If
			End If
		Next
		If Right(sql,1) = "," Then sql = Left(sql,Len(sql)-1)
		If act = "insert" Then
			sql = "INSERT INTO [BasicInfo]([UserID],"&rowlst&") VALUES("&UserID&","&sql&")"
		ElseIf act = "update" Then
			Erase temp
			sql = "UPDATE [BasicInfo] SET "&sql&" WHERE [UserID]=" & UserID
		End If
		Conn.Execute(sql)
	End Function
	
	Public Function Save_ContactInfo()
		sys.CheckSubmit(True)

		rowlst = "[MobilePhone],[LineatePhone],[Postalcode],[Address],[Email],[WebSite]"
		sql = "SELECT [UserID] FROM [ContactInfo] WHERE [UserID]=" & UserID
		Set rs = Conn.Execute(sql)
		If rs.Eof And rs.Bof Then
			act = "insert"
		Else
			act = "update"
			temp = Split(rowlst,",")
		End If
		rs.Close
		Set rs = Nothing
	
		sql = ""
		For i=0 To Ubound(Split(rowlst,","))
			values = Trim(Request.Form("Con_"&i))
			If act = "insert" Then
				sql = sql & sys.SqlVar(values) & ","
			ElseIf act = "update" Then
				sql = sql & temp(i)&"="& sys.SqlVar(values) & ","
			End If
		Next
		If Right(sql,1) = "," Then sql = Left(sql,Len(sql)-1)
		If act = "insert" Then
			sql = "INSERT INTO [ContactInfo]([UserID],"&rowlst&") VALUES("&UserID&","&sql&")"
		ElseIf act = "update" Then
			Erase temp
			sql = "UPDATE [ContactInfo] SET "&sql&" WHERE [UserID]=" & UserID
		End If
		Conn.Execute(sql)
	End Function
	
	Public Function Save_EducateLive()
		sys.CheckSubmit(True)

		rowlst = "[CurrentCalling],[From],[To],[Speciality],[Course]"
		Dim j,IDLst,section,nullcount
		ReDim temp(5)
		For i=0 To Ubound(temp)
			temp(i) = Trim(Request.Form("Edu_"&i))
		Next
		
		IDLst = Split(temp(Ubound(temp)),",")
		section = Split(rowlst,",")
		For i=0 To Ubound(IDLst)
			sql = ""
			nullcount = 0
			IDLst(i) = Trim(IDLst(i))
			If sys.IsNum(IDLst(i)) Then
				For j=0 To Ubound(section)
					values = Trim(Split(temp(j),",")(i))
					sql = sql & section(j)&"="& sys.SqlVar(values) & ","
					If sys.ChkEmpty(values) Then
						nullcount = nullcount + 1
					End If
				Next
				If Right(sql,1) = "," Then sql = Left(sql,Len(sql)-1)
				sql = "UPDATE [EducateLive] SET "&sql&" WHERE [ID]=" & IDLst(i)
				If nullcount = Ubound(temp) Then
					sql = "DELETE FROM [EducateLive] WHERE [ID]=" & IDLst(i)
				End If
				Conn.Execute(sql)
			ElseIf IDLst(i) = "new" Then
				For j=0 To Ubound(section)
					values = Trim(Split(temp(j),",")(i))
					sql = sql & sys.SqlVar(values) & ","
					If sys.ChkEmpty(values) Then
						nullcount = nullcount + 1
					End If
				Next
				If Right(sql,1) = "," Then sql = Left(sql,Len(sql)-1)
				sql = "INSERT INTO [EducateLive]([UserID],"&rowlst&") VALUES("&UserID&","&sql&")"
				If nullcount <> Ubound(temp) Then
					Conn.Execute(sql)
				End If
			End If
		Next
		
		Erase section
		Erase IDLst
		Erase temp
	End Function
	
	Public Function Save_CurrentWork()
		sys.CheckSubmit(True)

		rowlst = "[SchoolName],[CurrentProfession],[ProfessionalLevel],[CurrentPay]"
		sql = "SELECT [UserID] FROM [CurrentWork] WHERE [UserID]=" & UserID
		Set rs = Conn.Execute(sql)
		If rs.Eof And rs.Bof Then
			act = "insert"
		Else
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -