<%@ LANGUAGE = VBScript.Encode %>
<!-- #include virtual = "/include/myopen.asp" -->
<%
	set RS = Server.CreateObject("ADODB.RecordSet")
	set RS1 = Server.CreateObject("ADODB.RecordSet")
%>
<%
'类别填加
	'判断用户是否登陆过
	IF Request.Cookies ("Admin_name") = "" OR Request.Cookies ("Admin_Pass") ="" THEN
	'没有登陆
	Response.Redirect ("/manage/Admin_Login.ASP")
	END IF
	IF REQUEST("HOME") <> "" THEN
	Response.Redirect ("/manage/default.asp")
	END IF
	IF REQUEST("Add") <> "" THEN
	Response.Redirect ("/manage/class_add.asp")
	END IF
	'用户已经成功注册

'产生随即编号
	SQL = "SELECT CLASS_ID FROM ID "
	RS.Open SQL,CONN,adOpenStatic ,adLockReadOnly
		P_P_NO=RS(0)
	P_NO = RS(0) + 1
	SQL = "UPDATE ID SET CLASS_ID = '" & P_NO & "'"
	CONN.Execute (SQL)
	RS.Close 

				
  mghBEB~`cVB?	M*PZ~RhYnMCPh_5q-4wpOmYh:?)E+NpzL5aFXx.;e?:zk!..*5aQp	LUPN`zfR2x:	?P:z4!Ph!iz别.添.加*MmgL`zXXFhz.p4Z;Xe:!(5#mF+m#(YVpFX!c!~!.axlm+PFz-6xa%Y:!a!.p		Zm:!Y88R2)g"s!O~RNR24!a5lQp4UPN`z8R24!:a;#	LUe?:!c!.AFiL*i4X:g"`zV*H1KK7!.AXiL*i.g5gO5;Nmh:!Vk+JDK7!2iFOL*O.F:g"	pO|`zV71K17K!-#:UNP`z(!PZ*"zhP~!cY8z!.axFl?K#_*R#5;2加R`R)|MhgKz.Ppc!`z'HZMge!-'#5|Y~R返2回!.FK4:;.|:!m	FMgO2Vix4sXA!