📄 savetitle.asp

📁 矮子多用户版客户管理系统2.0Bate2

💻 ASP

字号:

<% @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")
vest=Request.Form ("vest")
paixu=Request.Form ("paixu")

dim rs,sql                                   
	set rs=server.createobject("adodb.recordset")
	sql="select * from sclass where sclass_id is null "                                            
    rs.open sql,conn,1,3                                                          
    rs.AddNew 
	rs("sclass_folder")=sclass_folder
	rs("vest")=vest
	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

%>
<html>
<head>
<title>正在进入管理页面</title>
<meta http-equiv=refresh content="1; url=gtitle.asp">
<BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
Loading ....
<p align="center">正在返回...</p>
<p align="center">正在加载请稍后......</p>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -