◆◆◆◆◆飘落的玫瑰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...
1、当她要你请她吃饭的时候，你不妨长时间注视她，如果她表现出来的不是乖巧和温情，那你就别破费。 2、你在决定追一个女人的时候，先想想自己能不能在她面前保持本色，否则别去委屈自己。 3、一等色狼爱才女，二等色狼爱淑女，三等色狼爱美女，四等色狼爱妓 女。 4、与她上街许多次，她一直阻止你为她花钱并不时问你饿不饿渴不渴累不累，并且你由衷感动的话，则你应该考虑娶她。 5、女人的自尊心比超薄丝袜还脆弱。很多时候你太在乎她的自尊，她就可能不在乎你的自尊，她要变成慈禧的话，你别当李莲英。 6、爱撒谎的美女不是女人是精液容器，别太在意。 7、色狼的最高境界是专一，滥情是菜鸟无能的...
超级经典的口误
1.当时爬山爬了一半,累的正想歇会的时候看到路边有个买纪念品的欧巴桑,上去开口就问:"老婆........"
2.偶有次开车，有个美女同事搭车，一坐我旁边，偶特紧张滴说：把安全套带上!美女以后再不理偶了。。。郁闷ING
3.以前别人来我阿姨家作客，刚进门的。刚好我阿姨要去上厕所。她连忙招呼客人说：“你们坐哈坐哈，我给你们去倒点尿喝!”(本来是说倒点茶喝的)。
4.在实习的时候，对一个老师说：陈老师你是不是姓陈？
5.偶们大学去工厂金工实习的时候,工人师傅分配机床时说：为了安全起见，我门尽量保证一个男同学和一个女同学一张床。当...
<%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...
数字分页效果 [<<][<][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,...
(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...
<% 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格式? Intel HEX文件是记录文本行的ASCII文本文件,在Intel HEX文件中,每一行是一个HEX记录 由十六进制数组成的机器码或者数据常量,Intel HEX文件经常被用于将程序或数据传输 存储到ROM.EPROM,大多数编程器和模拟器使用Intel HEX文件. 记录格式 一个Intel HEX文件可以包含任意多的十六进制记录,每条记录有五个域,下面是一个记录的格式. :llaaaatt[dd...]cc 每一组字母是独立的一域,每一个字母是一个十六进制数字,每一域至少由两个十六进制数字组成,下面是字节的描述. :冒号 是每一条Intel HEX记...
当一个扩展线性地址记录被读到后,扩展线性地址记录的数据区域将被保存 并应用到后面从Intel HEX文件中读出的记录,这个扩展线性记录一直有效, 直到读到下一个扩展线性记录. 绝对内存地址 = 数据记录中的地址 + 移位后的扩展线性地址 下面举例说明这个过程 从数据记录的地址域得到地址 2462 从扩展线性地址记录的地址域得到地址 FFFF 绝对内存地址 FFFF2462 扩展段地址记录 (HEX86) 扩展段地址记录也被称为 HEX86记录, 包含 4-19位的数据地址段, 这个扩展段地址记录总是有两字节数据,如下: :020000021200EA 02 是 记录中的数据字节数目 00...
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 ...