editsave0.asp

功能齐全的oa系统

<!--#include virtual="Include/dataenvi.asp"-->
<!--#include virtual="Include/MyFunc.asp"-->
<%
dim UserName,Sex,People,Birth,HKAddress,PoliticalVisage,IDCard,Married,EducationStyle,GraduateSchool
dim Speciality,GraduateTime,WorkTime,ForLan,Tel,Department,E_mail,Address,Zip,StudyProcess
dim WorkProcess,SocialRelation,Des,Id
dim Station,GraduateDegree,Degree,TechDegree,Company
dim BirthAddress,SpecType,TechDegreeName,TrainProcess

BirthAddress=trim(request("BirthAddress"))
SpecType=trim(request("SpecType"))
TechDegreeName=trim(request("TechDegreeName"))
TrainProcess=trim(request("TrainProcess"))

Station=trim(request("Station"))
GraduateDegree=trim(request("GraduateDegree"))
Degree=trim(request("Degree"))
TechDegree=trim(request("TechDegree"))
Company=request("Company")
Id=request.QueryString("ID")
UserName=trim(request("Name"))
Sex=trim(request("Sex"))
People=trim(request("People"))
Birth=trim(request("Birth"))
HKAddress=trim(request("HKAddress"))
PoliticalVisage=trim(request("PoliticalVisage"))
IDCard=trim(request("IDCard"))
Married=trim(request("Married"))
EducationStyle=trim(request("EducationStyle"))
GraduateSchool=trim(request("GraduateSchool"))
Speciality=trim(request("Speciality"))
GraduateTime=trim(request("GraduateTime"))
WorkTime=trim(request("WorkTime"))
ForLan=trim(request("ForLan"))
Tel=trim(request("Tel"))
Department=trim(request("Department"))
E_mail=trim(request("E_mail"))
Address=trim(request("Address"))
Zip=trim(request("Zip"))
StudyProcess=trim(request("StudyProcess"))
WorkProcess=trim(request("WorkProcess"))
SocialRelation=trim(request("SocialRelation"))
Des=trim(request("Des"))

'姓名限制
if UserName=""then
%>
<script language=javascript>
    alert("姓名不能为空！");
    history.go(-1);
</script>
<%
response.end
else
	if Len(UserName)<=0 or Len(UserName)>40  then
	%>
		<script language=javascript>
		alert("姓名长度必须大于0小于40个字符或小于20个汉字！");
		history.go(-1);
		</script>		
		<%
		response.End()
	end if
  	if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"