北京上地是一个村吗:请教高手

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_news.asp" -->
<%
dim style
style = request.QueryString("s")
dim num
num =request.QueryString("d")
%>
<%
Dim rs__MMColParam
rs__MMColParam = "0"
If (Request.QueryString("n_tid") <> "") Then
rs__MMColParam = Request.QueryString("n_tid")
End If
%>
<%
Dim rs
Dim rs_numrows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_news_STRING
if rs__MMColParam = "0" then
rs.Source = "SELECT * FROM t_news WHERE n_index = true and n_check = true ORDER BY n_id DESC"
else
rs.Source = "SELECT * FROM t_news WHERE n_tid = " + Replace(rs__MMColParam, "'", "''") + " and n_check = true and n_index = true ORDER BY n_date DESC"
end if
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numrows = 0
%>
<%
Dim Repeat1__numrows
Dim Repeat1__index

Repeat1__numrows = num
Repeat1__index = 0
rs_numrows = rs_numrows + Repeat1__numrows
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
dim strRet
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet, nNamedFormat)
If (properly = 1) Then
Dim TempArray
TempArray = split(strRet, " ")
Dim n
strRet = ""
for n = 0 to Ubound(TempArray) - 1
strRet = strRet & " " & TempArray(n)
next
End If
If (pointed = 1) Then
strRet = strRet & points
End If
End If
DoTrimProperly = strRet
End Function
</SCRIPT>
<%
While ((Repeat1__numrows <> 0) AND (NOT rs.EOF))
%>
document.write('<table width="98%" border="0" cellspacing="0" cellpadding="0"><tr><td rowspan="2" align="center"><a href="<%=(rs.Fields.Item("n_tid").Value)%>/<%=(rs.Fields.Item("n_fname").Value)%>" target="_blank"><img src="upload/<%=(rs.Fields.Item("n_mpic").Value)%>" border="0" width="100" height="100"></a><br><a href="<%=(rs.Fields.Item("n_tid").Value)%>/<%=(rs.Fields.Item("n_fname").Value)%>" target="_blank"><%=DoTrimProperly((rs.Fields.Item("n_title").Value), 7, 0, 1, "...")%></a></td></tr></table>');
<%
Repeat1__index=Repeat1__index+1
Repeat1__numrows=Repeat1__numrows-1
rs.MoveNext()
Wend
%>
<%
rs.Close()
Set rs = Nothing
%>

以上是一段调用代码，调用方法是
<script language="JavaScript" src="img.asp?n_tid=48&d=1" type="text/JavaScript" ></script>

如上调用中d表示行数，现在我是想把d改为表示列数，不知道怎么改。