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

asp³£ÓÃÎļþ²Ù×÷º¯Êý(¶þ)

<%    
    '*******************************************************
    '×÷  ÓÃ: µÃµ½ÎļþÀ©Õ¹Ãû
    'º¯ÊýÃû: GetFileExt(fileTrue)
    '²Î  Êý: sFileName ÎļþÃû
    '·µ»ØÖµ: ·µ»ØÎļþÀ©Õ¹Ãû
    '*******************************************************
    function GetFileExt(sFileName)
         GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, ".")+1))
    End function
    
    
    '*******************************************************
    '×÷  ÓÃ: ASPÉÏ´«Â©¶´ "\0" ·À·¶
    'º¯ÊýÃû: TrueStr(fileTrue)
    '²Î  Êý: sFileName ÎļþÃû
    '·µ»ØÖµ: ºÏ·¨Îļþ·µ»Ø True ,·ñÔò·µ»ØFalse
    '*******************************************************
    function IsTrueFileName(sFileName)
        dim str_len,pos
        str_len=len(sFileName)
        pos=Instr(sFileName,chr(0))
        If pos=0 or pos=str_len then
            IsTrueFileName = true
        else
            IsTrueFileName = false
        End If
    End function
    
    '*******************************************************
    '×÷  ÓÃ: ¼ì²âÉÏ´«µÄͼƬÎļþ(jpeg,gif,bmp,png)ÊÇ·ñÕæµÄΪͼƬ
   


Ïà¹ØÎĵµ£º

ÈçºÎÀûÓÃASP³ÌÐòÀ´Ê¹ÓÃJMail·¢ÓʼþµÄÀý×Ó

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Request("MailtoAddress") <> "" then
¡¡¡¡¡¡¡¡msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDom ......

ASP MapPath ·½·¨

http://www.w3school.com.cn/asp/met_mappath.asp
¶¨ÒåºÍÓ÷¨
MapPath ·½·¨¿É°ÑÖ¸¶¨µÄ·¾¶Ó°Éäµ½·þÎñÆ÷ÉÏÏàÓ¦µÄÎïÀí·¾¶ÉÏ¡£
×¢ÊÍ£º´Ë·½·¨²»ÄÜÓÃÓÚ Session.OnEnd ºÍ Application.OnEnd ÖС£
ʵÀý
ʵÀý 1
¾ÙÀý£¬Îļþ test.asp λÓÚ C:\Inetpub\wwwroot\Script¡£
Îļþ Test.asp (λÓÚ C:\Inetpub\wwwroot\Script) °üº ......

Ò»¶ÎASP¡£NETµÄIFRAMEµÄÒ³ÃæÌø×ª


<script>window.parent.document.getElementById('BIframe').src='B.aspx';</script>
http://www.cnblogs.com/lijigang/archive/2007/05/18/751943.html
ÔÙÀ´¿´¿´µÚ¶þÖÖˢз½·¨£º“ÖØÔØÒ³Ãæ”
<script>window.parent.document.frames.BIframe.RefreshmyForm();</script>
<scri ......

aspÎļþ²Ù×÷´óÈ«

<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub class_terminate()
Set objFSO = Nothing
End Sub
'=======Îļþ²Ù×÷========
'È¡Îļþ´óС
Public Function GetFileSize(FileName)
Dim f ......

asp³£ÓÃÎļþ²Ù×÷º¯Êý(Ò»)

<%
    
    '*******************************************************
    'º¯ÊýÃû£ºCreateFolder(sPath)
    '×÷  ÓÃ: ´´½¨Ä¿Â¼
    '²Î  Êý£ºsPath : ´´½¨µÄÏà¶ÔĿ¼·¾¶
 & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