ASP VB.NET ÏÂÔØ·þÎñÆ÷Îļþµ½¿Í»§¶Ë
Try
Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
If Not System.IO.File.Exists(Path) Then
‘Èç¹ûÎļþ²»´æÔÚ
Exit Sub
Else
Response.ContentType = "application/x-zip-compressed"
Response.AddHeader("Content-Disposition", "attachment;filename=" + Server.UrlPathEncode(Path))
Response.TransmitFile(Path)
End If
Catch ex As Exception
'ÎļþÏÂÔØÊ§°Ü£¡
End Try
Ïà¹ØÎĵµ£º
ÔÚÎÒ¿ª·¢BS½á¹¹³ÌÐòÖУ¬ÓÉÓÚ¾³£ÐèÒªÔÚORACLEÖд¦ÀíһЩÈÝÁ¿½Ï´óµÄÎı¾Êý¾Ý£¬ËùÒÔ¾¹ý·´¸´²âÊÔÖÕÓÚÓÃASP³É¹¦½â
¾öÁË´óÎı¾Êý¾ÝÔÚORACLEÏ´æÈ¡ÎÊÌâ¡£
¡¡¡¡
¡¡¡¡Ò»¡¢ÔËÐл·¾³£º
¡¡¡¡1¡¢Microsoft Windows 2000 Server + IIS 5.0
2¡¢Oracle8iÖÐÎıê×¼°æ
¡¡¡¡
¡¡¡¡¶þ¡¢½¨Á¢Êý¾Ý±í£º
¡¡¡¡CREATE TABLE SYSTEM.TEST(
B ......
н¨Á¢Ò»¸öASPÎļþ °Ñ ÒÔÏ´úÂë¸´ÖÆ½øÈ¥
<%
ip=request.ServerVariables("REMOTE_ADDR") '»ñÈ¡À´·ÃµÄIPµØÖ·
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '½¨Á¢Êý¾Ý¿âÁ¬½Ó ÕâÀïÄã¿ ......
»ú¹¹Ãû³Æ£º ÈÕÆÚ£º2009 - 09 - 14 ²é¿´´ÎÊý£º
334 ´Î
ASP.NetºÍASPµÄ×î´óÇø±ðÔÚÓÚ±à³Ì˼άµÄת»»£¬¶ø²»½ö½öÔÚÓÚ¹¦ÄܵÄÔöÇ¿¡£ASPʹÓÃVBS/JSÕâÑùµÄ½Å±¾ÓïÑÔ»ìºÏhtmlÀ´±à³Ì£¬¶øÄÇЩ½Å±¾ÓïÑÔÊôÓÚÈõÀàÐÍ¡¢ÃæÏò½á¹¹µÄ±à³ÌÓïÑÔ£¬¶ø·ÇÃæÏò¶ÔÏó£¬Õâ¾ÍÃ÷Ï ......
¶ÔÓÚRecordset·Öҳʱ³öÏÖ¸ºÊýµÄÏÖÏó£¬ÏàÐÅ»áÓкܶàÈËÓöµ½¹ýÕâ¸öÎÊÌ⣬ÓÐʱ°Ù¶È¡¢GOOGLEÒ²²»µÃÆä½â£¬ÏÖÔÚÓÉÎÒÀ´×ܽáһϡ£
³öÏÖ¸ºÊý£¬Ö÷ÒªºÍÓαêÀàÐÍÓйØÏµ¡££¨Îª¾ÙÀý·½±ã£¬¼ÙÉèÒѾÓÐÒ»¸öconn.aspÁ´½ÓÊý¾Ý¿âµÄÎļþ²¢ÇÒÒѾinclude£©ÏÖÔÚ¾ÙÒ»¸öÀý×Ó£¬´úÂëÈçÏ£º
'===================================================== ......
1¡¢Ê×ÏÈÏÂÔØÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæ£¬Ê×ÏÈÒªµ¼ÈëCMSÖеÄÊý¾Ýµ½ËÑË÷ÒýÇæË÷ÒýÖУ¬Õâ¸ö¹¤×÷Äú¿ÉÒԷŵ½±¾µØÀ´×ö£¬Ë÷Òýºó£¬Ö±½Ó½«ÌÔÌØËÑË÷ÒýÇæÎļþ¼ÐѹËõºóÉÏ´«µ½ÄúµÄ¿Õ¼äÉϼ´¿É¡£
2¡¢Êý¾ÝË÷Òý˵Ã÷£º
3¡¢Ê×ÏÈÔÚ±¾µØ²¿ÊðÒ»¸öasp.net»·¾³£¬È»ºó°²×°ÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæ£¬¼ÙÈç·ÃÎʵØÖ·ÊÇ:http://localhost¡£
4¡¢ÏÂÃæÊäÈëµØÖ·£ºhttp://lo ......