数字分页2

(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...
ASP | 2007-05-09 06:55 | 阅读 1070 次 | 评论 0 条

数字分页1

数字分页效果 [<<][<][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,...
ASP | 2007-05-09 06:55 | 阅读 1242 次 | 评论 0 条

实现ASP文章内分页最精的源代码

<% 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 '取得此篇文章的某一页 ...
ASP | 2007-05-09 06:53 | 阅读 3863 次 | 评论 0 条

什么是HEX数据2?

当一个扩展线性地址记录被读到后,扩展线性地址记录的数据区域将被保存 并应用到后面从Intel HEX文件中读出的记录,这个扩展线性记录一直有效, 直到读到下一个扩展线性记录. 绝对内存地址 = 数据记录中的地址 + 移位后的扩展线性地址 下面举例说明这个过程 从数据记录的地址域得到地址 2462 从扩展线性地址记录的地址域得到地址 FFFF 绝对内存地址 FFFF2462 扩展段地址记录 (HEX86) 扩展段地址记录也被称为 HEX86记录, 包含 4-19位的数据地址段, 这个扩展段地址记录总是有两字节数据,如下: :020000021200EA 02 是 记录中的数据字节数目 00...
ASP | 2007-05-09 06:51 | 阅读 3739 次 | 评论 0 条

什么是HEX数据1?

什么是Intel HEX格式? Intel HEX文件是记录文本行的ASCII文本文件,在Intel HEX文件中,每一行是一个HEX记录 由十六进制数组成的机器码或者数据常量,Intel HEX文件经常被用于将程序或数据传输 存储到ROM.EPROM,大多数编程器和模拟器使用Intel HEX文件. 记录格式 一个Intel HEX文件可以包含任意多的十六进制记录,每条记录有五个域,下面是一个记录的格式. :llaaaatt[dd...]cc 每一组字母是独立的一域,每一个字母是一个十六进制数字,每一域至少由两个十六进制数字组成,下面是字节的描述. :冒号 是每一条Intel HEX记...
ASP | 2007-05-09 06:51 | 阅读 2736 次 | 评论 0 条

AscW

AscW 是为使用 Unicode 字符的 32 位平台提供的。 它返回 Unicode (宽型)字符代码,因此可以避免从 ANSI 到 Unicode 的代码转换。 返回与字符串的第一个字母对应的 ANSI 字符代码。
ASP | 2007-05-09 06:50 | 阅读 1044 次 | 评论 0 条

include file 与include virtual的区别

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...
ASP | 2007-05-09 06:49 | 阅读 1718 次 | 评论 0 条

LBound和UBond上下界函数

VB的LBound和UBond上下界函数的详细格式和功能,作用 返回一个 Long 型数据,其值为指定数组维可用的最小下标。 语法 LBound(arrayname[, dimension]) LBound 函数的语法包含下面部分: 部分 描述 arrayname 必需的。数组变量的名称,遵循标准的变量命名约定。 dimension 可选的;Variant (Long)。指定返回哪一维的下界。1 表示第一维,2 表示第二维,如此类推。如果省略 dimension,就认为是 1。 说明 LBound 函数与 UBound 函数一起使用,用来确定一个数组的大小。UB...
ASP | 2007-05-09 06:48 | 阅读 1141 次 | 评论 0 条

循环广告层

<> 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...
ASP | 2007-05-09 06:46 | 阅读 1182 次 | 评论 0 条

[推荐]ASP初学者常用的代码5

''创建表单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...
ASP | 2007-05-09 06:45 | 阅读 1014 次 | 评论 0 条

[推荐]ASP初学者常用的代码4

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...
ASP | 2007-05-09 06:44 | 阅读 1099 次 | 评论 0 条

[推荐]ASP初学者常用的代码3

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" ="...
ASP | 2007-05-09 06:42 | 阅读 1099 次 | 评论 0 条

[推荐]ASP初学者常用的代码2

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 ...
ASP | 2007-05-09 06:37 | 阅读 1005 次 | 评论 0 条

[推荐]ASP初学者常用的代码1

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...
ASP | 2007-05-09 06:36 | 阅读 977 次 | 评论 0 条

让图片不间断连续向右滚动

div id="demo" style="overflow:hidden;width:670px;color:#ffffff;"> <table cellpadding="0" cellspacing="0" border="0"> <tr><td id="demo1" valign="top" align="center"> <table cellpadding="2" cellspacing="0" border="0"> <tr align="center"> <td><img src="http://www.371.cn/logo.gif" width="88"></td> <t...
ASP | 2007-05-09 06:32 | 阅读 2832 次 | 评论 1 条

轮换图片

2. 共享图层 共享图层就是使用“Layers”图层面板,将指定的背景图片设定为共享图层,如此即可在所有的帧中看到该背景。 我们有时可能会误认为每一帧都拥有一个图层,其实不论设定的帧有多少,这些帧都位于同一图层上,只是出现的时间不同罢了。 下面我们就利用此方法为刚才的动画添加一个背景: 首先,将画布的大小改为200x150(Pixels),然后开启“Layers”图层面板,单击“Layers”图层面板右上角如图按钮,选择“New Layer”,在弹出的“New Layer”对话框中,为新层起一个名字,例如:background,钩选“Share Across s”复选框,单击“ok”按钮...
ASP | 2007-05-09 06:31 | 阅读 1269 次 | 评论 0 条

轮换图片

其实动画的原理很简单,就是让图片有秩序地轮流显示。 软件下在地址:http://www3.skycn.com/soft/2521.html 利用Firework 制作动画总共有三种方法,由易到难分别为:合并已有图片生成动画,利用Tween Instances生成动画和手工绘制。 一、 合并已有图片生成动画 合并已有图片形成动画,顾名思义就是将一系列图片按顺序排列在不同的帧中从而生成动画,当然,首先我们必须有一串连续的图片,然后,在Fireworks中,选择菜单指令“File/Open Multiple”,这时将弹出“打开”对话框(如图1), 进入所需图片所在的目录,然后按照动画中图片显示...
ASP | 2007-05-09 06:30 | 阅读 1616 次 | 评论 0 条

图片连续滚动的代码

<div id="demo" style="overflow:hidden;width:670px;color:#ffffff;"> <table cellpadding="0" cellspacing="0" border="0"> <tr><td id="demo1" valign="top" align="center"> <table cellpadding="2" cellspacing="0" border="0"> <tr align="center"> <td><img src="http://www.haao.cn/logo.gif" width="88"></td> ...
ASP | 2007-05-09 06:28 | 阅读 5541 次 | 评论 0 条

数据库的连接方法总结

各种数据库连接代码: MS Access数据库连接 用DSN连接并且没有用户名和密码: <% set conn = Server.CreateObject("ADODB.Connection") conn.open "YourDSNName" %> 用DSN连接并且有用户名和密码: <% set conn = Server.CreateObject("ADODB.Connection") conn.open "YourDSNName","username","password" %> 用实际的数据库绝对路径连接: <% Set conn = Server.CreateObject("AD...
ASP | 2007-05-09 06:26 | 阅读 975 次 | 评论 0 条

ASP+FSO+框架实现ASP生成htm静态页并分页方法(2)

Dim checkfile'检查文本文件是否已经存在,是则删除checkfile=server.mappath("CityHtml\"&amp;Filestart&amp;".htm")'检查htm文件是否已经存在,是则删除if (fs.FileExists(checkfile)) then'检查htm文件是否已经存在,是则删除Dim df'定义文件对象*删除文件使用*Set df=fs.GetFile(checkfile)'定义要册除的文件df.delete'册除文件end if'判断结束Dim ts'定义写入文件对象set ts = fs.createtextfile(filez,t...
ASP | 2007-05-09 06:23 | 阅读 1588 次 | 评论 0 条
浏览125841次
文章归档
最新评论