主题:  求救，关于ASP

冰剑
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2001/12/10 2:04:41
#12002/8/11 1:09:48
本人在修改惠信新闻系统时http://61.143.0.168/flashnew/ice/books.rar

http://61.143.0.168/flashnew/ice/books/1.asp




引用:

作品名 最新章节 类别
[梦幻空间] 梦幻空间 『魔法奇幻』

[梦幻空间] 第一章 奇遇 『魔法奇幻』



其中
作品名：[梦幻空间] 无法正确连接
点激其连接到http://61.143.0.168/flashnew/ice/books/SmallClass.asp?BigClassID=1&BigClassName=『魔法奇幻』&SmallClassID=&SmallClassName=&SmallClassType=

但实际路径为http://61.143.0.168/flashnew/ice/books/SmallClass.asp?BigClassID=1&BigClassName=『魔法奇幻』&SmallClassID=1&SmallClassName=梦幻空间&SmallClassType=1




TodayNews.asp文件正确的ASP程序为？
请大家帮帮忙

冰剑
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2001/12/10 2:04:41
#22002/8/11 1:14:09

              <%
		  			  			  
sql="select top 30 "& NoContent &" from News where checked=1 order by updatetime DESC"
rs.Open sql,conn,1,1
if not rs.eof then
while not rs.EOF

set rs1=server.CreateObject("ADODB.RecordSet")
sql="select * from BigClass where bigclassname='"&rs("BigClassName")&"'"
rs1.Open sql,conn,1,1

set rs2=server.CreateObject("ADODB.RecordSet")
sq2="select * from SmallClass where SmallClassName='" &rs(" SmallClassName")&"'" 
rs2.open sql,conn,1,1


%>



[&BigClassName=<%=rs2("BigClassName")%>&SmallClassID=<%=rs2("SmallClassID")%>&SmallClassName=<%=rs2("SmallClassName")%>&SmallClassType=<%=rs2("SmallClassType")%>" target="_blank"><%=rs("SmallClassName")%>]



冰剑
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2001/12/10 2:04:41
#32002/8/11 1:14:58
以上为代码
请问是哪里出错呢？



今晚在线
职务：普通成员
等级：3
金币：1.0
发贴：761
注册：2001/8/8 19:12:36
#42002/8/11 1:15:25
SmallClassName根本就没有获取到内容啊

从哪个页面进入到哪里修改，
SmallClassName=这里如果没错
那就是链接地址的时候有错！
SmallClassName="&(程序定义的函数)&"&SmallClassType=1"



今晚在线
职务：普通成员
等级：3
金币：1.0
发贴：761
注册：2001/8/8 19:12:36
#52002/8/11 1:19:51

[&BigClassName=<%=rs2("BigClassName")%>&SmallClassID=<%=rs2("SmallClassID")%>&SmallClassName=<%=rs2("SmallClassName")%>&SmallClassType=<%=rs2("SmallClassType")%>" target="_blank"><%=rs("SmallClassName")%>]
[/quote]
你不妨这样
dim scn
scn=rs2("SmallClassName")
连接时：SmallClassName=<%=scn%>



冰剑
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2001/12/10 2:04:41
#62002/8/11 1:43:59
我晕

可以把完整的代码写出来吗



冰剑
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2001/12/10 2:04:41
#72002/8/11 19:10:24

代码如下

引用:









作品名 最新章节 类别





>




<%
                                
sql="select top 30 "& NoContent &" from News where checked=1 order by updatetime DESC"
rs.Open sql,conn,1,1
if not rs.eof then
while not rs.EOF

set rs1=server.CreateObject("ADODB.RecordSet")
sql="select * from BigClass where bigclassname='"&rs("BigClassName")&"'"
rs1.Open sql,conn,1,1

set rs2=server.CreateObject("ADODB.RecordSet")
sq2="select * from SmallClass where SmallClassName='" &rs(" SmallClassName")&"'"
rs2.open sql,conn,1,1


%>







<%
rs1.close                
rs.MoveNext
wend
else
    Response.Write ""
end if
rs.close
set rs1=nothing
%>






<%=showTitle("MainContentB",44)%>













还　没　有　内　容


<%space(THeight)%>


在哪里出错呢？