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
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......
ÎÒÓÐÒ»¸öaspÔ´Â룬µ«ÊdzöÏÖÒ»¸öÎļþ£¬ÎÒÓÃasp½âÃܶ¼ÊÇÂÒÂë
Çë½Ì
VBScript code:
??
%# , #&')*)-0-(0%()(?
(((((((((((((((((((((((((( ......
ÎÒ°ïѧУ×öÁËÒ»¸öÕ¾£®
ÔÚÐ£Ô°ÍøµÄÇé¿öÏ£¬Äܹ»µÇ½³É¹¦£¬ºǫ́ÕʺŶ¼ÄÜͨ¹ý£¬½øÈëºǫ́
µ«ÊÇÔÚÍâÍø£Á£ÄµÄÇé¿öÏ£¬Äܹ»µÇ½ºǫ́µÄÒ³Ãæ£¬Ò³ÃæÊÇ£Á£Ó£ÐÎļþ£®
µ«ÊÇÊäÈëÕʺźÍÃÜÂëµÄʱºò£¬ÍøÒ³ÔËÐкܾö¼ ......
Çë¸÷λ¸ßÊÖ°ï½â¾ö,¼±!!!
<script language="JavaScript" type="text/javascript">
function CheckInput(){
if (document.frm.loginname.length =0){
alert('ÇëÕý ......