📄 infoinput.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="StudentConn.asp" -->
<!--#include file="CheckLogin.asp"-->
<%
Dim rsGrade1__MMColParam
rsGrade1__MMColParam = "01"
If (Request("MM_EmptyValue") <> "") Then
rsGrade1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade1
Dim rsGrade1_numRows
Set rsGrade1 = Server.CreateObject("ADODB.Recordset")
rsGrade1.ActiveConnection = MM_StudentConn_STRING
rsGrade1.Source = "SELECT * FROM Class WHERE GradeID='" & rsGrade1__MMColParam & "' ORDER BY ClassID ASC"
rsGrade1.CursorType = 0
rsGrade1.CursorLocation = 3
rsGrade1.LockType = 3
rsGrade1.Open()
rsGrade1_numRows = 0
%>
<%
Dim rsGrade2__MMColParam
rsGrade2__MMColParam = "02"
If (Request("MM_EmptyValue") <> "") Then
rsGrade2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade2
Dim rsGrade2_numRows
Set rsGrade2 = Server.CreateObject("ADODB.Recordset")
rsGrade2.ActiveConnection = MM_StudentConn_STRING
rsGrade2.Source = "SELECT * FROM Class WHERE GradeID='"& rsGrade2__MMColParam &"' ORDER BY ClassID ASC"
rsGrade2.CursorType = 0
rsGrade2.CursorLocation = 2
rsGrade2.LockType = 1
rsGrade2.Open()
rsGrade2_numRows = 0
%>
<%
Dim rsGrade3__MMColParam
rsGrade3__MMColParam = "03"
If (Request("MM_EmptyValue") <> "") Then
rsGrade3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade3
Dim rsGrade3_numRows
Set rsGrade3 = Server.CreateObject("ADODB.Recordset")
rsGrade3.ActiveConnection = MM_StudentConn_STRING
rsGrade3.Source = "SELECT * FROM Class WHERE GradeID='" & rsGrade3__MMColParam & "' ORDER BY ClassID ASC"
rsGrade3.CursorType = 0
rsGrade3.CursorLocation = 2
rsGrade3.LockType = 1
rsGrade3.Open()
rsGrade3_numRows = 0
%>
<%
Dim rsGrade4__MMColParam
rsGrade4__MMColParam = "04"
If (Request("MM_EmptyValue") <> "") Then
rsGrade4__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade4
Dim rsGrade4_numRows
Set rsGrade4 = Server.CreateObject("ADODB.Recordset")
rsGrade4.ActiveConnection = MM_StudentConn_STRING
rsGrade4.Source = "SELECT * FROM Class WHERE GradeID='" & rsGrade4__MMColParam & "' ORDER BY ClassID ASC"
rsGrade4.CursorType = 0
rsGrade4.CursorLocation = 2
rsGrade4.LockType = 1
rsGrade4.Open()
rsGrade4_numRows = 0
%>
<%
Dim rsGrade5__MMColParam
rsGrade5__MMColParam = "05"
If (Request("MM_EmptyValue") <> "") Then
rsGrade5__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade5
Dim rsGrade5_numRows
Set rsGrade5 = Server.CreateObject("ADODB.Recordset")
rsGrade5.ActiveConnection = MM_StudentConn_STRING
rsGrade5.Source = "SELECT * FROM Class WHERE GradeID='" & rsGrade5__MMColParam & "' ORDER BY ClassID ASC"
rsGrade5.CursorType = 0
rsGrade5.CursorLocation = 2
rsGrade5.LockType = 1
rsGrade5.Open()
rsGrade5_numRows = 0
%>
<%
MM_editAction = CStr(Request("URL"))
MM_abortEdit = false
MM_editQuery = ""
strStudentNum=CStr(Request("StudentNum"))
%>
<%
If (strStudentNum <> "") Then
MM_dupKeyRedirect="InfoModify.asp"
MM_rsKeyConnection=MM_StudentConn_STRING
MM_dupKeyUsernameValue = strStudentNum
MM_dupKeySQL="SELECT StudentNum FROM StudentInfo WHERE StudentNum='" & MM_dupKeyUsernameValue & "'"
MM_adodbRecordset="ADODB.Recordset"
set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
MM_rsKey.ActiveConnection=MM_rsKeyConnection
MM_rsKey.Source=MM_dupKeySQL
MM_rsKey.CursorType=0
MM_rsKey.CursorLocation=2
MM_rsKey.LockType=3
MM_rsKey.Open
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
MM_qsChar = "?"
If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "StudentNum=" & MM_dupKeyUsernameValue & "&Err=True"
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = MM_StudentConn_STRING
MM_editTable = "StudentInfo"
strStudentNum = Request.Form("StudentNum")
strStudentNum = strStudentNum + 1
if left(strStudentNum,1)<>"0" then
strStudentNum="0" & strStudentNum
end if
MM_editRedirectUrl = "InfoInput.asp?StudentNum=" & strStudentNum
MM_fieldsStr = "StudentNum|value|Name|value|GradeId|value|ClassID|value|politics|value|Birthday|value|TelNum|value|remark|value"
MM_columnsStr="StudentNum|',none,''|Name|',none,''|GradeId|',none,''|ClassID|',none,''|politics|',none,''|Birthday|',none,''|TelNum|',none,''|remark|',none,''"
MM_fields = Split(MM_fieldsStr, "|") '分割
MM_columns = Split(MM_columnsStr, "|") '分割
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
End If
%>
<%
If (CStr(Request("MM_insert")) <> "") Then
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1) '获取value
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & "(" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.NamedParameters = true
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>信息录入</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function checkform()
{
var strStudentNum
strStudentNum=document.form1.StudentNum.value
if(strStudentNum=="")
{
alert("你还没有填编号！");
document.form1.StudentNum.focus();
return false;
}
if(strStudentNum.length<6)
{
alert("编号位数不足6位！");
document.form1.StudentNum.focus();
return false;
}
if(document.form1.Name.value=="")
{
alert("你还没有填姓名！");
document.form1.Name.focus();
return false;
}
if(document.form1.TelNum.value=="")
{
alert("你还没有填写身份证号！");
document.form1.TelNum.focus();
return false;
}
if((document.form1.TelNum.value.length!=15)&&(document.form1.TelNum.value.length!=18))
{
alert("身份证号位数不正确！");
document.form1.TelNum.focus();
return false;
}
if(document.form1.remark.value=="")
{
alert("你还没有填写账号！");
document.form1.remark.focus();
return false;
}
}
function ChangeClass()
{
var i;
for(i=document.form1.ClassID.options.length-1;i>=0;i--)
{
document.form1.ClassID.options[i]=null;
}
switch(document.form1.GradeID.selectedIndex)
{
case 0:
for(i=0;i<document.Classes.Grade1.options.length;i++)
{
document.form1.ClassID.options[i]=new Option(document.Classes.Grade1.options[i].text,document.Classes.Grade1.options[i].value);
}
break;
case 1:
for(i=0;i<document.Classes.Grade2.options.length;i++)
{
document.form1.ClassID.options[i]=new Option(document.Classes.Grade2.options[i].text,document.Classes.Grade2.options[i].value);
}
break;
case 2:
for(i=0;i<document.Classes.Grade3.options.length;i++)
{
document.form1.ClassID.options[i]=new Option(document.Classes.Grade3.options[i].text,document.Classes.Grade3.options[i].value);
}
break;
case 3:
for(i=0;i<document.Classes.Grade4.options.length;i++)
{
document.form1.ClassID.options[i]=new Option(document.Classes.Grade4.options[i].text,document.Classes.Grade4.options[i].value);
}
break;
case 4:
for(i=0;i<document.Classes.Grade5.options.length;i++)
{
document.form1.ClassID.options[i]=new Option(document.Classes.Grade5.options[i].text,document.Classes.Grade5.options[i].value);
}
break;
}
}
//-->
</script>
</HEAD>
<BODY text=#000000 bgColor=#f7f7ff leftMargin=0 topMargin=0>
<div id="Layer1" style="position:absolute; left:445px; top:220px; width:188px; height:64px; z-index:1; visibility: hidden;">
<form name="Classes" method="post" action="">
<select name="Grade1" id="select">
<option value="All">全部</option>
<%
While (NOT rsGrade1.EOF)
%>
<option value="<%=(rsGrade1.Fields.Item("ClassID").Value)%>"><%=(rsGrade1.Fields.Item("ClassName").Value)%></option>
<%
rsGrade1.MoveNext()
Wend
If (rsGrade1.CursorType > 0) Then
rsGrade1.MoveFirst
Else
rsGrade1.Requery
End If
%>
</select>
<select name="Grade2" id="select2">
<option value="All">全部</option>
<%
While (NOT rsGrade2.EOF)
%>
<option value="<%=(rsGrade2.Fields.Item("ClassID").Value)%>"><%=(rsGrade2.Fields.Item("ClassName").Value)%></option>
<%
rsGrade2.MoveNext()
Wend
If (rsGrade2.CursorType > 0) Then
rsGrade2.MoveFirst
Else
rsGrade2.Requery
End If
%>
</select>
<select name="Grade3" id="Grade3">
<option value="All">全部</option>
<%
While (NOT rsGrade3.EOF)
%>
<option value="<%=(rsGrade3.Fields.Item("ClassID").Value)%>"><%=(rsGrade3.Fields.Item("ClassName").Value)%></option>
<%
rsGrade3.MoveNext()
Wend
If (rsGrade3.CursorType > 0) Then
rsGrade3.MoveFirst
Else
rsGrade3.Requery
End If
%>
</select>
<select name="Grade4" id="Grade4">
<option value="All">全部</option>
<%
While (NOT rsGrade4.EOF)
%>
<option value="<%=(rsGrade4.Fields.Item("ClassID").Value)%>"><%=(rsGrade4.Fields.Item("ClassName").Value)%></option>
<%
rsGrade4.MoveNext()
Wend
If (rsGrade4.CursorType > 0) Then
rsGrade4.MoveFirst
Else
rsGrade4.Requery
End If
%>
</select>
<select name="Grade5" id="Grade5">
<option value="All">全部</option>
<%
While (NOT rsGrade5.EOF)
%>
<option value="<%=(rsGrade5.Fields.Item("ClassID").Value)%>"><%=(rsGrade5.Fields.Item("ClassName").Value)%></option>
<%
rsGrade5.MoveNext()
Wend
If (rsGrade5.CursorType > 0) Then
rsGrade5.MoveFirst
Else
rsGrade5.Requery
End If
%>
</select>
</form>
</div>
<!--#include file="InfoManage_Top.asp"-->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#f7f7ff">
<tr>
<TD align="center" bgcolor="#f7f7ff">
<FORM Name="form1" onSubmit="return checkform()" action="<%=MM_editAction%>" method="POST">
<br>
<span class="title">录入信息</span><br>
<br>
<TABLE width="400" border=1 align="center" cellpadding="5" cellSpacing=0 bordercolor="#CCCCFF" style="border-collapse:collapse">
<tr>
<td width=80 align=right>编号：<br> <br> </td>
<td align=left> <input class=rec_form size=12 Name=StudentNum maxlength="8" value="<% =strStudentNum %>">
<font color="#FF0000">*</font><br>
编号构成规则：人员类别+科室代码+序号<br>
例如：<font color="#9900FF">030101</font>：指行政人员财务科01号。</td>
</tr>
<TR>
<TD width=80 align=right>姓名：</TD>
<TD align=left><INPUT class=rec_form size=12 Name=Name maxlength="10">
<font color="#FF0000">*</font></TD>
</TR>
<TR>
<TD align=right>科室：</TD>
<TD align=left>
<select name="GradeID" onChange="ChangeClass()">
<option value="01" selected>医疗</option>
<option value="02">药品</option>
<option value="03">行政</option>
<option value="04">合同</option>
<option value="05">自负</option>
</select>
<select name="ClassID">
<option value="All" selected>全部</option>
<%
While (NOT rsGrade1.EOF)
%>
<option value="<%=(rsGrade1.Fields.Item("ClassID").Value)%>"><%=(rsGrade1.Fields.Item("ClassName").Value)%></option>
<%
rsGrade1.MoveNext()
Wend
If (rsGrade1.CursorType > 0) Then
rsGrade1.MoveFirst
Else
rsGrade1.Requery
End If
%>
</select></TD>
</TR>
<TR>
<TD width="80" align=right>政治面貌：</TD>
<TD align=left><SELECT Name=politics>
<option value="党员">党员</option>
<option value="群众">群众</option>
<option value="其它" selected>其它</option>
</SELECT></TD>
</TR>
<tr>
<td width="80" align=right>出生日期：</td>
<td align=left><input Name=Birthday class=rec_form size=12>例：1978-5-18</td>
</tr>
<tr>
<td width="80" align=right>身份证号：</td>
<td><input class=rec_form size=20 Name=TelNum maxlength="20">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="80" align=right valign="top">账号：</td>
<td><input name="remark" type="text" class="rec_form" value="" size="20">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="40" colspan="2" align=center valign="middle">
<%
if strStudentNum<>"" then
response.write "<script language='JavaScript'>document.form1.Name.focus();</script>"
else
response.write "<script language='JavaScript'>document.form1.StudentNum.focus();</script>"
end if
%>
<input type="hidden" name="MM_insert" value="true"><input id=submit2 type=submit value=保存 name=submit> </td>
</tr>
</TABLE>
</FORM></td>
</tr>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
</td>
</tr>
</table>
</BODY>
</HTML>
<%
rsGrade1.Close()
Set rsGrade1 = Nothing
%>
<%
rsGrade2.Close()
Set rsGrade2 = Nothing
%>
<%
rsGrade3.Close()
Set rsGrade3 = Nothing
%>
<%
rsGrade4.Close()
Set rsGrade4 = Nothing
%>
<%
rsGrade5.Close()
Set rsGrade5 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -