zz.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="../conn.asp"-->
<%
    IDx=Request.QueryString("id")
    IDx=cint(IDx)
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="SELECT * FROM DownFile where ID="&IDx&" "
    rs.open sql,conn,1,1
    if rs.BOF and rs.EOF then
        disfile="参数有误"
    else
        if rs("Lx")=1 then
            disfile="<center><table width=400 border=0>"
            disfile=disfile+"<tr><td width=70>电影名称</td><td width=330>"&rs("Name")&"</td></tr>"
            disfile=disfile+"<tr><td>电影格式</td><td>"&rs("Type")&"</td></tr>"
            disfile=disfile+"<tr><td>文件大小</td><td>"&rs("Size")&"</td></tr>"
            disfile=disfile+"<tr><td>播放平台</td><td>"&rs("YyPT")&"</td></tr>"
            disfile=disfile+"<tr><td>观看条件</td><td>"&rs("TJ")&"&nbsp;"&rs("TJNum")&"</td></tr>"
            disfile=disfile+"<tr><td>在线观看</td><td><input type=Button name=fj value=播放 onclick=window.open('../play.asp?ID="&rs("ID")&"','','width=500,height=400')></td></tr>"
            if rs("downdress")="无" then
              disfile=disfile+"<tr><td>下载地址</td><td>无</td></tr>"
            else
              disfile=disfile+"<tr><td>下载地址</td><td><a href=../down.asp?ID="&rs("ID")&" target=_blank>下载</a></td></tr>"
            end if
            disfile=disfile+"<tr><td colspan=2>相关描述</td></tr>"
            disfile=disfile+"<tr><td colspan=2>"&rs("Bz")&"</td></tr>"
            disfile=disfile+"</table></center>"
        end if
        
        if rs("Lx")=2 then
            disfile="<center><table width=400 border=0>"
            disfile=disfile+"<tr><td width=70>音乐名称</td><td width=330>"&rs("Name")&"</td></tr>"
            disfile=disfile+"<tr><td>音乐格式</td><td>"&rs("Type")&"</td></tr>"
            disfile=disfile+"<tr><td>文件大小</td><td>"&rs("Size")&"</td></tr>"
            disfile=disfile+"<tr><td>播放平台</td><td>"&rs("YyPT")&"</td></tr>"
            disfile=disfile+"<tr><td>播放条件</td><td>"&rs("TJ")&"&nbsp;"&rs("TJNum")&"</td></tr>"
            disfile=disfile+"<tr><td>在线播放</td><td><input type=Button name=fj value=播放 onclick=window.open('../play.asp?ID="&rs("ID")&"','','width=500,height=400')></td></tr>"
            if rs("downdress")="无" then
              disfile=disfile+"<tr><td>下载地址</td><td>无</td></tr>"
            else
              disfile=disfile+"<tr><td>下载地址</td><td><a href=../down.asp?ID="&rs("ID")&" target=_blank>下载</a></td></tr>"
            end if
            disfile=disfile+"<tr><td colspan=2>相关描述</td></tr>"
            disfile=disfile+"<tr><td colspan=2>"&rs("Bz")&"</td></tr>"
            disfile=disfile+"</table></center>"
        end if
        
        if rs("Lx")=3 then
            disfile="<center><table width=400 border=0>"
            disfile=disfile+"<tr><td width=70>文件名称</td><td width=330>"&rs("Name")&"</td></tr>"
            disfile=disfile+"<tr><td>文件格式</td><td>"&rs("Type")&"</td></tr>"
            disfile=disfile+"<tr><td>文件大小</td><td>"&rs("Size")&"</td></tr>"
            disfile=disfile+"<tr><td>应用平台</td><td>"&rs("YyPT")&"</td></tr>"
            disfile=disfile+"<tr><td>下载条件</td><td>"&rs("TJ")&"&nbsp;"&rs("TJNum")&"</td></tr>"
            if rs("downdress")="无" then
              disfile=disfile+"<tr><td>下载地址</td><td>无</td></tr>"
            else
              disfile=disfile+"<tr><td>下载地址</td><td><a href=../down.asp?ID="&rs("ID")&" target=_blank>下载</a></td></tr>"
            end if
            disfile=disfile+"<tr><td colspan=2>相关描述</td></tr>"
            disfile=disfile+"<tr><td colspan=2>"&rs("Bz")&"</td></tr>"
            disfile=disfile+"</table></center>"
        end if
    end if
    rs.Close
    set rs=nothing
    set conn=nothing
  disfile="document.write(""" & disfile & """);"
  response.write disfile 
%>