adddepartz.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="connection.asp"-->
<%
	xino=trim(request.Form("xino"))
	xiname=trim(request.Form("xiname"))

	sqlstr="select * from 系 where xino='" & xino &"' or xiname='" & xiname &"'"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sqlstr,CN
	
	if rs.eof then
		sqlstr="insert into 系 values('" & xino &"','" & xiname &"')"
		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
%>