handle.asp

教务系统工程 学生管理工作 教师管理工作

<%
'读取各字段的数据
Name = Request("Name")
sknr = Request("sknr")
Subject = Request("Subject")
sksj = Request("sksj")
skdd = Request("skdd")
kssj = Request("kssj")
ksz = Request("ksz")
Memo = Request("Memo")
'检查各字段是否输入了数据
'If Name = ""  Then
  ' Response.Write ("教工号不能为空！")
  ' Response.End '不再处理以下的程序
'End If
'插入到数据库
set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("lyb.mdb")) 
SQL = "INSERT INTO lyb(教工号,授课内容,作业,备注,上课时间,上课地点,课时,周次) VALUES('" &_
	Name& "','" & sknr & "','" & Subject & "','" & Memo & "','" & sksj & "','" & skdd & "','" & kssj & "','" & ksz & "')"
'Response.Write(SQL)
	conn.Execute(SQL)
    conn.close()
Response.Redirect("display.asp")
%>