ADO-ODBC

Development Platform:
ASP/ASPX

AP_Resume_Action.asp：Code Content
							<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<% Option Explicit %>
<%Session.CodePage=65001%>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../lib/strlib.asp" -->
<!--#include file="../lib/UserCheck.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.liu
Dim action,part,resumeRs,sqlstatement,tmpRs,errorMsg,id
'baseInfo
Dim base_BID,UserNumber,Uname,Sex,PictureExt,Birthday,CertificateClass,CertificateNo,CurrentWage,CurrencyType,WorkAge,Province,City,HomeTel,CompanyTel,Mobile,Email,QQ,isPublic,click,lastTime
'Intention
Dim WorkType,Salary,SelfAppraise
'WorkExp
Dim BeginDate,EndDate,CompanyName,CompanyKind,Trade,Job,Department,workDescription,Certifier,CertifierTel
'EducateExp
Dim  edu_BeginDate,edu_EndDate,edu_SchoolName,edu_Specialty,edu_Diploma,edu_Description 
'TrainExp
Dim train_BeginDate,train_EndDate,train_TrainOrgan,train_TrainAdress,train_TrainContent,train_Certificate
'language
Dim Language,Degree
'Certificate
Dim FetchDate,Certificate,Score
'ProjectExp
Dim Pro_BeginDate,Pro_EndDate,Project,SoftSettings,HardSettings,Tools,ProjectDescript,Duty
'other
Dim title,content
'mail
Dim mailTitle,mailContent
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
part=request("part")
action=request("action")
id=request("id")
Set resumeRs=server.CreateObject(G_FS_RS)
if part="baseinfo" then
	if id<>"" then 
		sqlstatement="select bid,UserNumber,Uname,Sex,PictureExt,Birthday,CertificateClass,CertificateNo,CurrentWage,CurrencyType,WorkAge,Province,City,HomeTel,CompanyTel,Mobile,Email,QQ,isPublic,click,lastTime from FS_AP_Resume_BaseInfo where bid="&id
	Else
		sqlstatement="select bid,UserNumber,Uname,Sex,PictureExt,Birthday,CertificateClass,CertificateNo,CurrentWage,CurrencyType,WorkAge,Province,City,HomeTel,CompanyTel,Mobile,Email,QQ,isPublic,click,lastTime from FS_AP_Resume_BaseInfo where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	resumeRs.open sqlstatement,Conn,1,3
	if  resumeRs.eof then
		resumeRs.addnew
	End if
	UserNumber=session("FS_UserNumber")
	Uname=request.Form("txt_Uname")
	Sex=request.Form("sel_sex")
	PictureExt=request.Form("sel_PictureExt")
	Birthday=request.Form("txt_Birthday")
	CertificateClass=request.Form("sel_CertificateClass")
	CertificateNo=request.Form("txt_CertificateNo")
	CurrentWage=request.Form("sel_CurrentWage")
	CurrencyType=request.Form("sel_CurrencyType")
	WorkAge=request.Form("sel_WorkAge")
	Province=request.Form("txt_Province")
	City=request.Form("txt_City")
	HomeTel=request.Form("txt_HomeTel")
	CompanyTel=request.Form("txt_CompanyTel")
	Mobile=request.Form("txt_Mobile")
	Email=request.Form("txt_Email")
	QQ=request.Form("txt_QQ")
	isPublic=request.Form("sel_isPublic")
	lastTime=Now
	'--------------------------------------
	resumeRs("UserNumber")=UserNumber
	if Trim(Uname)="" then 
		errorMsg="1*" 
	else 
		resumeRs("Uname")=Uname
	End if
	resumeRs("Sex")=Sex
	resumeRs("PictureExt")=PictureExt
	resumeRs("Birthday")=Birthday
	resumeRs("CertificateClass")=CertificateClass
	resumeRs("CertificateNo")=CertificateNo
	resumeRs("CurrentWage")=CurrentWage
	resumeRs("CurrencyType")=CurrencyType
	if Trim(WorkAge)="" then 
		errorMsg=errorMsg+"3*" 
	else 
		if not isNumeric(WorkAge) then 
			errorMsg=errorMsg+"3*" 
		else 
			resumeRs("WorkAge")=WorkAge
		End if
	End if
	resumeRs("WorkAge")=WorkAge
	resumeRs("Province")=Province
	resumeRs("City")=City
	resumeRs("HomeTel")=HomeTel
	resumeRs("CompanyTel")=CompanyTel
	resumeRs("Mobile")=Mobile
	resumeRs("Email")=Email
	resumeRs("QQ")=QQ
	resumeRs("isPublic")=isPublic
	resumeRs("lastTime")=lastTime
	if Trim(errorMsg)="" then 
		resumeRs.update 
		resumeRs.close
	Else
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
ElseIf part="intention" then '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
	if id<>"" then
		sqlstatement="select UserNumber,WorkType,Salary,SelfAppraise from FS_AP_Resume_Intention where bid="&id
	Else
		sqlstatement="select UserNumber,WorkType,Salary,SelfAppraise from FS_AP_Resume_Intention where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	WorkType=request.Form("sel_WorkType")
	Salary=request.Form("sel_Salary")
	SelfAppraise=request.Form("txt_SelfAppraise")
	resumeRs.open sqlstatement,Conn,1,3
	if 	resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=session("FS_UserNumber")
	resumeRs("WorkType")=WorkType
	resumeRs("Salary")=Salary
	resumeRs("SelfAppraise")=SelfAppraise
	resumeRs.update
	resumeRs.close
