m.asp

程序介绍： 1、内嵌式投票系统

<%
''''''''''''''''''''''''''''''''''''''''''''
'
'  TXSite / 通用网站系统
'
'  版本    ：v1.8.20
'
'  制作人  ：milp([e-mail])
'
'  版权所有：源码之家(http://www.21tx.com)
'
'  主页地址：http://www.21tx.com
'            http://www.bestnets.net
'            http://www.soucn.com
'
'  技术支持：http://www.21tx.com/bbs
'
''''''''''''''''''''''''''''''''''''''''''''
'TXSite分类栏目管理系统，主程序完成时间：13:12 2001-8-3
Option Explicit
%>
<!--#include file="base.asp"-->
<%
dim o,r,m,i,title
dim folder(15)  '栏目数组
o=Request("o")
i=0
If o>0 And o<100 Then
  sql="select distinct m,rtype from type where r="&o&" order by m asc"
  rs.open sql,conn,1,1
  If rs.eof and rs.bof Then PrintMsg("未指定所需参数!")
  rs.MoveFirst
    r=o
    title=rs("rtype")
    do while not rs.eof
      folder(i)=rs("m")+100
      i=i+1
     rs.MoveNext
    loop
  rs.close
ElseIf o>100 And o<1000 Then
  sql="select s,r,rtype,mtype from type where m="&o-100&" order by s asc"
  rs.open sql,conn,1,1
  If rs.eof and rs.bof Then PrintMsg("未指定所需参数!")
  rs.MoveFirst
    r=rs("r")
    title=""&rs("rtype")&" -- "&rs("mtype")&""
    do while not rs.eof
      folder(i)=rs("s")+1000
      i=i+1
     rs.MoveNext
    loop
  rs.close
Else
  PrintMsg("未指定所需参数!")
End If

rs.open "select name,content from sitefiles where name='menu"&r&"'",conn,1,1
response.write rs("content")
rs.close
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=754>
<TBODY>
<TR>
<TD height=5 width="100%"></TD></TR></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width=754
onmouseover="MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide','Layer10','','hide')">
<tbody><tr>
<td width="2%" bgcolor="#99ccff" valign="top"><img src="images/jiao.gif" width="8" height="8"></td>
<td width="18%" bgcolor="#99ccff" valign="top">
<%
Call WeekClick
Call TopClick
%>
</td>
<td width="80%" valign="top" align="center">
<TABLE cellPadding=0 cellSpacing=0 width=95%>
<TBODY><TR><TD height=30 align=center><b><font color=red><%=title%></font></b></TD></TR></TBODY></TABLE>

<TABLE cellPadding=0 cellSpacing=0 width=95%>
<TBODY>
<%
dim x
for x=0 to i-1
showfolder(folder(x))
next
%>
</TBODY></TABLE>

</td>

</tr>
</tbody>
</table>
<br>
<%response.write filesArr(8)  '调用通用页面底部文件%>
<table width="754" border="0" cellspacing="0" cellpadding="0">
<TR><td align="center"><%=bottomadv%></TD></TR>
<tr><td align=center><script language=javascript src="count.asp?s=1&id=3"></script></td></tr></table></body></html>
<%Call objend()%>


<%
Sub showfolder(id)
dim foldername
If id>100 And id<1000 Then
rSub.open "select mtype from type where m="&id-100,conn,1,1
rSub.movefirst
foldername=rSub("mtype")
rSub.close
rSub.open "select top 5 id,name,addate,click from main where isUse and m="&id-100&" order by id desc",conn,1,1
ElseIf id>1000 Then
rSub.open "select stype from type where s="&id-1000,conn,1,1
rSub.movefirst
foldername=rSub("stype")
rSub.close
rSub.open "select top 5 id,name,addate,click from main where isUse and s="&id-1000&" order by id desc",conn,1,1
End If
If not rSub.eof Then
Response.Write "<TR><TD height=25 vAlign=top width=560><TABLE border=0 cellPadding=0 cellSpacing=0 height=19><TBODY><TR><TD align=right width=17><IMG border=0 height=19 src=images/folder.gif width=17></TD>"
Response.Write "<TD align=middle bgColor=#3d1f74 width=75><a class=pf href=f.asp?o="&id&">"&foldername&"</a></TD></TR></TBODY></TABLE></TD></TR>"
Response.Write "<TR><TD width=560><TABLE><TBODY><TR><TD align=middle width=370>标 题</TD><TD align=middle width=60>点 击</TD><TD align=middle width=80>更 新 日 期</TD></TR>"
do while not rSub.EOF
Response.Write "<TR><TD align=left width=370>　◇ <a href=show.asp?id="&rSub("id")&">"&rSub("name")&"</a></TD>"
Response.Write "<TD align=middle width=60>"&rSub("click")&"</TD><TD align=middle width=80>"&FormatDateTime(rSub("addate"),2)&"</TD></TR>"
rSub.movenext
loop
Response.Write "</TBODY></TABLE></TD></TR><TR><TD align=right width=560><A href=f.asp?o="&id&"><IMG border=0 height=27 src=images/more.gif width=77></A></TD></TR>"
Response.Write "<TR><TD height=6 width=560><IMG border=0 height=1 src=images/line.gif width=560></TD></TR>"
End If
rSub.close
End Sub

Sub WeekClick
dim disCount
disCount=0
set rSub=conn.execute("SELECT id,name,addate,click FROM main where isUse order by click desc")
Response.Write "<table width=95% border=0 cellspacing=0 cellpadding=0><tbody><tr><td height=30>"
Response.Write "<font color=#ff0000><span class=F7>●</span> 本周热点</font></td></tr><tr><td>"
do while not rSub.eof
If Datediff("d",rSub("addate"),date())<7 And disCount<10 Then
response.write "<a class=blanklink href=show.asp?id="&rSub("id")&" title=""更新日期:"&FormatDateTime(rSub("addate"),1)&" 点击:"&rSub("click")&""">"&rSub("name")&"</a><BR>"
disCount=disCount+1
End If
rSub.movenext
loop
rSub.close
Response.Write "<br></td></tr></tbody></table>"
End Sub

Sub TopClick
set rSub=conn.execute("SELECT top 10 id,name,addate,click FROM main where isUse order by click desc")
Response.Write "<table width=95% border=0 cellspacing=0 cellpadding=0><tbody><tr><td height=30>"
Response.Write "<font color=#ff0000><span class=F7>●</span> 点击排行</font></td></tr><tr><td>"
do while not rSub.eof
response.write "<a class=blanklink href=show.asp?id="&rSub("id")&" title=""更新日期:"&FormatDateTime(rSub("addate"),1)&" 点击:"&rSub("click")&""">"&rSub("name")&"</a><BR>"
rSub.movenext
loop
rSub.close
Response.Write "</td></tr></tbody></table>"
End Sub%>