<%
Const SqlDatabaseName = "DNN625"       ' 数据库名字'
Const SqlPassword     = "123456"        ' 数据库密码'
Const SqlUsername     = "sa"         ' 数据库帐户'
Const SqlLocalName    = "127.0.0.1"  ' 数据库地址'

'数据库连接函数'
Sub openConn(ByRef conn)
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
'Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串!"
Response.End
End If
End Sub

'默认打开数据库连接
Set conn = Server.CreateObject("ADODB.Connection")
call openConn(conn)

'---------------------------------------------------------------------------
dim rs,strSql ,rs2
set rs = Server.CreateObject("ADODB.RecordSet")
strSql="select ModuleID,ModuleDefID from DNN_Modules(nolock) where moduleid>344 order by ModuleID"
rs.ActiveConnection=conn
rs.Source=strSql
rs.Open()
    'do while not rs.EOF
    '   response.Write (rs("ModuleID") &"("& rs("ModuleDefID") &")"& "</br>")
    '   rs.MoveNext  
    'loop

'---------------------------------------------------------------------------
set rs2 = Server.CreateObject("ADODB.RecordSet")
strSql="select ModuleID,SettingName from DNN_ModuleSettings(nolock)  order by ModuleID"
rs2.ActiveConnection=conn
rs2.Source=strSql
rs2.Open()
    'do while not rs.EOF
    '   response.Write (rs2("ModuleID") &"("& rs2("SettingName") &")"& "</br>")
    '   rs2.MoveNext  
    'loop

dim Array1,Array2,i,j,RowNum1,RowNum2,ColumnNum1,ColumnNum2,str
'使用 GetRows 方法可将记录从 Recordset 复制到二维数组中。第一个下标标识字段,第二个则标识记录号
Array1=rs.GetRows
RowNum1=ubound(Array1,2)
ColumnNum1=ubound(Array1,1)
'for i=0 to ubound(Array1,2)
'    response.Write (Array1(0,i) &"("& Array1(1,i) &")"& "</br>")
'next

Array2=rs2.GetRows
RowNum2=ubound(Array2,2)
ColumnNum2=ubound(Array2,1)
'for i=0 to ubound(Array2,2)
'    response.Write (Array2(0,i) &"("& Array2(1,i) &")"& "</br>")
'next
dim tmpArr
for i=0 to RowNum1  '行
  str= ""
  for j=0 to ColumnNum1
      
        str= str& Array1(j,i) &","
  next
  tmpArr=getDesc(Array1(0,i),Array2)
  if IsArray(tmpArr) then
  str = str & tmpArr(1)
    response.Write (str& "</br>") 'join
  end if

response.Write (str& "</br>") 'left join
next

rs.close()
set rs = nothing
rs2.close()
set rs2 = nothing
conn.close()
set conn = nothing
if err.number>0 then
response.write err.description
end if

function getDesc(ByVal id,ByVal Array )
    dim i
    for i=0 to Ubound(Array,2)
        if id= Array(0,i) then
          getDesc =Split((Array(0,i) &","& Array(1,i)),",")
            exit for
        end if
    next
end function
%>

