show.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
'
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
%>
<!--#include file="base.asp"-->
<%
rs.open "select * from main where id="&request("id"),conn,1,3
if rs.bof and rs.eof then PrintMsg("未指定所需参数!")
if not rs("isUse") and session("name")="" then PrintMsg("未通过审核!")
rs("click")=rs("click")+1
rs.update

dim rtype,mtype,stype
rSub.open "select rtype,mtype,stype from type where s="&rs("s"),conn,1,1
if rSub.bof and rSub.eof then PrintMsg("未指定所需参数!")
rtype=rSub("rtype")
mtype=rSub("mtype")
stype=rSub("stype")
rSub.close

rSub.open "select name,content from sitefiles where name='menu"&rs("r")&"'",conn,1,1
response.write rSub("content")
rSub.close
%>
<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="20%" bgcolor="#99ccff" valign="top">
<%
if rs("keywords")<>"" then Call ShowKeywords
Call WeekClick
%>
</td>
<td width="80%" valign="top" align=right>
<%
If rs("showflag")=1 Then
  Call ShowDownload
ElseIf rs("showflag")=2 Then
  Call ShowArticle
End If
rs.close
%>
</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=4"></script></td></tr></table></body></html>
<%Call objend()%>

<%Sub ShowDownload
dim xx,downarr
if instr(rs("content"),"|")>0 then
 downarr=split(rs("content"),"|")
else
 Call PrintMsg("数据完整性错误，下载链接或下载简介中至少有一个为空")
