edit0.asp

功能齐全的oa系统

<% option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/ShowAttachs.asp" -->

<%

Dim ObjDB,StrSQL
Dim C
Dim IntID,Result
Dim ObjRS

IntID = Request.QueryString("ID")
Session("Table_id")=IntID
Session("TableName")="T_Hrms_PersonSave"
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

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)>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,"