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"
Ïà¹ØÎÊ´ð£º
function CheckOpwd(){//ÑéÖ¤Óû§Ãû
var pwd=document.all.txtOpwd;
var div1=document.getElementById("divPwd");
if (pwd.value=="")
{
......
Microsoft JET Database Engine '80040e07'
±ê×¼±í´ïʽÖÐÊý¾ÝÀàÐͲ»Æ¥Åä¡£
\wwwroot\update.asp, line 20
--------------------------------------------------------------------------------
Ho ......
ÏÖÓÐÒ»¸ö±í¸ñ£¬ÓкܶàÐÐÊý×é¡£
ÏëÒªÒ»¸ö½Å±¾£¬¶ÁÈ¡ËùÓÐÐеÄÊý×éºóÊä³ö¡£
Êä³öÇ°²»ÏÔʾÕý³£Ë³ÐòµÄ±í¸ñÊý×飬¶øÖ±½ÓÏÔʾ³ö¶ÁÈ¡ºóµÄÊý×é¡£
Â¥Ö÷µÄ±í´ïʵÔÚ³ÉÎÊÌ⣡£¡
ÊDz»ÊÇÕâ¸öÒâ˼£¿
<%
Dim ArrDNA£¨10£¬10£ ......
ÎÒ×î½ü×öÁËÒ»¸öÍøÕ¾ÊǹØÓÚ²úƷչʾµÄ ~ Õû¸öÍøվͼƬ¶¼Õ¼ÓÃÁËÒ»´ó°ë
ÕâÑùµÄ»°·ÃÎÊËٶȾͷdz£Âý ÓÐʲô°ì·¨¿ÉÒÔ½â¾öÂð£¿
Âé·³´ó¼Ò¶à¶à¸øµãÒâ¼û £¡ ÓÐʲô¾¡¹Ü˵
3Q´ó¼Ò
htmlÒ³Ãæ.
Õâ¸ö,¼ÈÈ»Ö÷Ò ......
ÔÚPHPÖÐÓÐûÓÐÏñASPÖеļǼ¼¯(ADODB.Recordset )ÕâÖÖÀàÐ͵ĶÔÏó?¿É²»¿ÉÒÔÏñÔÚASPÖÐÒ»Ñùͨ¹ý¼Ç¼¼¯À´¸üÐÂÊý¾Ý¿â.ÈçÏÂÃæÕâÑù.
VBScript code:
set rs=server.createobject("adodb.recordset")
......