process三联级

最新推荐文章于 2024-05-02 16:49:41 发布
最新推荐文章于 2024-05-02 16:49:41 发布
阅读量780 收藏
点赞数
分类专栏： 技术 文章标签： sql session
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gong1987/article/details/1605146
版权
<%     'GE Confidential
    'PAGE DESC:
    '    This is a Controller for Ajax request.
    '
    'CREATED BY        :    Tang Ren
    'CREATED DATE    :    2007/04/20
    'CHANGE DATE    CHANGE BY    CHANGE REF.    CHANGE DESC
    '
    '
    '
    '
    '
 %>

<!-- #include file="ROOT.asp" -->
<!-- #include file="../include/ASP_BEGIN.asp" -->
<!-- #include file="include/ASP_PreApp_BEGIN.asp" -->

<% 'DEFINE PAGE LEVEL VARIABLE
Page_Title                ="Blank Template Page"        'the title for the page
Page_ShowTopMenu        =true                        'Whether show Top Menu or not
Page_ShowLeftNav        =true                        'Whether show left Navigation or not
Page_ShowOfflineTool    =false                        'Whether show OfflineTool link at top right corner
Mod_ID                    ="00"                        'Indicate which Menu ID
Sub_Mod_ID                ="00"                        'Whether show OfflineTool link at top right corner
 %>
<!-- #include file="../include/checkUserRight.asp" -->
<%  'LANGUAGE FILE INCLUDE

 %>

<% 'BEGIN ASP CODE IF ANY

                dim RegionID, ZoneID, ProgramCodeID, sql, rs, handleType,tempcounter,ParentID
                    
                if request("handleType")<>"" then
                    handleType = request("handleType")
                end if
                
                ' handle initDdlRegion BEGIN
                if handleType="initDdlRegion" then                     
                    tempcounter = 1
                    sql="select REG_ID,REG_Name from PA_REGIONS"
                    set rs=server.createobject("adodb.recordset")
                    rs.open sql,connpa,1,1
                    while not rs.EOF                    
                        if tempcounter<>1 then Response.Write ";" end if
                        Response.Write rs(0)&","&rs(1)
                        tempcounter = 2
                        rs.MoveNext 
                    wend
                    
                    rs.Close
                    connpa.Close
                    set rs=nothing
                    set connpa=nothing
                end if 
                'handle initDdlRegion END
                
                
                'handle init bindDdlZone BEGIN
                if request("Region")<>"" and handleType="bindDdlZone" then 
                    tempcounter = 1                    
                    RegionID = request("Region")
                    sql="select ZONE_ID,ZONE_Name from PA_ZONES where REGION_ID="&RegionID&" and closed=0"
                    set rs=server.createobject("adodb.recordset")
                    rs.open sql,connpa,1,1
                
                    while not rs.EOF                    
                        if tempcounter<>1 then Response.Write ";" end if
                        Response.Write rs(0)&","&rs(1)
                        tempcounter = 2
                        rs.MoveNext 
                    wend
                    
                    rs.Close
                    connpa.Close
                    set rs=nothing
                    set connpa=nothing                
                end if
                'handle init bindDdlZone END
                
                
                'handle init bindDdlProgramCode BEGIN
                if request("Zone")<>"" and handleType="bindDdlProgramCode" then                     
                    tempcounter = 1
                    ZoneID = request("Zone")
                    sql="select PROG_ID,PROG_CODE from PA_PROGCODE where ZONE_ID="&ZoneID
                    set rs=server.createobject("adodb.recordset")
                    rs.open sql,connpa,1,1
                
                    while not rs.EOF                    
                        if tempcounter<>1 then Response.Write ";" end if
                        Response.Write rs(0)&","&rs(1)
                        tempcounter = 2
                        rs.MoveNext 
                    wend
                    
                    rs.Close
                    connpa.Close
                    set rs=nothing
                    set connpa=nothing        
                
                end if
                'handle init bindDdlProgramCode END                
                
                'handle Category BEGIN
                if handleType = "bindCategorys" then
                    tempcounter = 1
                    if request("ParentID")<>"" then                     
                        tempcounter = 1
                        ParentID = request("ParentID")
                        sql="select id,Category from PA_PSCategory where ParentID="&ParentID
                    else
                        sql="select id,Category from PA_PSCategory where CategoryType='Main' and flag='1' and BusnDBN='"&session("busndbn")&"'"
                        'Response.Write sql
                        'Response.End 
                    end if
                    
                    set rs=server.createobject("adodb.recordset")
                    rs.open sql,connpa,1,1
                
                    while not rs.EOF                    
                        if tempcounter<>1 then Response.Write ";" end if
                        Response.Write rs(0)&","&rs(1)
                        tempcounter = 2
                        rs.MoveNext 
                    wend
                        
                    rs.Close
                    connpa.Close
                    set rs=nothing
                    set connpa=nothing        
                end if
                'handle init Category END        
                
                'handle BaseCost BEGIN
                if handleType = "bindBaseCost" then
                    tempcounter = 1
                    if request("ZONE_ID")<>"" then                     
                        tempcounter = 1
                        ZONE_ID = request("ZONE_ID")
                        sql="select * from PA_DEPTCOSTCENTER where ZONE_ID="&ZONE_ID
                        'debugprint sql
                    end if
                    
                    set rs=server.createobject("adodb.recordset")
                    rs.open sql,connpa,1,1
                
                    while not rs.EOF                    
                        if tempcounter<>1 then Response.Write ";" end if
                        Response.Write rs(0)&","&rs(1)
                        tempcounter = 2
                        rs.MoveNext 
                    wend
                        
                    rs.Close
                    connpa.Close
                    set rs=nothing
                    set connpa=nothing        
                end if
                'handle init BaseCost END        
                
 %>

