⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 edit_student.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用
💻 ASP
📖 第 1 页 / 共 3 页
字号:
steudent_name__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  steudent_name__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim steudent_name
Dim steudent_name_numRows

Set steudent_name = Server.CreateObject("ADODB.Recordset")
steudent_name.ActiveConnection = MM_conn_STRING
steudent_name.Source = "SELECT * FROM user_name WHERE ID = " + Replace(steudent_name__MMColParam, "'", "''") + ""
steudent_name.CursorType = 0
steudent_name.CursorLocation = 2
steudent_name.LockType = 1
steudent_name.Open()

steudent_name_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("MM_username") <> "") Then 
  Recordset1__MMColParam = Session("MM_username")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM admin_name WHERE class = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 12px;
	font-weight: normal;
	color: #0000FF;
}
.STYLE3 {font-size: 12px;
	font-weight: bold;
}
.STYLE7 {font-size: 24px}
.STYLE8 {color: #000000; font-weight: bold;}
.STYLE9 {color: #FF0000}
body {
	background-image: url(greystrip.gif);
}
-->
</style>
</head>
<% 
'****************************** 
'函数:Userip() 
'参数:无 
'作者:阿里西西 
'日期:2007/7/12 
'描述:取得客户端IP地址 
'示例:<%=Userip() 
'****************************** 
Function Userip() 
Dim GetClientIP 
'如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then 
'如果客户端没用代理,应该用Request.ServerVariables("REMOTE_ADDR")方法 
GetClientIP = Request.ServerVariables("REMOTE_ADDR") 
end if 
Userip = GetClientIP 
End function 
%> 
<script LANGUAGE="vbscript"> 
<!-- 
Sub form1_onsubmit() //** 这里是关键,当form1在提交的过程中时,激活form2的提交 
form2.submit() //** 所以我们这里用了两个表单,但只需点击一次提交就可以了。 
End Sub 
--> 
</script>
<body>
<div align="center" class="STYLE1">

<script language="vbscript">
<!--
function aa()

		text1.innerText=form1.sfz.value
		form1.xjh.value=form1.sfz.value
		form1.csnyr.value=mid(form1.sfz.value,7,8)
		text2.innerText=mid(form1.sfz.value,7,8)
			
End function
-->
</script>

  <form action="<%=MM_editAction%>" method="POST" name="form1" id="form1">
    <table width="658" height="690" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td colspan="2" height="61" ><div align="center" class="STYLE7"><span class="STYLE8">广东省义务教育阶段学生学籍卡</span>(<%=(steudent_name.Fields.Item("name").Value)%>)</div></td>
      </tr>
      <tr>
        <td width="355" height="26" class="STYLE1"><span class="STYLE3">建卡学校:&nbsp;<%=(steudent_name.Fields.Item("建卡学校").Value)%></span></td>
        <td width="275" class="STYLE1">建卡日期:&nbsp;<%=(steudent_name.Fields.Item("建卡日期").Value)%></td>
      </tr>
      <tr>
        <td height="42" colspan="2">
        <div align="center">
        <table width="680" height="59" border="1" cellpadding="0" cellspacing="0" bordercolor="#0000FF" style="border-collapse: collapse" bgcolor="#99CCFF">
          <tr class="STYLE1">
            <td width="92"><div align="center">身份证号 </div></td>
            <td width="305" ><p align="left">
              <input name="sfz" type="text" id="sfz" value="<%=(steudent_name.Fields.Item("身份证号").Value)%>" size="20" maxlength="18"   onkeyup="aa()" />
            没申办户口的填441622+出生年月日</p>
              </td>
            <td colspan="2"><p align="center">建卡原因:新生入学(<span class="STYLE9">V</span>)转入( )</p></td>
          </tr>
          <tr class="STYLE1">
            <td><p align="center">学籍号</p></td>
            <td ><p align="left" style="margin-top: 1px; margin-bottom: 0"><span id=text1><%=(steudent_name.Fields.Item("学籍号").Value)%></span><span class="STYLE9">(学籍根据身份证自动生成)</span></p>
              <p align="left" style="margin-top: 1px; margin-bottom: 0"><span class="STYLE1">户口性质:</span>
                <label>
                  <select name="户口" id="户口">
                    <option value="<%=(steudent_name.Fields.Item("户口").Value)%>" selected="selected"><%=(steudent_name.Fields.Item("户口").Value)%></option>
                    <option value="非农户口(隆)">非农户口(隆)</option>
                    <option value="非农户口(乡)">非农户口(乡)</option>
                    <option value="农业户口(隆)">农业户口(隆)</option>
                    <option value="农业户口(乡)">农业户口(乡)</option>
                    </select>
                  </label>
                </p></td>
            <td width="102">
			<p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">出生年月日</p></td>
            <td width="191">
			<p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">
              <span id=text2><%=(steudent_name.Fields.Item("出生年月日").Value)%></span><input name="csnyr" type="hidden" id="csnyr" />
            </p>
              <p align="center" style="line-height: 150%; margin-top: 0; margin-bottom: 0">
				<font color="#FF0000">(出生年月不录,身份证自动生成)</font> </p></td>
          </tr>
        </table>
          </div>
            <table width="680" height="174" border="1" cellpadding="0" cellspacing="0" bordercolor="#0000FF" style="border-collapse: collapse" bgcolor="#99CCFF">
              <tr>
                <td width="92" class="STYLE1"><div align="center">现名</div></td>
                <td width="108" class="STYLE1"><div align="center" class="STYLE9"><%=(steudent_name.Fields.Item("name").Value)%></div></td>
                <td width="78" class="STYLE1"><div align="center">曾用名</div></td>
                <td width="114" class="STYLE1"><div align="center">
                    <input name="曾用名" type="text" id="曾用名" value="<%=(steudent_name.Fields.Item("曾用名").Value)%>" size="10" maxlength="8" />
                </div></td>
                <td colspan="2" class="STYLE1"><div align="center">籍贯:
                  <input name="省" type="text" id="省" value="<%=(steudent_name.Fields.Item("省").Value)%>" size="4" maxlength="10" />
                  <input name="市" type="text" id="市" value="<%=(steudent_name.Fields.Item("市").Value)%>" size="4" maxlength="10" />
                  <input name="县" type="text" id="县" value="<%=(steudent_name.Fields.Item("县").Value)%>" size="4" maxlength="10" />
                  <input name="镇" type="text" id="镇" value="<%=(steudent_name.Fields.Item("镇").Value)%>" size="4" maxlength="10" />
                  镇</div></td>
              </tr>
              <tr>
                <td class="STYLE1"><div align="center">性别</div></td>
                <td class="STYLE1"><div align="center">
                  <label>
                  <select name="性别" id="性别">
					<option value="<%=(steudent_name.Fields.Item("性别").Value)%>" selected="selected"><%=(steudent_name.Fields.Item("性别").Value)%></option>
                    <option value="男">男</option>
                    <option value="女">女</option>
                  </select>
                  </label>
                </div></td>
                <td class="STYLE1"><div align="center">民族</div></td>
                <td class="STYLE1"><div align="center">
                  <select name="民族" id="民族">
					<option value="<%=(steudent_name.Fields.Item("民族").Value)%>" selected="selected"><%=(steudent_name.Fields.Item("民族").Value)%></option>
                      <option value="汉族">汉族</option>
                      <option value="蒙古族">蒙古族 </option>
                      <option value="回族">回族 </option>
                      <option value="藏族">藏族 </option>
                      <option value="苗族">苗族 </option>
                      <option value="彝族">彝族 </option>
                      <option value="壮族">壮族 </option>
                      <option value="布依族">布依族 </option>
                      <option value="朝鲜族">朝鲜族 </option>
                      <option value="满族">满族 </option>
                      <option value="侗族">侗族 </option>
                      <option value="瑶族">瑶族 </option>
                      <option value="白族">白族 </option>
                      <option value="土家族">土家族 </option>
                      <option value="哈尼族">哈尼族 </option>
                      <option value="哈萨克族">哈萨克族 </option>
                      <option value="傣族">傣族 </option>
                      <option value="黎族">黎族 </option>
                      <option value="傈僳族">傈僳族 </option>
                      <option value="佤族">佤族 </option>
                      <option value="畲族">畲族 </option>
                      <option value="高山族">高山族 </option>
                      <option value="拉祜族">拉祜族 </option>
                      <option value="水族">水族 </option>
                      <option value="东乡族">东乡族 </option>
                      <option value="纳西族">纳西族 </option>
                      <option value="景颇族">景颇族 </option>
                      <option value="柯尔克孜族">柯尔克孜族 </option>
                      <option value="土族">土族 </option>
                      <option value="达乌尔族">达乌尔族 </option>
                      <option value="羌族">羌族 </option>
                      <option value="仫佬族">仫佬族 </option>
                      <option value="布朗族">布朗族 </option>
                      <option value="撒拉族">撒拉族 </option>
                      <option value="毛难族">毛难族 </option>
                      <option value="仡佬族">仡佬族 </option>
                      <option value="锡伯族">锡伯族 </option>
                      <option value="阿昌族">阿昌族 </option>
                      <option value="普米族">普米族 </option>
                      <option value="塔吉克族">塔吉克族 </option>
                      <option value="怒族">怒族 </option>
                      <option value="乌孜别克族">乌孜别克族 </option>
                      <option value="俄罗斯族">俄罗斯族 </option>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -