编程(ASP)
Sep 17

Netbox的使用方法,让你不用IIS也可以运行asp文件

之前和大家介绍过APMServ5.2.6 来运行asp 环境,无需安装IIS ,
现在介绍一个更简单的方法建立ASP 的运行环境。
Netbox ,官方网站http://www.netbox.cn:88/default.htm
优点:相当于小型IIS,体积小,纯绿色,即开即用。
目前NetBox 有两个版本,NetBox2.0 和NetBox2.8
可以到网上下载免费的绿色版本。
运行是一般需要两个文件:一个是主程序,一个是配置文件,使用时需要先修改一下配置文件

NetBox2.8 下载地址:http://dl.dbank.com/c0qxzokqby
**********************************内部分为 main.box 文件的内容(可以通过下载官方的内容,安装后在安装的目录Samples下右很多的例子,
单击其中一个,复制main.box 来修改端口就可以了)
**********************************
Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"

'---------------------- Service Event ---------------------

Sub OnServiceStart()
    Set httpd = NetBox.CreateObject("NetBox.HttpServer")

    If httpd.Create("", 80) = 0 Then
        Set host = httpd.AddHost("", "\wwwroot")

        host.EnableScript = true
        host.AddDefault "default.asp"
        host.AddDefault "default.htm"
        host.AddDefault "index.asp"
        host.AddDefault "index.htm"

        httpd.Start
    else
        Shell.Quit 0
    end if
End Sub

Sub OnServiceStop()
    httpd.Close
End Sub

Sub OnServicePause()
    httpd.Stop
End Sub

Sub OnServiceResume()
    httpd.Start
End Sub

**********************************
红色部分为需要修改的内容:
httpd.Create("", 80)是指使用80端口来开设服务器,80为默认端口,如果不喜欢或者已经被其他软件占用,可以更改为别的!,那么访问地址后面必须加 :端口号 才能正常访问
Set host = httpd.AddHost("", "\wwwroot") 中的www就是你放网站程序的目录。也就是一定要与第二步将建立的目录名称相同!
host.AddDefault "index.asp" | 这些就是指设置默认首页文件,
host.AddDefault "default.htm" | 你可以自己更改,添加删除一行一个

配置运行环境的步骤:
1在你的电脑任意地方新建一个文件夹web,比如 G:\web (这里举例是在d盘下面)
2把netbox安装目录下的netbox.exe复制到d:\web目录下(原文说要复制过来,我没复制也能用)
3在d:\web下新建一个wwwroot文件夹(以后你要测试的文件都要放在wwwroot下面才能显示)
4在d:\web下新建一个main.box文件,文件名任意起,后缀名.box文件内容。可以先创建一个main.txt 的文本文件,然后修改扩展名.txt为.box即可
5测试时,双击运行上面第4步建立的那个.box文件,注意不是netbox.exe!切记!哦
6把要测试的asp文件放在wwwroot下,在地址栏输入http://127.0.0.1:1283 or http://localhost:1283 就可以访问了,其中1283 是您在main.box配置的端口号。
7 在G:\web\wwwroot下新建一个文件index.asp ,简单的编辑里面的内容为:
<%
response.write("这个是一个测试Asp 运行环境的例子,欢迎访问http://www.itlife365.com/bloghttp://www.jiandanjie.com ")

%>

保存。
8 调试运行。
双击刚刚编辑的main.box 文件,此时,系统托盘应该会出现一个红色的.b形状的小图标
打开浏览器,输入http://127.0.0.1:1283或者http://localhost:1283 就可以看到运行结果了。1283是配置的端口号。

9 编译成软件,到其他电脑上可以运行。
安装完Netbox ,在菜单那边执行nbdw.exe(NetBox Deployment Wizard就是部署向导),绿色版就没有这个功能了。
9.1点 选择文件夹 按钮,找到刚才我们建立的目录 d:\web,
9.2 然后点 浏览 按钮,
9.3 输入要生成的执行文件的目录和名称,
9.4 点 Build...,开始编译。

Tags:
Sep 14

本人一直在使用APMServ 5.2.6 作为php的环境,这个软件相当好ASP和PHP环境都可以配置而且相当好用,默认是使用php的,点击启动APMServ,访问用户本地网站就可以了,那如何用它来运行ASP程序,怎么配置ASP环境一直试不行.
网上也没找到,其实APMServ 本身就已经说明的很清楚了。
   运行asp 可以用netbox,只不过是APMServ的话集成了ASP和PHP两个,要方便一些。
其实这个问题,有关这一系列的操作,APMServ说明中都说得很清楚。
1、把程序放到www\asp下,注意是整个目录都放在下面,而不是和php 一样先把它放在一个文件夹里面,然后再访问里面的程序。那样会找不到页面的。报Object not found!
2、勾选下面的asp启用选项,重新启动
3、运行时使用http://主机/asp(主机可以为本地IP地址,也可以为127.0.0.1)
    如有问题欢迎交流,请留言或者发送懂邮箱305347185#qq.com(注:把#换为@)

Tags:
Jun 1
ASPMaker,它提供了一种方便快捷的可视化操作环境,使用者即使没有任何的网络编程经验,只要提供Access数据库或是ODBC数据源,都可以凭借它在五步之内自动生成一个包含查看、搜索、添加、编辑、删除等功能的ASP信息管理程序。
Jun 1
百度fif asp 即可查找到的  ASP 视频教程入门 免费的哦
http://tech.163.com/special/F/000915SN/FIFasp.html
Oct 21

设计思路:用一个记事本counter.txt,并在其中记录访问的次数。每次访问将里面的数字加1并保存。
实现方法:
用FSO打开记事本counter.txt,如果不存在则新建。读取其中的数据,赋值给一个变量,如果不存在则设置初始值为零。将数值写入记事本counter.txt
首先新建一个counter.asp文档,输入下面的代码,单引号后面的是注释
<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("counter.txt")
Set txtr = fs.OpenTextFile(File,1,true)'打开只读文件file,如果不存在则新建
counter=0'将计数器归零
If Not txtr.atEndOfStream Then'先确定还没有到达结尾的位置
Line = txtr.ReadLine '读取一行数据
else
line=0 '否则设置初始值为0
End If
counter=line+1 '计数加1
set txtw = fs.opentextfile(file,2,true) '打开只写文件file
txtw.write counter '写入计数
response.Write("<center>您是第<b>"&counter&"</b>位访客!</center>")
'输出计数
%>

在需要统计和显示计数的地方可以用include的方式引入这个文档。
<!--#include file="counter.asp"-->

但是如果是html之类静态页面,则可以通过script脚本的方式来使用这个简单的计数器。
那么Counter.asp则需要这么写了:

<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("counter.txt")
Set txtr = fs.OpenTextFile(File,1,true)'打开只读文件file,如果不存在则新建
counter=0'将计数器归零
If Not txtr.atEndOfStream Then'先确定还没有到达结尾的位置
Line = txtr.ReadLine '读取一行数据
else
line=0 '否则设置初始值为0
End If
counter=line+1 '计数加1
set txtw = fs.opentextfile(file,2,true) '打开只写文件file
txtw.write counter '写入计数
response.Write("document.write(""<center>您是第<b>"&counter&"</b>位访客!</center>"");")
'输出计数,两个""代表输出一个"
%>
需要引用的html静态页里可以通过Script脚本来使用计数器:
<script src="counter.asp"></script>

FROM:http://www.icoa.cn/a/376.html
 

分页: 1/1 第一页 1 最后页 [ 显示模式: 摘要 | 列表 ]