addnew.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 39 行

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/Roles.asp"-->
<%
Dim ObjDB,ObjRS,StrSQL
Dim C
Dim IntID,Result

Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB
dim AddComID
AddComID=AddNewComID(ObjDB)
ObjDB.close

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