ASPº¯ÊýÖ¸ÕëÊÔ̽£GetRef
¡¡¡¡½üÈÕÔÚѧϰC++£¬¿´µ½º¯ÊýÖ¸Õ룬ÓÉÓÚ֮ǰһֱ¸ãASP£¬ËùÒÔÏëASPÀïÃæÊÇ·ñÒ²ÓÐÕâ¸öº¯ÊýÖ¸ÕëµÄ¶«Î÷£¬°Ù¶ÈÁËһϣ¬Ã»ÓÐÌ«¶à¹ØÓÚ´Ë·½ÃæµÄ½éÉÜ£¬ÓÚÊÇ·ÁË·VBScriptÊֲᣬûÈÃÎÒʧÍû£¬ÕÒµ½ÁËGetRefÕâ¸öº¯Êý£¬ÒýÓÃÊÖ²áÉϵÄ˵Ã÷£º
GetRef º¯Êý
·µ»ØÒ»¸öÖ¸ÏòÒ»¹ý³ÌµÄÒýÓ㬴˹ý³Ì¿É°ó¶¨Ä³Ê¼þ¡£
Set object.eventname = GetRef(procname)
²ÎÊý
object
±ØÑ¡ÏʼþËù¹ØÁªµÄ¶ÔÏóµÄÃû³Æ¡£
eventname
±ØÑ¡Ïî¡£ÒªÓ뺯Êý°ó¶¨µÄʼþµÄÃû³Æ¡£
procname
±ØÑ¡Ïî¡£¸Ã×Ö·û´®Öаüº¬ Sub »ò Function ¹ý³ÌµÄÃû³Æ£¬¸Ã¹ý³ÌÓëʼþ¹ØÁª¡£
˵Ã÷
GetRef º¯Êý¿ÉÒÔÓÃÀ´½« VBScript ¹ý³Ì (Function »ò Sub£© Óë DHTML (¶¯Ì¬ HTML)Ò³ÃæÖпÉÓõÄÈκÎʼþÁªÏµÔÚÒ»Æð¡£DHTML ¶ÔÏóÄ£ÐÍΪ²»Í¬¶ÔÏóÌṩÁËÓë¸÷ÖÖ¿ÉÓÃʼþÓйصÄÐÅÏ¢¡£
ÔÚÆäËû½Å±¾ºÍ³ÌÐòÉè¼ÆÓïÑÔÖУ¬GetRef ËùÌṩµÄ¹¦Äܱ»³ÆÎªº¯ÊýÖ¸Õ룬¼´ËüÖ¸ÏòÁËÔÚÖ¸¶¨Ê¼þ·¢ÉúʱҪִÐеĹý³ÌµÄµØÖ·¡£
ÏÂÃæµÄÀý×Ó˵Ã÷ÁË GetRef º¯ÊýµÄʹÓãº
<SCRIPT LANGUAGE="VBScript">
Function GetRefTest()
Dim Splash
Splash = "GetRefTest Version 1.0" & vbCrLf
Splash = Splash & Chr(169) & " YourCompany 1999 "
MsgBox Splash
End Function
Set Window.Onload = GetRef("GetRefTest")
</SCRIPT>
´ó¸ÅÒâ˼ÊÇΪ°ó¶¨Ê¼þËùÓã¬ÒòΪ±¾È˶ÔASPÖÐʼþÁ˽ⲻ¶à£¬ËùÒÔÔÚÕâÀï¶ÔGetRefºÍʼþµÄ¹ØÏµÒ²²»×ö¹ý¶àµÄÌÖÂÛ¡£ÕâÀïÖ»Ñо¿ÏÂWEB¿ª·¢Ó¦ÓÃÖÐGetRefµÄÓô¦¡£
ÔÚPHPÀïÃæ£¬PHP²»Ö§³ÖÖ¸Õ룬Òò´ËÎÞ·¨Ê¹Óú¯ÊýÖ¸ÕëÕâÒ»¼¼Êõ¡£PHPÖ§³ÖËùνµÄ“º¯Êý±äÁ¿”£¬¿ÉÒ԰Ѻ¯Êý¸³Óèij¸ö±äÁ¿£¬Æä×÷ÓÃÀàËÆÓÚº¯ÊýÖ¸Õë¡£
¼òµ¥µãµÄÀý×Ó:
PHPÀïÃæ¿ÉÒÔÕâô×ö
<?php
$funcname = "cutstr";
echo $funcname();
function cutstr() {
return "function";
}
?>
ÓÐÁËGetRef£¬ÀàËÆÉÏÃæµÄ¹¦ÄÜASPÒ²¿ÉÒÔʵÏÖ£º
<%
dim funcname
funcname = "cutstr"
response.Write(getref(funcname))
function cutstr()
cutstr = "function"
end function
%>
ʵ¼ÊÓ¦Óãº
ÔÚ×öºǫ́¹ÜÀíµÄÏîĿʱ£¬±ÈÈçÐÂÎÅÌí¼Ó£¬É¾³ý£¬Ð޸ģ¬µÈ²Ù×÷ÔÚͬһ¸öÒ³Ãæ´¦Àí£¬Ò»°ãÎÒÃÇ»áÔÚformÀïÃæ²åÈëÒ»¸öÒþ²ØÓòaction£¬»òÕßurl²ÎÊýaction£¬¸ù¾ÝactionµÄÖµÀ´ÅжϲÙ×÷ÄÄÒ»²½¡£Í¨³£Õâôд£º
select case request.querystring("action")
case "add" : 'Òª²Ù×÷µÄ´úÂë¶Î....
 
Ïà¹ØÎĵµ£º
ǰÑÔ£º
²»ÉÙÈ˶¼ÍƳçѧϰ±à³Ì×î¼Ñ·½Ê½ÊÇÔÚʵ¼ÊÏîÄ¿ÖÐÄ¥Á·£¬Í¨¹ý½â¾öÏîÄ¿ÖеÄÒ»¸ö¸öʵ¼ÊÎÊÌ⽫Ïà¹ØµÄ֪ʶµãѧÒÔÖÂÓá£×÷Ϊ¸Õ¸ÕÂõÉϱà³Ì/web¿ª·¢×Ôѧ֮·µÄÐÂÊÖ£¬ÎÒ±ã´òË㽫¸Ãѧϰ·½Ê½¼ÓÒÔʵ¼ù£¬²¢Í¨¹ý²©¿Íƽ̨¼Ç¼×Ô¼ºµÄѧϰµãµÎ¡£
ÎҵĵÚÒ»¸öʵ¼ùÏîÄ¿±ãÊÇÁôÑ԰壬֮ËùÒÔÑ¡ÔñASP+AccessÊÇÒòΪ¼òµ¥Ò×Óã¬Èç¹ûÒ»ÇÐ˳Àû´ýÉÏ ......
¡¡J2MEÊÇÀûÓÃHttpConnection½¨Á¢HTTPÁ¬½Ó£¬È»ºó»ñÈ¡Êý¾Ý£¬ASPÒ²ÊÇÀûÓÃHTTPÐÒé
£¬Òò¶ø¿ÉÒÔÀûÓÃJ2MEÓëASP½¨Á¢Á¬½Ó£¬´Ó¶ø·ÃÎÊÊý¾Ý¿â¡£
¡¡¡¡ASPÊÇMicroSoft¹«Ë¾µÄ·þÎñÆ÷
¶Ë¶¯Ì¬Ò³Ãæ¼¼Êõ£¬¿ÉÒÔ¸ù¾ÝÇëÇóÔËÐзþÎñÆ÷
¶Ë³ÌÐòÈ»ºó·µ»Ø½á¹û£¬ÕâÒ²¸øMIDPÌṩºÜ¶àÓÐÓõŦÄÜ¡£ÓÉÓÚMIDP¿Í»§¶Ë´¦ÀíÄÜÁ¦²»Ç¿£¬Òò´Ë¿ÉÒÔ°ÑһЩ´¦ÀíÈÎÎñ·Å ......
ASPÓëJSPµÄ±È½Ï
¡¡¡¡´Ó΢ÈíÍÆ³öÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌØµã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆä¹¦ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java
ServerPages)Ê ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
Îļþ1.ÉÏ´«½çÃæÎļþ upload.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÎļþÉÏ´«</title>
</head>
......