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
Ïà¹ØÎĵµ£º
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
VBSÀ³¬³öIntegerÀàÐ͵ÄÈ¡Öµ·¶Î§£¬¸ÃÀàÐ͵ÄÈ¡Öµ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýÈ¡Öµ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e ......
×î½ü°ï±ðÈË´¦ÀíÏÂÊý¾Ý,·¢ÏÖÌí¼ÓÊý¾Ýʱ,¾ÍÌáʾ"ASP ²»ÄܸüС£Êý¾Ý¿â»ò¶ÔÏóΪֻ¶Á¡£",´ÓÍøÉÏÕÒÁË,ҲûÓнâ¾öÎÒµÄÎÊÌâ.
1¡¢·þÎñÆ÷µÄÊý¾ÝĿ¼mdbÎļþËùÔÚµÄĿ¼£¬ÊÇÖ»¶ÁµÄ
2¡¢Êý¾Ý¿âÔÚ±¾µØµÄȨÏÞ£¬È¥Ö»¶ÁȨÏÞ£¬ÔÙÉÏ´«
3¡¢ÓпÉÄÜÄãÊÇ´ÓÖ»¶ÁĿ¼Òƶ¯µ½¿É¶ÁĿ¼µÄ£¬ËùÒÔÒ»¶¨²»ÄÜÕâôÓã¬ÏÈϵ½±¾µØ£¬ÔÙÉÏ´«£¬¿É½â¾ö´ËÀàÎÊ ......
1¡¢Ê×ÏÈÏÂÔØÌÔÌØÕ¾ÄÚËÑË÷ÒýÇ棬Ê×ÏÈÒªµ¼ÈëCMSÖеÄÊý¾Ýµ½ËÑË÷ÒýÇæË÷ÒýÖУ¬Õâ¸ö¹¤×÷Äú¿ÉÒԷŵ½±¾µØÀ´×ö£¬Ë÷Òýºó£¬Ö±½Ó½«ÌÔÌØËÑË÷ÒýÇæÎļþ¼ÐѹËõºóÉÏ´«µ½ÄúµÄ¿Õ¼äÉϼ´¿É¡£
2¡¢Êý¾ÝË÷Òý˵Ã÷£º
3¡¢Ê×ÏÈÔÚ±¾µØ²¿ÊðÒ»¸öasp.net»·¾³£¬È»ºó°²×°ÌÔÌØÕ¾ÄÚËÑË÷ÒýÇ棬¼ÙÈç·ÃÎʵØÖ·ÊÇ:http://localhost¡£
4¡¢ÏÂÃæÊäÈëµØÖ·£ºhttp://lo ......