首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册


评论列表

所有评论 		[886] [887] [888] [889] [890] [891] [892] [893] [894] [895]  ... [895]  
 兄弟 于 2007-04-25 10:11 AM 发表评论： 
今天收集到了更多的正则表达式的代码:

1、非负整数：^d+$ 

2、正整数：^[0-9]*[1-9][0-9]*$ 

3、非正整数：^((-d+)|(0+))$ 

4、负整数：^-[0-9]*[1-9][0-9]*$ 

5、整数：^-?d+$ 

6、非负浮点数：^d+(.d+)?$ 

7、正浮点数：^((0-9)+.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*.[0-9]+)|([0-9]*[1-9][0-9]*))$ 

8、非正浮点数：^((-d+.d+)?)|(0+(.0+)?))$ 

9、负浮点数：^(-((正浮点数正则式)))$ 

10、英文字符串：^[A-Za-z]+$ 

11、英文大写串：^[A-Z]+$ 

12、英文小写串：^[a-z]+$ 

13、英文字符数字串：^[A-Za-z0-9]+$ 

14、英数字加下划线串：^w+$ 

15、E-mail地址：^[w-]+(.[w-]+)*@[w-]+(.[w-]+)+$ 

16、URL：^[a-zA-Z]+://(w+(-w+)*)(.(w+(-w+)*))*(?s*)?$ 
或：^http://[A-Za-z0-9]+.[A-Za-z0-9]+[/=?%-&_~`@[]':+!]*([^<>])*$

17、邮政编码：^[1-9]d{5}$

18、中文：^[u0391-uFFE5]+$

19、电话号码：^(((d{2,3}))|(d{3}-))?((0d{2,3})|0d{2,3}-)?[1-9]d{6,7}(-d{1,4})?$

20、手机号码：^(((d{2,3}))|(d{3}-))?13d{9}$

21、双字节字符(包括汉字在内)：^x00-xff

22、匹配首尾空格：(^s*)|(s*$)（像vbscript那样的trim函数）

23、匹配HTML标记：<(.*)>.*</1>|<(.*) /> 

24、匹配空行：n[s| ]*r

25、提取信息中的网络链接：(h|H)(r|R)(e|E)(f|F) *= *('|)?(w||/|.)+('|| *|>)?

26、提取信息中的邮件地址：w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*

27、提取信息中的图片链接：(s|S)(r|R)(c|C) *= *('|)?(w||/|.)+('|| *|>)?

28、提取信息中的IP地址：(d+).(d+).(d+).(d+)

29、提取信息中的中国手机号码：(86)*0*13d{9}

30、提取信息中的中国固定电话号码：((d{3,4})|d{3,4}-|s)?d{8}

31、提取信息中的中国电话号码（包括移动和固定电话）：((d{3,4})|d{3,4}-|s)?d{7,14}

32、提取信息中的中国邮政编码：[1-9]{1}(d+){5}

33、提取信息中的浮点数（即小数）：(-?d*).?d+

34、提取信息中的任何数字 ：(-?d*)(.d+)? 

35、IP：(d+).(d+).(d+).(d+)

36、电话区号：/^0d{2,3}$/

37、腾讯QQ号：^[1-9]*[1-9][0-9]*$

