我想知道如何像动易那样，定义标签

[复制链接]

封xin封mg

电梯直达

1^#

发表于 2010-1-17 02:54:17 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

刚看了一下，这是源码，不知道这样能不能调用

以下是1.asp内容

<%
'==================================================
'过程名：showtopnews
'作用：显示最新新闻
'参数：n=新闻条数
' l=标题字数
'==================================================
sub showtopnews(n,l)
show_topnews="<table border='0' width='97%' cellspacing='0' cellpadding='0' align='center'>"
sql="select top "&n&" newsid,newstitle,newswrite,newstimes,addtime,newsclassid,color from news order by newsid desc"
set rs=conn.execute(sql)
if rs.eof then
show_topnews=show_topnews&"<tr><td width='203'>暂时没有新闻</td></tr>"
end if
do while not rs.eof
show_topnews=show_topnews&"<tr> <td height='20' >·<a href=shownews.asp?newsid="&rs("newsid")&"><font color='"&rs("color")&"'>"&left(rs("newstitle"),l)&"</font></a><font color='#FF0000'>[</font>"&rs("addtime")&"<font color='#FF0000'>]</font></td></tr>"
show_topnews=show_topnews&"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
show_topnews=show_topnews&"</table>"
end sub
%>

调用不知道这样可不可以



$show_topnews(10,40)$

这样调用可以吗？？？

收藏0