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不同列的遍历:

  response.Write
else
  dowhilewhilewhile
endif
rs.close

conn.close

%>

    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 
%>