上一篇
下一篇
为PJblog3注册Ajax化（Ajax检测所有）
作者:情留メ蚊子 日期:2008-09-24
很简单,一共4步,呵呵,修改很方便,效果也很好. 支持所以浏览器
演示地址:http://www.94qing.com/register.asp
1、打开common/function.asp 在最后一个 %>之前加入
'*************************************
'检测是否有效的网址
'*************************************
Function IsRightUrl(UrlStrng)
Dim regEx, retVal
Set regEx = New RegExp
regEx.Pattern = "^https?:\/\/[\u4E00-\u9FA5a-zA-Z\.\/0-9]{3,}[\u4E00-\u9FA5a-zA-Z\/0-9]{2,}$"
regEx.IgnoreCase = False
retVal = regEx.Test(UrlStrng)
If retVal Then
IsRightUrl = True
Else
IsRightUrl = False
End If
End Function
2、register.asp 一般不会修改这里，直接提供下载了
3、header.asp 在 <head>之前加入 <script type="text/javascript" src="common/ajax.js"></script> (PJ3 170版本以上不用改)
4、下载文件放到相应的位置 (PJ3 170版本以上ajax.js不用覆盖，Action.asp只做相应的修改，图片不用覆盖)
演示地址:http://www.94qing.com/register.asp
1、打开common/function.asp 在最后一个 %>之前加入
复制内容到剪贴板
程序代码
程序代码'*************************************
'检测是否有效的网址
'*************************************
Function IsRightUrl(UrlStrng)
Dim regEx, retVal
Set regEx = New RegExp
regEx.Pattern = "^https?:\/\/[\u4E00-\u9FA5a-zA-Z\.\/0-9]{3,}[\u4E00-\u9FA5a-zA-Z\/0-9]{2,}$"
regEx.IgnoreCase = False
retVal = regEx.Test(UrlStrng)
If retVal Then
IsRightUrl = True
Else
IsRightUrl = False
End If
End Function
2、register.asp 一般不会修改这里，直接提供下载了
3、header.asp 在 <head>之前加入 <script type="text/javascript" src="common/ajax.js"></script> (PJ3 170版本以上不用改)
4、下载文件放到相应的位置 (PJ3 170版本以上ajax.js不用覆盖，Action.asp只做相应的修改，图片不用覆盖)
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 3 | 引用: 0 | 查看次数: 1901
回复
jekeywang
[2009-04-06 21:00:19 | 
| 取消审核]注册页面的验证码不显示，点输入框后没有反应，你的网站也是这样的哦！
情留メ蚊子 于 2009-04-06 09:31 PM 回复
我的博客在测试点东西呢
下载下来的解压包里有个Action.asp..原来所使用的附件管理.在根目录下也有个Action.asp
覆盖后..附件管理出错了~这个要怎么修改?
覆盖后..附件管理出错了~这个要怎么修改?
情留メ蚊子 于 2008-12-09 05:48 PM 回复
把这个的内容复制到里面，只复制不相同的地方
不支持IE7 FF这些哦~
改改吧!
改改吧!
情留メ蚊子 于 2008-11-09 09:56 PM 回复
已经修复
发表评论
