西部数码
会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页制作>>网页制作>>短小精悍减少常规代码的ASP函数
推荐给你的朋友阅读:

短小精悍减少常规代码的ASP函数

来源:互联网 发表日期: 2010-05-20 21:28:46

很简单的一些函数,但却可以减少程序中的很多代码,看起来还不错哈。

sub echo(str)
    response.write(str)
end sub
sub die(str)
    echo(str) : ddie()
end sub
sub ddie()
    response.end()
end sub
function path(str)
    path = server.mappath(str)
end function
function r(str)
    r = request(str)
end function
function f(str)
    f = request.form(str)
end function
function q(str)
    q = trim(request.querystring(str))
end function
function servervar(str)
    servervar = request.servervariables(str)
end function
function go(str)
    response.Redirect(str) : ddie()
end function
'这个函数可以节省不少代码~
'if a = "11" then
'    c = 0
'else
'    c = 1
'end if
'上面的简单一句就搞定
'c = iff(a="11",0,1)
function iff(a,b,c)
    if a then : iff = b : else : iff = c : end if
end function
function isnum(str)
    if isn(str) then
        isnum = false
        exit function
    end if
    isnum = str_reg_test(str,"num")
end function
function ip()
    ip = servervar("HTTP_X_FORWARDED_FOR") : if len(ip) < 1 then ip = servervar("REMOTE_ADDR")
end function
function isn(byval str)
    isn = false
    select case vartype(str)
        case vbempty, vbnull
            isn = true : exit function
        case vbstring
            if str="" then isn = true : exit function
        case vbobject
            if typename(str)="nothing" or typename(str)="empty" then isn = true : exit function
        case vbarray,8194,8204,8209
            if ubound(str)=-1 then isn = true : exit function
    end select
end function
function str_reg_test(str,sign)
    dim ptn
    select case sign
        case "username" : ptn = "^\w{6,18}$"
        case "email"    : ptn = "^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$"
        case "num"      : ptn = "^\d+$"
        case "english"  : ptn = "^[a-z]+$"
        case else       : ptn = sign
    end select
    dim regex : set regex = new regexp
    regex.global = True
    regex.ignorecase = True
    regex.pattern = ptn
    str_reg_test = regex.test(str)
    set regex = nothing
end function

2
0
[作者:匿名 关键词:ASP,函数 录入:raincity 责编:raincity 阅读次数:2595]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2020 创意飞腾工作室(The Feitec Studio.) ALL RIGHTS RESERVED .
官方咨询:FeitecCMS5366464
页面加载时间:171.88ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]