主题:  求救,关于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

冰剑

职务:普通成员
等级: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)%>



在哪里出错呢?