ElseIf part="workexp" then '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
	if id<>"" then
		sqlstatement="select bid,UserNumber,BeginDate,EndDate,CompanyName,CompanyKind,Trade,Job,Department,Description,Certifier,CertifierTel from FS_AP_Resume_WorkExp where bid="&id
	Else
		sqlstatement="select bid,UserNumber,BeginDate,EndDate,CompanyName,CompanyKind,Trade,Job,Department,Description,Certifier,CertifierTel from FS_AP_Resume_WorkExp where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	UserNumber=session("FS_UserNumber")
	BeginDate=request.Form("txt_BeginDate")
	EndDate=request.Form("txt_EndDate")
	CompanyName=request.Form("txt_CompanyName")
	CompanyKind=request.Form("sel_CompanyKind")
	Trade=request.Form("txt_Trade")
	Job=request.Form("txt_Job")
	Department=request.Form("txt_Department")
	workDescription=request.Form("txt_Description")
	Certifier=request.Form("txt_Certifier")
	CertifierTel=request.Form("txt_CertifierTel")
	'----------------------------------------
	resumeRs.open sqlstatement,Conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=UserNumber
	if trim(BeginDate)="" then 
		errorMsg=errorMsg&"4*"
	Else
		resumeRs("BeginDate")=BeginDate
	End If
	if trim(EndDate)="" then 
		errorMsg=errorMsg&"7*"
	Else
		resumeRs("EndDate")=EndDate
	End if
	if trim(CompanyName)="" then 
		errorMsg=errorMsg&"5*"
	Else
		resumeRs("CompanyName")=CompanyName
	End if
	resumeRs("CompanyKind")=CompanyKind
	resumeRs("Trade")=Trade
	if trim(Job)="" then 
		errorMsg=errorMsg&"6*"
	Else
		resumeRs("Job")=Job
	End if
	resumeRs("Department")=Department
	resumeRs("Description")=workDescription
	resumeRs("Certifier")=Certifier
	resumeRs("CertifierTel")=CertifierTel
	if Trim(errorMsg)="" then
		resumeRs.update
		resumeRs.close
	Else
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
Elseif part="educateexp" then
	if id<>"" then
		sqlstatement="select bid,UserNumber,BeginDate,EndDate,SchoolName,Specialty,Diploma,Description from FS_AP_Resume_EducateExp where bid="&id
	Else
		sqlstatement="select bid,UserNumber,BeginDate,EndDate,SchoolName,Specialty,Diploma,Description from FS_AP_Resume_EducateExp where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	UserNumber=session("FS_UserNumber")
	edu_BeginDate=request.Form("txt_BeginDate")
	edu_EndDate=request.Form("txt_EndDate")
	edu_SchoolName=request.Form("txt_SchoolName")
	edu_Specialty=request.Form("txt_Specialty")
	edu_Diploma=request.Form("txt_Diploma")
	edu_Description=request.Form("txt_Description")
	if trim(edu_BeginDate)="" then errorMsg=errorMsg&"4*"
	if trim(edu_SchoolName)="" then errorMsg=errorMsg&"8*"
	if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=UserNumber
	resumeRs("BeginDate")=edu_BeginDate
	resumeRs("EndDate")=edu_EndDate
	resumeRs("SchoolName")=edu_SchoolName
	resumeRs("Specialty")=edu_Specialty
	resumeRs("Diploma")=edu_Diploma	
	resumeRs("Description")=edu_Description
	resumeRs.update
	resumeRs.close