end if
%>
<TABLE bgcolor=#000000 border=0 cellpadding=2 cellspacing=1 width="100%" height="450">
<tbody>
<tr>
<td bgcolor=#ffffff colspan=6 height=25 valign=center width="100%"><%Call CurrentPath%></td>
</tr>
<tr bgcolor=#ffffff>
<td height=17 width=80>整理日期</td>
<td height=17 width=122><%=FormatDateTime(rs("addate"),1)%></td>
<td height=17 width=67>运行环境</td>
<td height=17 width=94><%=rs("surround")%></td>
<td height=17 width=68>授权形式</td>
<td height=17 width=170><%=rs("copyright")%></td>
</tr>
<tr bgcolor=#ffffff> 
<td height=18 width=80>推荐度</td>
<td height=18 width=122>
<%dim i
for i=1 to rs("score")%>
<img src="images/pingjia.gif">
<%next%></td>
<td height=18 width=67>下载次数</td>
<td height=18 width=94><font color=red><%=rs("click")%></font></td>
<td height=18 width=68>下载类型</td>
<td height=18 width=170><%=mtype%>--<%=stype%></td>
</tr>
<tr bgcolor=#ffffff>
<td colspan=1 style="LINE-HEIGHT: 150%" valign="top"><font color=#008000>下载简介：</font></td>
<td colspan=5 style="LINE-HEIGHT: 150%" valign="top"><font color=#000000><%=downarr(ubound(downarr))%></font></td></tr>
<tr bgcolor=#ffffff>
<td colspan=6 height=56 style="LINE-HEIGHT: 150%"><font color=#008000>下载信息：</font>
<table border=0 cellpadding=0 cellspacing=0 height=45 width="100%">
<tbody>
<tr>
<td height=17 width="100%">
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr> 
<td width="60%">　下载名称：<font color=red><%=rs("name")%></font></td>
<td width="20%">大小：<font color=#ff0000><%=rs("size")%></font></td>
<td width="20%"><%if rs("author")<>"" then%>
作者：<font color=blue><a href="<%=rs("authorurl")%>"><%=rs("author")%></a></font>
<%end if%></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td height=19 width="100%">
　下载链接：
<%
for xx = 0 to ubound(downarr)-1
  if left(downarr(xx),1)="/" then
    response.write "<a href=""http://www.21tx.com/download/lbH8ZUe4cYE/src"&downarr(xx)&""">链接"&xx+1&"</a>　"
  else
    response.write "<a href="""&downarr(xx)&""">链接"&xx+1&"</a>　"
  end if
next
%>
</td>
</tr>
<%Call ShowOther%>
</tbody>
</table>
</td>
</tr>
<TR bgColor=#ffffff>
<TD colSpan=6 height=36 style="LINE-HEIGHT: 150%">
<font color=#008000>下载说明：</font><br>
　本站部分软件链接于其他网站，如果您发现链接错误或其它问题，请在<a href=bbs/default.asp>论坛发帖</a>或<A href="mailto:<%=sitemail%>?subject=ID为[<%=rs("id")%>]的软件链接有误！">写信</A>通知我们。<BR>
　本站所有软件全部来自网上，如果您觉得我们侵犯了您的权益，请告诉我们，我们会去掉您认为侵权软件。<BR>
　本站收集的软件版权归作者所有，任何软件不得用于商业用途，请在下载后在24小时内删除。<BR>
　本站不保证软件的完整性及是否隐含病毒，请自行调试及杀毒。如不同意本条款请勿下载，谢谢合作！<BR>
　欢迎广大作者给我们提供软件以及使用说明，谢谢支持！ </TD>
</TR>
</tbody>
</table>
<%End Sub

Sub ShowArticle()%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=98% align=center background=images/bg.gif>
<TBODY>
<TR><TD height=25 width="95%"><%Call CurrentPath%></TD></TR>
<TR><TD height=10></TD></TR>
<TR><TD align=center><b><font size=3><%=rs("name")%></font></b></TD></TR>
<TR><TD height=10></TD></TR>
<TR><TD align=right>加入时间：<font color=red><%=FormatDateTime(rs("addate"),1)%></font> 显示次数：<font color=red><%=rs("click")%></font></TD></TR>
<%Call ShowOther%>
<TR><TD height=10></TD></TR>
<TR><TD><%=rs("content")%></TD></TR>
<TR><TD height=50 align=right valign=middle>
作者：<font color=blue><a href="<%=rs("authorurl")%>"><%=rs("author")%></a></font><br>
来源：<%=rs("surround")%><br></TD></TR>
<TR><TD height=50 align=right>
<%rs.close
sql="select * from main where isUse and showflag=2 and id="&request("id")-1
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
  Response.Write "<p>>>上篇:已经没有了<BR>"
else
  Response.Write "<p>>>上篇:<a href=show.asp?id="&rs("id")&">"&rs("name")&"</a><BR>"
end if
rs.close
sql="select * from main where isUse and showflag=2 and id="&request("id")+1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  Response.Write "<<下篇:已经没有了"
else
  Response.Write "<<下篇:<a href=show.asp?id="&rs("id")&">"&rs("name")&"</a>"
end if%>
</TD></TR></TBODY></TABLE>
<%
End Sub

Sub ShowKeywords
set rSub=conn.execute("SELECT top 10 id,name,addate,click FROM main where isUse and keywords = '"&rs("keywords")&"' order by id 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

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 ShowOther()
%>
<TR><TD align=right><IMG alt=打包邮递 border=0 height=16 
src="images/pag.gif" width=16>打包邮递
<IMG alt=发送本页面给朋友 border=0 
height=16 src="images/emailtofriend.gif" width=16>推荐给朋友
<IMG alt=评论投票 border=0 height=16 
src="images/vote.gif" width=16><a href=javascript:openWindow('vote.asp?id=<%=rs("id")%>','vote',350,300)>投票评论</a>
</TD></TR>
<%End Sub

Sub CurrentPath()
  Response.Write "当前位置：<a href=f.asp?o="&rs("r")&">"&rtype&"</a> >> <a href=f.asp?o="&rs("m")+100&">"&mtype&"</a> >> <a href=f.asp?o="&rs("s")+1000&">"&stype&"</a> >> "&rs("name")&""
End Sub%>