admin_smallclassadd.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<%
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
BigClassName=request.form("BigClassName")
typename=changechr(trim(request.form("type")))
SmallClassType=request.form("SmallClassType")
howmany=request.form("howmany")

If typename="" Then
%>
<script language=javascript>
history.back()
alert("不能为空！")
</script>
<%
response.end
end if
sql="select * from SmallClass where BigClassName='" & BigClassName & "'"
rs.open sql,conn,3,3
do while not rs.eof
if rs("SmallClassName")=typename then
%>
<script language=javascript>
history.back()
alert("已经存在这个分类名称！")
</script>
<%
response.end
end if
rs.movenext
loop
rs.close

If SmallClassType<>0 Then
SmallClassType=1
end if

sql="select * from BigClass where BigClassname='" & BigClassname & "'"
rs.open sql,conn,1,1
BigClassid=rs("BigClassid")
rs.close

sql="select * from SmallClass"
rs.open sql,conn,1,3
rs.addnew
rs("SmallClassName")=typename
rs("SmallClassID")=howmany+1
rs("SmallClassmaster")="无"
rs("BigClassName")=BigClassName
rs("SmallClassType")=SmallClassType
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_SmallClassMana.asp"
%>