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ÎļþÖпÉÒÔÕÒµ½
Ïà¹ØÎĵµ£º
1.ÔÚÎҵĵçÄÔÓÒ¼üµÄ”¹ÜÀí“ÖÐÕÒµ½“±¾µØÓû§ºÍ×锣¬È»ºóµ¥»÷”Óû§“£¬ÔÚÓұ߻ῴµ½Ò»¸ö½Ð"IWAM_20020101-0024"µÄÓû§£¬ÕâÊÇiiis°²×°Ê±×Ô¼º´´½¨µÄÄÚÖÃÕË»§£¬µãÓÒ¼ü“ÉèÖÃÃÜÂ딣¬µã¼ÌÐø£¬È»ºóÊäÈë“ÐÂÃÜÂ딺͓ȷÈÏÃÜÂ딡£“IWAM_20020101-0024&rdqu ......
ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......
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 ......
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 ......
<%
'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
'************************ ......