易截截图软件、单文件、免安装、纯绿色、仅160KB

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里面多余的代码

一个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= ......

asp分行读取txt文件,有分隔符,存储到access

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 ......

asp连接数据库代码

发一个标准的数据库连接代码。希望对大家有帮助。
<%
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 ......

asp验证码(加法运算)

在提交页面中验证session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
    ' 禁止缓存
    Response.Expires = -9999 
    Response.AddHeader "Pragma","no-cache"
  &nb ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号