📄 display.asp

📁 不错的一个网站哦, 不错的一个网站哦
💻 ASP
字号:
<!--#include file="config.asp" -->

<html>
<head>
<%
dim classname,typeid,typename
if IsNumeric(Request.QueryString("id"))=False then
Response.Redirect"info.asp?info=错误的参数"
else
id=cint(Request.QueryString("id"))
end if
set temprs=conn.execute("select typeid,classid,name from desktop where id="&id)
typeid=temprs(0)
filename=temprs(2)
classname=temprs(0)
set temprs=nothing
set temprs=conn.execute("select name from type where id="&typeid)
typename=temprs(0)
set temprs=nothing
%>
<title><%=title%> >> <%=desktoptitle%> >>  <%=typename%> >> <%=filename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include file="top.asp" -->
<table width="778" border="0" align="center" cellpadding="6" cellspacing="0" class="xzy">
  <tr>
    <td width="753" align="center" bgcolor="#FFFFFF"><table width="766"  border="0" align="center" cellpadding="8" cellspacing="0">
      <tr>
        <td><%Response.Write "您当前的位置：<a href='"&homeurl&"'>"&title&"</a> - <a href='index.asp'>"&desktoptitle&"</a> - <a href='type.asp?typeid="&typeid&"'>"&typename&"</a> - "&filename%>
          <%
sql = "SELECT * FROM desktop where id="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,3
rs("ck")=rs("ck")+1
rs.update
if rs("lx")=1 then
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' align='center'><tr><td align='center'><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='550' height='400'><param name=movie value='"&rs("pic")&"'><param name=quality value=high><embed src='"&rs("pic")&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='550' height='400'></embed></object></td></tr></table>"
elseif rs("lx")=0 then
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' align='center'><tr><td align='center'><table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><img src='"&rs("pic")&"' align='center'></td></tbody></table></td></tr></table>"
end if

Response.Write"<table width='750' border='0' cellspacing='0' cellpadding='3' class='bk' align='center'><tr><td width='720'>文件名称："&rs("name")&" | 点击次数："&rS("ck")&" | 添加时间："&rs("time")&"<br>文件简介："&rs("jj")&"</td>"
if rs("url")<>"" then
Response.Write"<td width='30' class='z'><a href='"&rs("url")&"'>打 包<br>下 载</a>"
end if
Response.Write"</tr></table>"
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%></td>
      </tr>
    </table></td>
</tr>
</table>
<table width="778"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="41" valign="top" class="table-xia"><table width="766" height="29" border="0" align="center" cellpadding="3" cellspacing="0" >
        <tr>
          <td width="766" height="35" align="center"><%=cy%> </td>
        </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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