Ò»¸öASPµÄ¸ß¼¶Ä£°åÒýÇæ
Õâ¸öÄ£°åÒýÇæ±È½Ï·½±ã,¸úHTML½áºÏÁË
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName
' ***************************************
' ÉèÖñàÂë
' ***************************************
Public Property Let Char(ByVal Str)
c_Char = Str
End Property
Public Property Get Char
Char = c_Char
End Property
' ***************************************
' ÉèÖÃÄ£°åÎļþ¼Ð·¾¶
' ***************************************
Public Property Let Path(ByVal Str)
c_Path = Str
End Property
Public Property Get Path
Path = c_Path
End Property
' ***************************************
' ÉèÖÃÄ£°åÎļþÃû
' ***************************************
Public Property Let FileName(ByVal Str)
c_FileName = Str
End Property
Public Property Get FileName
FileName = c_FileName
End Property
' ***************************************
' »ñµÃÄ£°åÎļþ¾ßÌå·¾¶
' ***************************************
Public Property Get FilePath
If Len(Path) > 0 Then Path = Replace(Path, "\", "/")
If Right(Path, 1) <> "/" Then Path = Path & "/"
FilePath = Path & FileName
End Property
' ***************************************
' ÉèÖ÷ÖÒ³URL
' ***************************************
Public Property Let PageUrl(ByVal Str)
c_PageUrl = Str
End Property
Public Property Get PageUrl
PageUrl = c_PageUrl
End Property
' ***************************************
' ÉèÖ÷ÖÒ³ µ±Ç°Ò³
' ***************************************
Public Property Let CurrentPage(ByVal Str)
c_CurrentPage = Str
End Property
Public Property Get CurrentPage
CurrentPage = c_CurrentPage
End Property
' ***************************************
' Êä³öÄÚÈÝ
' ***************************************
Public Property Get Flush
Response.Write(c_Content)
End Property
' ***************************************
' Àà³õʼ»¯
' *******************
Ïà¹ØÎĵµ£º
¾¹ý±¾È˽«ASPÔËÐÐËÙ¶ÈÄÚ´æÕ¼ÓôóС·Å´óµ½200MµÄ²âÊÔ
¹ØÓÚ¶¨Òå±äÁ¿£º
1¡¢¶¨Òå±äÁ¿£¬¾¡Á¿²»Òª¶¨ÒåÈ«¾Ö±äÁ¿£¬Ë½ÓбäÁ¿ÔÚÔËÐÐËÙ¶ÈÒÔ¼°¿Õ¼äÕ¼ÓÃÉÏÃæ±È¹«¹²±äÁ¿Ëٶȿ죬ÒÔ¼°¸³ÖµÉÏÃæËÙ¶ÈÎÊÌ⣨ÏÂÃæ½éÉÜ£©
2¡¢±äÁ¿¸³Öµ£º
¸ø±äÁ¿¸³Öµ¾¡Á¿Ò»´Î¸³Í꣬±ÈÈ磺
Dim str
str="1"
str ......
<%@ Language=VBScript CODEPAGE=65001%>
<% Response.Buffer=True %>
<%
'Collaboration Data Objects, version 1.2.1(CDO)
'http://www.microsoft.com/downloads/details.aspx?FamilyId=2714320D-C997-4DE1-986F-24F081725D36&displaylang=en
'-----------------µÚÒ»²½ ......
<Html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Éú³ÉWordÎĵµ</title>
</head>
<script ......
³ý·ÇÄúÒÔϵͳÕÊ»§µÄÉí·ÝµÇ½µ½·þÎñÆ÷£¨ÔÚä¯ÀÀÆ÷»·¾³ÖÐÒ²ÊÇ¿ÉÒÔʵÏÖ£©£¬»òÕßÖ÷»ú¶Ë½øÐÐÁËÁ¼ºÃµÄȨÏÞÅäÖ㬷ñÔò±¾ÎÄÉæ¼°µÄ¹¦ÄÜÊǺÜÄÑʵÏֵġ£ÒòΪÎÒÃÇͨ¹ýiis·ÃÎÊij¸öÒ³ÃæÊ±£¬Ò»°ãÊÇiisÄäÃûÕÊ»§µÄÉí·Ý£¬ÔÚ´ó¶àÊýÇé¿öÏ£¬aspµÄWScript.ShellÊDZ»½ûÓõģ¬ÒòΪËüÓкܴóµÄ°²È«Òþ»¼¡£
¡¡¡¡ÒªÏëʵÏÖÕâÖÖ¹¦ÄÜ£¬Ê×ÏÈÒªµÃµ½Rar³ ......
ASPϵÄFCKeditor 2.6.4.1µÄÅäÖãº
1.ÊÝÉí£ºÎҾͲ»ÌáÁË£¬ÍøÂçÉÏÄÇЩÎÄÕ¶¼ÓÐ˵ɾ³ýʲô¡£
2.ÎļþÉÏ´«£ºÒòΪÎÒ×öµÄÊÇÌùͼÐÔÖʵÄBBS£¬ËùÒÔÎÒÖ»¶ÔͼƬÉÏ´«×öÁËÑо¿£¬²»¹ýÎÒÏëFLASHºÍÎļþÉÏ´«Ó¦¸ÃÀàËÆ¡£
Ê×ÏÈ˵һÏÂfckµÄÎļþ¼Ð£¬±ØÐëÒªÒÔ´óдµÄFCKºÍСдµÄeditorÃüÃû£¬Í¬ÎÒµÄÒ»Ñù£¬·ñÔòÈç¹û²»ÄÜʹÓ㬱ðÂîÎÒÂÒ½²»°¡£
ÏÈÈ¥ÐÞ ......