asp的编程问题 请问这都是什么意思?

来源:百度知道 编辑:UC知道 时间:2024/06/25 00:16:59
<%
Dim fl
Dim fl_numRows

Set fl = Server.CreateObject("ADODB.Recordset")
fl.ActiveConnection = MM_conn_STRING
fl.Source = "SELECT * FROM 视频类别 ORDER BY ID ASC"
fl.CursorType = 0
fl.CursorLocation = 2
fl.LockType = 1
fl.Open()

fl_numRows = 0
%>
<%
Dim link
Dim link_numRows

Set link = Server.CreateObject("ADODB.Recordset")
link.ActiveConnection = MM_conn_STRING
link.Source = "SELECT * FROM 友情链接 ORDER BY ID ASC"
link.CursorType = 0
link.CursorLocation = 2
link.LockType = 1
link.Open()

link_numRows = 0
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 5
Repeat1__index = 0
fl_numRows = fl_numRows + Repeat1__numRows
%>
<%
Dim HLooperrs__numRows
HLooperrs__numRows = 16
Dim HLooperrs__index
HLooperrs__index = 0

<% ' 读取数据库数据
Dim link
......
link.Source = "SELECT * FROM 友情链接 ORDER BY ID ASC"
......
link.Open()

link_numRows = 0
%>

<% '下面的补充都是:
' 切分数据库中读取出来的数据表的页面(俗语分页,分5行记录一页)
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 5
Repeat1__index = 0
fl_numRows = fl_numRows + Repeat1__numRows
%>

查询表“视频类别”和“友情链接”,并做出一定的判断