addbiaoz.asp

来自「教务系统主要是老师和学生的一个平台」· ASP 代码 · 共 58 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="connection.asp"-->
<%
  	xino=trim(request.Form("xino"))
	zhuanyeno=trim(request.Form("zhuanyeno"))
	zhuanye=trim(request.Form("zhuanye"))
	xueqi=trim(request.Form("xq"))
	jino=trim(request.Form("jino"))
    banno=trim(request.Form("banno"))
	lessonno=trim(request.Form("lessonno"))
	everyweek=trim(request.Form("everyweek"))
	week=trim(request.Form("week"))
	jiecheck=trim(request.Form("jiecheck"))
	xuefen=trim(request.Form("xuefen"))
	lessontype=trim(request.Form("lessontype"))
	classroom=trim(request.Form("classroom"))
	teacherno=trim(request.Form("teacherno"))
	
	sqlstr="select * from 课程表 where jino='" & jino &"'" & "and banno='" & banno &"' and lessonno='" & lessonno &"' and zhuanyeno='" & zhuanyeno &"'"
	set rs3=Server.CreateObject("ADODB.recordset")
	rs3.open sqlstr,CN
	if rs3.eof then
		sqlcount="select * from 课程表 order by biaono desc"
		set rs=Server.CreateObject("ADODB.recordset")
		rs.open sqlcount,CN,1,3
		if rs.eof then
			biaono=0
		else
			biaono=rs("biaono")+1
		end if
		
		sqlstr="insert into 课程表 values(" & biaono &",'" & zhuanyeno &"','" 
		sqlstr=sqlstr & xino & "','"
		sqlstr=sqlstr & jino & "','"
		sqlstr=sqlstr & banno & "','"
		sqlstr=sqlstr & teacherno & "','"
		sqlstr=sqlstr & lessonno & "','"
		sqlstr=sqlstr & xueqi & "','"
		sqlstr=sqlstr & week & "','"
		sqlstr=sqlstr & everyweek & "','"
		sqlstr=sqlstr & jiecheck & "',"
		sqlstr=sqlstr & xuefen & ",'"
		sqlstr=sqlstr & lessontype & "','"
		sqlstr=sqlstr & classroom & "')"
		'response.write sqlstr
		'response.end 
		CN.execute sqlstr
		response.Redirect("addbiaoc.asp")
	else
		 response.write "<script language='javascript'>"
   		response.write "alert('该课程信息已经存在！');"
   		response.write "history.back(1);"
   		response.write "</script>"
   		response.end
	end if

%>