📄 print.asp

📁 3000首FLASH源程序

💻 ASP

字号:

<!--#include file=function.asp-->
<!--#include file=conn.asp-->
<!--#include file=const.asp-->
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<!--#include file=style.asp-->
<body leftmargin="0" topmargin="0">
<%
founderr=false
if request("id")="" then
	founderr=true
	errmsg=errmsg+"<li>请选择图片！</li>"
else
	set rs = server.createobject("adodb.recordset")
	id=request("id")
	sql="select pic.hits,pic.no,pic.best,pic.key,pic.title,pic.size,pic.sign,pic.text,pic.creattime,pic.collecttime,pic.updatetime,pic.value1,pic.value2,pic.content,pic.images,pic.authorid,author.author from pic,author where pic.authorid=author.authorid and pic.id="&id
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		founderr=true
		errmsg=errmsg+ "<li>没有找到相关图片，可能已经被管理员删除！</p>"
	else
		call showcontent()
	end if
end if
if founderr=true then call error()

sub showcontent()%>
<table align=center border=0 cellpadding=2 cellspacing=1 width=298 height=215 bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td align=center height=18 valign=top width=151 bgcolor="<%=Tablebodycolor%>"> <img src=<%=rs("images")%> width=151 onLoad="javascript:if(this.height>200)this.height=200;else if(this.width>150)this.width=150;" border="0" alt="点击查看原图片"></a></td>
    <td height=18 valign=top width=147 bgcolor="<%=Tablebodycolor%>"> 
      <div align=center><b><%=rs("title")%></b></div>
      <b>编　　号：</b><%=rs("no")%><br>
      <b>作　　者：</b><%=rs("author")%><br>
      <b>尺　　寸：</b><%=rs("size")%> <br>
      <b>印　　记：</b><%=rs("sign")%><br>
      <b>纸　　本：</b><%=rs("text")%><br>
      <b>创作时间：</b><%=rs("creattime")%><br>
      <b>内容简介：</b><%=rs("content")%><div align=center>时间：　　　签名：</div></td>
  </tr>
</table>
<%end sub

set rs=nothing   
conn.close   
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -