其实企业网站源码分享asp的问题并不复杂，但是又很多的朋友都不太了解简洁企业网站源码，因此呢，今天小编就来为大家分享企业网站源码分享asp的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！
上一节主介绍了数据库内部表的格式设定及其注意事项，在最后向大家提供了2张图片，分别是存储导入数据的表的格式和存储数据后表的内容图片。下面首先简要介绍该数据库表内主要字段的存储格式及内容说明。
0.project_code:项目代码
1.unitproject_code：单位工程代码
2.project_name：项目名称
3.unitproject_name：单位工程名称
4.subproject_code：单项工程代码
5.subproject_name：单项工程名称
6.material_code：物资代码
7.material_name：物资名称
8.unit：单位
9.num：数量
10.price：价格
下图所示，是需要导入数据的电子表格模板。
其中：
①是项目编码
②是项目名称
③物资编码
④物资名称
⑤物资计量单位
⑥物资的数量
⑦物资的价格
下图是在模板上填写的要导入的数据。
说明：
上图所示的项目编码，实际使用时应按规则输入位数是12位，该示例为方便，仅填写6位。12位编码按不同位的数字表示不同的项目代码，如单位工作，单项工作和工序过程等，这是在编程设计之前就设定好的。
上图所示的项目名称，用“_”号分开成三段，按不同项目名称由ASP脚本区分开来，写入不同的数据表的字段中。详细的见下面的源代码。
下图是导入数据后的数据库表。
ASP实现写入功能在操作上需要分两步：
第一步利用ASP脚本将Excel文件数据读入，并存储到服务器的相应位置，形成一个新的Excel电子表格文件，与上传选中的电子表格文件一模一样；
第二步利用ASP脚本将这个新上传的Excel电子表格文件的内容逐行读出并写入到对应的数据库表中。
这两步由下面的代码实现，下面给出了导入数据ASP文件的原代码，仅供有兴趣的朋友参考：
<%@LANGUAGE=”VBSCRIPT”CODEPAGE=”936″%>
<!–includefile=”conn.asp”–>
<!–666666;
}
–>
</style>
</head>
<body>
<%
session.CodePage=936
Server.ScriptTimeOut=12000
setupload=newupload_5xsoft
setfile=upload.file(“file1”)
iffile.fileSize>20480000then’200K
%>
<script>
alert(“您选择的文件过大!”);
window.close();
</script>
<%
response.end
endif
iffile.fileSize>0andfile.fileSize<20480000then
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
filename=filename+”.”
filenameend=file.filename
filenameend=split(filenameend,”.”)
iffilenameend(1)=”xls”then
filename=filename&filenameend(1)
file.saveAsServer.mappath(“uploadfile/”&filename)
else
response.write”数据格式不对！”
response.write”<ahref=upload.asp>返回</a>”
response.end()
endif
setfile=nothing
else
response.write”文件不能为空或者文件超过大，超过系统限制！”
response.write”<ahref=upload.asp>返回</a>”
response.end()
Endif
setupload=nothing
‘上传XLS文件结束，下面从上传的XLS文件中读取数据写入到SQL数据库
strAddr=server.MapPath(“uploadfile/”&filename)
setexcelconn=server.createobject(“adodb.connection”)
excelconn.open”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”+strAddr+”;ExtendedProperties=’Excel8.0;HDR=NO;IMEX=1′”
sql=”select*from[Sheet1$]”
setrs0=server.CreateObject(“adodb.recordset”)
rs0.opensql,excelconn,1,1
setrs=server.CreateObject(“adodb.recordset”)
setrs1=server.CreateObject(“adodb.recordset”)
sql=”select*from[Sheet1$]”
rs.opensql,excelconn,1,1
ifnot(rs.bofandrs.eof)then
rs.movenext
dowhilenotrs.eof
sql1=”select*from[Yyf_Material]whereidisnull”
rs1.opensql1,conn,1,3
rs1.addnew
rs1(“project_code”)=rs(0)
rs1(“unitproject_code”)=left(rs(0),4)
project_name=rs(1)
names=Split(project_name,”_”)
rs1(“project_name”)=names(0)
rs1(“unitproject_name”)=names(1)
rs1(“subproject_name”)=names(2)
rs1(“subproject_Code”)=left(rs(0),6)
rs1(“material_Code”)=rs(2)
rs1(“material_name”)=rs(3)
rs1(“unit”)=rs(4)
rs1(“num”)=formatnumber(rs(5),3)
rs1(“price”)=formatnumber(rs(6),2)
rs1(“switch”)=true
rs1.update
rs1.close
rs.movenext
loop
endif
rs.close()
setrs=nothing
setrs1=nothing
excelconn.Close()
setexcelconn=nothing
conn.close()
setconn=nothing
%>
<script>
alert(“数据导入成功！”);
window.parent.document.location.reload();
history.back();
</script>
</body>
</html>
这部分代码已经过测试，或者说现在正在使用，没有做任何技术处理。若需要交流，请关注，在评论区进行互动。
最后欢迎大家多提宝贵意见，以共同提高。
ASP脚本设计虽然古老，但仍然在广泛使用，尤其是小型系统，流量要求不高，但可实现相应功能的应用程序，尤其是小型企业，最为适用。比如说我设计的《生产经营管理信息系统》，就涵盖了物资管理的所有应用，包括入库，出库，经营分析与统计，形成报表，导入、导出数据，能为企业管理者提供相应的所有物耗数据。
计算机语言在飞速发展，可能我们永远也跟不上先进的，我认为我的学习是适用，学以至用即可。同时ASP简单易学，门槛低，如同当年的Basic语言一样，也可做为学习其它更流行语言的基础，也未偿不是一个好的途径。
下面几节，将着重介绍数据的导出操作并给出实现该功能的脚本源码。
关于企业网站源码分享asp到此分享完毕，希望能帮助到您。