<%
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
%>