被称为东方威尼斯的:form语法错误

来源:百度文库 编辑:中科新闻网 时间:2024/05/04 14:44:24
<%
Dim Rs2
Dim Rs2_numRows

Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.ActiveConnection = MM_musi_STRING
if Flag = False then
if Trim(StrSql) <> "" then
Rs2.Source = "SELECT MusiName,SingerName,date From Music where" &StrSql
else
Rs2.Source = "SELECT MusiName,SingerName,date FROM Music"
end if
Rs2.CursorType = 0
Rs2.CursorLocation = 2
Rs2.LockType = 1
Rs2.Open()
Rs2_numRows = 0
end if
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Rs2_numRows = Rs2_numRows + Repeat1__numRows
%>

你把问题说清楚点,这样怎么能看懂呢。