aspÕýÔò±í´ïʽÅжÏÊÇ·ñÊÇÊý×Ö
'ÅжÏÊÇ·ñÊÇÊý×Ö£¨°üÀ¨ÕûÊýºÍ¸¡µãÊý£©
function IsNumber(str)
if RegPatrn("^-?[1-9]\d*$",str) or RegPatrn("^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$",str) then
IsNumber=true
else
IsNumber=false
end if
end function
'ÕýÔò±í´ïʽÅжÏÊÇ·ñÆ¥Åä
Function RegPatrn(patrn, strng)
RegPatrn = false
Dim regEx, Match, Matches '½¨Á¢±äÁ¿¡£
Set regEx = New RegExp '½¨Á¢ÕýÔò±í´ïʽ¡£
regEx.Pattern = patrn'ÉèÖÃģʽ¡£
regEx.IgnoreCase = True 'ÉèÖÃÊÇ·ñÇø·Ö×Ö·û´óСд¡£
regEx.Global = True 'ÉèÖÃÈ«¾Ö¿ÉÓÃÐÔ¡£
If regEx.Test(strng) Then
RegPatrn=true
End if
End Function
Ïà¹ØÎĵµ£º
<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......
Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......
Èçid="a/b/c/asdf.html" ²ÎÊýΪ¶¯Ì¬
Ôõô°ÑºóÃæµÄasdf.html¹ýÂË?ʹid="a/b/c/"?
Èç¹ûidµÄ¸ñʽһ¶¨Îª "????/????/??????/xxxx.xxx"
¼´×îºóËùÒª¹ýÂ˵ôµÄÒ»¶¨ÊÇ×îºóÒ»¸ö"/"Ö®ºóµÄÄÚÈÝ
¿ÉÒÔÓÃÈçÏ·½·¨:
<%
URL="a/b/c/asdf.html"
PartOfURL=split(URL,"/") '½«×Ö·û´®ÒÔ"/"·Ö¸î
UnNeed=spli ......
<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF" 'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa" 'Êý¾Ý¿âÓû§Ãû
strPwd = "123456" ......