edit0.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,StrSQL
Dim C
Dim IntID
Dim ObjRS,rs
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
IntID = Request.QueryString("ID")
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

Set ObjRS = C.View("Select * From v_Hrms_PersonSave Where ID = " & IntID) 
dim ComID,DepID,StationID,BComID,BDepID,BStationID,Names,Forms
ComID=ObjRS("Company")
DepID=ObjRS("Department")
StationID=ObjRS("Station")
BComID=ObjRS("ComName")
BDepID=ObjRS("DepName")
BStationID=ObjRS("StationName")
Names=ObjRS("Name")
Forms=ObjRS("Form")


If Request.Form.Count > 0 Then

'姓名限制
dim Username
UserName=request("Name")
	if UserName="" then 
		%>
		<script language="JavaScript" type="text/JavaScript">
		alert("主考人姓名不能为空！请输入姓名！");
		history.go(-1);
		</script>
		<%
		response.end
	else
		if Len(UserName)<=0 or Len(UserName)>50  then
			%>
			<script language=javascript>
			alert("姓名长度必须大于0小于50个字符或小于25个汉字！");
			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,"