<% 'END APS CODE IF ANY

 %>
 
gong1987
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
产品经理必会知识：万字长文 | 史上最全的付费会员体系分析
wenyusuran的专栏
05-04 4947
1 如何理解付费会员体系？ 老生常谈的AARRR模型中，会员体系在活跃、留存、收入端是最常见的运营手段，它有两种类型： 付费会员体系：通过付费，购买高价值、差异化的权益。 例：88VIP、京东PLUS、腾讯视频VIP、知乎盐选会员。 成长会员体系：通过特定用户行为带来的积累，获得等级成长及差异化权益（一般为低价值）。 例：大众点评会员、滴滴橙长会员、支付宝会员。 会员体系的核心目标，是拉升「付费用户比例」、「用户生命周期」、「ARPU」；在用户价值层面体现为...
android安卓源码海量项目合集打包-1
热门推荐
chenhao0568的专栏
06-11 13万+
下载地址 最后更新共计113个分类5177套源码29.2 GB。 卷 新加卷 的文件夹 PATH 列表 卷序列号为 00000200 5E7A:7F30 F:. ├─前台界面 │ ├─3D标签云卡片热门 │ │ Android TagCloudView云标签的灵活运用.rar │ │ Android 实现 标签 拖动 改变位置.rar │ │ android 流式布局和热门标签.zip │ │ ...
SQL查询速度慢的原因分析和解决方案
qq984676583的博客
08-05 2260
SQL查询速度慢的原因分析和解决方案 查询速度慢的原因很多，常见如下几种： 　　 　　1、没有索引或者没有用到索引(这是查询慢最常见的问题，是程序设计的缺陷) 　　 　　2、I/O吞吐量小，形成了瓶颈效应。 　　 　　3、没有创建计算列导致查询不优化。 　　 　　4、内存不足 　　 　　5、网络速度慢 　　 　　6、查询出的数据量过大（可以采用多次查询，其他的方法降低数据量） 　　 　　7、锁或...
Python+OpenCV实现自动扫雷，挑战扫雷世界记录！_opencv 自动扫雷(1)
最新发布
a19815156的博客
05-02 863
之后，我们建立一个二维数组用于存储每一个雷块的图像，并且进行图像分割，保存在之前建立的数组中。​​​​​​​将整个图像获取、分割的部分封装成一个库，随时调用就OK啦~在笔者的实现中，我们将这一部分封装成了imageProcess.py，其中函数get_frame()用于完成上述的图像获取、分割过程。这一部分可能是整个项目里除了扫雷算法本身之外最重要的部分了。笔者在进行雷块检测的时候采用了比较简单的特征，高效并且可以满足要求。
让你满头黑线的错误,这么看
分享我所知道的,让你知道的更明白.
03-18 1271
js当中的错误,是难以调试,但又不可避免的.怎们处理它是个非常棘手的问题.
多重关系抽取（Multiple-Relations）的一些最新顶会论文（海量论文，干货满满）
一个nlp探险者的博客
10-04 4697
0. 引言 1. A Novel Cascade Binary Tagging Framework for Relational Triple Extraction（ACL 2020） 1.1 摘要 从非结构化文本中提取关系三元组是构建大规模知识图的关键。然而，现有的研究在**解决同一句子中的多个关系三元组共享相同实体的重叠三元组问题**上很少有出色的成果。在这项工作中，我们引入了一个新的视角来重新审视关系三元提取任务，并提出了一个新的级联二元标记框架(CASREL)，该框架源于一个原则性的问题公式。我们的
kotlin协程硬核解读(5. Java异常本质&协程异常传播取消和异常处理机制)
openXu的专栏
05-23 1480
版权声明：本文为openXu原创文章【openXu的博客】，未经博主允许不得以任何形式转载 文章目录1. 异常的本质1.1 操作系统、程序、JVM、进程、线程1.2 异常方法调用栈1.3 java异常处理机制1.4 小结2. Android异常处理机制3. 协程异常3.1 挂起函数的异常3.2 throw & resumeWithException(e)3.3 协程异常导致传递取消3.4 协程异常传递取消原理3.4.1 协程异常传递取消3.4.2 父协程等待所有子协程取消3.5 协程异常传递和.
政策分析思路重构
Guo_ping'blog
04-12 574
文章目录零.前言一.政策制定的官方定义？二.国家该怎么发展？2.1 剩余价值三.政策制定的复杂性3.1 多重性3.2 复杂性四.外行学习「公共政策」需要看哪些书？4.1公共政策书籍解读4.2书籍推荐4.3 公共政策的学习心得 零.前言 ​ 之前做的课题是政策如何影响经济，我爬取了30万篇政策文献，分词，提取关键词和历年GDP拟合，但是没有一个很好的结果，就是解释不清楚，完全是黑盒模型，只能生搬硬套，不明白内在逻辑是什么。 后来我思考了很久，意识到 第一：是我经济学的基础太差，几乎为0 ，对显而易见的问
java基础巩固-宇宙第一AiYWM：为了维持生计，多高（多线程与高并发）_Part2~整起（线程与进程篇：进程状态、线程&进程&协程）
https://aiminminai.gitee.io/aiminminai/
01-29 466
java基础巩固-宇宙第一AiYWM：为了维持生计，多高（多线程与高并发）_Part2~整起（线程与进程篇）
process插件
10-05
"Process插件"是SPSS（Statistical Product and Service Solutions）软件中的一个扩展工具，主要由Andrew F. Hayes教授开发，用于执行复杂统计分析，尤其是中介效应、调节效应和交互效应的检验。这个插件的强大之处...
C语言头文件 PROCESS
06-13
C语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言头文件 PROCESSC语言...
ProcessExplorer
08-29
**ProcessExplorer：深入解析进程和DLL管理** ProcessExplorer是一款强大的系统资源管理工具，由微软旗下的Sysinternals开发。它超越了Windows自带的任务管理器，提供了更详细的进程信息和更精细的控制功能。这款...
ProcessMonitor
07-22
标题中的"ProcessMonitor"是一款由Sysinternals公司开发的强大系统监控工具，现已被Microsoft纳入其套件中。这款工具能够实时地记录系统发生的各种事件，包括文件系统、注册表、进程与线程、网络活动等，是排查系统...
有n个整数，使前面各数后移m个位置，最后m个数变成最前面m个数，在主函数输入n个整数和输出调整后n个整数.
Gong的专栏
11-25 3317
这个问题有个经典的解法。假设有n个元素，需要将前m（m1、将前m个元素的顺序颠倒2、将后面n-m个元素的顺序颠倒3、将n个元素的顺序全部颠倒这样就可以了！把数组的元素颠倒，这个函数你会写吧？然后只要调用三次即可。不是证明的证明：伸出你的两只手，手心向上。如果没有意外的话一共10个指头（废话），将所有的指头从左到右编号0, 1, 2, ..., 9。这时候n=10，如果取m=5的话，上述步骤可以转变
compareDate
Gong的专栏
05-18 2952
   /**     *  This function is use to comparing Date      *  If objdate after targetdata then return 1     *  If objdate before targetdata then return -1     *  If objdata equal targetdata then return
C语言删除有用数（浮点数）后面的0
Gong的专栏
08-19 2505
#include  #include  #include  void RemoveZero(char *pStr,char *pOutStr){   int    iRes  = 0        ;   int    iTemp = 0        ;   int    iNum  = 0        ;   char   caOutput[20]
index(三联级)
Gong的专栏
05-11 1040
#include file="../include/ASP_BEGIN.asp"-->html>body onload="     id")>"" then%>      doSelected(document.all.ddlRegion,...if not rsDPS.EOF then Response.Write rsDPS("REGION_ID") end if%>,document
conn
Gong的专栏
05-11 693
...1. ETL BROn Error Resume Nextset conn=server.CreateObject("adodb.connection")conn.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=ETL_BR;ConnectionTimeout=600"Response.W
ProcessMonitor：高级系统监控与故障诊断神器
Process Monitor是一款由Sysinternals开发，后来并入微软的高级系统进程监视工具，专为Windows操作系统设计。它在系统监控方面具有卓越的功能，结合了Filemon（文件监视）和Regmon（注册表监视）的优势，提供了深入...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值