if_2_2.asp

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

ASP

45 行

<% @language="vbscript" %>
<!--#include file="conn.asp" -->  
<% 
response.buffer=true
Response.Expires=0
if session("quanxian")="1"  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=if_3.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>

if_2_2.asp - 源码说明

本页面展示了「矮子多用户版客户管理系统2.0Bate2」中的 if_2_2.asp 源码文件，采用 ASP 编程语言编写，共 45 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与客户管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?