edit.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" -->

<%

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

IntID = Request.QueryString("ID")
Session("Table_id")=IntID
Session("TableName")="t_Hrms_JobApplication_Interview"
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)>25  then
			%>
			<script language=javascript>
			alert("活动名称必须小于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,"