UC知道vbscript asp网页的一个排版问题！
来源：百度知道 编辑：UC知道 时间：2024/07/02 16:35:19
< td >
< % 'Open()
vSql = "select Top 6 ProID,ProName,ProPic From ProDetail Where IsNominate=-1 Order By ProID Desc"
Set myRs = GetRs(vSql)
If Not myRs.EOF Then
For i = 1 to myRs.RecordCount %>
< A h ref="Show.asp?ProID=<%= myRs("ProID")%>">< img src="<%= myRs("ProPic")%>">< /a>
< % myRs.MoveNext
If myRs.EOF Then
Exit For
End If
Next
End If
Set myRs = Nothing
% > < /td>
这段代码运行出来的6个结果是横排的。如何改成竖排的？
感谢 davidspider 热心解答。
答案正确，只是我的代码中少了以下这行，造成运行结果达不到要求。
< %@LANGUAGE="VBSCRIPT" CODEPAGE="950"% >
期间得到热心帮助，非常感谢！
< % 'Open()
vSql = "select Top 6 ProID,ProName,ProPic From ProDetail Where IsNominate=-1 Order By ProID Desc"
Set myRs = GetRs(vSql)
If Not myRs.EOF Then
For i = 1 to myRs.RecordCount %>
< A h ref="Show.asp?ProID=<%= myRs("ProID")%>">< img src="<%= myRs("ProPic")%>">< /a>
< % myRs.MoveNext
If myRs.EOF Then
Exit For
End If
Next
End If
Set myRs = Nothing
% > < /td>
这段代码运行出来的6个结果是横排的。如何改成竖排的？
感谢 davidspider 热心解答。
答案正确，只是我的代码中少了以下这行，造成运行结果达不到要求。
< %@LANGUAGE="VBSCRIPT" CODEPAGE="950"% >
期间得到热心帮助，非常感谢！
< A h ref="Show.asp?ProID=<%= myRs("ProID")%>">< img src="<%= myRs("ProPic")%>">< /a> 后面加一个<br>
For i=1 to 2'可以自己设定，每行显示2两个%>
< A h ref="Show.asp?ProID=<%= myRs("ProID")%>">< img src="<%= myRs("ProPic")%>">< /a>
< % myRs.MoveNext
If myRs.EOF Then
Exit For
< A h ref="Show.asp?ProID=<%= myRs("ProID")%>">< img src="<%= myRs("ProPic")%>">< /a> 后面加<br>
在< /a> 加<br />
<A h ref="Show.asp?ProID=<%= myRs("ProID")%>">< img src="<%= myRs("ProPic")%>"></a> <br />