Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

ASP FSOÎļþ´¦Àíº¯Êý´óÈ«

<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ­´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......

Asp Split(Ò»¸ö¹ØÓÚSplitº¯ÊýÔÚASPÖÐʹÓ÷½·¨µÄ°¸Àý)

Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......

asp replaceº¯ÊýµÄʹÓÃ

Èç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 ......

aspÁ¬sqlserver²âÊÔ´úÂë

<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF"        'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa"                'Êý¾Ý¿âÓû§Ãû
strPwd = "123456"  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