＋设为首页 ＋添加到收藏夹
<%cid=Rlt("TB1")%>
这行代码出错了
程序如下:
<%Cid=Trim(Request.Form("Id"))%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rlt = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM message order by ID DESC"
sql = "select * from biao order by ID DESC"
Conn.Open "bbs"
Conn.Open "Provider=sqloledb;Server=(local);Database=test;UID=test;Pwd=test123456"
Rlt.open sql,Conn,1,1
sql,conn,1,1
%>
<%
do until Rlt.EOF
sText = sText & "<TR><TD>>" & Rlt("TB1") & "</TD></TR>"
Rlt.MoveNext
loop
Response.Write sText
%>
<% = Rlt.Pagecount %>
<% If Rlt.Pagecount< 1 Then %>
<H2>沒有紀錄</H2>
<A Href="Javascript:History.Back()">
返回</A>
<%Else%>
----------------------------------------------------------------
*****以下?示查?信息:?示?式:
*****共有XX?XXX??? ??:1 .2 .3. 4. 5.........
----------------------------------------------------------------
共有<%=Rlt.Pagecount%>?
<%=Rlt.Recordcount%>???
<% For I=1 To Rlt.Pagecount%>
<%cid=Rlt("TB1")%>
<A Href="Prodpage.Asp?Pcnt=<%=I%>&id=<%=cid%>><%=I%>.</A>
<%Next %>
</A>
<Hr>
<%Rlt.Pagesize=20%>
-----------------------------------------------------------
******以下?示?品列表:?示?式:
******1.XXXX
******2.XXXX
****** ...........
-------------------------------------------------------------
<%Rlt.Absolutepage=1%>
<% For I=1 To Rlt.Pagesize%>
<% If Rlt.Eof Then
Exit For
End If%>
<Li><%=I%><%=Trim(Rlt("Product_Name"))%></Li>
<%Rlt.Movenext
Next%>
<%Rlt.Close
End If
%>
全不对
楼主，那里出错？
