<% @language="vbscript" %>
<!--#include file="conn.asp" -->  
<% 
response.buffer=true
Response.Expires=0
if session("quanxian")<"3"  then
response.write "SORRY <br>"
response.write "您的權限不夠！請勿嘗試非法訪問！<br>"
response.end
end if

sclass_folder=Request.Form ("sclass_folder")
sclass_id=Request.Form ("sclass_id")
paixu=Request.Form ("paixu")

dim rs,sql                                   
	set rs=server.createobject("adodb.recordset")
	sql="select * from sclass where sclass_id="&sclass_id
	rs.open sql,conn,1,3                                                          
	rs("sclass_folder")=sclass_folder
	rs("paixu")=paixu
    rs.Update 
Response.Write("<script>parent.leftFrame.location='fi.asp';self.location='gtitle.asp'</script>") 

    rs.Close 
    set rs=nothing
    conn.close
    set conn=nothing

%>