admin_bigclassadd.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#INCLUDE FILE="Conn.asp" -->
<%
founderr=false

function changechr(str)
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," "," ")
changechr=replace(changechr,"'","‘")
changechr=replace(changechr,mid(" "" ",2,1),"&quot;")
end function

dim typename
dim howmany
typename=changechr(trim(request.form("type")))
BigClassType=request.form("BigClassType")
howmany=request.form("howmany")

If typename="" Then
	errmsg=errmsg+"<li>分类名称不能为空！"
	founderr=true
end if

If BigClassType<>0 Then BigClassType=1

sql="select * from BigClass"
rs.open sql,conn,1,1
do while not rs.eof
if rs("BigClassname")=typename then
	errmsg=errmsg+"<li>已经存在这个分类名称！"
	founderr=true
end if
rs.movenext
loop
rs.close

if founderr=true then
	call error()
	set rs=nothing
	conn.close
	set conn=nothing
else
	sql="select * from BigClass"
	rs.open sql,conn,3,3
	rs.addnew
	rs("BigClassname")=typename
	rs("BigClassType")=BigClassType
	if BigClassType=0 then
		rs("BigClassView")=0
	else
		rs("BigClassView")=1
	end if
	rs("BigClassID")=howmany+1
	rs("BigClassmaster")="无"
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.redirect "admin_BigClassMana.asp"
end if
%>