Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÖе÷Óôø²ÎÊýÊä³öµÄCOM½Ó¿Ú

 COM½Ó¿ÚVCʵÏÖ,½Ó¿Ú:
[id(1), helpstring("method Test")] HRESULT Test([in] BSTR strInputA, [in] BSTR strInputB, [out,retval] VARIANT* result);
ASPµ÷Óãº
Set   objCompInfo   =server.CreateObject("×é¼þÔÚϵͳÖеÄÃû×Ö")  
      result=objCompInfo.Test(arrIn,arrout)   
"×é¼þÔÚϵͳÖеÄÃû×Ö" ¸ÃÖµÔÚVCÏîÄ¿ÖеÄrgsÎļþÖпÉÒÔÕÒµ½


Ïà¹ØÎĵµ£º

ÔÚxpϵͳϰ²×°iis²¢Çҳɹ¦µÄÔËÐÐaspÎļþ

1.ÔÚÎҵĵçÄÔÓÒ¼üµÄ”¹ÜÀí“ÖÐÕÒµ½“±¾µØÓû§ºÍ×锣¬È»ºóµ¥»÷”Óû§“£¬ÔÚÓұ߻ῴµ½Ò»¸ö½Ð"IWAM_20020101-0024"µÄÓû§£¬ÕâÊÇiiis°²×°Ê±×Ô¼º´´½¨µÄÄÚÖÃÕË»§£¬µãÓÒ¼ü“ÉèÖÃÃÜÂ딣¬µã¼ÌÐø£¬È»ºóÊäÈë“ÐÂÃÜÂ딺͓ȷÈÏÃÜÂ딡£“IWAM_20020101-0024&rdqu ......

ÓÃASPʵÏÖ¶þ¼¶ÓòÃû

 






ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......

ASPÈ¡²»Öظ´µÄËæ»úÊý

dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next

for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")

tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubou ......

ÖµµÃÊղصÄһЩASP´úÂë

1. oncontextmenu="window.event.returnvalue=false" ½«³¹µ×ÆÁ±ÎÊó±êÓÒ¼ü
<table border oncontextmenu=return(false)><td>no</table> ¿ÉÓÃÓÚTable
2. <body onselectstart="return false"> È¡Ïûѡȡ¡¢·ÀÖ¹¸´ÖÆ
3. onpaste="return false" ²»×¼Õ³Ìù
4. oncopy="return false;" oncut="return f ......

ʹÓÃASPÑéÖ¤emailÓÊÏ䵨ַ

<%
'true=ÊÇÓʼþ;false=²»ÊÇ;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'************************ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