<style type="text/css">
.container, .container *{margin:0; padding:0;}
.container{width:325px; height:287px; overflow:hidden;position:relative; margin-left:5px; margin-top:6px;}
.slider{position:absolute;}
.slider li{ list-style:none;display:inline;}
.slider img{ width:325px; height:287px; display:block;}
.slider2{width:2000px;}
.slider2 li{float:left;}
#idTransformView ul li a:hover{
position:relative;
left:0px;
top:0px;}
.num{ position:absolute; right:5px; bottom:5px;}
.num li{
float: left;
color: #D94B01;
text-align: center;
line-height: 16px;
width: 16px;
height: 16px;
font-family: Arial;
font-size: 12px;
cursor: pointer;
overflow: hidden;
margin: 3px 1px;
border: 1px solid #F37700;
background-color: #FFF3E2;
}
.num li.on{
color: #fff;
line-height: 18px;
width: 18px;
height: 18px;
font-size: 14px;
margin: 0 1px;
border: 0; ......
<%
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
'Initiate randomize method for default seeding
randomize
'Loop through and create the output based on the the variable passed to
'the fu ......
大家有碰到过要想取一字符串里的某些值而无从下手？有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话，请看下面我对例子的解释，相信您会对这个有一定的了解。
我先介绍一下Split函数的用法:
返回值数组 = Split("字符串","分割符")
假设变量strURL保存着URL值，如strURL = "ftp://username:password@server"，这是我们在ＩＥ中登录到FTP上时的ＵＲＬ形式，如果我们想把其中的username和password取出来的话，该怎么办呢？当然解决的方法有许多，在这里我们只介绍用Split来解决的方法。首先，我们找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号作为Split函数的"分割符"来分割整个字符串，最后达到取username和password的目的。代码如下：
strURL = "ftp://username:password@server"
aryReturn = Split(strURL,":")
这样我们就把字符串用冒号分割开了，分割后的结果保存在aryReturn中（aryReturn是一个数组）。
下面我们就来看看这个最终的结果吧，因为Split函数最终返回的是一个数组，所以我们主要就是显示数组中的元素了，就要涉及到一些跟数组有关的函数:IsArray()判断是否� ......
ASP类
＝＝＝＝＝＝＝＝＝
使用VBS的ASP也能定义类的！本文将介绍定义、使用类的基本方法。
在ASP（特指使用VBS的ASP，下同）里，使用Class语句来声明一个类。语法如下：
Class 类名
End Class
类的定义、变量、属性和方法等都包含在Class...End Class块中。
下面就可以定义类的属性和方法了。正式讲属性、方法的定义之前，有一点必须了解：
在 Class 块中，成员通过相应的声明语句被声明为 Private 或 Public。被声明为 Privat
e 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对
Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Pub
lic。 在类的块内部被声明为 Public 的过程 (Sub 或 Function)将成为类的方法，Public
变量将成为类的属性。（摘自MS VBS参考）
现在，我们来定义个自行车的类：
Class bike
End Class
这样，就声明了一个名为bike的类。不过，它现在什么都不能做。要让它能做点什么，得往
里面加些东西。
一、私有变量
为了交换数据等操作，我们可以声明一些Class内部的私有变量。顾名思义，私有变量只能在
Class块中可见，外部是无法访问的。声明� ......
ASP类
＝＝＝＝＝＝＝＝＝
使用VBS的ASP也能定义类的！本文将介绍定义、使用类的基本方法。
在ASP（特指使用VBS的ASP，下同）里，使用Class语句来声明一个类。语法如下：
Class 类名
End Class
类的定义、变量、属性和方法等都包含在Class...End Class块中。
下面就可以定义类的属性和方法了。正式讲属性、方法的定义之前，有一点必须了解：
在 Class 块中，成员通过相应的声明语句被声明为 Private 或 Public。被声明为 Privat
e 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对
Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Pub
lic。 在类的块内部被声明为 Public 的过程 (Sub 或 Function)将成为类的方法，Public
变量将成为类的属性。（摘自MS VBS参考）
现在，我们来定义个自行车的类：
Class bike
End Class
这样，就声明了一个名为bike的类。不过，它现在什么都不能做。要让它能做点什么，得往
里面加些东西。
一、私有变量
为了交换数据等操作，我们可以声明一些Class内部的私有变量。顾名思义，私有变量只能在
Class块中可见，外部是无法访问的。声明� ......
在大型的ASP项目中，很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话，这样的工作即降低了工作效
率，也不利于工程的模块化，不能使代码重用。因此，把翻页这样的功能模块化是很有必要的。
设计方法：
1、调用该模块时，只需要传递记录集和每页显示的记录的条数；
2、可以点击链接进行翻页，也可以直接输入页码，回车后翻页；
3、不要考虑文件名，程序的每次翻页都能在当前页面。
想清楚了上面3个问题，我们的公共翻页模块就可以动手了。
<%
'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString (" ......
最新文章 : asp