📄 teacher_register3_6.asp
字号:
<!-- Created: 2001-06-03 0:31:16 -->
<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 t6_workcard,t6_name,t6_treatise,t6_publishdate,t6_xth,t6_publishing,t6_grade,t6_note,rs
t6_workcard=change(request.form("t6_workcard"))
t6_name=change(request.form("t6_name"))
t6_treatise=change(request.form("t6_treatise"))
t6_publishdate=change(request.form("t6_publishdate"))
t6_xth=change(request.form("t6_xth"))
t6_publishing=change(request.form("t6_publishing"))
t6_grade=change(request.form("t6_grade"))
%>
<%
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"treatise_inf",conn,1,3
rs.addnew
rs("工作证号")=t6_workcard
rs("姓名")=t6_name
rs("论著名称")=t6_treatise
rs("出版日期")=t6_publishdate
rs("第几作者")=t6_xth
rs("出版社")=t6_publishing
rs("级别")=t6_grade
rs("备注")=t6_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_6.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 + -