Elseif part="trainexp" then
	if id<>"" then
		sqlstatement="select bid,UserNumber,BeginDate,EndDate,TrainOrgan,TrainAdress,TrainContent,Certificate from FS_AP_Resume_TrainExp where bid="&id
	Else
		sqlstatement="select bid,UserNumber,BeginDate,EndDate,TrainOrgan,TrainAdress,TrainContent,Certificate from FS_AP_Resume_TrainExp where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	UserNumber=session("FS_UserNumber")
	train_BeginDate=request.Form("txt_BeginDate")
	train_EndDate=request.Form("txt_EndDate")
	train_TrainOrgan=request.Form("txt_TrainOrgan")
	train_TrainAdress=request.Form("txt_TrainAdress")
	train_TrainContent=request.Form("txt_TrainContent")
	train_Certificate=request.Form("txt_Certificate")
	if trim(train_BeginDate)="" then errorMsg=errorMsg&"4*"
	if trim(train_TrainOrgan)="" then errorMsg=errorMsg&"9*"
	if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=UserNumber
	resumeRs("BeginDate")=train_BeginDate
	resumeRs("EndDate")=train_EndDate
	resumeRs("TrainOrgan")=train_TrainOrgan
	resumeRs("TrainAdress")=train_TrainAdress
	resumeRs("TrainContent")=train_TrainContent	
	resumeRs("Certificate")=train_Certificate
	resumeRs.update
	resumeRs.close
Elseif part="language" then
	if id<>"" then
		sqlstatement="select bid,UserNumber,Language,Degree from FS_AP_Resume_Language where bid="&id
	Else
		sqlstatement="select bid,UserNumber,Language,Degree from FS_AP_Resume_Language where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	UserNumber=session("FS_UserNumber")
	Language=request.Form("txt_Language")
	Degree=request.Form("txt_Degree")
	if trim(Language)="" then errorMsg=errorMsg&"10*"
	if trim(Degree)="" then errorMsg=errorMsg&"11*"
		if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=UserNumber
	resumeRs("Language")=Language
	resumeRs("Degree")=Degree
	resumeRs.update
	resumeRs.close
Elseif part="certificate" then
	if id<>"" then
		sqlstatement="select UserNumber,FetchDate,Certificate,Score from FS_AP_Resume_Certificate where bid="&id
	Else
		sqlstatement="select UserNumber,FetchDate,Certificate,Score from FS_AP_Resume_Certificate where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	UserNumber=session("FS_UserNumber")
	FetchDate=request.Form("txt_FetchDate")
	Certificate=request.Form("txt_Certificate")
	Score=request.Form("txt_Score")
	if trim(FetchDate)="" then errorMsg=errorMsg&"12*"
	if trim(Certificate)="" then errorMsg=errorMsg&"13*"
	if trim(Score)="" then errorMsg=errorMsg&"11*"
	if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=UserNumber
	resumeRs("FetchDate")=FetchDate
	resumeRs("Certificate")=Certificate
	resumeRs("Score")=Score
	resumeRs.update
	resumeRs.close
