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
Ïà¹ØÎĵµ£º
´´½¨Ö¸¶¨µÄÎļþÃû²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔʹÓÃÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁд¡£
object.CreateTextFile(filename[, overwrite[, unicode]])
²ÎÊý
object
±ØÑ¡ÏӦΪ FileSystemObject »ò Folder ¶ÔÏóµÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷ËùÒª´´½¨ÎļþµÄ×Ö·û´®±í´ïʽ¡£
overwrite
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã ......
¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......
<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>¿ªÊ¼Ö´ÐÐÇåÀíµ±Ç°Õ¾µã»º´æ</b>£º")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInf ......
Ò³Ãæ×Ô¶¯Ë¢Ð´úÂë´óÈ«£¬»ù±¾ÉÏËùÓÐÒªÇó×Ô¶¯Ë¢ÐÂÒ³ÃæµÄ´úÂë¶¼ÓУ¬´ó¼Ò¿ÉÒÔ×ÔÓÉ·¢»Ó×ö³öÍêÃÀµÄÒ³Ãæ¡£
1)
10±íʾ¼ä¸ô10ÃëË¢ÐÂÒ»´Î
2)
<script>
window.location.reload(true);
</script>
Èç¹ûÊÇÄãҪˢÐÂijһ¸öiframe¾Í°Ñwindow¸ø»»³ÉframeµÄÃû×Ö»òIDºÅ
3)
<script>
window.navigate("±¾Ò³Ãæurl"); ......
Function WriteToUTF(content,sFilen)'contentÎªÌæ»»ºóµÄ×Ö·û´®,filenameΪÉú³ÉµÄÎļþÃû
dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
&nb ......