savetitle2.asp

来自「矮子多用户版客户管理系统2.0Bate2」· ASP 代码 · 共 30 行

<% @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

%>