合并两个rs结果输出的更多相关文章

  1. mysql合并 两个count语句一次性输出结果的方法

    mysql合并 两个count语句一次性输出结果的方法 需求场景:经常要查看有两个表统计数,用SELECT COUNT(*) FROM hotcontents,SELECT COUNT(*) FROM ...

  2. 算法练习之x的平方根,爬楼梯,删除排序链表中的重复元素, 合并两个有序数组

    1.x的平方根 java (1)直接使用函数 class Solution { public int mySqrt(int x) { int rs = 0; rs = (int)Math.sqrt(x ...

  3. 算法练习之合并两个有序链表, 删除排序数组中的重复项,移除元素,实现strStr(),搜索插入位置,无重复字符的最长子串

    最近在学习java,但是对于数据操作那部分还是不熟悉 因此决定找几个简单的算法写,用php和java分别实现 1.合并两个有序链表 将两个有序链表合并为一个新的有序链表并返回.新链表是通过拼接给定的两 ...

  4. linux awk命令详解,使用system来内嵌系统命令, awk合并两列

    linux awk命令详解 简介 awk是一个强大的文本分析工具,相对于grep的查找,sed的编辑,awk在其对数据分析并生成报告时,显得尤为强大.简单来说awk就是把文件逐行的读入,以空格为默认分 ...

  5. 如何在Node.js中合并两个复杂对象

    通常情况下,在Node.js中我们可以通过underscore的extend或者lodash的merge来合并两个对象,但是对于像下面这种复杂的对象,要如何来应对呢? 例如我有以下两个object: ...

  6. 【java基础】 合并两个类型相同的list

    将两个类型相同的list合并,可以用 addAll(Collection<? extends E> c) import java.util.ArrayList; import java.u ...

  7. 剑指Offer15 合并两个已排序链表

    /************************************************************************* > File Name: 15_MergeT ...

  8. java实现合并两个已经排序的列表

    相对于C++来说,Java的最大特点之一就是没有令人困惑的指针,但是我们不可否认,在某些特定的情境下,指针确实算的上一把利刃.虽然Java中没有明确定义出指针,但是由于类的思想,我们可以使用class ...

  9. Dos命令将合并两个文本文件的内容

    当生产线的问题,有一个放b.txt的内容被添加到a.txt这需要采取.在考虑这个问题.我的第一感觉是敲代码.阅读b.txt内容,渐进写a.txt.想起昨天在加工处理生产线600M决的方法,我用java ...

随机推荐

  1. insert一句话实现插入一条数据并且返回这条数据的某列

    insert into [table] output inserted.columnName values();

  2. vi 替换字符串

    假如说我想把该文件中所有的Web替换成SOR_SYS,那么我们可以用vi打开该文件,然后按一下: 你的命令行的最后一行会出现:,这个时候就是提醒你输入替换的命令 %s/Web/SOR_SYS/g 按一 ...

  3. iOS8 iPad Warning: Attempt to present <UIImagePickerController:xxxx > on xxxx which is already presenting (null)

    解决方法: /* I think this is because in iOS 8, alert views and action sheets are actually presented view ...

  4. MVC5学习笔记

    买了一本MVC5的书:ASP.NET MVC 5 高级编程(第5版).边学边记录一下 1.快速创建模型类,如:自动实现的属性 {get;set;} 输入“prop",按Tab两次,默认属性值 ...

  5. 新的博客已经启用,欢迎大家访问(402v.com)

    非常抱歉这个博客已经暂停更新,新的博客已经启用,欢迎大家访问(402v.com)!谢谢支持!

  6. UVA10142/PC110108Australian Voting

    UVA10142/PC110108Australian Voting 10142 Australian Voting Accepted C++11 0.769 2014-02-11 05:01:20 ...

  7. 《ln命令》-linux命令五分钟系列之十八

    本原创文章属于<Linux大棚>博客,博客地址为http://roclinux.cn.文章作者为rocrocket. 为了防止某些网站的恶性转载,特在每篇文章前加入此信息,还望读者体谅. ...

  8. 从用python自动生成.h的头文件集合和类声明集合到用python读写文件

    最近在用python自动生成c++的类.因为这些类会根据需求不同产生不同的类,所以需要用python自动生成.由于会产生大量的类,而且这些类是变化的.所以如果是在某个.h中要用include来加载这些 ...

  9. APCS

    arm汇编程序中,R0,R1,R2,R3,R12都是作为中间寄存器,而R4-R11是不能随便使用的,暂时我还不知它们的用途.所以,中间寄存器,在程序运行的开始处与结束的时候值是可以不一样的,也就是说中 ...

  10. maven web项目不能创建src/main/java等文件夹的问题

    eclipse创建maevn web项目,在选择maven_archetype_webapp原型后,默认只有src/main/resources这个Source Floder.  按照maven目录结 ...