ASPÓ¦ÓÃÖ®FSO×é¼þÖ®Îļþ²Ù×÷´óÈ«
'ʹÓÃFSOÐÞ¸ÄÎļþÌØ¶¨ÄÚÈݵĺ¯Êý
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
ʹÓÃFSOдÎļþijһÐеĺ¯Êý
'ʹÓÃFSOдÎļþijһÐеĺ¯Êý
Function FSOlinewrite(filename,lineNum,Linecontent)
If linenum < 1 Then Exit Function
Dim FSO,f,temparray,tempCnt
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function
Set f = FSO.OpenTextFile(Server.MapPath(filename),1)
If Not f.AtEndofStream Then
tempcnt = f.ReadAll
f.Close
temparray = Split(tempcnt,Chr(13)&Chr(10))
If lineNum>UBound(temparray)+1 Then
Exit Function
Else
temparray(lineNum-1) = lineContent
End If
tempcnt = jo& #105;n(temparray,Chr(13)&Chr(10))
Set f = FSO.cr& #101;atetextfile(Server.MapPath(filename),true)
f.Write tempcnt
End If
f.Close
Set f = Nothing
End Function
FSOÌæ»»Ö¸¶¨ÎļþµÄ×Ö·û
Function FSOLineEdit(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
'Response.Write FSOLineEdit("test.txt","ÊÀ½ç","Ã÷ÌìÊÇÒ»¸öºÃÌìÈ¥")
ʹÓÃFSO¶ÁÈ¡ÎļþÄÚÈݵĺ¯Êý
Function FSOFileRead(filename)
Dim objFSO,objCou
Ïà¹ØÎĵµ£º
VBSÀ³¬³öIntegerÀàÐ͵Äȡֵ·¶Î§£¬¸ÃÀàÐ͵Äȡֵ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýȡֵ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......
ASPÈ«³ÆÎªActive Server Pages£¬ÊÇÒ»ÖÖÓÉ΢Èí(M1crosoft)¹«Ë¾¿ª·¢µÄ·þÎñÆ÷¶Ë½Å±¾ÓïÑÔÔËÐл·¾³£¬Ëü¿ÉÒÔ½áºÏHTMLÓïÑÔºÍActiveX×é¼þ½¨Á¢¶¯Ì¬¡¢½»»¥¡¢¸ßЧµÄWeb·þÎñÆ÷¶ËÓ¦ÓóÌÐò¡£µ±Ò»¸öÓû§ä¯ÀÀÆ÷´Óweb·þÎñÆ÷ÇëÇóÒ»¸öAsPÍøÒ³Ê±£¬web·þÎñÆ÷»á
½«Õâ¸öAsPÎļþ·¢Ë͸øweb·þÎñÆ÷µÄAsPÒýÇæ£¬AsPÒýÇæ½«¸ÃAsPÍøÒ³ÖÐ ......
Ö»ÐèÒªÔÚfckeditor\editor\filemanager\connectors\aspÎļþ¼ÐϵÄcommands.aspÐÞ¸Äһϼ´¿É
ÔÚÕâ¸öÎļþÖвéÕÒһϣºFileUpload
»áÕÒµ½Õâ¸öº¯Êý
°Ñ
´úÂëÈçÏÂ:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
¸ÄΪ
´úÂëÈçÏÂ:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......
Abs £¨ÊýÖµ£©
¾ø¶ÔÖµ¡£Ò»¸öÊý×ֵľø¶ÔÖµÊÇËüµÄÕýÖµ¡£¿Õ×Ö·û´® (null) µÄ¾ø¶ÔÖµ£¬Ò²ÊÇ¿Õ×Ö·û´®¡£Î´³õʼ»¯µÄ±äÊý£¬Æä¾ø¶ÔΪ 0
Àý×Ó£ºABS(-2000)
½á¹û£º2000
Array £¨ÒÔ¶ºµã·Ö¸ôµÄÊý×éÔªËØ£©
Array º¯Êý´«»ØÊý×éÔªËØµÄÖµ¡£
Àý×Ó£º
A=Array(1,2,3)
B=A(2)
½á¹û£º 2
˵Ã÷£º±äÁ¿£ÂΪ£ÁÊý×éµÄµÚ¶þ¸öÔªËØµÄÖµ¡£
£Ás ......