📄 display.asp
字号:
<%@ ENABLESESSIONSTATE = FALSE %>
<!--#include file="config.asp" -->
<!--#include file="mdb/conn.asp" -->
<!--壹加壹在线--www.10000cn.com-->
<HTML><HEAD>
<%
dim classid,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,pic from desktop where id="&id)
typeid=temprs(0)
classid=temprs(1)
filename=temprs(2)
pic=temprs(3)
set temprs=nothing
set temprs=conn.execute("select name from class where id="&classid)
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%> - <%=classname%> - <%=typename%> - <%=filename%></title>
<!--#include file="intop.asp" -->
<TABLE border=0 cellPadding=0 cellSpacing=0 width=750 align=center>
<TBODY>
<TR>
<TD align=middle bgColor=#f2f2f2 vAlign=top width=701> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<tr>
<td width="100%" height="5"> <table border="0" cellpadding="0" cellspacing="0" width="750" height="1">
<tr>
<td height="58" width="750"><b> <font color="#FF0000">图片分类</font>：</b>
<%
sql = "SELECT * FROM type ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof and rs.bof then
Response.Write"还没有分类"
else
do while not rs.eof
Response.Write"| <a href='type.asp?typeid="&rs("id")&"'>"&rs("name")&"</a>"
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" background="../img/dotlineh.gif" height="1"></td>
</tr>
<tr>
<td width="100%" height="28">
<%Response.Write " 您当前的位置：<a href='"&homeurl&"'>"&title&"</a> → <a href='index.asp'>"&desktoptitle&"</a> → <a href='class.asp?classid="&classid&"'>"&classname&"</a> → <a href='type.asp?typeid="&typeid&"'>"&typename&"</a> → "&filename%>
</td>
</tr>
<tr>
<td height="14" align="center"> <input name="send" type="button" value="发送此图片到手机" onclick="javascript:window.open('http://www.caishow.com/cooperation/bigPic.asp?f=2702&Title=超大图片彩信diy&Notify=自由选取美图中最中意部分作为您的屏保！可自由选取、放大、缩小&picUrl=<%=pic%>','caishowSend','width=100,height=100,resizable');return false;">
</td>
</tr>
<tr>
<td width="100%" height="7">
<%
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='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><img src='"&rs("pic")&"' width='600' align='center'></td></tbody></table></td></tr></table>"
Response.Write"<div align='center'><a href=display.asp?id="&rs("id")-1&">【上幅图】</a> <a href=display.asp?id="&rs("id")+1&">【下幅图】</a></div>"
end if
Response.Write"<table width='450' border='0' cellspacing='0' cellpadding='3' align='center'><tr><td width='450'>文件名称："&rs("name")&" | 浏览次数："&rS("ck")&" | 添加时间："&rs("time")&"<br>文件简介："&rs("jj")&"</td>"
if rs("url")<>"" then
Response.Write"<td width='30'><a href='"&rs("url")&"'>下载</a>"
end if
Response.Write"</tr></table>"
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>
</td>
</tr>
<tr>
<td height="7" align="center">
<input name="send" type="button" value="发送此图片到手机" onclick="javascript:window.open('http://www.caishow.com/cooperation/bigPic.asp?f=2702&Title=超大图片彩信diy&Notify=自由选取美图中最中意部分作为您的屏保！可自由选取、放大、缩小&picUrl=<%=pic%>','caishowSend','width=100,height=100,resizable');return false;">
</td>
</tr>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE>
<BR>
<SCRIPT language=JavaScript>
<!--
if (window.Event)
document.captureEvents(Event.MOUSEUP);
function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
}
document.oncontextmenu = nocontextmenu; // for IE5+
document.onmousedown = norightclick; // for all others
//-->
</SCRIPT></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="infoot.asp" -->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -