rs.Move谁能帮我看看怎么改向右增加一个
<!--#include file="conn.asp"--><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<HTML lang="gb2312" xmlns="http://www.
<META http-equiv=Content-Type content="text/html; charset=gb2312"><title><%=WebName&ChannelName%></title>
<meta http-equiv="content-type" content="text/html;charset=gb2312"/>
<link rel="icon" href="favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<meta content=<%=ChannelName%> name=description>
<meta content=<%=ChannelName%> name=Keywords>
<link rel="stylesheet" href="qcc6_cn.css" type="text/css"/>
<style type="text/css">
<!--
.style1 {font-weight: bold}
.style2 {
color: #33FF33;
font-weight: bold;
}
-->
</style>
</HEAD>
<BODY style="MARGIN: 0px; TEXT-ALIGN: center">
<%
dim webtype,pl
dim rs,sql
dim condition,linkstr
webtype=request("webtype")
sql="select * from qcc6_cn_Link"
condition = " where 1=1 "
pl="indate"
linkstr = "pl=" & pl
if webtype="" or not isnumeric(webtype) then
webtype=0
elseif webtype>0 then
condition = condition & " and webtype="&webtype
end if
linkstr = linkstr & "&webtype="&webtype
'分页信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if
'普通sql语句
sql=sql & condition &" ORDER BY indate desc"
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize = MaxPageSize
dim i
i=0
%>
<!-- 新加 -->
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr align="center" borderColor=#333333 bgColor=#000000>
<td background="images/top_2.jpg"><font color=#FFFF00><B>每得一票，您的QQ空间形象将显示在下面第一位！而且只有七个名额哟！如果需要修改，请到自己QQ空间里修改个性头像！</B></font> 修改中。。。暂时无法点击</td></tr></table>
<%
Do While Not rs.EOF and i<MaxPageSize%>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr align="center" borderColor=#333333 bgColor=#1D1D1D>
<td>
<img width=100 height=100 src="http://logoimage.qzone.("username")%>" target="_blank" border=0 alt="<%=rs("sitename")%>" onerror="this.outerHTML='<img src=images/error.gif border=0>'"/>
<br>
<%=rs("sitename")%>
<br>
<strong>QQ:</strong><%=rs("username")%>
<br><strong>来自:</strong><%=hx.showwebtype(rs("webtype"))%>
<br>今日得票:(<span class="piao"><%=rs("inj")%></span>)
<br><%=rs("indate")%>
</td>
</tr>
<%
i=i+1
rs.MoveNext
Loop
else
%>
<%
end if%>
</table>
<%
rs.close
set rs=nothing
CloseDatabase
%>
<!-- 新加 -->
我这个是向下增加的谁帮帮我改成向右移动啊
