易截截图软件、单文件、免安装、纯绿色、仅160KB

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


相关文档:

Asp全选代码


<script language="javascript">
function CheckAll(form)
{ ///定义函数checkall,参数为form
for (var i=0;i<form.elements.length;i++)
///循环,form.elements.length得到表单里的控件个数
{
///把表单里的内容依依付给e这个变量
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = for ......

asp vb.net 在线统计 简单版本 和精确版本

 简单
在Global.asa文件中加入如下的代码:
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时,设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
......

asp jsp代码

 探索软件工作室长期专业承接中小型商业软件或网站,最优惠的价格和高质量的服务期待您的惠顾!
本工作室承接 JSP ASP  VB  PB  LotusNotes 等语言要求的应用系统开发业务
java jsp实战源程序代码:
                ......

如何清理asp站点缓存的代码

 <%
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 ......

asp jsp实战代码

 探索软件工作室长期专业承接中小型商业软件或网站,最优惠的价格和高质量的服务期待您的惠顾!
本工作室承接 JSP ASP  VB  PB  LotusNotes 等语言要求的应用系统开发业务
java jsp实战源程序代码:
                ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号