⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 list.asp

📁 8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见: 猛虎山庄、燕衔泥(飞扬的软件第二版用的就是他
💻 ASP
📖 第 1 页 / 共 2 页
字号:
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">软件类型:</td>
                <td width="231" bgcolor="#FFFFFF"><%=Nclassname%></td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">运行环境:</td>
                <td width="231" bgcolor="#FFFFFF"><%=rs("system")%></td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">授权方式:</td>
                <td width="231" bgcolor="#FFFFFF"><%=rs("orders")%></td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">软件大小:</td>
                <td width="231" bgcolor="#FFFFFF"><%=rs("size")%></td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">软件评价:</td>
                <td width="231" bgcolor="#FFFFFF"><img src="images/<%=rs("hot")%>star.gif"></td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">整理日期:</td>
                <td width="231" bgcolor="#FFFFFF"><%=rs("dateandtime")%></td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">相关链接:</td>
                <td width="231" bgcolor="#FFFFFF"> 
                  <%if rs("fromurl")<>"" then%>
                  <a href="<%=rs("fromurl")%>">主页</a> 
                  <%end if%>
                </td>
              </tr>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">本日下载:</td>
                <td colspan="2" bgcolor="#FFFFFF"><%=rs("dayhits")%>&nbsp;&nbsp;本周:<%=rs("weekhits")%>&nbsp;&nbsp;总计:<%=rs("hits")%></td>
              </tr>
              <%
if session("user")="" and rs("club")<>"" then
%>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">下载地址:</td>
                <td colspan="2" bgcolor="#FFFFFF"><font color="#FF0000">此为会员软件,请注册成我们的会员</font></td>
              </tr>
              <%
		  else
if rs("filename")="" and rs("filename1")="" and rs("filename2")="" then
%>
              <tr> 
                <td width="80" height="19" align="right" nowrap bgcolor="#FFFFFF">下载地址:</td>
                <td colspan="2" height="19" bgcolor="#FFFFFF">暂时没有下载</td>
              </tr>
              <%
else

if rs("movie")<>"" then
if rs("movie")="win" then     
play="playwin.asp"     
pimg="images/win.gif"     
else     
play="playrm.asp"     
pimg="images/rm.gif"     
end if     
%>
              <script language="JavaScript">     
function windowOpen(loadpos)     
{controlWindow=window.open(loadpos,"surveywin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=610,height=400,status=yes,resizable=yes");     
}     
</script>
              <tr> 
                <td width="80" height="19" align="right" nowrap bgcolor="#FFFFFF">在线播放:</td>
                <td colspan="2" height="19" bgcolor="#FFFFFF"><img src="<%=pimg%>">&nbsp; 
                  <%if rs("filename")<>"" then%>
                  <a href=# onClick=windowOpen('<%=play%>?id=<%=rs("id")%>&downid=1')>[1]</a> 
                  <%end if%>
                  <%if rs("filename1")<>"" then%>
                  <a href=# onClick=windowOpen('<%=play%>?id=<%=rs("id")%>&downid=2')>[2]</a> 
                  <%end if%>
                  <%if rs("filename2")<>"" then%>
                  <a href=# onClick=windowOpen('<%=play%>?id=<%=rs("id")%>&downid=3')>[3]</a> 
                  <%end if%>
                </td>
              </tr>
              <%else%>
              <%if rs("filename")<>"" then%>
              <tr> 
                <td width="80" height="19" align="right" nowrap bgcolor="#FFFFFF">下载地址1:</td>
                <td colspan="2" height="19" bgcolor="#FFFFFF"> <a href="download.asp?downid=1&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&downid=1</a> 
                </td>
              </tr>
              <%end if%>
              <%if rs("filename1")<>"" then%>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">下载地址2:</td>
                <td colspan="2" bgcolor="#FFFFFF"> <a href="download.asp?downid=2&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&downid=2</a> 
                </td>
              </tr>
              <%end if%>
              <%if rs("filename2")<>"" then%>
              <tr> 
                <td width="80" align="right" nowrap bgcolor="#FFFFFF">下载地址3:</td>
                <td colspan="2" bgcolor="#FFFFFF"> <a href="download.asp?downid=3&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&downid=3</a> 
                </td>
              </tr>
              <%end if%>
              <%end if%>
              <%end if%>
              <%end if%>
              <tr> 
                <td width="80" align="right" nowrap valign="top" bgcolor="#FFFFFF">软件简介:</td>
                <td colspan="2" bgcolor="#FFFFFF"><%=rs("note")%></td>
              </tr>
              <tr> 
                <td height="14" width="80" align="center" nowrap bgcolor="#FFFFFF"> 
                  <p>&nbsp;</p>
                </td>
                <td height="14" colspan="2" bgcolor="#FFFFFF"> 
                  <p align="right"><font color="#FF0000">【</font><a href="http://365do.yeah.net" target="_blank">软件论坛</a><font color="#FF0000">】</font> 
                    【<a href="javascript:Showvote('<%=rs("id")%>')">评论投票</a>】</p>
                </td>
              </tr>
              <tr> 
                <td colspan="3" bgcolor="#FFFFFF"><font color=red>*</font> 如果您发现链接错误或其它问题,请<a href="mailto:layty@21cn.com?subject=DL%20Error:<%=rs("showname")%>%20<%=rs("bb")%>%20/list.asp?id=<%=rs("id")%>&body=<%=rs("showname")%>%20<%=rs("bb")%>%20%D3%D0%CE%CA%CC%E2%C0%B2!">发信</a>或到<a href="http://365do.yeah.net" target="_blank">论坛</a>里告诉我们,谢谢!<br>
                  <font color=red>*</font> 在线看电影需要这些工具:<a class="date" href="search.asp?action=title&keyword=Windows Media Player" title="点击查看详细介绍" target="_blank">Windows 
                  Media Player</a>或<a class="date" href="search.asp?action=title&keyword=RealPlayer" title="点击查看详细介绍" target="_blank">RealPlayer</a>。 
                </td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" width="80" nowrap> 
                  <p align="right">相关软件: 
                </td>
                <center>
                  <td colspan="2" bgcolor="#FFFFFF"> 
                    <%  set rs_xg=server.createobject("adodb.recordset")                                      
    sql_xg="select * from download where id<>"&rs("id")&" and showname like '%"&rs("showname")&"%' order by id desc"                                      
	rs_xg.open sql_xg,conn,1,1                     
	if rs_xg.eof and rs_xg.bof then                                      
response.write ("没有相关软件")                                      
else                                      
do while not rs_xg.eof                                      
response.write "<a href=list.asp?id="&rs_xg("id")&" target=_blank>"&rs_xg("showname")&" "&rs_xg("bb")&"</A><br>"                                      
rs_xg.movenext                                      
loop                                    
end if                                    
rs_xg.close                                     
set rs_xg=nothing%>
                  </td>
                </center>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" width="80" nowrap valign="top"> 
                  <p align="right">相关评论: 
                </td>
                <td colspan="2" bgcolor="#FFFFFF"> 
                  <table border="0" width="100%" cellspacing="0" cellpadding="0">
                    <center>
                      <tr> 
                        <td width="100%"> 
                          <%  set rs_pl=server.createobject("adodb.recordset")                 
    sql_pl="select * from Dvote where downid="&rs("id")&" order by id desc"                        
	rs_pl.open sql_pl,conn,1,1                   
	if rs_pl.eof and rs_pl.bof then                       
response.write ("暂时未有对此软件的评论!")                                      
else                                      
do while not rs_pl.eof                                      
response.write "<li>[打分:"&rs_pl("grade")&"]&nbsp;<font color=green>"&rs_pl("content")&"</font></li>"                                      
i=i+1                                             
if i>=5 then exit do               
rs_pl.movenext               
loop               
i="0"                                   
end if                                    
rs_pl.close                                      
set rs_pl=nothing%>
                        </td>
                      </tr>
                    </center>
                    <tr> 
                      <td width="100%"> 
                        <p align="right"><a href="javascript:Showvote('<%=rs("id")%>')">发表你的评论 
                          / 更多评论&gt;&gt;</a> 
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tbody> </tbody> 
      </table>
    </td>
  </tr>
</table>
<!--#include file="CopyRight.asp"-->
<!--#include file="link.asp"-->                                                      
<%rs.close                                       
set rs=nothing                                       
conn.close                                                                       
set conn=nothing%>                                                                       
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -