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
Ïà¹ØÎĵµ£º
<%
set rs=server.createobject("adodb.recordset")
sql="select * from YONGHU where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("USERNAME")=request("username")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("username")=rs("name")
respo ......
ÔÚÎÒ¿ª·¢BS½á¹¹³ÌÐòÖУ¬ÓÉÓÚ¾³£ÐèÒªÔÚORACLEÖд¦ÀíһЩÈÝÁ¿½Ï´óµÄÎı¾Êý¾Ý£¬ËùÒÔ¾¹ý·´¸´²âÊÔÖÕÓÚÓÃASP³É¹¦½â
¾öÁË´óÎı¾Êý¾ÝÔÚORACLEÏ´æÈ¡ÎÊÌâ¡£
¡¡¡¡
¡¡¡¡Ò»¡¢ÔËÐл·¾³£º
¡¡¡¡1¡¢Microsoft Windows 2000 Server + IIS 5.0
2¡¢Oracle8iÖÐÎıê×¼°æ
¡¡¡¡
¡¡¡¡¶þ¡¢½¨Á¢Êý¾Ý±í£º
¡¡¡¡CREATE TABLE SYSTEM.TEST(
B ......
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 ......
¶ÔÓÚRecordset·Öҳʱ³öÏÖ¸ºÊýµÄÏÖÏó£¬ÏàÐÅ»áÓкܶàÈËÓöµ½¹ýÕâ¸öÎÊÌ⣬ÓÐʱ°Ù¶È¡¢GOOGLEÒ²²»µÃÆä½â£¬ÏÖÔÚÓÉÎÒÀ´×ܽáһϡ£
³öÏÖ¸ºÊý£¬Ö÷ÒªºÍÓαêÀàÐÍÓйØÏµ¡££¨Îª¾ÙÀý·½±ã£¬¼ÙÉèÒѾÓÐÒ»¸öconn.aspÁ´½ÓÊý¾Ý¿âµÄÎļþ²¢ÇÒÒѾinclude£©ÏÖÔÚ¾ÙÒ»¸öÀý×Ó£¬´úÂëÈçÏ£º
'===================================================== ......