pub.asp

用ASP写的一个论坛的程序 数据库是ACCESS 很简单

<!-- #include file="conn.asp" -->

<%
   sub zd()
       
		set rs=Server.CreateObject("ADODB.RecordSet") 
		sql="select  * from  msg  where tiebaname='"&tiebaname&"' and ding="& true &" order by replytime desc "
		rs.open sql,conn,1,1
		if not rs.eof then
		noone=1
		 for k=1 to rs.recordcount
	   if strcomp(ql,tiebaname,1)=0 or strcomp(ql,"all",1)=0 then
	   qlstring="<a href=action.asp?ac=del&id="&rs("id")&" target=_self>删除</a>" 
	   qlstring=qlstring&"&nbsp;"& "<a href=action.asp?ac=zd&id="&rs("id")&"&n=1 target=_self>删除置顶</a>"
	   qlstring=qlstring&"&nbsp;"& "<a href=action.asp?ac=jh&id="&rs("id")&"&n=0 target=_self>精华</a>"
	   qlstring=qlstring&"&nbsp;"& "<a href=action.asp?ac=jh&id="&rs("id")&"&n=1 target=_self>删除精华</a>"
	   end if
		if (k mod 2)=0 then
			bg="drag1"
			else
			bg="drag2"
		end if
		m=m+1
	   msgtitle=rs("msgtitle")
	   tiebaname=tiebaname
	   msgstringshow=strformat(rs("hits"),6)
	   msgstringshow=msgstringshow & strformat(rs("replyn"),6)
	   msgstringshow=msgstringshow & "<a href=msgshow.asp?tiebaname="&tiebaname&"&msgtitle="&msgtitle&"&id="&rs("id")&" target=_blank>置顶:"&mid(rs("msgtitle"),1,24)&"</a>&nbsp;"
       msgstringshow=msgstringshow &"(作者:" &rs("author")&"&nbsp;"
	   msgstringshow=msgstringshow & rs("msgtime") &"&nbsp;回复:"
	   msgstringshow=msgstringshow & rs("replyer")&"&nbsp;"
	   msgstringshow=msgstringshow & qlstring &")"
		%>
      <tr   ><td colspan="6" >
	  <div class="<%=bg%>"  onMouseOver="postid(<%=rs("id")%>)" ><%=msgstringshow%> </div>
	  </td></tr>
		<%
		 rs.movenext
		if rs.EOF Then Exit For
		next
		end if
  
   end sub
   
   sub hot(nn)
        set rs=Server.CreateObject("ADODB.RecordSet") 
		sql="select top "&nn&" tiebaname from  tiebaname  order by count desc"
		rs.open sql,conn,1,1
		if not rs.eof then
			for k=1 to nn
			%>
			&nbsp;<a href=msg.asp?tiebaname=<%=rs("tiebaname")%> target=_blank><%=rs("tiebaname")%></a>
			<%
			rs.movenext
			if rs.EOF Then Exit For
			next
		end if
   end sub 
      sub newb(nn)
        set rs=Server.CreateObject("ADODB.RecordSet") 
		sql="select top "&nn&" tiebaname from  tiebaname  order by regtime desc"
		rs.open sql,conn,1,1
		if not rs.eof then
			for k=1 to nn
			%>
			&nbsp;<a href=msg.asp?tiebaname=<%=rs("tiebaname")%> target=_blank><%=rs("tiebaname")%></a>
			<%
			rs.movenext
			if rs.EOF Then Exit For
			next
		end if
   end sub 

   sub hotnew(nn)
        set rs=Server.CreateObject("ADODB.RecordSet") 
		sql="select top "&nn&" tiebaname from  tiebaname  order by count desc"
		rs.open sql,conn,1,1
		if not rs.eof then
			for k=1 to nn
			%>
			&nbsp;<a href=msg.asp?tiebaname=<%=rs("tiebaname")%> target=_blank><%=rs("tiebaname")%></a>
			<%
			rs.movenext
			if rs.EOF Then Exit For
			next
		end if
   end sub 
   sub showall()
        set rs=Server.CreateObject("ADODB.RecordSet") 
		sql="select tiebaname from  tiebaname  order by count desc"
		rs.open sql,conn,1,1
		if not rs.eof then
		for k=1 to 100
			%>
			&nbsp;<a href=msg.asp?tiebaname=<%=rs("tiebaname")%> target=_blank><%=rs("tiebaname")%></a>
			<%
			rs.movenext
			if rs.EOF Then Exit For
			next
		end if
   end sub 
   sub hottz(nn)
        set rs=Server.CreateObject("ADODB.RecordSet") 
		sql="select top "&nn&" msgtitle,tiebaname from  msg  order by hits desc"
		rs.open sql,conn,1,1
		if not rs.eof then
			for k=1 to nn
			%>
			<li><a href=msgshow.asp?tiebaname=<%=rs("tiebaname")%>&msgtitle=<%=rs("msgtitle")%> target=_blank><%=rs("msgtitle")%></a></li>
			<%
			rs.movenext
			if rs.EOF Then Exit For
			next
		end if
   end sub 


   %>