📄 teacher_register3_1.asp

📁 系里的网站设计
💻 ASP
字号:
	<!-- Created: 2001-06-02 23:19:43 -->
<HTML>
<HEAD>
	<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
	<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 t1_workcard,t1_name,t1_psw1,t1_psw2,t1_sex,t1_folk,t1_native,t1_birthday,t1_hometel,t1_homeadr,t1_email,t1_id,t1_office,t1_technical ,t1_politics,t1_lastdegree,t1_lastdegreedate,t1_lastschool,t1_lastschooldate,t1_speciality,t1_startworkdate,t1_wage,t1_headship,t1_engagedate,t1_note,rs

t1_workcard=change(request.form("t1_workcard"))
t1_name=change(request.form("t1_name"))
t1_psw1=change(request.form("t1_psw1"))
t1_psw2=change(request.form("t1_psw2"))
t1_sex=change(request.form("t1_sex"))
t1_folk=change(request.form("t1_folk"))
t1_native=change(request.form("t1_native"))
t1_birthday=change(request.form("t1_birthday"))
t1_hometel=change(request.form("t1_hometel"))
t1_homeadr=change(request.form("t1_homeadr"))
t1_email=change(request.form("t1_email"))
t1_id=change(request.form("t1_id"))
t1_office=change(request.form("t1_office"))
t1_technical =change(request.form("t1_technical"))
t1_politics=change(request.form("t1_politics"))
t1_lastdegree=change(request.form("t1_lastdegree"))
t1_lastdegreedate=change(request.form("t1_lastdegreedate"))
t1_lastschool=change(request.form("t1_lastschool"))
t1_lastschooldate=change(request.form("t1_lastschooldate"))
t1_speciality=change(request.form("t1_speciality"))
t1_startworkdate=change(request.form("t1_startworkdate"))
t1_wage=change(request.form("t1_wage"))
t1_headship=change(request.form("t1_headship"))
t1_engagedate=change(request.form("t1_engagedate"))
t1_note=change(request.form("t1_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"base_inf",conn,1,3
rs.addnew

rs("工作证号")= t1_workcard
rs("姓名")= t1_name
rs("密码")= t1_psw1
rs("确认密码")= t1_psw2
rs("性别")= t1_sex
rs("民族")= t1_folk
rs("籍贯")= t1_native
rs("出生年月")= t1_birthday
rs("家庭电话")= t1_hometel
rs("家庭住址")= t1_homeadr
rs("email")= t1_email
rs("身份证号码")= t1_id
rs("部门")= t1_office
rs("职称")= t1_technical 
rs("政治面貌")= t1_politics
rs("最后学位学历")= t1_lastdegree
rs("最后学位学历取得时间")= t1_lastdegreedate
rs("毕业院校")= t1_lastschool
rs("毕业时间")= t1_lastschooldate
rs("专业方向")= t1_speciality
rs("参加工作日期")= t1_startworkdate
rs("工资")= t1_wage
rs("职务")= t1_headship
rs("聘任时间")= t1_engagedate
rs("备注")= t1_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_1.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>
<br>
<br>
</BODY>
</HTML>
⌨️ 快捷键说明

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