栏目导航

热点推荐

阅览排行

当前位置：主页>网络编程>ASP教程>资讯:ASP常用代码段之五

ASP常用代码段之五

www.jz123.cn 2010-09-29 来源: 中国建站责任编辑(袁袁) 我要投递新闻

1：asp格式化

Function ZeroFill(Num,Num_Length)
Dim ZeroFill_i,ZeroFill_ReturnNum
For ZeroFill_i=len(Num) To Num_Length-1
ZeroFill_ReturnNum=ZeroFill_ReturnNum&"0"
Next
ZeroFill_ReturnNum=ZeroFill_ReturnNum&Num
ZeroFill=ZeroFill_ReturnNum
End Function

2：asp注销登陆

<% '注销登陆
session.abandon
Response.redirect("default.asp")
%>

3：asp验证第一个字符是否为字母

'验证第一个字符是否为字母_
'false ：不是；true ：是
'*****************************************************
function IsFirstStr(str)
IsFirstStr = true
str=LCase(str)
strSource ="abcdefghijklmnopqrstuvwxyz"
if InStr(strSource,mid(str,1,1))<=0 then
IsFirstStr = false
else
IsFirstStr = true
end if
end function

4：asp不同列的遍历:

<% dim dep1,dep2
set rs=server.CreateObject("adodb.recordset")
Sql="select 大类名,中类名,小类名 from ProClass order by 大类名,中类名,小类名"
rs.open sql,conn,1,1
if rs.eof then
response.Write "..........."
else
do while not rs.eof
    dep1=rs(0)
    dep2=rs(1)
    Response.Write rs(0)&"<br>"
    Response.Write rs(1)&"<br>"
    Response.Write rs(2)&"<br>"
    rs.movenext
    do while not rs.eof and rs(0)=dep1
      do while not rs.eof and rs(0)=dep1 and rs(1)=dep2
        Response.Write rs(2)&"<br>"
        rs.movenext
      loop
      dep2=rs(1)
      Response.Write rs(1)&"<br>"
      rs.movenext
    loop
    dep1=rs(0)
    rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

5：asp正则查找字符串，返回数组

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Dim i, RetStr()
i = 0
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
regEx.MultiLine = True
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
Redim Preserve RetStr(i)
RetStr(i) = Match.Value
i = i + 1
Next
RegExpTest = RetStr
End Function

6：asp弹出一个确认框

Response.Write("<script>alert('登录失败！用户名或密码错误！')</script>");

7：asp弹出一个确认框并跳转到另一个页面

Response.Write("<script>alert('编辑成功！');window.location='SelRoom.aspx'</script>");

8：asp生成文件名函数

<%
function makefilename(fname)'生成文件名函数
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
%>

顶一下

上一篇：ASP常用代码段之四下一篇：ASP常用代码段之六

栏目导航

热点推荐

阅览排行

ASP常用代码段之五

相关文章列表

评论总数：0 条 [ 查看全部 ] 网友评论