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

📄 teacher_register3_2.asp

📁 系里的网站设计
💻 ASP
字号:
🔍 
	<!-- Created: 2001-06-02 23:58:25 -->
<HTML>
<HEAD>
	<META NAME="GENERATOR" Content="ASP Express 1.9">
	<TITLE>教工资料注册</TITLE>
<STYLE type=text/css>
TD,p,b,font,pre,BODY {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 12px
}

FORM {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 12px; MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px
}

A {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 12px; TEXT-DECORATION: none
}

H4 {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 14px
}
HR {
	COLOR: #000000; HEIGHT: 1px
}


</STYLE>

</HEAD>
<BODY>
<% 

function change(s)
	change = replace(replace(s, "'","''"),"""","""""")
end function
 %> 
<% 
dim t2_workcard,t2_name,t2_matename,t2_matework,t2_matetel,t2_1childname,t2_1childwork,t2_1childtel,t2_2childname,t2_2childwork,t2_2childtel,t2_3childname,t2_3childwork,t2_3childtel,t2_note,rs

t2_workcard=change(request.form("t2_workcard"))
t2_name=change(request.form("t2_name"))
t2_matename=change(request.form("t2_matename"))
t2_matework=change(request.form("t2_matework"))
t2_matetel=change(request.form("t2_matetel"))
t2_1childname=change(request.form("t2_1childname"))
t2_1childwork=change(request.form("t2_1childwork"))
t2_1childtel=change(request.form("t2_1childtel"))
t2_2childname=change(request.form("t2_2childname"))
t2_2childwork=change(request.form("t2_2childwork"))
t2_2childtel=change(request.form("t2_2childtel"))
t2_3childname=change(request.form("t2_3childname"))
t2_3childwork=change(request.form("t2_3childwork"))
t2_3childtel=change(request.form("t2_3childtel"))
t2_note=change(request.form("t2_note"))
 %> 
<% 
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./math_department.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open"family_inf",conn,1,3
rs.addnew

rs("工作证号")=t2_workcard
rs("姓名")=t2_name
rs("配偶姓名")=t2_matename
rs("配偶工作单位")=t2_matework
rs("配偶联系电话")=t2_matetel
rs("第一子女姓名")=t2_1childname
rs("第一子女工作单位")=t2_1childwork
rs("第一子女联系电话")=t2_1childtel
rs("第二子女姓名")=t2_2childname
rs("第二子女工作单位")=t2_2childwork
rs("第二子女联系电话")=t2_2childtel
rs("第三子女姓名")=t2_3childname
rs("第三子女工作单位")=t2_3childwork
rs("第三子女联系电话")=t2_3childtel
rs("备注")=t2_note
rs.update
rs.close
 %> 
<% 
response.Write "资料成功录入。<p>"
response.Write date() & "<p>"


 %> 
<table border="0" width="100%">
  <tr>
    <td width="56%">
      <hr>
    </td>
    <td width="44%"></td>
  </tr>
  <tr>
    <td width="56%"><a href="teacher_register2_2.htm">教工家庭情况录入系统----进入</a></td>
    <td width="44%"></td>
  </tr>
  <tr>
    <td width="56%"><a href="student_register1.htm">教工资料录入总系统------进入</a></td>
    <td width="44%"></td>
  </tr>
  <tr>
    <td width="56%">
      <hr>
    </td>
    <td width="44%"></td>
  </tr>
</table>





</BODY>
</HTML>

⌨️ 快捷键说明

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