<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_connsj_STRING Recordset1_cmd.CommandText = "SELECT * FROM user" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_connsj_STRING Recordset2_cmd.CommandText = "SELECT * FROM ml" Recordset2_cmd.Prepared = true Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %>
见证真神
主页
信仰真理
基督教文库
见证分享
基督教文艺
基督真光论坛
设为首页
加入收藏
站长邮箱
主页------
见证真神-------
文章列表
搜索WWW
搜索本站
经文查询
圣经在线听读
各版本圣经下载
十个版本的中英文圣经
简体中文灵修版(一)
简体中文灵修版(二
)
原文圣经
中英文圣经
中英文圣经豪华版
天主教圣经思高版
首页
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
末页
51La
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>