📄 teacher_register3_3.asp

📁 系里的网站设计

💻 ASP

字号:

	<!-- Created: 2001-06-03 0:12:06 -->
<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 t3_workcard,t3_name,t3_examinedate,t3_examinegrade,t3_note,rs

t3_workcard=change(request.form("t3_workcard"))
t3_name=change(request.form("t3_name"))
t3_examinedate=change(request.form("t3_examinedate"))
t3_examinegrade=change(request.form("t3_examinegrade"))
t3_note=change(request.form("t3_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"examine_inf",conn,1,3
rs.addnew

rs("工作证号")=t3_workcard
rs("姓名")=t3_name
rs("考核年度")=t3_examinedate
rs("考核成绩")=t3_examinegrade
rs("备注")=t3_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_3.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 + -