XYZ's Blog

最开始学习web开发是从asp开始的，用asp完整写一个属于自己的博客，那时候的asp还没有这么落魄，但随着web的发展，asp越来越不待见了。以前常想，有没有一些程序可以精简到只有一个文件，就实现了所有功能呢，于是就上网开始找一些源码发现确实是有的，有一些单文件的asp cms程序，但是显得太过臃肿，执行效率确实不是太高。后来对所谓的单文件也就不再那么执着，尤其是接触到seo之后，再后来开始转战php，这件事情就基本淡忘了。

直到前段时间，这个念头又开始冒出来了，说是前段时间，其实已经是半年前的事情了，2016年3月左右吧，于是趁着空余时间，自己动手写了一个。但是也和以前的理念有所改变了，追求精简，但不再强迫于是否单文件。

1. 开发语言为asp，数据记录在xml文件上，通过asp操作xml实现。
2. 主体文件为index.asp，配置文件为config.asp，防跨域及安全文件为safe.asp，数据文件为list.asp，功能包括发布文章、删除文章、编辑文章，设置博客参数等。
3. 集成轻量级xheditor编辑器。
4. 无图片上传功能。
5. html5开发，自适应移动端。

至于执行效率如何，需要大量数据才能验证了。

嗯，今天被吩咐说往公司的网站添加一些功能。大致的意思是说现在公司的网站有一个提问模块，但提问的人不是很多，所以公司希望自己在后台作弊一下，内部人员添加数据，但如果一条一条的在网站上面添加，这种做法无疑是费时不讨好的，于是上司就吩咐说，做一个txt导入到access数据库的方法，那么只要在txt里边预先输入好数据，到时候一次过导入即可。

首先我们先要准备一份格式如下的txt文档（test.txt）

1,佛大,地址：江湾一路18号
2,佛山大学北院,地址：大沥仙溪湖畔
这里说明一下我自己的定义：第一列是排序数字，第二列是建筑物的名称，第三列是建筑物的地址
接下来就是ASP文件（do.asp）的代码了，既然和其他文档有关，那么代码用到的自然是fso组件的代码了

<%
filespec=server.mappath("/test.txt")

Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i=0
Do While theFile.AtEndOfStream <> True
session("row"&i) = theFile.ReadLine
i=i+1
Loop
theFile.Close
ReadEntireFile = retstring
for j=0 to i-1
arry=split(session("row"&j),",")
'arry(0),arry(1),arry(2)

response.write session("row"&j)+"〈br>"
next

%>

输出的结果是：
1,佛大,地址：江湾一路18号
2,佛山大学北院,地址：大沥仙溪湖畔
原理很简单
首先通过OpenTextFile方法，以只读的方式打开test.txt文档
然后通过AtEndOfStream判断指针是否到达了文档的结尾，如果没有到达结尾，就用ReadLine来循环读取文档的每一行。然后用split将每一行以“,”为分隔符转为数组，再输出就可以了。

当然我们还没有达到我们的目的，就是写入Access，其实只要加一些代码就可以实现了，参考代码如下

<%
set rs=server.createobject("adodb.recordset")
sql="select * from [table]"
rs.open sql,conn,1,3

ofile=request("file")
filespec=server.mappath(ofile)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i=0
Do While theFile.AtEndOfStream <> True
session("row"&i) = theFile.ReadLine
i=i+1
Loop
theFile.Close
ReadEntireFile = retstring
for j=0 to i-1
arry=split(session("row"&j),",")
rs.addnew()
rs(0)=arry(0)
rs(1)=arry(1)
rs(2)=arry(2)
rs.update()

next

rs.close
set rs=nothing
%>

在php方面smarty可以说是十分成熟了，完全的代码和模板分离，而且支持php代码，相对来说来说，asp在模板技术方面相对来说要贫乏一些，当然也不是没有，比如国内的asp cms（如科讯、新云等）也有使用各自的模板技术，但好像都不是太相同，这里介绍一下一个asp模板类AspTemplate。

正式介绍这个asp类之前，你可以参考阅读这篇文章《ASP生成静态页面》，文章介绍了asp如何去生成静态页面，当中涉及到标签的替换，这是最简单的模板技术吧。

但细心的人或许会发现，这样做未免有些繁琐，比如我要像动态页面那样，只需包含一个通用的头部文件就可以了，但前文的生成静态页面明显达不到这样的要求，而且作循环输出也比较麻烦，而AspTemplate则可以帮助我们解决这些问题。

- more -

做网站已经有一段时间了，虽然自我感觉不咋滴，但基本的问题还是可以应付滴，尤其是经历了阿里同盟这间比较令人无语的网络公司之后，在职期间一直都是做企业网站，虽然入职第一个做的是商城系统，但直到我离职的时候这个网站都还没有正式投入使用，客户是老板的一个朋友吧，做这个网站的时候基本和我“沟通”到深夜一两点，遇见这等热心的可客户，对我这个新手加菜鸟来说是有点鸭梨了，最后是勉强完成了任务，至于为什么至今还没投入使用网站就不得而知了，既然离职了，也就没我鸟事了。

啊，偏题了，是的，说回企业网站，当时阿里同盟代理了阿里巴巴的一个软件，叫做“e网打进”，就是在网站插入一段js代码，如果客户在浏览这个网站的时候，同时如果客户本身有登陆阿里旺旺的话，那么，在“e网打进”的后台就可以看到客户在阿里旺旺上面登记的信息，包括地址、电话等等信息，从而网站所有者可以主动联系客户，寻找商机。个人觉得这样是阿里巴巴在出卖客户的私隐了- -，因为‘e网打进”是要有网站才能使用的，所以当时在阿里同盟的时候就做了大量的企业网站，印象中世一个月做了五十个，当然基本上是垃圾级别，没什么质量可言，新的知识没学到什么，但是却大大加快了自己做网站的速度。

- more -