aspÊý×éËæ»úÅÅÐò
Õâ¶Î´úÂëµÄ¹¦ÄÜÊÇ£º½«Ò»¸öÊý×é´òÂÒ˳Ðò£¬ÏÔʾ³öÀ´£¬ÈÃÿһ´ÎÏÔʾµÄ˳Ðò¶¼²»Ò»Ñù¡£
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'Ëæ»úÅÅÐò
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b)=tt(ii)
tt(ii)=temp
Next
For i=0 To leng
response.write tt(i)&"<br>"
next
%>
Ïà¹ØÎĵµ£º
·½·¨Ò»£º
<%
' ============================================
' ¸ñʽ»¯Ê±¼ä(ÏÔʾ)
' ²ÎÊý£ºn_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyyÄêmmÔÂddÈÕ"
' 5:"yyyymmdd"
' &nb ......
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--¼ÙÉèÄãÏëÈÃÉú³ÉµÄEXCELÎļþ×öÈçϵĴæ·Å
filename = Server.MapPath("users.xls")
'--Èç¹ûÔÀ´µÄEXCELÎļþ´æÔڵϰɾ³ýËü
if fs.FileExists(filename) then ......
½ñÌìÒ»¸öASPÏîÄ¿·¢ÏÖ »¯¾³ÉÏ´«×é¼þÉÏ´«BMPͼƬ²»³É¹¦£¬Ìáʾ²»ÔÊÐí²Ù×÷£¬¾²éÒòΪͼƬ̫´ó£¬ÒÔϽâ¾ö·½·¨£º
ÔÚ·þÎñÀï¹Ø±Õiis admin service·þÎñ
ÕÒµ½windows\system32\inesrv\ϵÄmetabase.xml,
´ò¿ª£¬ÕÒµ½ASPMaxRequestEntityAllowed &n ......
½ñÌìͬѧװÁËÒ»¸öxampp.À´Ê¹ÓÃFTPºÍMysql. µ«ÊÇËûÊÇʹÓÃASP.netÀ´½øÐÐÍøÒ³¿ª·¢µÄ,È»ºóÓÖ²»ÏëÁíÍâ×°IIS,½ÐÎÒ°ïËûŪ. ÉÏÍøGoogleÒ»ÏÂ,·¢ÏÖ¹úÍâÓÐÈË·¢¹ý½Ì³ÌÁË,²»¹ýÊÇÓ¢ÎĵÄ.ÕûÀíÁËһϺÍ×Ô¼ºÅäÖÃÍê³ÉµÄÐĵÃÖØÐ·¢³öÀ´. Ê×ÏÈ,ÄãÒªÉÏxamppµÄ¹ÙÍøÉÏÏÂÔØ°²×°xampp,°²×°¹ý³Ì¹ÙÍøÓÐÏêϸµÄ˵Ã÷. °²×°Íê³Éºó,È·¶¨ÄãµÄxamppÄܳɹ¦Ô ......