ASPµ÷ÓÃORACLEº¯ÊýµÄÎÊÌâ
º¯ÊýµÄ°üÍ·ÈçÏÂ.
create or replace package ITOSC_ACCESS IS
FUNCTION CALLSERVICE(SerialNo varchar2,inValue in out nocopy varchar2,outValue out sys_refcursor,hint out nocopy varchar2,error out nocopy varchar2) return pls_integer
ASPµ÷ÓõĴúÂëÈçÏÂ:
const connstr_xcjg="Provider=OraOLEDB.Oracle;Password=call0901;User ID=service;Data Source=dss;Persist Security Info=True"
dim cn
dim rs
dim cm
dim XmlHtml
dim syr
dim sfzmhm
set cn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
set cm=server.CreateObject("adodb.command")
cn.ConnectionString = connstr_xcjg
cn.open
Set cm.ActiveConnection = cn
cm.CommandType = 1
cm.commandtext = "{? = Call itosc_access.callservice(?,?,?,?)}"
cm.Parameters.Append cm.CreateParameter("l_request",3,4)
cm.Parameters.Append cm.CreateParameter("SerialNo",200,1,256,"1234567891")
cm.Parameters.Append cm.CreateParameter("inValue",200,1,256,",02,B6E228,")
cm.Parameters.Append cm.CreateParameter("hint",200,2,256)
cm.Parameters.Append cm.CreateParameter("error",200,2,256)
set rs = cm.Execute()
cn.close
´íÎóÐÅÏ¢:wrong number or t
Ïà¹ØÎÊ´ð£º
conn.asp
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......
<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=")
......
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
½¨ÁËÒ»¸öÕ¾µã£¬ÀïÃæÓÐ login.aspx. events.aspx µÈµÈ ÆäËûµÄÒ³Ãæ¡£
µ«ÊÇÎÒµ÷ÊÔ ÆäËûÒ³ÃæµÄʱºò£¬±Ä³öÀ´µÄ×ÜÊÇ login.aspx Ò³Ãæ¡£
¸Õѧasp ÇëÖ¸½Ì
ÄãÉèÖÃÆðʼҳÁ˰ɡ£¡£
¶÷ÔõôȡÏûÄØ£¿
Òªµ ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......