在首页的代码中加入
＜%
set rs = server.CreateObject (＂adodb.recordset＂)
sql=＂select top 15 * from Article where classid=104 order by DateTime desc,id desc＂
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write ＂当前没有任何信息!＂
rs.close
else
do while not rs.eof
response.Write ＂ ＂＆trim(rs(＂title＂))＆＂＜br＞＂
rs.movenext
loop
rs.close
end if
%＞
可以正常显示
我现在建了一个public.asp文件
＜%
';＆＃35;＆＃35;＆＃35;＆＃35;＆＃35;文章分类
Public Function ArticleClass(TopNum,Classid)
dim rs,sql,letter
set rs =server.CreateObject (＂adodb.recordest＂)
sql=＂select top ＂＆TopNum＆＂ id,datetime,title from Artilce where classid=＂＆Classid＆＂ order by datetime desc,id desc＂
rs.open sql,conn,1,1
if rs.eof and rs.bof then
letter=＂当前没有任何信息！＂
rs.close
else
do while not rs.eof
letter=＂ ＂＆trim(rs(＂title＂))＆＂＜br＞＂
rs.movenext
loop
rs.close
end if
response.Write letter
End Function
%＞
在首页通过＜!--＆＃35;include file=＂public.asp＂ --＞中用＜%ArticleClass 15,104%＞显示不出来
请问各位赐教！public.asp和首页index.asp在同一目录下。
***** 版主模式 *****
！
我把你的PUBLIC文件改了一下，你试试
＜%
';＆＃35;＆＃35;＆＃35;＆＃35;＆＃35;文章分类
Public Function ArticleClass(TopNum,Classid)
dim rs,sql,letter
set rs =server.CreateObject (＂adodb.recordest＂)
sql=＂select top ＂＆TopNum＆＂ id,datetime,title from Artilce where classid=＂＆Classid＆＂ order by datetime desc,id desc＂
rs.open sql,conn,1,1
if rs.eof and rs.bof then
letter=＂当前没有任何信息！＂
rs.close
else
do while not rs.eof
letter=＂ ＂＆trim(rs(＂title＂))＆＂＜br＞＂
rs.movenext
loop
rs.close
end if
ArticleClass = letter
End Function
%＞
以上是function用返回，调用的时候用＜%=ArticleClass(15,104)%＞
＜%
';＆＃35;＆＃35;＆＃35;＆＃35;＆＃35;文章分类
Public Sub ArticleClass(TopNum,Classid)
dim rs,sql,letter
set rs =server.CreateObject (＂adodb.recordest＂)
sql=＂select top ＂＆TopNum＆＂ id,datetime,title from Artilce where classid=＂＆Classid＆＂ order by datetime desc,id desc＂
rs.open sql,conn,1,1
if rs.eof and rs.bof then
letter=＂当前没有任何信息！＂
rs.close
else
do while not rs.eof
letter=＂ ＂＆trim(rs(＂title＂))＆＂＜br＞＂
rs.movenext
loop
rs.close
end if
response.write letter
End Sub
%＞
这个调用就用你原来的，试试
谢谢，还是不行！
不行？你是怎么试的呢？
有没提示
按你说的改了，
没有任何提示
首页可以打开，
就是那些文章的标题不显示出来
你是用sub的还是function的 |
|
设为首页
加入收藏
联系我们
打印本文 
返回顶部 
加入收藏 
关闭窗口