Elseif part="projectexp" then
	if id<>"" then
		sqlstatement="select UserNumber,BeginDate,EndDate,Project,SoftSettings,HardSettings,Tools,ProjectDescript,Duty from FS_AP_Resume_ProjectExp where bid="&id
	Else
		sqlstatement="select UserNumber,BeginDate,EndDate,Project,SoftSettings,HardSettings,Tools,ProjectDescript,Duty from FS_AP_Resume_ProjectExp where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	UserNumber=session("FS_UserNumber")
	Pro_BeginDate=request.Form("txt_BeginDate")
	Pro_EndDate=request.Form("txt_EndDate")
	Project=request.Form("txt_Project")
	SoftSettings=request.Form("txt_SoftSettings")
	HardSettings=request.Form("txt_HardSettings")
	Tools=request.Form("txt_Tools")
	ProjectDescript=request.Form("txt_ProjectDescript")
	Duty=request.Form("txt_Duty")
	if trim(Pro_BeginDate)="" then errorMsg=errorMsg&"4*"
	if trim(Project)="" then errorMsg=errorMsg&"14*"
	if trim(ProjectDescript)="" then errorMsg=errorMsg&"15*"
	if trim(Duty)="" then errorMsg=errorMsg&"16*"
	if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=UserNumber
	resumeRs("BeginDate")=Pro_BeginDate
	resumeRs("EndDate")=Pro_EndDate
	resumeRs("Project")=Project
	resumeRs("Project")=Project
	resumeRs("SoftSettings")=SoftSettings
	resumeRs("HardSettings")=HardSettings
	resumeRs("Tools")=Tools
	resumeRs("ProjectDescript")=ProjectDescript
	resumeRs("Duty")=Duty
	resumeRs.update
	resumeRs.close
Elseif part="other" then
	if id<>"" then
		sqlstatement="select UserNumber,Title,Content from FS_AP_Resume_Other where bid="&id
	Else
		sqlstatement="select UserNumber,Title,Content from FS_AP_Resume_Other where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	title=request.Form("txt_Title")
	content=request.Form("txt_Content")
	if trim(title)="" then errorMsg=errorMsg&"17*"
	if trim(content)="" then errorMsg=errorMsg&"18*"
	if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=session("FS_UserNumber")
	resumeRs("title")=title
	resumeRs("content")=content
	resumeRs.update
	resumeRs.close
Elseif part="mail" then
	if id<>"" then
		sqlstatement="select UserNumber,MailName,Content from FS_AP_Resume_Mail where bid="&id
	Else
		sqlstatement="select UserNumber,MailName,Content from FS_AP_Resume_Mail where UserNumber='"&session("FS_UserNumber")&"'"
	End if
	mailTitle=request.Form("txt_MailName")
	mailContent=request.Form("txt_Content")
	if trim(mailTitle)="" then errorMsg=errorMsg&"17*"
	if trim(mailContent)="" then errorMsg=errorMsg&"18*"
	if errorMsg<>"" then 
		Response.Write(errorMsg)
		Conn.close
		Set Conn=nothing
		response.End()
	End if
	resumeRs.open sqlstatement,conn,1,3
	if action<>"edit" or resumeRs.eof then
		resumeRs.addNew
	End if
	resumeRs("UserNumber")=session("FS_UserNumber")
	resumeRs("MailName")=mailTitle
	resumeRs("Content")=mailContent
	resumeRs.update
	resumeRs.close
Elseif action="del" then
	Dim deltarget
	deltarget=request("delpart")
	if id="" then response.End()
	select case deltarget
		case "baseinfo" conn.execute("delete from FS_AP_Resume_BaseInfo where bid="&id)
		case "intention" conn.execute("delete from FS_AP_Resume_Intention where bid="&id)
		case "workexp" conn.execute("delete from FS_AP_Resume_WorkExp where bid="&id)
		case "educateexp" conn.execute("delete from FS_AP_Resume_EducateExp where bid="&id)
		case "trainexp" conn.execute("delete from FS_AP_Resume_TrainExp where bid="&id)
		case "language" conn.execute("delete from FS_AP_Resume_Language where bid="&id)
		case "certificate" conn.execute("delete from FS_AP_Resume_Certificate where bid="&id)
		case "projectexp" conn.execute("delete from FS_AP_Resume_ProjectExp where bid="&id)
		case "other" conn.execute("delete from FS_AP_Resume_Other where bid="&id)
		case "mail" conn.execute("delete from FS_AP_Resume_Mail where bid="&id)
	End select
End if
Response.write("ok")
Conn.close
Set Conn=nothing
Set tmpRs=nothing
%>

						