截取字符串加强和去除HTML标记 函数
[ 2006-05-27 11:42:53 | 作者: admin ]
http://blog.thel.cn/default.asp
<%
'**************************************************
'函数名：gotTopic
'作 用：截字符串，汉字一个算两个字符，英文算一个字符
'参 数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
...
阅读全文…
<%
'**************************************************
'函数名：gotTopic
'作 用：截字符串，汉字一个算两个字符，英文算一个字符
'参 数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
...
阅读全文…
asp中动态include的方法
[ 2006-05-27 11:41:35 | 作者: admin ]
推荐
==================
asp动态include文件
使用范例：include("youinc.asp")
<%
Function include(filename)
Dim re,content,fso,f,aspStart,aspEnd
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing
set re=new RegExp
re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
do while aspStart>aspEnd+1
Response.write ...
阅读全文…
==================
asp动态include文件
使用范例：include("youinc.asp")
<%
Function include(filename)
Dim re,content,fso,f,aspStart,aspEnd
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing
set re=new RegExp
re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
do while aspStart>aspEnd+1
Response.write ...
阅读全文…
在ASP编程中使用数组
[ 2006-05-27 11:28:46 | 作者: admin ]
在ASP编程中使用数组
数组的定义
Dim MyArray
MyArray = Array(1,5,123,12,98)
可扩展数组
Dim MyArray()
for i = 0 to 10
ReDim Preserve MyArray(i)
MyArray(i)=i
next
将一个字符串分割并返回分割结果的数组
Dim MyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "<br>"
Next
数组排序函数
function..Sort(ary)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
...
阅读全文…
数组的定义
Dim MyArray
MyArray = Array(1,5,123,12,98)
可扩展数组
Dim MyArray()
for i = 0 to 10
ReDim Preserve MyArray(i)
MyArray(i)=i
next
将一个字符串分割并返回分割结果的数组
Dim MyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "<br>"
Next
数组排序函数
function..Sort(ary)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
...
阅读全文…
ASP只有一种数据类型那就是variant
[ 2006-05-27 11:10:17 | 作者: admin ]
ASP只有一种数据类型那就是"variant "。它是一种特殊的数据类型能够根据它
的使用表示很多不同种类的信息。因为它是ASP中唯一的数据类型，它也是ASP中所有
函数返回值的唯一类型。它很简单的，"variant"数据类型能够表示数字或者是字符串
。当你在ASP程序中把它当做是数字，它就自动转化为"Numeric",如果用它为字符串，
它也同样就是"String"了。也就是说，程序中某个数据看起来好像是数字时，ASP就会
猜测它是数字，然后就用最适合数字的方法来处理。相似的，字符串处理也是如此的。
当然，您也可以把数字当做字符串来处理，所需的只是一个" "（引号）而已。Variant
图表类型：除去这些简单的数字和符号类型，"variant"还能更加清楚地表示一些特殊
的数字类型。比如，你能用表示日期（时间）的数字信息。当你用到时间或日期数据时，
所用的变量就表示时间（日期）了。当然，你能够拥有非常丰富的数字信息，
...
阅读全文…
的使用表示很多不同种类的信息。因为它是ASP中唯一的数据类型，它也是ASP中所有
函数返回值的唯一类型。它很简单的，"variant"数据类型能够表示数字或者是字符串
。当你在ASP程序中把它当做是数字，它就自动转化为"Numeric",如果用它为字符串，
它也同样就是"String"了。也就是说，程序中某个数据看起来好像是数字时，ASP就会
猜测它是数字，然后就用最适合数字的方法来处理。相似的，字符串处理也是如此的。
当然，您也可以把数字当做字符串来处理，所需的只是一个" "（引号）而已。Variant
图表类型：除去这些简单的数字和符号类型，"variant"还能更加清楚地表示一些特殊
的数字类型。比如，你能用表示日期（时间）的数字信息。当你用到时间或日期数据时，
所用的变量就表示时间（日期）了。当然，你能够拥有非常丰富的数字信息，
...
阅读全文…
总重复的写，干脆写个模板，copy方便点
<%
Class MyClass
'************************************
'申明私有和公有变量
'************************************
Private x
'public y
'************************************
'定义属性部分
'************************************
'设置属性
Public Property Let myX(xValue)
x=xValue
End Property
'获取属性
Public Property Get myX
myX=x
End Property
'************************************...
阅读全文…
<%
Class MyClass
'************************************
'申明私有和公有变量
'************************************
Private x
'public y
'************************************
'定义属性部分
'************************************
'设置属性
Public Property Let myX(xValue)
x=xValue
End Property
'获取属性
Public Property Get myX
myX=x
End Property
'************************************
阅读全文…
南太湖中想认证的会员必须出具证明您真实身份的证明。
然后营造一些认证会员才可以参加的小圈子，这些圈子里的人可以彼此看到对方的身份，增进了解，增加信任感。（由网络到现实）。
当然您不进行认证也完全没有关系，除了不能参加额外的小圈子外，一样参加讨论，灌水。
然后营造一些认证会员才可以参加的小圈子，这些圈子里的人可以彼此看到对方的身份，增进了解，增加信任感。（由网络到现实）。
当然您不进行认证也完全没有关系，除了不能参加额外的小圈子外，一样参加讨论，灌水。
这个总遇到，一般也就删除了事，哈哈
1、用jscript来写asp就可以用 /**/来注释了
2、用vbscript的时候咋个办法呢？最简单的办法如下：
if false then
这里面是被注释的内容。
end if
1、用jscript来写asp就可以用 /**/来注释了
2、用vbscript的时候咋个办法呢？最简单的办法如下：
if false then
这里面是被注释的内容。
end if
asp中的%百分号问题
[ 2006-05-11 12:31:05 | 作者: admin ]
tianyang:这个问题经常遇到，一开始真不知道怎么回事。
想输出字符如下:
Response.Write ("<span style=font-size:12px;line-height:150%>请</span>")
问题出现在“150%>”上，因为%>是默认的ASP代码段结束符，因此执行时会提示未结束语句。
解决：就是在%与>之间加空格“150% >”
想输出字符如下:
Response.Write ("<span style=font-size:12px;line-height:150%>请</span>")
问题出现在“150%>”上，因为%>是默认的ASP代码段结束符，因此执行时会提示未结束语句。
解决：就是在%与>之间加空格“150% >”
