📄 newpic.asp

📁 网上流行的MOVE站点

💻 ASP

字号:

<!--#include file="articleconn.asp"-->
<!--#include file="ip.asp"-->
<% 
set rs=server.createobject("adodb.recordset")
sql="select * from newpic where id=id"
rs.open sql,conn,1,3
pic1=rs("pic1")
pic2=rs("pic2")
pic3=rs("pic3")
movie1=rs("movie1")
movie2=rs("movie2")
movie3=rs("movie3")
rs.close
set rs=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript1.2>
function reapply(){
setTimeout("slideit()",2000)
return true
}
window.onerror=reapply
</SCRIPT>

<SCRIPT language=JavaScript1.1>
<!--
//preload images
var image1=new Image()
image1.src="<%=pic1%>"
var image2=new Image()
image2.src="<%=pic2%>"
var image3=new Image()
image3.src="<%=pic3%>"


//-->
</SCRIPT>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#666666 leftMargin=0 topMargin=0 onload=slideit() marginheight="0" 
marginwidth="0"><A href="javascript:slidelink()"><IMG 
style="FILTER: revealTrans(Duration=3, Transition=26)" height=159 
src="<%=pic1%>" width=483 border=0 name=slide></A> </SCRIPT>
<SCRIPT>
<!--
////change number of images below 
var number_of_images=3
//change speed below (in seconds)
var speed=3
var step=1
var whichimage=1
function slideit(){
if (!document.images)
return
if (document.all)
slide.filters.item(0).Apply()
document.images.slide.src=eval("image"+step+".src")
if (document.all)
slide.filters.item(0).Play()
whichimage=step
if (step<number_of_images)
step++
else
step=1
if (document.all)
setTimeout("slideit()",speed*1000+3000)
else
setTimeout("slideit()",speed*1000)
}
function slidelink(){
popup = window.open('', 'newwin');
if (whichimage==1)
popup.location.href="<%=movie1%>"
if (whichimage==2)
popup.location.href="<%=movie2%>"
if (whichimage==3)
popup.location.href="<%=movie3%>"


}
//-->
</SCRIPT>
</BODY></HTML>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -