高手进:asp怎么把文本过滤汉字,字母后只留下数字

Posted 2023-04-13

http://aiyaha.cn/bbs/txt.asp?d=173158.net
http://aiyaha.cn/bbs/txt.asp?d=126.com
http://aiyaha.cn/bbs/txt.asp?d=baidu.com
已经把http://www.chinarank.org.cn/overview/Info.do?url=网址
的文本提出来了。
怎么把过滤的文本过滤汉字,字母和符号后只留下数字

<%
function getNum(str)
dim re
set re=new RegExp
re.pattern="\D"
re.global=true
getNum = re.replace(str, "")
end function
%>

<%
a="http://aiyaha.cn/bbs/txt.asp?d=173158.net,http://aiyaha.cn/bbs/txt.asp?d=126.com网址9"
response.write getNum(a)
%>

运行结果：1731581269 参考技术A A=request("d")
dim myintar="1,2,3,4,5,6,7,8,9,0"
for i=0 to Length(A)
if Instr(mid(A,i,i+1),myintar)>0 then
NewA=NewA&mid(A,i,i+1)
end if

next

Asp高手注意.一个复杂的小问题 ...

本人做一个注册页面碰到了问题 , 字符长度知道如何判断len(username) , 但不晓得如何控制一个文本框(比如用户名)只允许英文字母(区分大小写)或数字或加下划线或组合 ,并且不允许包含admin或 vip之类的敏感单词和其他字符 , 如vip_****, admin****和日文或全角字母和数字等!这样的判断该如何写??之后该如何和我的代码组合到一起呢？？高手支支招 , 本人没学过asp!!谢谢各位了 !!!只能用 asp写 !!还有 , 前台是不是也该加 js 判断呢 ?答得好追加分！
dim re,str
str="212ddd_" '这个改成中文就是 true 了吧。说明判断生效！我把他加到我的判断页面里就不行！我感觉自己翻的就是低级错误，我说过不懂asp语法的，应该是语法上的错误。
set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern="^[A-Za-z\u4E00-\u9600\_\＿]+$"
retVal = re.Test(str)
response.write retVal
If retVal Then
response.write "true"
Else
response.write "false"
End If
%>
真够郁闷的，真的是没dim 变量。。。 那为什么上面的代码单运行，就可以？？？严格的说 retVal 这个变量没声明呀。。。怎么可以运行？？asp好乱呀。

还有就是instr()函数了。自己想办法弄吧。zhbmlong 回答的思想很好，就是我刚开始的思想，但是没有实例。 剑素 回答的靠谱，但是太乱，大部分没答到点子上去。最后就是声明变量说对了。分就给你吧！

是要用到正则表达式的(自己找资料学！)！
如果你想安全可靠，那就前台js判断，发送到后台的时候再判断一次~而通常也都是这样的.
是否明白？
补充:
你单运行可以，此话何解，何为单运行？
conn.asp文件没用过,应该是链接数据库的~
你写正则表达式,过滤后的参数传到后台,
再Insert到数据库,打断点看参数，我不知道你把你的正则写到哪了~
正则不是asp的专有语言
-补充:
Dim str As String
Dim re As RegExp
Dim retVal As Boolean
str = "212ddd_"
re.Global = True
re.IgnoreCase = True
re.Pattern = "^[A-Za-z\u4E00-\u9600\_\＿]+$"
retVal = re.Test(str)
Response.Write(retVal)
If retVal Then
Response.Write("true")
Else
Response.Write("false")
End If
变量用的时候是要声明的,不然怎么处理.
我只用VB做过cs,bs一直用C#…vb还是比较水的
conn.asp是数据库链接？ 参考技术A 为了界面友好，前台需要加验证，使用正则来进行验证即可，js和asp都可以使用正则的，具体用法你再查一下，你说的那个允许的正则表达式是：[a-zA-Z0-9_]+，至于包含违禁关键字的比较简单了，asp用instr查一下就行 参考技术B 用正则啦
汉 我正则也不太好 也要百度
所以帮不了你拉
百度吧
或者等高手~ 参考技术C 1.GetRows( [Rows], [Start] , [Fields])

把记录接收到一个二维数组之内。该数组自动创建。数组的第一个索引指明记录的域；第二个索引标志该记录。Rows指明从记录集中接收多少条记录。缺省时接收所有的记录。Start指明从记录集中何处开始接收记录，这里使用了书签。所以如果想使用该参数，记录集必须支持书签功能。Fields是一个单独的域名或一个域名数组，我们用它来限制在数组中接收哪些域。
说实话，这个根本没有使用过，应该是在使用asp的rs默认分页时候用的．和recordcount比较的话getrows获取的东西更多,体积也更庞大,执行速度当然就慢

2．asp里面的连接一般用&,因为 + 很多时候在asp里面就真的被解释成为+号,尤其是其中一个为数字的时候,那样就会被计算.
3.不清楚你问这个问题的原因是什么,不过*是sql里面的专用啊,标准的sql语法.而%是用来做通配符的,而*好象只有在access里面才可以做,而且还有要求(忘记了什么样的要求了,反正比较麻烦.)

补充：原来你说的是这句啊，在asp的sql语法里面（asp的sql语法和ms sql的是基本相同的）就是用％来作为通配符的，所以你用＊的时候反而不能正常使用，＊可以直接在access里面用，但是在asp里面就不能使用了

大中小
众所周知，asp+access最大的安全隐患在于access数据库可以被别人
下载，而现在提供的很多asp空间都是只支持access数据库，这样一来，
asp+access的安全问题就显得很突出了。

1.Access数据库的存储隐患
在ASP＋Access应用系统中，如果获得或者猜到Access数据库的存储路
径和数据库名，则该数据库就可以被下载到本地。

2.Access数据库的解密隐患
由于Access数据库的加密机制非常简单，所以即使数据库设置了密码，
解密也很容易。该数据库系统通过将用户输入的密码与某一固定密钥进行
异或来形成一个加密串，并将其存储在＊.mdb文件中从地址“＆H42”开
始的区域内。由于异或操作的特点是“经过两次异或就恢复原值”，因
此，用这一密钥与＊.mdb文件中的加密串进行第二次异或操作，就可以轻
松地得到Access数据库的密码。基于这种原理，可以很容易地编制出解密
程序。

由此可见，无论是否设置了数据库密码，只要数据库被下载，其信息就没有任何安全性可言了。

3.程序设计中的安全隐患
ASP代码利用表单（form）实现与用户交互的功能，而相应的内容会反
映在浏览器的地址栏中，如果不采用适当的安全措施，只要记下这些内
容，就可以绕过验证直接进入某一页面。例如在浏览器中敲入“……
page.asp?x=1”，即可不经过表单页面直接进入满足“x=1”条件的页
面。因此，在设计验证或注册页面时，必须采取特殊措施来避免此类问题
的发生。

==========
解决方案
==========

提高数据库的安全性
由于Access数据库加密机制过于简单，因此，如何有效地防止Access
数据库被下载,就成了提高ASP＋Access解决方案安全性的重中之重。

1.非常规命名法
防止数据库被找到的简便方法是为Access数据库文件起一个复杂的非常
规名字，并把它存放在多层目录下。例如，对于网上书店的数据库文件，
不要简单地命名为“book.mdb”或“store.mdb”，而是要起个非常规的
名字，例如：faq19jhsvzbal.mdb，再把它放在
如./akkjj16t/kjhgb661/acd/avccx55 之类的深层目录下。这样，对于
一些通过猜的方式得到Access数据库文件名的非法访问方法起到了有效的
阻止作用。

2.使用ODBC数据源
在ASP程序设计中，应尽量使用ODBC数据源，不要把数据库名直接写在
程序中，否则，数据库名将随ASP源代码的失密而一同失密。例如：
DBPath = Server.MapPath(“./akkjj16t/
kjhgb661/acd/avccx55/faq19jhsvzbal.mdb ”)
conn.Open “driver=;dbq=” ＆ DBPath
可见，即使数据库名字起得再怪异，隐藏的目录再深，ASP源代码失密
后，数据库也很容易被下载下来。如果使用ODBC数据源，就不会存在这样
的问题了：
conn.open “ODBC－DSN名”
对ASP页面进行加密
为有效地防止ASP源代码泄露，可以对ASP页面进行加密。一般有两种方
法对ASP页面进行加密。一种是使用组件技术将编程逻辑封装入DLL之中；
另一种是使用微软的Script Encoder对ASP页面进行加密。但是，使用组
件技术存在的主要问题是每段代码均需组件化，操作比较烦琐，工作量较
大；而使用Script Encoder对ASP页面进行加密，操作简单、收效良好。
Script Encoder方法具有许多优点：

⑴.HTML仍具有很好的可编辑性。Script Encoder只加密在HTML页面中
嵌入的ASP代码，其他部分仍保持不变，这就使得我们仍然可以使用
FrontPage或Dreamweaver等常用网页编辑工具对HTML部分进行修改、完
善，只是不能对ASP加密部分进行修改，否则将导致文件失效。
⑵.操作简单。只要掌握几个命令行参数即可。Script Encoder的运行
程序是screnc.exe，其使用方法如下：
screnc [/s] [/f] [/xl] [/l defLanguage ] [/e defExtension] inputfile outputfile
其中的参数含义如下：
s：屏蔽屏幕输出；
f：指定输出文件是否覆盖同名输入文件；
xl：是否在.asp文件的顶部添加@Language指令；
l：defLanguag指定缺省的脚本语言；
e：defExtension 指定待加密文件的扩展名。
⑶.可以批量加密文件。使用Script Encoder可以对当前目录中的所有
的ASP 文件进行加密，并把加密后的文件统一输出到相应的目录中。例
如：
screnc ＊.asp c:\temp
⑷. Script Encoder是免费软件。该加密软件可以从微软网站下载：
。下载后，运行安装即可。

利用Session对象进行注册验证
为防止未经注册的用户绕过注册界面直接进入应用系统，可以采用Session对象进行注册验证。Session对象最大的优点是可以把某用户的信息保留下来，让后续的网页读取。

3.改数据库扩展名
你也可以将数据库的扩展名改为.asp，当然在定位数据库的时候也要
用类似database.asp的文件名，这样数据库不会被轻易的下载，而数据
还可以正常的读出写入。

4.向数据库内加错误的asp代码
如果以为做完第3项以后就万事大吉了那就错了，虽然数据库的扩展名
变成了.asp，但是当对方猜到了你的数据库路径以后还是可以下载的，只
不过慢了一些，对方可以等页面完全打开以后“另存为”就可以了。要解
决这个问题可以载数据库内添加错误的asp代码。你可以先建立一个隐藏
表，表内只有一列，并且插入这样一行：

这样一来对方打开数据库的页面时就只会出现asp脚本的错误信息，而不
会下载你的数据库了。

5.对于程序设计中隐患的解决一例
大多数人都认为网站只要加了登录密码就无法正常进入了。而请您看下
面的验证语句：

sql="select uname,pwd from uinfo where "
sql=sql&"uname='"&request.form("uname")&"'"
sql=sql&" and pwd='"&request.form("pwd")&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "对不起，错误的用户名/密码！"
else
response.write "登录成功！"
end if

可能已经有读者看出来了这段代码是十分危险的，只要对方知道用户名就
可以登录，你可以在密码框里输入“' or '1'='1”就可以了，其原理很
简单，就是利用了sql查询语句，大家注意，用此方法提交以后的sql语句
变成了：(如果用户名为administrator)
select uname,pwd from uinfo where uname='administrator' and pwd='' or '1'='1'
如果用户名administrator存在的话那么这个记录是可以被选出来的，之
后当然就是可以正常登录了。

解决方案：

sql="select uname,pwd from uinfo where "
sql=sql&"uname='"&request.form("uname")&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "对不起，本站没有此用户！"
else
if rs.fields("pwd")=trim(request.form("pwd")) then
response.write "登录成功！"
else
response.write "错误的用户名/密码！"
end if
end if

结束语：以上只是本人在实际编程中积累的一些经验，如有不足还望指
正！