收集ASP代码片段,ASP源代码
2月8
引用
jmail.Message错误'8000ffff'
The message was undeliverable. All servers failed to receive the message
The message was undeliverable. All servers failed to receive the message
这个过程就是ASP程序代码调用了JMAIL组件,把要发送的邮件的各种信息通过JMAIL组件发给了MAIL SERVER(邮件服务器,或者说是邮件服务程序,如MDeamon,IMAIL,WinWebMail等),真正向你的目的地发送邮件的是MAIL SERVER.
通常我们遇到的错误是:\'The message was undeliverable. All servers failed to receive the message \',这其实是JMAIL返回的错误,并不是ASP代码产生的,根本原因是MAIL SERVER拒绝了JMAIL的请求.
究其原因,是那些服务器不提供SMTP服务或者没有开启smtp服务;或是在服务器端开启了\'禁止邮件中继服务\'选项,也就是说不在其允许的IP段或指定范围内的空间里的程序是无法使用其SMTP服务的,最终导致\'8000ffff\'错误发生。
12月2
web开发常用的功能测试方法浅析
功能测试就是对产品的各功能进行验证，根据功能测试用例，逐项测试，检查产品是否达到用户要求的功能。针对Web系统的常用测试方法如下：
1. 页面链接检查：每一个链接是否都有对应的页面，并且页面之间切换正确。
2. 相关性检查：删除/增加一项会不会对其他项产生影响，如果产生影响，这些影响是否都正确。
3. 检查按钮的功能是否正确：如update、cancel、delete、save等功能是否正确。
4. 字符串长度检查：输入超出需求所说明的字符串长度的内容，看系统是否检查字符串长度，会不会出错。
5. 字符类型检查：在应该输入指定类型的内容的地方输入其他类型的内容(如在应该输入整型的地方输入其他字符类型)，看系统是否检查字符类型，会否报错。
6. 标点符号检查：输入内容包括各种标点符号，特别是空格、各种引号、回车键。看系统处理是否正确。
7. 中文字符处理：在可以输入中文的系统输入中文，看会否出现乱码或出错。
8. 检查带出信息的完整性：在查看信息和update信息时，查看所填写的信息是不是全部带出，带出信息和添加的是否一致。
9. 信息重复：在一些需要命名，且名字应该唯一的信息输入重复的名字或ID，看系统有没有处理，会否报错，重名包括是否区分大小写，以及在输入内容的前后输入空格，系统是否作出正确处理。
功能测试就是对产品的各功能进行验证，根据功能测试用例，逐项测试，检查产品是否达到用户要求的功能。针对Web系统的常用测试方法如下：
1. 页面链接检查：每一个链接是否都有对应的页面，并且页面之间切换正确。
2. 相关性检查：删除/增加一项会不会对其他项产生影响，如果产生影响，这些影响是否都正确。
3. 检查按钮的功能是否正确：如update、cancel、delete、save等功能是否正确。
4. 字符串长度检查：输入超出需求所说明的字符串长度的内容，看系统是否检查字符串长度，会不会出错。
5. 字符类型检查：在应该输入指定类型的内容的地方输入其他类型的内容(如在应该输入整型的地方输入其他字符类型)，看系统是否检查字符类型，会否报错。
6. 标点符号检查：输入内容包括各种标点符号，特别是空格、各种引号、回车键。看系统处理是否正确。
7. 中文字符处理：在可以输入中文的系统输入中文，看会否出现乱码或出错。
8. 检查带出信息的完整性：在查看信息和update信息时，查看所填写的信息是不是全部带出，带出信息和添加的是否一致。
9. 信息重复：在一些需要命名，且名字应该唯一的信息输入重复的名字或ID，看系统有没有处理，会否报错，重名包括是否区分大小写，以及在输入内容的前后输入空格，系统是否作出正确处理。
7月27
关于火狐firework屏蔽非80端口含有AJAX页面运行的解决之道.doc下载 火狐不能访问内网 火狐localhost访问不了
下载文件 (已下载 67 次)
假如你在本机运行的地址是：http://localhost:87/memReg.asp
那么端口是87。
1、现在火狐地址栏上清除网址并输入：“about:config”
2、FF浏览器会出现如下提示：
“这样可能会失去质保！
修改这些高级设置可能会对本应用的稳定性、安全性以及性能造成不良影响。请仅在您十分清楚的情况下继续操作。”
不要管它，把“下次继续提示”前面的勾去掉。按“确定”。
3、火狐出现一串清单。在空白处点击右键，选择“新建——字符串”。
4、把“network.security.ports.banned.override”复制进去，接着FF会要求你输入一个值，这个值就是刚才记下的端口号87。输入确定。
5、完毕，再运行含有AJAX页面即正常了。如果你的AJAX不能运行，则是AJAX在非80端口下火狐不支持的原因。
下载文件 (已下载 67 次)假如你在本机运行的地址是：http://localhost:87/memReg.asp
那么端口是87。
1、现在火狐地址栏上清除网址并输入：“about:config”
2、FF浏览器会出现如下提示：
“这样可能会失去质保！
修改这些高级设置可能会对本应用的稳定性、安全性以及性能造成不良影响。请仅在您十分清楚的情况下继续操作。”
不要管它，把“下次继续提示”前面的勾去掉。按“确定”。
3、火狐出现一串清单。在空白处点击右键，选择“新建——字符串”。
4、把“network.security.ports.banned.override”复制进去，接着FF会要求你输入一个值，这个值就是刚才记下的端口号87。输入确定。
5、完毕，再运行含有AJAX页面即正常了。如果你的AJAX不能运行，则是AJAX在非80端口下火狐不支持的原因。
7月2
ASP生成指定范围内指定个数不重复随机数
<%
'生成10个7到30间的不重复随机数
response.write RandomizeNum(10,7,30)
%>
<%
'生成规定范围内的多个不重复数字
Function RandomizeNum(count,lownum,highnum)
If highnum<count then
exit function
End If
redim n(count)
Dim i,q
Dim isok
For i=1 to count
Randomize
n(i)=round((highnum-lownum)* Rnd)+lownum
isok=false
Do while not isok
For q=1 to i
If n(i)=n(q-1) then
n(i)=Int((highnum-lownum)* Rnd)+lownum
isok=false
exit for
End If
isok=true
Next
Loop
If i=count Then
RandomizeNum = RandomizeNum& n(i)
Else
RandomizeNum = RandomizeNum & n(i) &","
End If
Next
end Function
%>
<%
'生成10个7到30间的不重复随机数
response.write RandomizeNum(10,7,30)
%>
<%
'生成规定范围内的多个不重复数字
Function RandomizeNum(count,lownum,highnum)
If highnum<count then
exit function
End If
redim n(count)
Dim i,q
Dim isok
For i=1 to count
Randomize
n(i)=round((highnum-lownum)* Rnd)+lownum
isok=false
Do while not isok
For q=1 to i
If n(i)=n(q-1) then
n(i)=Int((highnum-lownum)* Rnd)+lownum
isok=false
exit for
End If
isok=true
Next
Loop
If i=count Then
RandomizeNum = RandomizeNum& n(i)
Else
RandomizeNum = RandomizeNum & n(i) &","
End If
Next
end Function
%>
6月7
正则表达式统计文章内容中图片数量
ASP版本的，经过测试：
'文章内容中的字数
Function ShowImgCount(content,ifincludepic)
If ifincludepic = 0 Then
Exit Function
Else
Dim Reg,Cols,Mat,str
set Reg = new RegExp
Reg.Global = True
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern = "<img[^>]+src=""([^"">]+)""[^>]*>"
Set Cols = Reg.Execute(content)
For Each Mat In Cols
str =Mat.SubMatches(0)
ShowImgCount=ShowImgCount+1
Next
ShowImgCount="<span style='color:green'>"&ShowImgCount&"</span>图 "
End If
End Function
另ASP获取文章内容中第一张图片
Function Frist_Pic(ByVal t0)
Frist_Pic=""
Dim Regs,Matches
Set Regs=New RegExp
Regs.Ignorecase=True
Regs.Global=True
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Set Matches=Regs.Execute(t0)
IF Regs.test(t0) Then
Frist_Pic=Matches(0).SubMatches(0)
End IF
Set Matches=Nothing
Set Regs=Nothing
End Function
PHP版本，网路上说是帝国CMS的方法
function user_FieldFun($mid,$f,$isadd,$isq,$value,$cs){
$pattern="/<img.*?src=['|"](.*?(?:[.gif|.jpg]))['|"].*?[/]?>/"; //正则
$str=$_POST['newstext']; //接收到正文的内容
preg_match_all($pattern,$str,$match); //使用PHP正则函数，返回的是数组
//if(count($match[1])>0){//这个是用来判断是否有图片存在
//foreach ( $match[0] as $src) {//使用foreach来遍历数组，显示出图片地址
// $a.=$src; //把地址放到变量$a里
// }
备注：如果不准请调整正则表达式
ASP版本的，经过测试：
'文章内容中的字数
Function ShowImgCount(content,ifincludepic)
If ifincludepic = 0 Then
Exit Function
Else
Dim Reg,Cols,Mat,str
set Reg = new RegExp
Reg.Global = True
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern = "<img[^>]+src=""([^"">]+)""[^>]*>"
Set Cols = Reg.Execute(content)
For Each Mat In Cols
str =Mat.SubMatches(0)
ShowImgCount=ShowImgCount+1
Next
ShowImgCount="<span style='color:green'>"&ShowImgCount&"</span>图 "
End If
End Function
另ASP获取文章内容中第一张图片
Function Frist_Pic(ByVal t0)
Frist_Pic=""
Dim Regs,Matches
Set Regs=New RegExp
Regs.Ignorecase=True
Regs.Global=True
Regs.Pattern="<img[^>]+src=""([^"">]+)""[^>]*>"
Set Matches=Regs.Execute(t0)
IF Regs.test(t0) Then
Frist_Pic=Matches(0).SubMatches(0)
End IF
Set Matches=Nothing
Set Regs=Nothing
End Function
PHP版本，网路上说是帝国CMS的方法
function user_FieldFun($mid,$f,$isadd,$isq,$value,$cs){
$pattern="/<img.*?src=['|"](.*?(?:[.gif|.jpg]))['|"].*?[/]?>/"; //正则
$str=$_POST['newstext']; //接收到正文的内容
preg_match_all($pattern,$str,$match); //使用PHP正则函数，返回的是数组
//if(count($match[1])>0){//这个是用来判断是否有图片存在
//foreach ( $match[0] as $src) {//使用foreach来遍历数组，显示出图片地址
// $a.=$src; //把地址放到变量$a里
// }
备注：如果不准请调整正则表达式
5月30
最新手机正则表达式验证
<script>
$(document).ready(function(){
var reg = /^(13[0-9]|15[0|3|6|7|8|9]|18[6|7|8|9])\d{8}$/;
if(!reg.test(mobile))
{
alertl("错误的手机号");
return false;
}
});
</script>
<script>
$(document).ready(function(){
var reg = /^(13[0-9]|15[0|3|6|7|8|9]|18[6|7|8|9])\d{8}$/;
if(!reg.test(mobile))
{
alertl("错误的手机号");
return false;
}
});
</script>
5月28
大陆的居民身份证号码有两种：18位和15位，15位的身份证号码是老一代身份证号码。
18位和15位的区别在于两个部分：第一，18位号码的年份以4位计而15位号码的年份为2位，如1987年在18位号码中为‘1987’而在15位号码中为‘87’，这里1987只是作为一个例子可能1987年及以后根本不存在15位号码；第二处不同在于18位号码的最后一位为数字校验码，15位号码没有数字校验位。
好吧，可能你还不知道身份证号码各个部分代表着什么，那么让我花点唇舌简略地介绍一下。
身份证号码总共有4个部分（15位号码只有3部分），从左向右分别为：第一部分有6位，为居民在办理身份证时户口所在地的地址码（什么是地址码？自己到统计局去找吧，地址如下：http://www.stats.gov.cn/tjbz/index.htm）；第二部分有8位（15位号码为6位），为居民出生日期码；第三部分有3位，为数字顺序码，也就是同一天出生的人的一个排序，奇数代表男性而偶数代表女性；第四部分也就是最后一部分有1位，为数字校验码，此部分只有18位号码才有，关于数字校验码怎样计算得出，稍后会详述。
先举个例子吧，假设存在以下身份证号码：35052519870101888X（15位的话为350525870101888），用‘-’号将各部分区分如下：350525-19870101-888-X。其中，350525为地址码，没错，到统计局查询的结果是‘福建省永春县’——一个桃园胜境，算了，不废话；19870101为出生日期码，呵呵，1987年1月1日这一天出生的人肯定是有滴；888为顺序码，估计1987年1月1日第888个出生的人应该没有吧，倘若真的有，那真不是人，是神！！呵呵，估计我党也不会给神这个号码，不多说了，再多说可能要人神共怒了……好吧，那么X是什么呢？怎么有些人的身份证号码最后一位会突然冒出一个X呢，是这些人比较特殊吗？答案是：不是的，也算是吧，倘若有一种个位数等于10，这些人也不用在身份证号码的最后一位被不明不白地加上一个X了，究竟是怎么一回事且听我细细道来^_^
18位居民身份证号码最后一位——数字校验码的计算方法：
1. 将身份证号码的前17位数分别乘以以下系数：7，9，10，5，8，4，2，1，6，3，7，9，10，5，8，4，2；
2. 将以上分别相乘得到的结果相加；
3. 将以上相加的结果除以11，得出余数；
18位和15位的区别在于两个部分：第一，18位号码的年份以4位计而15位号码的年份为2位，如1987年在18位号码中为‘1987’而在15位号码中为‘87’，这里1987只是作为一个例子可能1987年及以后根本不存在15位号码；第二处不同在于18位号码的最后一位为数字校验码，15位号码没有数字校验位。
好吧，可能你还不知道身份证号码各个部分代表着什么，那么让我花点唇舌简略地介绍一下。
身份证号码总共有4个部分（15位号码只有3部分），从左向右分别为：第一部分有6位，为居民在办理身份证时户口所在地的地址码（什么是地址码？自己到统计局去找吧，地址如下：http://www.stats.gov.cn/tjbz/index.htm）；第二部分有8位（15位号码为6位），为居民出生日期码；第三部分有3位，为数字顺序码，也就是同一天出生的人的一个排序，奇数代表男性而偶数代表女性；第四部分也就是最后一部分有1位，为数字校验码，此部分只有18位号码才有，关于数字校验码怎样计算得出，稍后会详述。
先举个例子吧，假设存在以下身份证号码：35052519870101888X（15位的话为350525870101888），用‘-’号将各部分区分如下：350525-19870101-888-X。其中，350525为地址码，没错，到统计局查询的结果是‘福建省永春县’——一个桃园胜境，算了，不废话；19870101为出生日期码，呵呵，1987年1月1日这一天出生的人肯定是有滴；888为顺序码，估计1987年1月1日第888个出生的人应该没有吧，倘若真的有，那真不是人，是神！！呵呵，估计我党也不会给神这个号码，不多说了，再多说可能要人神共怒了……好吧，那么X是什么呢？怎么有些人的身份证号码最后一位会突然冒出一个X呢，是这些人比较特殊吗？答案是：不是的，也算是吧，倘若有一种个位数等于10，这些人也不用在身份证号码的最后一位被不明不白地加上一个X了，究竟是怎么一回事且听我细细道来^_^
18位居民身份证号码最后一位——数字校验码的计算方法：
1. 将身份证号码的前17位数分别乘以以下系数：7，9，10，5，8，4，2，1，6，3，7，9，10，5，8，4，2；
2. 将以上分别相乘得到的结果相加；
3. 将以上相加的结果除以11，得出余数；
tommyhu:
