show.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 87 行

<!--#include file="inc/conn.asp" -->
<%
if request("id")="" then
	response.write "非法操作，请确认程序是否正常运行"
	response.end
end if
if request("down")<>"" then
	call down()
	response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM download where id="&request("id")
rs.OPEN sql, Conn,1,3
if rs.eof and rs.bof then
	response.write "没有该软件"
	response.end
end if
rs("count")=rs("count").value+1
rs.update
%>
<!--#include file="top.asp"-->

<table bgcolor=white border=1 cellpadding=5 cellspacing=0 style='border-collapse:collapse' bordercolor=#E4E4E4 width=760 align="center">
  <tr> 
    <td colspan=4><b><%=rs("name")%></b></td>
  </tr>
  <tr> 
    <td width=19% bgcolor=#efefef align=center>更新日期</td>
    <td width=48% bgcolor=white><%=rs("time")%></td>
    <td width=18% bgcolor=#efefef align=center>程序类别</td>
    <td width=15% bgcolor=white><%=rs("big")%>￤<%=rs("sort")%></td>
  </tr>
  <tr> 
    <td width=19% bgcolor=#efefef align=center>文件大小</td>
    <td width=48% bgcolor=white><%=rs("size")%></td>
    <td width=18% bgcolor=#efefef align=center>授权方式</td>
    <td width=15% bgcolor=white><%=rs("mode")%></td>
  </tr>
  <tr> 
    <td width=19% bgcolor=#efefef align=center>应用平台</td>
    <td width=48% bgcolor=white><%=rs("roof")%></td>
    <td width=18% bgcolor=#efefef align=center>推荐程度</td>
    <td width=15% bgcolor=white><img src='./images/<%=rs("commend")%>' width=55 height=12></td>
  </tr>
  <tr> 
    <td width=19% bgcolor=#efefef align=center>程序主页</td>
    <td width=48% bgcolor=white> <%if rs("homepage")<>"" then%> <a href='<%=rs("down/xz/homepage")%>' target=_blank>Home Page</a> 
      <%else%>
      Home Page 
      <%end if%> </td>
    <td width=18% bgcolor=#efefef align=center>下载/浏览</td>
    <td width=15% bgcolor=white><%=rs("downcount")%>/<%=rs("count")%></td>
  </tr>
  <tr> 
    <td width=19% bgcolor=#efefef align=center>下载地址</td>
    <td bgcolor=white colspan=3>立即下载：<a href="gydown.asp?id=<%=rs("id")%>&sort=<%=rs("sort")%>&down=1"><font color="#3333FF">下载1</font></a> 
      <%if trim(rs("down2"))<>"" then%>
      <a href="gydown.asp?id=<%=rs("id")%>&sort=<%=rs("sort")%>&down=2"><font color="#3333FF">下载2</font></a>
<%end if%> <%if trim(rs("down3"))<>"" then%>
      <a href="gydown.asp?id=<%=rs("id")%>&sort=<%=rs("sort")%>&down=3"><font color="#3333FF">下载3</font></a> 
      <%end if%> <%if trim(rs("down3"))<>"" then%>
      <a href="gydown.asp?id=<%=rs("id")%>&sort=<%=rs("sort")%>&down=3"><font color="#3333FF">下载4</font></a> 
      <%end if%> <%if trim(rs("down5"))<>"" then%> <a href="down/xz/gydown.asp?id=<%=rs("id")%>&sort=<%=rs("sort")%>&down=5"><font color="#3333FF">下载5</font></a> 
      <%end if%> </td>
  </tr>
  <tr> 
    <td colspan=4 bgcolor=#FFFFFF style='table-layout: fixed; word-break: break-all; border-bottom-style: solid; border-bottom-color: #FFFFFF'> 
      简介： 
      <%if rs("pic")<>"" then%>
      <a href='<%=rs("pic")%>' target=_blank><img src='images/img.gif' width="16" height="16" border=0 title='点击查看图片'></a> 
      <%end if%> </td>
  </tr>
  <tr> 
    <td colspan=4 bgcolor=#FFFFFF style='table-layout: fixed; word-break: break-all; text-indent: 40; border-top-style: solid; border-top-color: #FFFFFF'> 
      <%
		   content=rs("show")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   
		   'content=replace(content,chr(13),"<br>")
		   'content=replace(content,chr(32),"&nbsp;")
		   Response.Write(content)
		   %> </td>
  </tr>
</table> 
<!-- #include file="foot.asp" -->