asp图片切换
<%
'以下是试用版代码,是固定的代码,只有正式版才可自动从后台数据库中读取图片。
piao1="images/1.jpg"
piao1url=""
piaos1="图1"
piao2="images/2.jpg"
piao2url=""
piaos2="图2"
piao3="images/3.jpg"
piao3url=""
piaos3="图3"
piao4="images/4.jpg"
piao4url=""
piaos4="图4"
piao5="images/5.jpg"
piao5url=""
piaos5="图5"
pic=piao1&"|"&piao2&"|"&piao3&"|"&piao4&"|"&piao5
link=piao1url&"|"&piao2url&"|"&piao3url&"|"&piao4url&"|"&piao5url
texts=piaos1&"|"&piaos2&"|"&piaos3&"|"&piaos4&"|"&piaos5
%>
<script language="" type="text/javascript">
<!--
var focus_width=220
var focus_height=174
var text_height=26
var swf_height = focus_height+text_height
var pics='<%=pic%>'
var links='<%=link%>'
var texts='<%=texts%>'
document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#f9f0c5">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+f
相关文档:
一个ASP替换函数img里面多余的代码
<%
Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />")))
%>
<%
'功能:将IMG代码格式化为<img src= ......
txt文件是下面这样的,
一行一条数据,用逗号分隔
下面写出asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="inc/conn.asp" -->
<%
filespec=server.mappath("txt.txt")
Const ForRead ......
发一个标准的数据库连接代码。希望对大家有帮助。
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data&n ......
在提交页面中验证session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
' 禁止缓存
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
&nb ......