addzhuanyez.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="connection.asp"-->
<%
	xino=trim(request.Form("xino1"))
	zhuanyeno=trim(request.Form("zhuanyeno1"))
	zhuanyename=trim(request.Form("zhuanyename1"))
	sqlstr="select * from 专业 where zhuanyeno='"  & zhuanyeno &"' or  zhuanye='" & zhuanyename &"'" 

	set rs=Server.CreateObject("ADODB.recordset")
	rs.open sqlstr,CN
	if rs.eof then
		sqlstr="insert into 专业 values('" &xino & "','" & zhuanyeno &"','" & zhuanyename &"')"
		CN.execute sqlstr
		response.Redirect("adddepart.asp")
	else
		response.write "<script language='javascript'>"
   		response.write "alert('该专业信息已经录入！');"
   		response.write "history.back(1);"
   		response.write "</script>"
   		response.end
	end if
%>