📄 pic.asp

📁 网上学生心里调查系统

💻 ASP

字号:

<!--#include file="config.asp" -->
<%
dim idpic
idpic=trim(request("id"))
if len(idpic)=0 then 
  response.end 
end if

set rspic=server.CreateObject("adodb.recordset")
rspic.open "select * from xinxi where 编号="& idpic,conn,1,1
%>
<HTML><HEAD><TITLE>图片</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<%
response.write ("<marquee width='170' scrollamount='3' scrolldelay='50' onmouseover='this.stop()' onmouseout='this.start()'>")
if rspic("图片1")<>"" and rspic("图片1")<>"http://" then response.write ("<a target='_blank' href='"&rspic("图片1")&"'><img src='"&rspic("图片1")&"' title='点击看大图' border=0 height=70 width=100></a>") end if
if rspic("图片2")<>"" and rspic("图片2")<>"http://" then response.write ("<a target='_blank' href='"&rspic("图片2")&"'><img src='"&rspic("图片2")&"' title='点击看大图' border=0 height=70 width=100></a>") end if
if rspic("图片3")<>"" and rspic("图片3")<>"http://" then response.write ("<a target='_blank' href='"&rspic("图片3")&"'><img src='"&rspic("图片3")&"' title='点击看大图' border=0 height=70 width=100></a>") end if
response.write ("</marquee>")
%>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -