ASPÊý¾ÝÁ¬½Ó
1. ÓÃDSNÁ¬½Ó²¢ÇÒûÓÐÓû§ÃûºÍÃÜÂ룺
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
ÓÃDSNÁ¬½Ó²¢ÇÒÓÐÓû§ÃûºÍÃÜÂ룺
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
2. ÓÃʵ¼ÊµÄÊý¾Ý¿â¾ø¶Ô·¾¶Á¬½Ó£º
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
ÓÃʵ¼ÊµÄÊý¾Ý¿âÏà¶Ô·¾¶Á¬½Ó£º
"provider=microsoft.jet.OLEDB.4.0;Data source="&server.mappath("/admin/#Database.mdb")
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
¶þ¡¢MS SQL ServerÊý¾Ý¿âÁ¬½Ó
ÓÃDSNÁ¬½Ó£º
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
²»ÓÃDSNÁ¬½Ó£º
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
Èý¡¢FoxProÊý¾Ý¿âÁ¬½Ó
<%
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"
Conn.Open ConnStr
%>
ËÄ¡¢OracleÊý¾Ý¿âÁ¬½Ó£º
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
Ïà¹ØÎĵµ£º
<!--#include file="conn.asp"-->
<!--#include file="inc/head.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn" lang="zh-cn" xmlns:q ......
¡¡¡¡ÓÃASPʵÏÖËÑË÷²¢·ÖÒ³ÊÇÎÒ¼û´ó¶àÊý³ÌÐòÔ±ºÍ´ó¶àÊýÍøÕ¾³öÏÖÁ˲»ÄÜÕý³£·ÖÒ³µÄÎÊÌ⣬ËÑË÷³öÀ´µÄ½á¹ûµã»÷ÏÂÒ»Ò³Êý¾ÝÓÖÖض¨ÏòΪ³õʼµÄ½á¹û¡£ÊÇʲôÔÒòµ¹ÖÂÕâ¸öÎÊÌâÄØ£¿
¡¡¡¡Õâ¸öÎÊÌâÒ²ÊÇÔÚÎÒÔÚУÕýÔÚѧϰASPµÄʱºòÁ·Ï°ÊµÀýÖÐÓöµ½µÄÎÊÌ⣬³öÏÖÕâ¸öÎÊÌâºó£¬·´¸´µÄµ÷ÊÔ·´¸´µÄ¼ì²é´úÂ룬¿´À´¿´È¥´úÂëûÓв»±¨´íÒ²ÎÞÎó¡£× ......
¾¹ý±¾È˽«ASPÔËÐÐËÙ¶ÈÄÚ´æÕ¼ÓôóС·Å´óµ½200MµÄ²âÊÔ
¹ØÓÚ¶¨Òå±äÁ¿£º
1¡¢¶¨Òå±äÁ¿£¬¾¡Á¿²»Òª¶¨ÒåÈ«¾Ö±äÁ¿£¬Ë½ÓбäÁ¿ÔÚÔËÐÐËÙ¶ÈÒÔ¼°¿Õ¼äÕ¼ÓÃÉÏÃæ±È¹«¹²±äÁ¿Ëٶȿ죬ÒÔ¼°¸³ÖµÉÏÃæËÙ¶ÈÎÊÌ⣨ÏÂÃæ½éÉÜ£©
2¡¢±äÁ¿¸³Öµ£º
¸ø±äÁ¿¸³Öµ¾¡Á¿Ò»´Î¸³Í꣬±ÈÈ磺
Dim str
str="1"
str ......
arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45)
arrLen = ubound(arr)
for i=0 to arrLen-1
for j = 0 to (arrlen -1)-i
if arr(j)>arr(j+1) then
temp = arr(j)
arr(j)= arr(j+1)
arr(j+1) = temp
end if
next
next
for each l in arr
response.Write l&"< ......