合并两个rs结果输出
<%
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结果输出的更多相关文章
- mysql合并 两个count语句一次性输出结果的方法
mysql合并 两个count语句一次性输出结果的方法 需求场景:经常要查看有两个表统计数,用SELECT COUNT(*) FROM hotcontents,SELECT COUNT(*) FROM ...
- 算法练习之x的平方根,爬楼梯,删除排序链表中的重复元素, 合并两个有序数组
1.x的平方根 java (1)直接使用函数 class Solution { public int mySqrt(int x) { int rs = 0; rs = (int)Math.sqrt(x ...
- 算法练习之合并两个有序链表, 删除排序数组中的重复项,移除元素,实现strStr(),搜索插入位置,无重复字符的最长子串
最近在学习java,但是对于数据操作那部分还是不熟悉 因此决定找几个简单的算法写,用php和java分别实现 1.合并两个有序链表 将两个有序链表合并为一个新的有序链表并返回.新链表是通过拼接给定的两 ...
- linux awk命令详解,使用system来内嵌系统命令, awk合并两列
linux awk命令详解 简介 awk是一个强大的文本分析工具,相对于grep的查找,sed的编辑,awk在其对数据分析并生成报告时,显得尤为强大.简单来说awk就是把文件逐行的读入,以空格为默认分 ...
- 如何在Node.js中合并两个复杂对象
通常情况下,在Node.js中我们可以通过underscore的extend或者lodash的merge来合并两个对象,但是对于像下面这种复杂的对象,要如何来应对呢? 例如我有以下两个object: ...
- 【java基础】 合并两个类型相同的list
将两个类型相同的list合并,可以用 addAll(Collection<? extends E> c) import java.util.ArrayList; import java.u ...
- 剑指Offer15 合并两个已排序链表
/************************************************************************* > File Name: 15_MergeT ...
- java实现合并两个已经排序的列表
相对于C++来说,Java的最大特点之一就是没有令人困惑的指针,但是我们不可否认,在某些特定的情境下,指针确实算的上一把利刃.虽然Java中没有明确定义出指针,但是由于类的思想,我们可以使用class ...
- Dos命令将合并两个文本文件的内容
当生产线的问题,有一个放b.txt的内容被添加到a.txt这需要采取.在考虑这个问题.我的第一感觉是敲代码.阅读b.txt内容,渐进写a.txt.想起昨天在加工处理生产线600M决的方法,我用java ...
随机推荐
- insert一句话实现插入一条数据并且返回这条数据的某列
insert into [table] output inserted.columnName values();
- vi 替换字符串
假如说我想把该文件中所有的Web替换成SOR_SYS,那么我们可以用vi打开该文件,然后按一下: 你的命令行的最后一行会出现:,这个时候就是提醒你输入替换的命令 %s/Web/SOR_SYS/g 按一 ...
- 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 ...
- MVC5学习笔记
买了一本MVC5的书:ASP.NET MVC 5 高级编程(第5版).边学边记录一下 1.快速创建模型类,如:自动实现的属性 {get;set;} 输入“prop",按Tab两次,默认属性值 ...
- 新的博客已经启用,欢迎大家访问(402v.com)
非常抱歉这个博客已经暂停更新,新的博客已经启用,欢迎大家访问(402v.com)!谢谢支持!
- UVA10142/PC110108Australian Voting
UVA10142/PC110108Australian Voting 10142 Australian Voting Accepted C++11 0.769 2014-02-11 05:01:20 ...
- 《ln命令》-linux命令五分钟系列之十八
本原创文章属于<Linux大棚>博客,博客地址为http://roclinux.cn.文章作者为rocrocket. 为了防止某些网站的恶性转载,特在每篇文章前加入此信息,还望读者体谅. ...
- 从用python自动生成.h的头文件集合和类声明集合到用python读写文件
最近在用python自动生成c++的类.因为这些类会根据需求不同产生不同的类,所以需要用python自动生成.由于会产生大量的类,而且这些类是变化的.所以如果是在某个.h中要用include来加载这些 ...
- APCS
arm汇编程序中,R0,R1,R2,R3,R12都是作为中间寄存器,而R4-R11是不能随便使用的,暂时我还不知它们的用途.所以,中间寄存器,在程序运行的开始处与结束的时候值是可以不一样的,也就是说中 ...
- maven web项目不能创建src/main/java等文件夹的问题
eclipse创建maevn web项目,在选择maven_archetype_webapp原型后,默认只有src/main/resources这个Source Floder. 按照maven目录结 ...