Salad UN

这样应该能晾干吧？


...

1.专心
他可以为自己的爱好付出一切精力。将来，他也一定会有自己热爱的事业。
2. 不服输
想要在＜星际争霸＞游戏的男性里找一个容易服输的人很难。游戏中如此，人生也如此，男人，当然是有骨
气比较好。
3. 绅士风度
...

　　SS自带的采集器，只能用于采集发布资讯，不能用于论坛和个人空间的日志。特此声明。

（注：本教程为菜鸟级，任何想获得高级教程的止步，任何非SS自带的采集此处不研究，请止步。）

　　一、采集原理

　　从小学到初中，学习好象基本都讲原理，但是，俺这原理是自写的，比任何以往都管用。

　　ＳＳ之采集器，从根本上讲，采集过程就是我们看网页的过程，但是，有个最大的区别，我们看网页是多姿多彩的，但采集器看网页，只是专注于“源文件”的。即我们在查看——源文件或右键，查看源文件(V)，所看到的记事儿或写字板（文件太大时自动提示选用）打开看到的源码，这源码也正是我们在写采集器时要研究的东东。示例部分源码如下(用俺自己的破网删除而成)：

一、先进行技术原理分析

　　1，模板技术

初学ASP，程序是能勉强写出来了，但若每进行一次网站页面的改版，所有的源程序都将进行一次移植手术。为此所耗费的人力精力不计其数，甚至一不小心得不偿失、前功尽弃。

所以，梦想着那么大段的程序代码变成几个简单的字符代替，这样只要设计好页面把该功能插入就OK了。其实这也简单，只需将实现该功能的程序代码做成子程序，然后主页调用就可以了。

很多时候，在博客中国，你会选择到很多的模板，甚至有可能自己来设计；或者采用猪飞飞BLOG的各大站长都将其站点改得不近相同……这些，我们都归功于ASP采用模板的功能。

对于用ASP技术编程的初学者来说，无从下手是第一感觉，笔者曾经有这么一段经历。经过一番"磨难"以后，你就会找到灵感。现将本人编程中积累的一些经验，拟成本文，奉献给读者。

1 首先要学习一些例子程序。

接到任务后，不要盲目地急于编写代码，而是先看一下别人成功的例子，然后在其上修改或模仿调试，这样会加快你熟悉的速度。例如，关于ASP编程的教科书上经常有这么一个例子出现，即显示系统当前时间的语句：<%=now()%> ，别看这么简单的一条语句，里边却包含了ASP的编程思想和格式，会给你后边的工作带来很大的帮助。比如说，测试IIS（Internet Information Server）WEB SERVER是否正常工作，用上边的一个语句测试就足够了。

登陆页login.asp:

<%
if request.Form.count>0 then
session("username")=request("username")
application(session("username"))=session.SessionID
response.Redirect("index.asp")
...

可能有的web应用程序，需要多语言支持，例如，讨论组，既有中文界面，以适合国人使用的方便，又需要英文界面，以满足国际化的需要。我想，似乎没有必要为每一个语言都写一个版本，这不仅比较繁琐，而且以后程序升级就必须修改所有版本的程序。熟悉vc++程序的朋友一定知道通常windows应用程序的国际化手段都是通过rc文件来解决的。只要重新加入不同语言版本的rc文件编译一下就行了。
　 asp程序不能编译也不需编译。我于是开始考虑使用数据库，将ASP程序中使用到的提示信息/甚至图片的URL等都放进数据库，并有不同的字段。
...

'取得IP地址
'*******************************************************************
Function Userip()
Dim GetClientIP
'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
...

SET fso = Server.CreateObject("Scripting.FileSystemObject")
DataBaseFile = "web_dbuiwefgjksdfwiuetyjshf.mdb"
If fso.FileExists(Server.Mappath(DataBaseFile)) Then

BackupFolder = "Backup_Data__"
...

If AccessCompact("/data/db1.mdb") = True Then
Response.Write("Access 数据库压缩成功！！！")
Else
Response.Write("Access 数据库压缩失败......")
End If

Function AccessCompact(AccessDataPath)
AccessCompact = True
...