up_add_yuanxi.asp

一个基于ＡＳＰ的学生管理系统

<!--#include file="inc/conn.asp"-->
<% 
xy_name=Trim(Request.Form("xy_name"))
xy_name1=Trim(Request.Form("xy_name1"))
x_name=Trim(Request.Form("xi_name"))
xy_id1=Trim(Request.Form("xy_id1"))
x_id=Trim(Request.Form("xi_id"))
adminname=Trim(Request.Form("adminname"))
passwd=Trim(Request.Form("passwd"))


 openDB
if xy_name="选择学院" then 
   if xy_name1="" or xy_id1="" then
   closeDB
         Response.Redirect "add_yuanxi.asp" 
   else
       
        set rs = Server.CreateObject("adodb.recordset")
		
        rs.open "xueyuan",conn,1,3
	    rs.addnew
	    rs("xy_name")=xy_name1
	    rs("xy_id")=xy_id1
	    rs("xy_usernum")=0
	    rs.update
		rs.close
		set rs=nothing	
		sql="insert into admin(ad_name,ad_passwd,ad_lev,ad_sign) values ('"&adminname&"','"&passwd&"','"&xy_name&"',0,"&")"
      set rs = conn.execute(sql)	
	end if
end if
if xy_name<>"选择学院" then
  sql="insert into xi(x_name,x_id,x_usernum,xy_id) values ('"&x_name&"','"&x_id&"',0,'"&xy_name&"')"
  set rs = conn.execute(sql)	
end if	
	closeDB
	Response.Redirect "add_yuanxi.asp" 

 %>