在网页里,绝对路径是以"/"开头的,它表示的是站点的根目录,比如站点在: C:\Inetpub\wwwroot\下,那么不管这个页面在什么地方,"/文件名"永远都是以"C:\Inetpub\wwwroot\文件名"来找这个文件的. 假如你是在本地打开的html文件,那么它将以本地磁盘根目录为初始路径,如"C:\" 所以做链接的时候最好把前面的"/"去掉,就成为相对路径,即以文件的所在目录为初始目录.当然你的相对路径要设对了才行,可用"../"来回到上一层目录. 比如: file目录有两个文件夹:file1,file2,那么在file2里要引用file1里的文件就要写成这样: ../fil...
◆◆◆◆◆飘落的玫瑰FLASH特效背景代码 <EMBED style="LEFT: 50px; WIDTH: 850px; POSITION: absolute; TOP: 100px; HEIGHT: 1500px" align=right src=http://bbs.flasher123.com/UploadFile/2004-9/20049120533895073*** width=500 height=1500 type=application/octet-stream wmode="transparent" quality="high" ;;></EMBED><EMBED s...
◆◆◆◆◆FLASH时钟代码 <embed src="/flash地 址pluginspage='http://www.macromedia.com/shockwave/download/index.cgi? P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=480 height=360></embed> FLASH时钟地址可以在下面找: www.lee168.com/clock/clock1*** 中间的自己加................... www.lee168.com/cloc...
◆◆◆◆◆透明FLASH街舞代码 <img src="javascript:document.getElementById('Mlogo').innerHTML+='<div style=\'position:absolute;top:230;left:0;\'><EMBED src="/\'http://flash.haoniub.com/flash_data/fe_f/4909***"\' quality=high wmode=\'transparent\' WIDTH=\'495\' HEIGHT=\'355\' TYPE=\'application/x-shockwave-fla...
<%If Session("ProductList")="" or Session("ProductList")="'undefined'" ThenResponse.Redirect"Loginsb.asp?msg=您没有选购商品,不能够结帐!"End IfIf Session("UserName")<>"" ThenResponse.Redirect"Ment1.asp"Else%><HTML><HEAD><TITLE>会员登录</TITLE>< name="Author" content="szokorg">< name="Contact" content="admin@szok....
c2u(myText) Dim i c2u = "" For i = 1 to Len(myText) c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" Next End cutStr(str,strlen) '去掉所有HTML标记 Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" str=re.Replace(str,"") set re=Nothing Dim l,t,c...
(2)我一般用的分页代码如下: <% set rs=server.CreateObject("ADODB.recordset") sql ="select * from 表" rs.open sql,conn,1,1 page=cint(request("page")) n=rs.RecordCount rs.pagesize=12 m=cint(rs.pagecount) if page="" then page=1 elseif page<1 then page=1 end if if cint(request("page"))>m then page=m end if page=c...
数字分页效果 [<<][<][1] [2] [3] [4] [5] [6] [7] [8] [9] [10][>][>>]下拉页数菜单 [<<]作用为,翻到首页,[>>]作用为翻到最后页 [<]作用为向上翻10页,没有时没有连接;[>]作用为向下翻10页,没有时无连接。 最右边下拉菜单,则为所有页数,选择第几页就跳转到第几页。 200分求这段的详细代码包括注释,要包括我上面提到的各种功能,高手费心了!拜谢!!!
这是我的一个分页,你拿去自己看下 <% dim pagecount,rsrecordcount,pagecounts,s,ii,page_b,page_e,page_num,...
<% if not dbrs.eof then dbrsword=dbrs(6). zzj=len(dbrsword) if zzj>2000 then response.write "接上一页<br>" pagecount=int(zzj/2000)+1 '取得此篇文章的总页数 if request("page")="" then '取得此篇文章的某一页 ...
当一个扩展线性地址记录被读到后,扩展线性地址记录的数据区域将被保存 并应用到后面从Intel HEX文件中读出的记录,这个扩展线性记录一直有效, 直到读到下一个扩展线性记录. 绝对内存地址 = 数据记录中的地址 + 移位后的扩展线性地址 下面举例说明这个过程 从数据记录的地址域得到地址 2462 从扩展线性地址记录的地址域得到地址 FFFF 绝对内存地址 FFFF2462 扩展段地址记录 (HEX86) 扩展段地址记录也被称为 HEX86记录, 包含 4-19位的数据地址段, 这个扩展段地址记录总是有两字节数据,如下: :020000021200EA 02 是 记录中的数据字节数目 00...
什么是Intel HEX格式? Intel HEX文件是记录文本行的ASCII文本文件,在Intel HEX文件中,每一行是一个HEX记录 由十六进制数组成的机器码或者数据常量,Intel HEX文件经常被用于将程序或数据传输 存储到ROM.EPROM,大多数编程器和模拟器使用Intel HEX文件. 记录格式 一个Intel HEX文件可以包含任意多的十六进制记录,每条记录有五个域,下面是一个记录的格式. :llaaaatt[dd...]cc 每一组字母是独立的一域,每一个字母是一个十六进制数字,每一域至少由两个十六进制数字组成,下面是字节的描述. :冒号 是每一条Intel HEX记...
AscW 是为使用 Unicode 字符的 32 位平台提供的。 它返回 Unicode (宽型)字符代码,因此可以避免从 ANSI 到 Unicode 的代码转换。
返回与字符串的第一个字母对应的 ANSI 字符代码。
include file 与include virtual的区别 1。#include file 包含文件的相对路径,#include virtual包含文件的虚拟路径。 2。在同一个虚拟目录内,<!--#include file="file.asp"-->和<!--#include virtual="file.asp"-->效果是相同的,但假设虚拟目录名为myweb,则<!--#include virtual="myweb/file.asp"-->也可以通过调试,但我们知道<!--#include file="myweb/file.asp"-->是绝对要报错的。 3。如果一个站点下有2...
VB的LBound和UBond上下界函数的详细格式和功能,作用
返回一个 Long 型数据,其值为指定数组维可用的最小下标。
语法
LBound(arrayname[, dimension])
LBound 函数的语法包含下面部分:
部分 描述 arrayname 必需的。数组变量的名称,遵循标准的变量命名约定。 dimension 可选的;Variant (Long)。指定返回哪一维的下界。1 表示第一维,2 表示第二维,如此类推。如果省略 dimension,就认为是 1。
说明
LBound 函数与 UBound 函数一起使用,用来确定一个数组的大小。UB...
<>
var i=1;
var tmpobj = setInterval("addtime()",1000); //这里调整你的轮换时间
addtime()
{
if (i==1)
{
getElementById("indexsrh1").style.display='none';
getElementById("indexsrh2").style.display='block';
i=2;
}
else
{
getElementById("indexsrh2").style.display='none';
getElement...
''创建表单MyForm,方法为Get Response.Write("<form method=Get name=MyForm>") Response.Write("<p align=center><font size=2 color=#008000>") ''设置翻页超链接 if rs.PageCount=1 then Response.Write("[第一页] [上一页] [下一页] [最后一页] ") else if rs.AbsolutePage=1 then Response.Write("[第一页] [上一页] ") Response.Write("[<a href=jav...
29.分页代码: <%''本程序文件名为:Pages.asp%> <%''包含ADO常量表文件adovbs.inc,可从"\Program Files\Common Files\System\ADO"目录下拷贝%> <!--#Include File="adovbs.inc"--> <%''*建立数据库连接,这里是Oracle8.05数据库 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Pas...
24.点击返回上页代码: <form> <p><input TYPE="button" ="返回上一步" ="history.back(-1)"></p> </form> 24.点击刷新代码: <form> <p><input TYPE="button" ="刷新按钮一" ="ReloadButton()"></p> </form> < language="java"><!-- ReloadButton(){location.href="allbutton.htm";} // --></>
24.点击刷新代码2: <form> <p><input TYPE="button" ="...
18.使用FSO读取文件某一行的函数 FSOlinedit(filename,lineNum) if linenum < 1 then exit dim fso,f,temparray,tempcnt set fso = server.CreateObject("ing.filesystemobject") if not fso.fileExists(server.mappath(filename)) then exit set f = fso.opentextfile(server.mappath(filename),1) if not f.AtEndofStream then ...
1.获得系统时间: <%=now()%> 2.取得来访用的IP: <%=request.serverVariables("remote_host")%> 3.获得系统,浏览器版本: <> write("版本:"+navigator.appName+navigator.appVersion+" browser.") </> 4.去除IE混动条: <body scroll="no"> <body style="overflow-y:hidden"> 5.进入网站,跳出广告: < language="java"> <!-- <!-- 注意更改文件所在路径--> open(''http://ww...