老师：您好！有空帮我看看，哪里错了？谢谢了

bst999 · 发表于 2008-12-16 16:44:22

网站首页添加了以下代吗，结果网页打不开了：

请大家把帮忙。

我的首页代码和我添加的代码：

<%
if session("username")="" then
%>

用户名：

密　码：

。。。

。。。

<%

rs.movenext
loop
end if
rs.close
set rs=nothing
%>

（以下红色部分代码是我添加的）

<%
Dim S(4)
S(0)="Select Top 8 * From [BBSXP_Threads] Where Visible=1 Order by ThreadID Desc"
S(1)="Select Top 8 * From [BBSXP_Threads] Where Visible=1 and PostTimeS(2)="Select Top 8 * From [BBSXP_Threads] Where Visible=1 and PostTime>"&SqlNowString&"-15 Order by TotalViews Desc,ThreadID"
S(3)="Select Top 8 * From [BBSXP_Threads] Where Visible=1 and PostTime>"&SqlNowString&"-15 Order by TotalReplies Desc,ThreadID"
S(4)="Select Top 8 * From [BBSXP_Threads] Where IsGood>0 and Visible=1 Order by PostTime Desc"
For ii=0 to 4
Response.Write ""
Next
%>

最新发表主题	最新回贴	本周人气点击	本周热门回复	最近更新精华
" Rs.Open S(ii),Conn,1,1 jj=1 Do While Not Rs.EOF Topic=ReplaceText(Rs("Topic"),"<[^>]*>","") Response.Write " "&Left(""&Topic,13)&" " jj=jj+1 if jj>8 then exit do Rs.MoveNext Loop Rs.Close Response.Write "