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ÎļþÖпÉÒÔÕÒµ½
Ïà¹ØÎĵµ£º
ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......
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 ......
<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
´ò¿ªÊý¾Ý±í..²»Ð´Á˹þ.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql, ......
Ò»¡¢ÐÞ¸ÄIISÉèÖã¬ÔÊÐíÖ±½Ó±à¼ÅäÖÃÊý¾Ý¿â
¶þ¡¢ÏÈÔÚ·þÎñÀï¹Ø±Õiis admin service·þÎñ
ÕÒµ½windows\system32\inetsrv\ϵÄmetabase.xml,
´ò¿ª£¬ÕÒµ½ASPMaxRequestEntityAllowed °ÑËûÐÞ¸ÄΪÐèÒªµÄÖµ£¬Ä¬ÈÏΪ204800£¬¼´200K °ÑËüÐÞ¸ÄΪÄãËùÐèµÄ´óС¼´¿É¡£È磺512000£¨500k£©
È»ºóÖØÆôiis admin service·þÎñ¡£ ......
<%
'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
'************************ ......