¡¡ASPÁ¬½ÓÊý¾Ý¿âµÄ11ÖÖ·½·¨——±¾ÎÄ×ܽáÁËʹÓÃASPÁ´½Ó¸÷ÖÖÊý¾Ý¿âµÄ·½·¨£º
¡¡¡¡1.AccessÊý¾Ý¿âµÄDSN-lessÁ¬½Ó·½·¨:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("Êý¾Ý¿âËùÔÚ·¾¶")
¡¡¡¡2.Access OLE DBÁ¬½Ó·½·¨£º
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("Êý¾Ý¿âËùÔÚ·¾¶")
¡¡¡¡3.SQL serverÁ¬½Ó·½·¨£º
set adocon=server.createobject("adodb.recordset")
adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
"database=Êý¾Ý¿âÃû;"
¡¡¡¡4.SQL server OLE DBÁ¬½Ó·½·¨:
set adocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _
"user ID=***;Password=***;"& _
"inital Catalog=Êý¾Ý¿âÃû"
¡¡¡¡5.Oracle Á¬½Ó·½·¨:
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;ui ......
ASPÊÇ΢Èí¹«Ë¾ÊµÏÖ¶¯Ì¬ÍøÒ³µÄÒ»ÖÖ¼¼Êõ¡£
ASPÖ§³ÖһЩ½Å±¾ÓïÑÔ£¬Ö÷ÒªÒÔVBScriptΪÖ÷¡£
ÓëASPÏà±È½Ï£¬Ä㻹¿ÉÒÔÑ¡ÔñÁíÒ»Öпª·ÅÔ´´úÂë±à³ÌÓïÑÔ——PHP£¬PHP¿ÉÒÔÔËÐÐÔÚ¶àÖÖ²Ù×÷ϵͳÏ£¬ÆäÖаüÀ¨LinuxºÍwindows¡£
ËäÈ»ASPÊÇÒ»ÖÖ²»´íµÄ¼¼Êõ£¬µ«´Ó³¤Ô¶¿¼ÂÇÎÒÏàÐÅPHPÔÚ½«À´µÄ¼¼ÊõÁìÓòÀï»áÓв»·²µÄ±íÏÖ¡£
ÎÒÈÏΪÓÐÆß¸öÀíÓÉ¿ÉÒÔ˵Ã÷PHP±ÈASP¸üÓÅÐ㣺
1¡¢ËÙ¶È¡¢ËÙ¶È¡¢ËÙ¶È
µ±ÎÒµÚÒ»´ÎÔËÐÐPHP½Å±¾³ÌÐòʱ£¬ÎÒ²»½û¶Ô×Ô¼ºËµ£º“Ì«¿ìÁË”£¬µ±Ê±ÎÒÊÇÔÚÒÇ̬166MHZµÄ»úÆ÷ÉÏÔËÐÐÎҵijÌÐòµÄ£¬µ«ÔËÐеÄËÙ¶ÈÈÔÈ»ºÜ¿ì¡£
ASPÊÇÓÀÔ¶Ò²²»»áÏóPHPÕâÑù¿ìµÄ£¬ÒòΪASPÊǽ¨Á¢ÔÚCOMÌåϵ½á¹¹Ö®Éϵġ£µ±ÓÃVBScriptдASP½Å±¾Ê±£¬Êµ¼ÊÉÏʵÔÚʹÓÃCOMµÄ¶ÔÏ󣬵±ÏòÓû§ä¯ÀÀÆ÷·¢ËÍÐÅϢʱ£¬ËüÓõÄÊÇResponse¶ÔÏóµÄwrite·½·¨£¬µ±Ëü·ÃÎÊÊý¾Ý¿âºÍÎļþϵͳµÄʱºò£¬ËüÓõÄÊÇÆäËûµÄCOM¶ÔÏó¡£ÕâЩCOM¶ÔÏóµÄʹÓÃʹÔËÐÐËÙ¶ÈϽµ¡£
ÔÚPHP´úÂëÖУ¬ËùÓеŤ×÷¶¼ÔËÐÐÔÚPHPµÄÄÚ´æ¿Õ¼äÖУ¬Ò²¾ÍÊÇ˵PHP²»ÊÇ»ùÓÚCOM¶ÔÏóµÄ£¬ËùÒÔµÄËûµÄÔËÐÐËÙ¶È»á¿ìһЩ¡£
ÏÂÃæÊÇÎÒÃÇÔÚMSSQL7 40´ÎÔËÐÐÒ»¸ö²éѯÓï¾äµÄÖ´ÐÐʱ¼äͳ¼Æ£º
ÓÃPHP Querying MSSQL7 ʱ¼ä(Ãë)
ÓÃMSSQL extension 01.88
......
ASPÊÇ΢Èí¹«Ë¾ÊµÏÖ¶¯Ì¬ÍøÒ³µÄÒ»ÖÖ¼¼Êõ¡£
ASPÖ§³ÖһЩ½Å±¾ÓïÑÔ£¬Ö÷ÒªÒÔVBScriptΪÖ÷¡£
ÓëASPÏà±È½Ï£¬Ä㻹¿ÉÒÔÑ¡ÔñÁíÒ»Öпª·ÅÔ´´úÂë±à³ÌÓïÑÔ——PHP£¬PHP¿ÉÒÔÔËÐÐÔÚ¶àÖÖ²Ù×÷ϵͳÏ£¬ÆäÖаüÀ¨LinuxºÍwindows¡£
ËäÈ»ASPÊÇÒ»ÖÖ²»´íµÄ¼¼Êõ£¬µ«´Ó³¤Ô¶¿¼ÂÇÎÒÏàÐÅPHPÔÚ½«À´µÄ¼¼ÊõÁìÓòÀï»áÓв»·²µÄ±íÏÖ¡£
ÎÒÈÏΪÓÐÆß¸öÀíÓÉ¿ÉÒÔ˵Ã÷PHP±ÈASP¸üÓÅÐ㣺
1¡¢ËÙ¶È¡¢ËÙ¶È¡¢ËÙ¶È
µ±ÎÒµÚÒ»´ÎÔËÐÐPHP½Å±¾³ÌÐòʱ£¬ÎÒ²»½û¶Ô×Ô¼ºËµ£º“Ì«¿ìÁË”£¬µ±Ê±ÎÒÊÇÔÚÒÇ̬166MHZµÄ»úÆ÷ÉÏÔËÐÐÎҵijÌÐòµÄ£¬µ«ÔËÐеÄËÙ¶ÈÈÔÈ»ºÜ¿ì¡£
ASPÊÇÓÀÔ¶Ò²²»»áÏóPHPÕâÑù¿ìµÄ£¬ÒòΪASPÊǽ¨Á¢ÔÚCOMÌåϵ½á¹¹Ö®Éϵġ£µ±ÓÃVBScriptдASP½Å±¾Ê±£¬Êµ¼ÊÉÏʵÔÚʹÓÃCOMµÄ¶ÔÏ󣬵±ÏòÓû§ä¯ÀÀÆ÷·¢ËÍÐÅϢʱ£¬ËüÓõÄÊÇResponse¶ÔÏóµÄwrite·½·¨£¬µ±Ëü·ÃÎÊÊý¾Ý¿âºÍÎļþϵͳµÄʱºò£¬ËüÓõÄÊÇÆäËûµÄCOM¶ÔÏó¡£ÕâЩCOM¶ÔÏóµÄʹÓÃʹÔËÐÐËÙ¶ÈϽµ¡£
ÔÚPHP´úÂëÖУ¬ËùÓеŤ×÷¶¼ÔËÐÐÔÚPHPµÄÄÚ´æ¿Õ¼äÖУ¬Ò²¾ÍÊÇ˵PHP²»ÊÇ»ùÓÚCOM¶ÔÏóµÄ£¬ËùÒÔµÄËûµÄÔËÐÐËÙ¶È»á¿ìһЩ¡£
ÏÂÃæÊÇÎÒÃÇÔÚMSSQL7 40´ÎÔËÐÐÒ»¸ö²éѯÓï¾äµÄÖ´ÐÐʱ¼äͳ¼Æ£º
ÓÃPHP Querying MSSQL7 ʱ¼ä(Ãë)
ÓÃMSSQL extension 01.88
......
·Ï»°²»¶à˵£¬Ìù´úÂ룺
ÏÈÀ´¿´¿´ByVal´«Öµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º"&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("ÔÚsub¹ý³ÌÍâÊä³öÖµ£º"&arr(0)&","&arr(1)&","&arr(2))
%>
ÏÂÃæÊÇÊä³ö½á¹û£º
ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º9,8,7ÔÚsub¹ý³ÌÍâÊä³öÖµ£º0,1,2
ÔÙÀ´¿´¿´ByRef´«Öµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByRef a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º"&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("ÔÚsub¹ý³ÌÍâÊä³öÖµ£º"&arr(0)&","&arr(1)&","&arr(2))
%>
ÏÂÃæÊÇÊä³ö½á¹û£º
ÎÒÔÚsub¹ý³ÌÖиü¸ÄÁËÖµ£º9,8,7ÔÚsub¹ý³ÌÍâÊä³öÖµ£º9,8,7
ÏÂÃæÎÒÃÇÀ´¿´¿´aspĬÈÏÊÇÒÔʲô·½Ê½´«ÖµµÄ
<% ......
aspÖеÄrs.openÓÚconn.executeµÄÇø±ð
rs.open sql,conn£ºÈç¹ûsqlÊÇdelete,update,insertÔò»á·µ»ØÒ»¸ö¹Ø±ÕµÄ¼Ç¼¼¯£¬ÔÚʹÓùý³ÌÖв»ÒªÀ´¸örs.closeÔÚÎļþ×îºóÔÙдrs.close
Öмä¿ÉÒÔÀ´¶à¸ö¼Ç¼¼¯rs1.open sql1,conn£¬×îºóÒ»¿é¹Ø±Õ¼Ç¼¼¯:rs.close rs1.close
conn.execute(sql) Èç¹ûsqlÊÇdelete,update,insertÔò»á·µ»ØÒ»¸ö¹Ø±ÕµÄ¼Ç¼¼¯£¬ÔÚʹÓùý³ÌÖв»ÒªÀ´¸örs.closeÔÚÎļþ×îºóÔÙдrs.close
Öмä¿ÉÒÔÀ´¶à¸ö¼Ç¼¼¯rs1.open sql1,conn£¬×îºóÒ»¿é¹Ø±Õ¼Ç¼¼¯:rs.close rs1.close.
Èç¹ûsqlÊÇupdate,insert,deleteÔòÓ¦¸ÃʹÓÃconn.execute(sql)Ò²¿ÉÒÔ²»ÒªÀ¨ºÅconn.execute sql
Èç¹ûsqlÊÇselectÓï¾äÔòÓ¦¸ÃʹÓÃset rs=conn.execute(sql)À¨ºÅÒ»¶¨Òª£¬²»ÄÜÊ¡ÂÔ:ÕâÊÇÒòΪvbscriptµÄÌØÐÔ,´ø·µ»ØÖµ
µÄµ÷ÓñØÐë¼ÓÀ¨ºÅ£¬²»´ø·µ»ØÖµµÄµ÷ÓÿÉÒÔ²»ÒªÀ¨ºÅ¡£
×¢Ò⣺²»¹ÜÊÇrs.open sql,conn»¹ÊÇconn.execute(sql) [ÕâÀïµÄSQLÊÇdelete,update,insert]Ö´ÐÐÒԺ󶼻᷵»ØÒ»¸ö¹Ø±ÕµÄ¼Ç¼¼¯
Ò²¾ÍÊÇ˵Èç¹ûsqlÊDzåÈë£ ......
Ê×ÏÈÌù´úÂ룺
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
objDic.Item("key")(1) = objDic.Item("key")(1) + 4
Response.Write("ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º" & objDic.Item("key")(1))
%>
ÏÂÃæÊÇÔËÐнá¹û£º
ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º0ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º0
¿ÉÒÔ¿´µ½objDic.Item("key")(0)µÄÖµ¸ù±¾Ã»ÓÐÈκα仯£¬ÕâÊÇΪʲô£¿
ÏÂÃæÎÒÃǽ«´úÂëÐÞ¸Äһϣº
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
arr(0) = arr(0) + 4
objDic.Item("key") = arr
Response.Write("ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ£º" & objDic.Item("key")(0))
%>
ÔÙÀ´¿´¿´ÔËÐнá¹û£º
ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º0ÕâÊÇÐÞ¸ÄÖ®ºóµÄÖµ ......
1£ºÉÏ´«Ò³Ãæ
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ÉÏ´«Í¼Æ¬</title>
<style type="text/css">
* { margin:0;padding:0;}
#file_group { list-style:none;}
#file_group li { background: url(icon_file.gif) no-repeat left; padding-left:25px; height:24px;}
#file_group input{ height:24px;line-height:22px;font-family:Verdana;}
#file_group button{ height:24px;}
#add{width:39px}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
color: #000000;
text-decoration: none;
}
a:hover {
color: #FF0000;
text-decoration: none;
}
a:active {
text-decoration: none;
}
</style>
<script type="text/javascript">
var file_num=1;
......