38、帐号(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$


 兄弟 于 2007-04-24 02:35 PM 发表评论： 
以下是一个例子:
 <%
If Request.Form<>"" Then StopInjection(Request.Form)
If Request.QueryString<>"" Then StopInjection(Request.QueryString)
If Request.Cookies<>"" Then StopInjection(Request.Cookies)
        
Function StopInjection(values)
    For Each N_Get In values
        Dim L_Get, L_Get2
        For Each L_Get In values
            L_Get2 = values(L_Get)
            Set regEx = New RegExp
            regEx.IgnoreCase = True
            regEx.Global = True
            regEx.Pattern = "(\(\d{3,4}\)|\d{3,4}-|\s)?\d{7,14}"
            If regEx.Test(L_Get2) Then
                Alert()
                response.End()
            End If
            Set regEx = Nothing
        Next
    Next
End Function 
    
Sub Alert()
    Dim str
    str = "<"&"Script Language=JavaScript"&">"
    str = str & "alert('== 系统检测到你的留言中有电话号码，已经禁止本次提交 ==\n');window.close();"
    str = str & "<"&"/Script"&">"
    response.write  str
End Sub
%>


 兄弟 于 2007-04-03 10:34 AM 发表评论： 
BEC的资料放在本站的FTP里,另外,在会员中心也可以下载到一些文本资料,本人建议你买书.


 toto841217 于 2007-04-02 10:51 PM 发表评论： 
我是你网站的读者,但发觉没有BEC的听力材料,可否提供,谢谢,我QQ104895248


 vlei 于 2007-03-31 05:57 PM 发表评论： 
看不是很明白，可否加我QQ：33789007


 sophyniafang 于 2007-03-13 10:47 AM 发表评论： 
站长哥哥真的是好辛苦啊！

可能是因为大家都急于找资料，所以没有看清楚你的说明。

我以后不会问你这样的蠢问题了啊！

支持你的工作！


 兄弟 于 2006-11-16 10:49 AM 发表评论： 
两种情况下做提单电放 

电放意思很简单－CARGO RELEASE，就是直接让船公司通知目的港代理放货，而不需要正本提单。船公司方面想怎么通知都行，邮件啊，传真没什么特定形式，为省钱多数用邮件，赶时间的多数是传真。

但是必须注意的是，电放也就意味着客户可以不凭正本提单提货，不凭正本提单提货，如果你是采用D/P和信用证结算，就无法得知客户是否已经向银行赎单，是否付款。这时候如果你什么都不想，看见客户要求就马上电放可就麻烦了。

我现在只见过两种情况客户要求电放：一个是到东南亚的货物，航期10天左右，货物已经快要抵港而单据却因为等提单，做单，审单加上节假日拖延等因素还没到。另一个是某些港口不接受货代提单，只接受船东单，因此客户手持正本提单却提不到货。

第二种情况好处理，客户说是拿的是正本提单，那只要查一下银行，拿到正本应该是已经赎单的，款到帐上那就直接电放吧。如果款没到帐，而客户又称已付了款，又没法查证，那就不一定需要开电放单，可以要求我们这边船公司通知那边代理，可以凭正本提单提货，怎么解释是船公司的事，只要客户拿的事正本提单，即使款还没帐也不用担心了，风险已经转移到了银行身上。（电放单定义其实也没这么复杂，只是船公司通知代理放货而已，让他们改改措辞就行）。

第一个情况有些复杂，同样的如果款到帐或是TT结汇，那直接电放也行。最担心的是款没到，单据也没到，可能N个人有N个处理方法吧，换了是我，还是风险第一，一般是不会让船公司开电放单的，特别是东南亚客户，绝不轻易在款没到帐的情况下电放。如果是欧洲客户，而且合作了几年，并且不是皮包公司，那可以考虑让他们发个保函过来，欧洲人重签名和公司信誉，而且法律严，可以给他们电放。（当然去欧洲有30多天的船期，一般是不会出现需要电放的情况，除非自己真的很倒霉遇到单据寄丢）


 兄弟 于 2006-09-25 05:29 PM 发表评论： 
刚看到这个方法的时候,觉得很不错,不过我试了N次都没有成功,说什么数据类型不匹配,晕倒..........

不过下面的那个还是可以用的,所谓的防下载现在用的都是在OLE字段里添加一个这样的代码 <% 或<%loop<% 这样的代码不完整回格式错误,所以无法下载

<%   
db="mdb.mdb"   '这里改成您的数据库地址   
set conn=server.createobject("Adodb.Connection")   
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="&Server.MapPath(db)   
conn.open connstr   
conn.execute("create table notdownload(notdown oleobject)")   
set rs=server.createobject("adodb.recordset")   
sql="select * from notdownload"   
rs.open sql,conn,1,3   
rs.addnew   
rs("notdown").appendchunk(chrB(asc("<"))&chrB(asc("%")))   
rs.update   
rs.close   
set rs=nothing   
conn.close   
set conn=nothing   
%>


 兄弟 于 2006-09-25 05:24 PM 发表评论： 
这里为大家提供了三个不同方式的代码,都不错,有时候某些过滤会被绕过的,所以,你自己选择你喜欢的吧.


 兄弟 于 2006-09-25 05:22 PM 发表评论： 
这个代码可以防止别人不断的刷新网页,但如果你的网站的访客的网速不快而要不断刷新的话可能就麻烦了,你可以放宽限制.


[886] [887] [888] [889] [890] [891] [892] [893] [894] [895]  ... [895]  
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com