aspÁ¬Êý¾Ý¿âµÄÎÊÌâ - Web ¿ª·¢ / ASP
aspÁ¬½Óoracleʱ±¨´í£º ADODB.Connection (0x800A0E7A) δÕÒµ½Ìṩ³ÌÐò¡£¸Ã³ÌÐò¿ÉÄÜδÕýÈ·°²×°¡£
aspÖеĴúÂëÈçÏ£º
VBScript code:
Dim MM_conora_STRING
MM_conora_STRING = "Provider=OraOLEDB.Oracle.1;User ID=lan;password=lan"
dim conn ,rs ,sql
set conn = server.CreateObject("adodb.connection")
conn.open MM_conora_STRING
set rs = server.CreateObject("adodb.recordset")
sql = "select * from users"
rs.open sql,conn,3
if rs.eof = false then
response.Write(rs("name") & "" & rs("pwd"))
end if
µ«ÈçÏ´úÂëÔÚVBÖÐÈ´ÄÜÕý³£ÔËÐУº
VB code:
Dim conn As Object
Dim rs As Object
Dim sql As String
sql = "select * from users"
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "Provider=OraOLEDB.Oracle.1;User ID=lan;password=lan"
rs.Open sql, conn, 3
If rs.EOF = False Then
Debug.Print rs("name") & "" & rs("pwd")
End If
ÕâÊÇΪʲô£¿
MM_conora_STRING = "Provider=OraOLEDB.Oracle.1;User ID=lan;password=lan"
Ïà¹ØÎÊ´ð£º
ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º
......
¹ØÓÚÍøÕ¾°²È«µÄÎÊÌ⣡
ÎÒÁ˽⵽µÄÍøÕ¾°²È«ÎÊÌâ°üÀ¨£º
sql×¢Èë©¶´ºÍ±©¿â©¶´»¹ÓÐÉÏ´«Â©¶´
³ýÁËÕâЩ»¹ÓÐÆäËûµÄ©¶´Ã´£¿
×¢Èë©¶´¿ÉÒÔͨ¹ý¹ýÂËÀ´·ÀÖ¹
±©¿â©¶´Ôõô·ÀÖ¹
»¹ÓÐÈËÉÏ´«µÄľÂíÊÇ.gif
ÕâÖÖ©¶´Ôõôȥ± ......
´ó¼ÒºÃ£¬ÎÒÏÖÔÚÓÐÒ»¸öÓÃaspдµÄÁÄÌìÊÒ£¬ÏÖÔÚµÄÏëÌí¼ÓÒ»¸ö¹¦ÄÜ£¬¾ÍÊǵ±ÓÐÈËÉÏÏßµÄʱºò£¬·¢³öÌáʾ£¬±ÈÈçÉùÒôÏìһϣ¬ÏÖÔÚÏëÓÃjavaʵÏÖÕâ¸ö¹¦ÄÜ£¬ÇëÎÊ´ó¼ÒÔõôʵÏÖ£¿
ллÁË£¬ÎÒ»á¼Ó·ÖµÄ
aspºÍjavaÕûºÏµ½Ò»ÆðÈ¥£¿ºÎ±Ø ......
<a href="../Help/HelpCenter.aspx?artsub=ÁªÏµÎÒÃÇ"target="_blank">
½øÐд«µÝ
string Name = "ÖÐÎIJÎÊý";
Response.Redirect("B.aspx?Name="+Ser ......
1.ÏÖÔÚϵͳÊÇ64λµÄserver2003£¨web·þÎñÆ÷IIS6.0£©×°µÄÊÇ10gµÄoracle¿Í»§¶Ë¡£
2.Êý¾Ý¿â·þÎñÆ÷ͬÑùÊÇ32λµÄserver2003µÄoracle10g¡£
3.web·þÎñÆ÷ÉÏÓÃsqlplus·ÃÎÊÊý¾Ý¿â-Õý³££»
vs2008ÄÚ²¿½¨Á¢Êý¾ÝÔ´£¬·ÃÎÊ ......