edit.asp

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

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