classmake.asp

一个简单的小程序

<!--#include file="../config.asp"-->
<%
dim class1
sub makeclass()
set rs=server.CreateObject("adodb.recordset")
sql="select * from bigclass order by paixu"
rs.open sql,conn,1,1
if rs.eof then
class1=class1&"暂时没有新闻分类"
else
do while not rs.eof 
classname=rs("name1")

class1=class1&"<a href="&url1&classname&"1.htm><strong>"&rs("bcname")&"</strong></a>&nbsp;&nbsp;&nbsp;&nbsp;" 
rs.movenext
loop
end if
rs.close
set rs=nothing
mb1=replace(mb1,"[newsclass]",class1)
end sub

sub makeinfo()
set rs=server.CreateObject("adodb.recordset")
sql="select * from info order by id desc"
rs.open sql,conn,1,1
if rs.eof then
info1=info1&"暂时没有信息栏目"
else
do while not rs.eof 
infoname=rs("filename")

info1=info1&"<a href="&url1&infoname&".htm><strong>"&rs("title")&"</strong></a>&nbsp;&nbsp;&nbsp;&nbsp;" 
rs.movenext
loop
end if
rs.close
set rs=nothing
mb1=replace(mb1,"[info]",info1)
end sub
%>