asp ²Ù×÷ txt Îı¾Îļþ
´´½¨Ö¸¶¨µÄÎļþÃû²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔʹÓÃÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁд¡£
object.CreateTextFile(filename[, overwrite[, unicode]])
²ÎÊý
object
±ØÑ¡ÏӦΪ FileSystemObject »ò Folder ¶ÔÏóµÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷ËùÒª´´½¨ÎļþµÄ×Ö·û´®±í´ïʽ¡£
overwrite
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã÷ÄÜ·ñ¸²¸ÇÒÑÓÐÎļþ¡£Èç¹ûÎļþ¿ÉÒÔ¸²¸Ç£¬ÔòֵΪ true £¬·ñÔòΪ false¡£Èç¹ûºöÂÔ£¬ÔòÒÑÓÐÎļþ²»Äܱ»¸²¸Ç¡£
unicode
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã÷ÎļþÊÇ·ñÒÔ Unicode »ò ASCII Îļþ·½Ê½´´½¨¡£Èç¹ûÎļþ×÷Ϊ Unicode Îļþ´´½¨£¬ÔòֵΪ true £¬Èç¹û×÷Ϊ ASCII Îļþ´´½¨£¬ÔòΪ false¡£Èç¹ûºöÂÔ£¬Ôò¼Ù¶¨Îª ASCII Îļþ¡£
˵Ã÷
ÏÂÃæµÄ´úÂë˵Ã÷ÁËÈçºÎʹÓà CreateTextFile ·½·¨À´´´½¨ºÍ´ò¿ªÒ»¸öÎı¾Îļþ¡£
[JScript]
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();
[VBScript]
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub
Èç¹û overwrite ²ÎÊýÊÇ false £¬»òÕßûÓÐÌṩÕâ¸ö²ÎÊý£¬ÄÇô¶ÔÓÚÒÑÓÐµÄ filename ½«²úÉúÒ»¸ö´íÎó¡£
´ò¿ªÖ¸¶¨µÄÎļþ²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔͨ¹ýÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁ¡¢Ð´»ò×·¼Ó¡£
object.OpenTextFile(filename[, iomode[, create[, format]]])
²ÎÊý
object
±ØÑ¡Ïî¡£object ӦΪ FileSystemObject µÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷Òª´ò¿ªÎļþµÄ×Ö·û´®±í´ïʽ¡£
iomode
¿ÉÑ¡Ïî¡£¿ÉÒÔÊÇÈý¸ö³£ÊýÖ®Ò»£ºForReading ¡¢ ForWriting »ò ForAppending ¡£
create
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã÷µ±Ö¸¶¨µÄ filename ²»´æÔÚʱÊÇ·ñ´´½¨ÐÂÎļþ¡£Èç¹û´´½¨ÐÂÎļþÔòֵΪ True £¬Èç¹û²»´´½¨ÔòΪ False ¡£Èç¹ûºöÂÔ£¬Ôò²»´´½¨ÐÂÎļþ¡£
format
¿ÉÑ¡ÏʹÓÃÈýֵ̬ÖеÄÒ»¸öÀ´Ö¸Ã÷´ò¿ªÎļþµÄ¸ñʽ¡£Èç¹ûºöÂÔ£¬ÄÇôÎļþ½«ÒÔ ASCII ¸ñʽ´ò¿ª¡£
ÉèÖÃ
iomode ²ÎÊý¿ÉÒÔÊÇÏÂÁÐÉèÖÃÖеÄÈÎÒ»ÖÖ£º
³£Êý Öµ ÃèÊö
ForReading 1 ÒÔÖ»¶Á·½Ê½´ò¿ªÎļþ¡£²»ÄÜдÕâ¸öÎļþ¡£
ForWriting 2
Ïà¹ØÎĵµ£º
arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45)
arrLen = ubound(arr)
for i=0 to arrLen-1
for j = 0 to (arrlen -1)-i
if arr(j)>arr(j+1) then
temp = arr(j)
arr(j)= arr(j+1)
arr(j+1) = temp
end if
next
next
for each l in arr
response.Write l&"< ......
ǰÁ½Ì죬¿Í»§ÐèÒªÌí¼ÓÏÂÀ²Ëµ¥£¬ÎÒÔεĺܣ¬ºÜ¼òµ¥µÄÒ»¸öÎÊÌâ°ÑÎÒÓÕµ¼ÁËÁ½ÈýÌ죬ºóÀ´ÐÑÎò¹ýÀ´£¬ÕæÏë´ò×Ô¼º¡£
֮ǰÎÒҲʹÓùýdivÌ×divµÄ·½·¨£¬Ö»Òª¿ØÖÆËûÃǵÄλÖþͿÉÒÔÁË£¬µ«Õâ´ÎÎÒûÓУ¬Ê¹ÓõÄÔÚ±í¸ñʽÌ×div£¬×Ô¼º×ÁÄ¥Á˰ëÌ죬ÒѾÍü¼ÇÁËdivËùÏÔʾµÄÊÇÏà¶Ô ......
¶ÔÓÚÒ»¸öÏëѧºÃASP¼°asp.netµÄ¹ýÀ´ÈËÀ´Ëµ,ѧϰµÄ¹ý³ÌÊÇÓÐȤ¼°ÕÛÄ¥È˵Ä,µ±Äã×ö³öµÚÒ»¸öʵÑéµÄʱºòÄãµÄÐÄÇéÊǼ¤¶¯µÄ,ÎÒÊDZÏÒµÒÔÀ´Ò»²½Ò»²½µÄ×Ôѧ¹ý³ÌÖÐ×ܽáÁËһЩºÃµÄ¾ÑéÈÿ´µ½ÕâÆªÎÄÕµÄÈËÉÙ×ßһЩÍä·,ÏÂÃæÐ´µÄ¶¼ÊÇÕë¶Ô³õѧÕß,Ò²ÊÇÎÒ×Ô¼ºÊÇÔõô´ÓÁã»ù´¡µ½ÏÖÔÚ¿ÉÒÔ¿ª·¢Ò»Ð©¶«Î÷µÄ¹ý³Ì.
&nb ......
·Ï»°ÉÙ˵,¼û´úÂë
<%=request.ServerVariables("LOGON_USER")%>
Ê×ÏÈIISËùÔڵķþÎñÆ÷Òª¼ÓÈëÓò,Æä´ÎÊÇIIS·þÎñÆ÷µÄÉèÖÃ.¼ûͼ1
ͼ2
·þÎñÆ÷ÉèÖúúó, IISËùÔڵķþÎñÆ÷ʹÓÃ
<%=request.ServerVariables("LOGON_USER")%>
¾ÍÄÜ»ñÈ¡µ½ÓòÃû³ÆºÍÓû§ÃûÁË.
Èç¹û·ÃÎÊÕßûÓмÓÈëÓò,»áÌáʾµÇ¼,ÈçÏÂͼ.Ê ......
ASP¸ß¼¶¼¼Êõ¾«Ñ¡¼¯
Ò»¡¢GetRowsµÄʹÓ÷½·¨£º
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from ±íÃû",conn,0,1 &nb ......