嵌入框架为何不好用了?
qdpb 2003-09-30 09:47:33 单独好用,一但嵌入就显示不出了,奇怪。
怎么解决?
<td><%
Dim byx_zihua1
Dim byx_zihua1_numRows
Set byx_zihua1 = Server.CreateObject("ADODB.Recordset")
byx_zihua1.ActiveConnection = MM_byxt_STRING
byx_zihua1.Source = "SELECT * FROM byx_zihua"
byx_zihua1.CursorType = 0
byx_zihua1.CursorLocation = 2
byx_zihua1.LockType = 1
byx_zihua1.Open()
byx_zihua1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 99999
Repeat1__index = 0
byx_zihua1_numRows = byx_zihua1_numRows + Repeat1__numRows
%>
<table border="1">
<tr>
<td height="36">id</td>
<td>class</td>
<td>author</td>
<td>name</td>
<td>size</td>
<td>price</td>
<td>comment</td>
<td>onsell</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT byx_zihua1.EOF)) %>
<tr>
<td><%=(byx_zihua1.Fields.Item("id").Value)%></td>
<td><%=(byx_zihua1.Fields.Item("class").Value)%></td>
<td><%=(byx_zihua1.Fields.Item("author").Value)%></td>
<td>
<%response.Write"<a href="%>
<%response.Write """"%>
<%= (byx_zihua1.Fields.Item("httpad").Value)%>
<% response.Write """"
response.Write ">" %>
<%= (byx_zihua1.Fields.Item("name").Value) %>
<% response.Write("</a>") %>
</td>
<td><%=(byx_zihua1.Fields.Item("size").Value)%></td>
<td><%=(byx_zihua1.Fields.Item("price").Value)%></td>
<td><%=(byx_zihua1.Fields.Item("comment").Value)%></td>
<td><%=(byx_zihua1.Fields.Item("onsell").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
byx_zihua1.MoveNext()
Wend
%>
</table>
<%
byx_zihua1.Close()
Set byx_zihua1 = Nothing
%></td>