asp小程序源码,asp 小程序
求极简ASP小程序 本菜鸟在学HTML中的表单时，需要用一个ASP小程序，可本菜鸟对ASP一窍不通。
form action="post"
input type=text name=a value="test" /
input type="submit" name="Submit" value="提交" /
/form
%
if request("Submit") "" then
for each items in request
response.write(items+"br")
next
end if
%
「源码分享」ASP.NET仓库进销存ERP管理系统+小程序源码
开发环境为Visual Studio 2012，数据库为SQL SERVER2012R2，使用.net 4.5开发。
一、源码介绍
所有行业的ERP系统/进销存/仓库系统，该系统为vs2012 .net+MsSQL版，目前标准版功能简单、明了、满足公司正常使用，已有多家企业正常使用，成熟稳定，有需要的可以下载看看。
二、主要功能
1、电商管理（可以和公众号、小程序对接） 微信订单、小程序订单、公众号订单
参数设置：轮播图片设置、分类导航设置、小程序参数设置、公众号参数设置
2、销售管理：销售订单、销售出库
3、采购管理：采购订单、采购入库
4、生产管理：BOM分组、BOM清单、生产计划、生产领料、生产入库
5、仓库管理：其他入库、其他出库、商品组装、商品拆卸、库存盘点、库存调拨
6、财务管理：销售收款、其他收款、采购付款、其他付款、收款核销、付款核销
7、采购报表
采购订单跟踪表 采购明细表 采购汇总表（按商品） 采购汇总表（按供应商）
8、销售报表
销售订单跟踪表 销售明细表 销售汇总表（按商品） 销售汇总表（按客户）
9、生产报表
生产计划跟踪表 生产领料明细表 生产领料汇总表 生产入库明细表 生产入库汇总表
10、仓存报表
商品库存余额表 商品收发明细表 商品收发汇总表
11、资金报表
现金银行报表 应付账款明细表 应收账款明细表
客户对账单 供应商对账单 其他收支明细
12、基础资料
供应商管理 商品管理 仓库管理 账户管理 员工管理 企业号通讯录
工序管理 辅助资料 客户类别 供应商类别 商品类别 商品品牌
收支类别 计量单位 结算方式 工序类别 高级设置 操作日志
参数设置 打印设置 Logo印章
3、默认数据库连接字符串在web.config配置文件中修改
获取源码方式：点赞+转发+关注+私信【进销存ERP】
******************************************************************************
欢迎点赞+转发+关注！大家的支持是我分享最大的动力！！！
******************************************************************************
127.0.0.1不好使,用aspweb.exe好使,这是怎么回事？
我去网上搜了一下，这个aspweb.exe是由NETBOX制作的。
NETBOX是一款国产软件，针对ASP开发的一个程序，可用做服务端也或用做客户端。
在NETBOX里面如果设定了访问域名或IP地址，就必须使用指定的域名或IP地址，
如果没设定的话，可以使用，默认的本机IP地址，或是本机的其它IP地址来访问。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
我把这个aspweb.exe解开，看了一下，它指定了特殊端口为99，而WEB页默认端口是80。所以你在使用127.0.0.1时不能访问，但你使用就可以访问的。你使用aspweb.exe里面的内置菜单，就会打开99端口的那个地址。
－－－－－－－－－－－－－－－
下面赋上这个小程序的源码
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
dim?Port,httpd,ServiceName,name,Description
V="otand.com?V2007.10.22"
if?Port=""?then
Port=99
end?if
Shell.Service.RunService?"aspweb",?"源动力专用代码调试工具??当前端口："Port?,?""
Sub?OnServiceStart()
Set?httpd?=?CreateObject("NetBox.HttpServer")
If?httpd.Create("",?Port)?=0?Then
Set?host?=?httpd.AddHost("",?"\")
host.EnableScript?=?true
host.EnableBrowse?=?true
host.AddDefault?"default.html"
host.AddDefault?"default.htm"
host.AddDefault?"index.html"
host.AddDefault?"index.htm"
host.AddDefault?"default.asp"
host.AddDefault?"index.asp"
Shell.Service.icon?=?"start.gif"
httpd.Start
Shell.Execute?"""C:\Program?Files\Internet?Explorer\IEXPLORE.EXE""?"
end?if
Shell.Service.AppendCommand?111,"查看状态"
Shell.Service.AppendCommand?-1,""
Shell.Service.AppendCommand?-1,""
Shell.Service.AppendCommand?112,"暂停服务"
Shell.Service.AppendCommand?113,"重启服务"
Shell.Service.AppendCommand?-1,""
Shell.Service.AppendCommand?114,"最新代码"
Shell.Service.AppendCommand?115,"代码讨论"
Shell.Service.AppendCommand?116,"工具说明"
End?Sub
Sub?OnServiceCommand(n)
Select?Case?n
case?111
workes?=?httpd.Workers
bytes?=?httpd.totalBytes
works?=?httpd.queueWorks
total?=?httpd.totalWorks
Shell.MsgBox?"服务器输出流量："bytes"?字节?"Chr(13)"服务器己处理任务数："?total??Chr(13)"服务器联机总数："workes??Chr(13)"等待联机任务数："works??,"服务器当前状态?"??V,64
Case?112
'//停止服务
httpd.Stop
Shell.Service.Icon?"pause.gif"
Shell.MsgBox?"己停止，如想运行请点击“重启软件”","源动力专用代码调试工具?"V,64
Case?113
'//重启软件
Shell.MsgBox?"服务将重新启动.","源动力专用代码调试工具"V,64
Shell.Service.Restart
Case?114
'//弹出网站
Shell.Execute?"""C:\Program?Files\Internet?Explorer\IEXPLORE.EXE""?"
Case?115
'//打开源动力论坛
Shell.Execute?"""C:\Program?Files\Internet?Explorer\IEXPLORE.EXE""?"
Case?116
'//关于
Shell.MsgBox?"源动力专用代码调试工具 版本："VChr(13)"发布人：若非???QQ:4732598?版权归netbox所有","源动力专用代码调试工具?"V,64
Case?Else
Exit?Sub
End?Select
End?Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
附件中的程序，是我用NETBOX制作的ASP服务器。你也可以拿来使用，或解包研究
帮忙写个小程序，asp连接excel，需要完整代码。
假设你的数据是D:\1.XLS，工作表是：Sheet1
则连接串：strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\1.xls;Extended Properties=""Excel 8.0;HDR=NO;IMEX=1;"""
查询语句：strRS = "select * from [Sheet1$]"
其中:Excel 8.0
可以根据需要换成:Excel 9.0
或者你将2003格式转换成2000格式
===========================================
代码?数据表名?错误位置?
=================================
那一行你得改成你自己的,而且还要注意2003的驱动版本是9.0:
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="server.MapPath(db)";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1;"""
或者
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="server.MapPath(db)";Extended Properties=""Excel 9.0;HDR=NO;IMEX=1;"""
===================================
注意;Data Source的拼写,中间是有空格的,系统中装没装ACCESS等
===============================================
SELECT语句中的XX_D应该是XX_ID
asp 小程序代码问题！
看到你上面已经给变量h赋值了一个文件名,那是不是可以直接使用这个h呢?
试试这样改吧,不知道是不是你的意图
Set rsInfo = OpenExcel(Server.MapPath("/excel/" h))