as3 Óë ·þÎñ¶ËASP ͨÐÅ
var loader:URLLoader = new URLLoader();
var url:URLRequest = new URLRequest("test.asp");
url.method = URLRequestMethod.POST;
var values:URLVariables = new URLVariables();
values.message="hello im flash!";
url.data = values;
loader.dataFormat = URLLoaderDataFormat.VARIABLES;
loader.addEventListener(Event.COMPLETE,loaded);
function loaded(e:Event) {
out1.text=loader.data;
//outPut: phpMessage=im php message!&flashMessage=hello im flash!
out2.text=loader.data.phpMessage;
// im php message!
out3.text=loader.data.flashMessage;
// hello im flash!
out4.text=loader.data.dbMessage;
}
loader.load(url);
³ÌÐò´úÂë
<%@LANGUAGE="JAVASCRIPT"%>
<%
//½ÓÊÕflash´«½øÀ´µÄÊý¾Ý
var flashData;
flashData = Request("message");
//·¢¸øflashµÄÊý¾Ý
var aspMessage;
aspMessage = 'im asp message!';
//Êý¾Ý¿âµÄÏà¹Ø²Ù×÷
//======================================
var conn;
var rs;
var sql;
var strPath;
strPath="test.mdb";
try{
conn = Server.CreateObject("ADODB.Connection");
conn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(strPath);
conn.open();
}catch(e){
Response.Write('<meta
http-equiv="Content-Type" content="text/html; charset=UTF-8"
/><div style="font-size:12px;font-weight:bold;border:1px solid
#006;padding:6px;background:#fcc">Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë¼ì²éÁ¬½Ó×Ö´®!</div>');
&nb
Ïà¹ØÎĵµ£º
¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......
ÓÃASPʵÏÖSQL SERVERÊý¾Ý¿âµÄÔ¶³Ì¸üÐÂ
½ËÕʡͨÖÝÖ°Òµ¸ß¼¶ÖÐѧ Áõ¼Æºâ
΢ÈíµÄSQL Server ÊÇÒ»¸ö´óÐ͵ĹØÏµÊý¾Ý¿âϵͳ£¬ËüΪÔÚ¸´ÔÓ»·¾³ÏÂÓÐЧµØÊµÏÖÖØÒªÉÌÒµÓ¦ÓÃÌṩÁËÒ»¸öÇ¿ÓÐÁ¦µÄ¿Í»§/·þÎñÆ÷ƽ̨¡£Ëü½áºÏMicrosoft Windows NT²Ù×÷ϵͳµÄÄÜÁ¦£¬ÌṩÁËÒ»¸ö°²È«¡¢¿ÉÀ©Õ¹¡¢Ò×¹ÜÀí¡¢¸ß¶ËÐÔÄܵĿͻ§/·þÎñÆ÷Êý¾Ý¿âƽ̨¡£Õ ......
<%
'//////////// GPS£ºGet Picture Size //////////////
'//////////////ÀûÓÃADODB.stream»ñȡͼƬ³ß´ç//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......
×¢Ò⣺ϵͳÐèÒªFSOȨÏÞ¡¢XMLHTTPȨÏÞ
ϵͳ°üÀ¨Á½¸öÎļþ£¬Æäʵ¿ÉÒԺϲ¢ÎªÒ»¸ö¡£Ö®ËùÒÔ·ÖΪÁ½¸öÊÇÒòΪ²¿·Öɱ¶¾Èí¼þ»áÒòΪÀï±ßº¬ÓÐFSO¡¢XMLHTTP²Ù×÷¶ø±»ÈÏΪÊǽű¾Ä¾Âí¡£
µ÷ÓÃʱ£¬ÐèÒªÔÚASPÒ³ÃæµÄ×îÉϱ߰üº¬Ö÷Îļþ£¬È»ºóÔÚϱßдÏÂÒÔÏ´úÂë
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 &n ......
ASPͨ¹ýcookieʵÏÖ×Ô¶¯¼ÇסÃÜÂëµÄ¹¦ÄÜ
°ÑÒÔÏ´úÂë¼ÓÈëÑéÖ¤Ò³£º
<%if Trim(Cstr(request.QueryString("check")))="true" then ‘ÓÃÀ´ÅжÏÊÇ·ñÓÐÑ¡Ôñ¼ÇסÃÜÂë
Response.Cookies("UserCookie")("username") = Trim(Cstr(request.Form("username")))
Response.Cookies("UserCookie")("passwords") = trim ......