利用404特性同步文件(ASP版)

很久之前写的了，今天分享出来~

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
<%
Dim re_url,mainUrl,fso
mainUrl="http://localhost:81"
On Error Resume Next
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set Retrieval = Server.CreateObject("MSXML2.ServerXMLHTTP")
'获取404地址
If Instr(Request.ServerVariables("HTTP_HOST"),":") > 0 Then
re_url = Replace(Lcase(Request.ServerVariables("QUERY_STRING")),"404;http://"&Request.ServerVariables("HTTP_HOST"),"")
Else
re_url = Replace(Lcase(Request.ServerVariables("QUERY_STRING")),"404;http://"&Request.ServerVariables("HTTP_HOST")&":"&Request.ServerVariables("SERVER_PORT"),"")
End If
 
'只抓取member中的文件
If InStr(re_url,"/member")=0 Then Server.Transfer("/404.html")
If CheckURL(mainUrl&re_url) Then
Call SaveGetFile(re_url,re_url)
Else
'Response.Write(mainUrl&re_url)
Server.Transfer("/404.html")
Response.End
End If
Rem 检测资源是否存在
Function CheckURL(byval A_strUrl)
Retrieval.Open "HEAD", A_strUrl, False
Retrieval.Send()
CheckURL = (Retrieval.Status = 200)
End Function
 
Rem 抓取并保存资源
Function SaveGetFile(RemoteFileUrl,SaveFilePaths)
Dim Ads,GetRemoteData
RemoteFileUrl=ReplaceTest("//+",RemoteFileUrl,"/")
RemoteFileUrlU = Split(RemoteFileUrl, "/")
If InStr(RemoteFileUrlU(UBound(RemoteFileUrlU)),".")=0 Then Server.Transfer("/404.html"):Response.End
' Dim arrFType
' arrFType=Split(RemoteFileUrlU(UBound(RemoteFileUrlU)),".")
' '只抓取静态页面和图片
' Select Case LCase(arrFType(UBound(arrFType)))
' Case "html":
' Case "htm" :
' Case "jpg" :
' Case "jpeg":
' Case "bmp" :
' Case "gif" :
' Case "png":
' Case Else:
' 'Response.Write("2")
' Server.Transfer("/404.html")
' Response.End
' End Select
 
Dim tPath:tPath=""
'文件夹操作
For i=1 To Ubound(RemoteFileUrlU) Step 1
If i<>Ubound(RemoteFileUrlU) Then
If(Not IsFolder(tPath&RemoteFileUrlU(i)))Then
If i=1 Then
Call CreateFolder(RemoteFileUrlU(i))
tPath=tPath&RemoteFileUrlU(i)&"/"
Else
Call CreateFolder(tPath&RemoteFileUrlU(i))
tPath=tPath&RemoteFileUrlU(i)&"/"
End If
Else
tPath=tPath&RemoteFileUrlU(i)&"/"
End If
End If
Next
'Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", mainUrl&RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
 
SaveFileName = SaveFilePaths
 
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
 
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(SaveFileName),2
.Cancel
.Close
End With
Set Ads = Nothing
SaveGetFile = SaveFileName
End Function
Function IsFolder(Folder)
If FSO.FolderExists(Server.MapPath(Folder)) Then  
IsFolder = True
Else
IsFolder = False
End If
End Function
Function CreateFolder(fldr)
Dim f
Set f = FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder = f.Path
Set f=nothing
End Function
Function ts(str)
Response.Write(str)
Response.End
End Function
 
Function ReplaceTest(patrn,str1,replStr)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.IgnoreCase = True
  regEx.Global = True
  ReplaceTest = regEx.Replace(str1,replStr)
End Function
If Err Then
Err.Clear
Server.Transfer("/404.html")
Response.End
End If
'转向抓取过来的资源
'Response.Write("3")
Server.Transfer(re_url)
Response.End
%>

 

Entity Framework – 直接执行数据库命令

原文地址: http://msdn.microsoft.com/en-us/library/gg715124(v=vs.103)   使用 EF 4.1 或者更新版本, 你可以直接执行任何数据库命令. 在本节介绍的方法允许你对数据库执行原生的 SQL 命令.   通过 SQL 查询语句获取实体对象集 DbSet 类中的 SqlQuery 方法允许你执行一个返回实体对象集的原生 SQL 查询. 默认情况下, 返回的对象集会被上下文跟踪; 这可以通过对方法返回的 DbSqlQuery 对象调用 AsNoTracking 方法取消.返回的结果集一般为 DbSet 所对应的类型, 否则即便是其派生类也无法返回. 如果所查询的表包含了其他实体类型的数据, 那么所执行的 SQL 语句应该被正确书写, 保证只返回指定类型实体的数据. 下面的例子使用 SqlQuery 方法执行了一个 SQL 查询, 返回一个 Department 类型的实例集.

1
2
3
4
5
1 using (var context = new SchoolEntities())
2 {
3     var departments = context.Departments.SqlQuery(
4                     "select * from Department").ToList();
5 }

译注: AsNoTracking 方法必须再查询执行前调用, 查询执行后调用无效. 通过 SQL 查询获取非实体对象集 通过 Database 类中的 SqlQuery 方法来执行原生 SQL 命令, 可以返回任何类型的实例, 包括 .Net 中的原生类型. 但获取的数据将不会被上下文对象跟踪, 即使我们用这个方法来检索实体对象. 如:

1
2
3
4
1 using (var context = new SchoolEntities())
2 {
3     var names = context.Database.SqlQuery&lt;string&gt;("select Name from Department").ToList();
4 }

让数据库执行原生的非查询 SQL 命令 可以通过 Database 类中的 ExecuteSqlCommand 方法执行非查询命令. 例如:

1
2
3
4
1 using (var context = new SchoolEntities())
2 {
3     context.Database.ExecuteSqlCommand("update Department set Name = 'Mathematics' where Name = 'Math'");
4 }

ExecuteSqlCommand 方法有时会被用在 Code First 创建的数据库的初始化函数中, 用来对数据库进行一些额外的配置 (例如, 设置索引). 需要注意的是, 上下文对象并不知道执行了 ExecuteSqlCommand […]

EntityFramework.BulkInsert扩展插入数据和EF本身插入数据比较

扩展下载地址：http://efbulkinsert.codeplex.com/ 注意同时安装依赖项目，不然会报错，还有，程序中有同一个dll的其他版本，那就可能一次安装不上，得一个一个安装依赖的dll Install-Package EntityFramework.MappingAPI -Version 6.0.0.7 Install-Package EntityFramework.BulkInsert-ef6 EntityFramework.BulkInsert插入数据和EF比较 初步猜测，它应该只是把多个sql合成一个，不管怎么优化，总该最后生成的是sql。 例如：20条数据，ef调试时看到的是一次连接，20次执行sql，这个批量，估计是一次连接，20个sql组合放到一个字符串提交，这样能减少时间。 再优化也不可能把sql给减少，同一sql在数据库中执行时间也不是EF能减少的。 实测（222数据库，表FinanceReceipts）： 用Stopwatch监视执行时间（单位毫秒） 一次插入200条单据测试 EF插入耗时：11,086 BulkInsert插入耗时：740 一次插入10000条单据测试 EF插入耗时：510,640 BulkInsert插入耗时：3,200 通过看代码，和猜测的实现方式差不多，不过，代码中有表映射，为什么有这些功能？ 因为 Insert 比数据库自带的 SqlBulkCopy 功能慢， EntityFramework.BulkInsert扩展在优化语句传输次数的同时，也采用了速度更快的 SqlBulkCopy 去将数据插入数据库，所以在插入大数据量时，比起EF本身的插入数据，可以说快得“离谱”。 不过，利用这个SqlBulkCopy快速插入数据，也就只能在插入上有改进，对于Update,Delete数据，速度上没有什么改进的 //批量插入测试代码 [csharp] view plain copy print? StringBuilder sb = new StringBuilder(); FinanceReceipts model = ReceiptsRepository.Entities.Include(o => o.FinanceReceiptDetail).Include(o => o.FinanceBillLog).First(o => o.ReceiptId == 214539); int createCount = 10000; model.ReceiptId = 0; model.ReceiptStatus = -1; model.ReceiptNo = ""; model.FinanceBillLog.OpenSafe().ToList().ForEach(m => m.ReceiptId = 0); model.FinanceReceiptDetail.OpenSafe().ToList().ForEach(m => m.ReceiptId = 0); model.ActualCreateTime = DateTime.Now; List<FinanceReceipts> entities = new List<FinanceReceipts>(); for (int i = 0; i < createCount; i++) {     FinanceReceipts temp = model.DeepCopy();     model.ReceiptNo = "ef" + i;     entities.Add(temp); } Stopwatch sw = new Stopwatch(); sw.Start(); ReceiptsRepository.Insert(entities); sw.Stop(); sb.AppendFormat("EF插入耗时：{0}\r\n", sw.ElapsedMilliseconds); model.ActualCreateTime = DateTime.Now; List<FinanceReceipts> entities2 = new List<FinanceReceipts>(); for (int i = 0; i < createCount; i++) {     FinanceReceipts temp = model;     model.ReceiptNo = "bi" + i;     entities2.Add(temp); } sw.Restart(); var ctx = (this.UnitOfWork as UnitOfWorkContextBase).DbContext;     using (var transactionScope = new TransactionScope())     {         // some stuff in dbcontext         ctx.BulkInsert(entities2);         ctx.SaveChanges();         transactionScope.Complete();     } sw.Stop(); sb.AppendFormat("BulkInsert插入耗时：{0}\r\n", sw.ElapsedMilliseconds); string ret = sb.ToString(); 插入100条，每次插入一条，循环插入测试 第1次： EF插入耗时：9006 BulkInsert插入耗时：4173 第2次： EF插入耗时：8738 BulkInsert插入耗时：3806 第3次： EF插入耗时：8784 BulkInsert插入耗时：3727 BulkInsert还是比EF本身插入数据稍微快一点，总的来说： […]

Lucene.Net

阅读目录 开始 Lucene简介 效果图 Demo文件说明 简单使用 重点类的说明 存在问题 调整后 Lucene.Net博文与资源下载 做过站内搜索的朋友应该对Lucene.Net不陌生,没做过的也许会问：就不是个查询嘛！为什么不能使用Like模糊查找呢？ 原因很简单--模糊查询的契合度太低，匹配关键字之间不能含有其他内容。最重要的是它会造成数据库全表扫描，效率底下，即使使用视图，也会造成数据库服务器"亚历山大",那LuceneNet又是一个神马东西？如何使用？以下给出详细的介绍包括Demo 回到顶部 Lucene简介 首先说明的是--Lucene.Net只是一个全文检索开发包，不是一个成型的搜索引擎， 它的功能就是负责将文本数据按照某种分词算法进行切词,分词后的结果存储在索引库中,从索引库检索数据的速度灰常快. 对以上加粗的词汇稍作下阐述： 文本数据：Lucene.Net只能对文本信息进行检索，所以非文本信息要么转换成为文本信息,要么你就死了这条心吧！ 分词算法：将一句完整的话分解成若干词汇的算法  常见的一元分词(Lucene.Net内置就是一元分词,效率高,契合度低),二元分词,基于词库的分词算法(契合度高,效率低)… 切词:将一句完整的话,按分词算法切成若干词语 比如："不是所有痞子都叫一毛" 这句话,如果根据一元分词算法则被切成: 不 是 所 有 痞 子 都 叫 一 毛 如果二元分词算法则切成: 不是 是所 所有 有痞 痞子 子都 都叫 叫一  一毛 如果基于词库的算法有可能:不是 所有 痞子 都叫 一毛 具体看词库 索引库:简单的理解成一个提供了全文检索功能的数据库 如果文字难以理解 见Demo文件说明中的右侧图吧 回到顶部 效果图 首先展示效果图,避免各位观众不知偶所云. 这里有三张图： 图1 简单使用页面效果图 图2 对数据库新增数据后 索引库更新效果图 图3 将图2中的新增数据修改后 索引库更新效果图 回到顶部 Demo文件说明 回到顶部 简单使用 图1中的BookList.aspx 页面

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
&lt;%@ Page Language="C#" AutoEventWireup="true" CodeBehind="BookList.aspx.cs" Inherits="Web.LuceneNet.BookList" %&gt;
 
&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"&gt;
&lt;html xmlns="http://www.w3.org/1999/xhtml"&gt;
&lt;head runat="server"&gt;
    &lt;title&gt;&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
    &lt;form id="form1" method="get" action="BookList.aspx"&gt;
    &lt;div&gt;
        请输入搜索关键字:&lt;input type="text" name="SearchKey" value="" /&gt;
        &lt;input type="submit" name="btnSearch" value="一哈哈" /&gt;
        &lt;input type="submit" name="btnCreate" value="创建索引" /&gt;
        &lt;br /&gt;
        &lt;ul&gt;
        &lt;asp:Repeater ID="Repeater1" runat="server"&gt;
            &lt;ItemTemplate&gt;
                &lt;li&gt;&lt;a href='#'&gt;
                    &lt;%# Eval("Title") %&gt;&lt;/a&gt;&lt;/li&gt;
                &lt;li&gt;&lt;span&gt;
                    &lt;%# Eval("ContentDescription") %&gt;&lt;/span&gt;&lt;/li&gt;
            &lt;/ItemTemplate&gt;
        &lt;/asp:Repeater&gt;
        &lt;/ul&gt;
    &lt;/div&gt;
    &lt;/form&gt;
&lt;/body&gt;
&lt;/html&gt;

BookList.aspx.cs 后台的处理操作

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
using System;
using System.Collections.Generic;
using System.IO;
using Lucene.Net.Analysis.PanGu;
using Lucene.Net.Documents;
using Lucene.Net.Index;
using Lucene.Net.Search;
using Lucene.Net.Store;
using PZYM.Shop.BLL;
 
namespace Web.LuceneNet {
    public partial class BookList : System.Web.UI.Page {
        protected void Page_Load(object sender, EventArgs e) {
            string btnCreate = Request.QueryString["btnCreate"];
            string btnSearch = Request.QueryString["btnSearch"];
            if(!string.IsNullOrEmpty(btnCreate)) {
                //创建索引库
                CreateIndexByData();
            }
            if(!string.IsNullOrEmpty(btnSearch)) {
                //搜索
                SearchFromIndexData();
            }
        }
 
        /// &lt;summary&gt;
        /// 创建索引
        /// &lt;/summary&gt;
        private void CreateIndexByData() {
            string indexPath = Context.Server.MapPath("~/IndexData");//索引文档保存位置          FSDirectory directory = FSDirectory.Open(new DirectoryInfo(indexPath), new NativeFSLockFactory());
            //IndexReader:对索引库进行读取的类
            bool isExist = IndexReader.IndexExists(directory); //是否存在索引库文件夹以及索引库特征文件
            if(isExist) {
                //如果索引目录被锁定（比如索引过程中程序异常退出或另一进程在操作索引库），则解锁
                <strong>//Q:存在问题 如果一个用户正在对索引库写操作 此时是上锁的 而另一个用户过来操作时 将锁解开了 于是产生冲突 --解决方法后续</strong>
                if(IndexWriter.IsLocked(directory)) {
                    IndexWriter.Unlock(directory);
                }
            }
 
            //创建向索引库写操作对象  IndexWriter(索引目录,指定使用盘古分词进行切词,最大写入长度限制)
            //补充:使用IndexWriter打开directory时会自动对索引库文件上锁
            IndexWriter writer = new IndexWriter(directory, new PanGuAnalyzer(), !isExist, IndexWriter.MaxFieldLength.UNLIMITED);
            BooksManager bookManager = new BooksManager();
            List&lt;PZYM.Shop.Model.Books&gt; bookList = bookManager.GetModelList("");
 
            //--------------------------------遍历数据源 将数据转换成为文档对象 存入索引库
            foreach(var book in bookList) {
                Document document = new Document(); //new一篇文档对象 --一条记录对应索引库中的一个文档
 
                //向文档中添加字段  Add(字段,值,是否保存字段原始值,是否针对该列创建索引)
                document.Add(new Field("id", book.Id.ToString(), Field.Store.YES, Field.Index.NOT_ANALYZED));//--所有字段的值都将以字符串类型保存 因为索引库只存储字符串类型数据
 
                //Field.Store:表示是否保存字段原值。指定Field.Store.YES的字段在检索时才能用document.Get取出原值  //Field.Index.NOT_ANALYZED:指定不按照分词后的结果保存--是否按分词后结果保存取决于是否对该列内容进行模糊查询
 
 
                document.Add(new Field("title", book.Title, Field.Store.YES, Field.Index.ANALYZED, Field.TermVector.WITH_POSITIONS_OFFSETS));
 
                //Field.Index.ANALYZED:指定文章内容按照分词后结果保存 否则无法实现后续的模糊查询
                //WITH_POSITIONS_OFFSETS:指示不仅保存分割后的词 还保存词之间的距离
 
                document.Add(new Field("content", book.ContentDescription, Field.Store.YES, Field.Index.ANALYZED, Field.TermVector.WITH_POSITIONS_OFFSETS));
                writer.AddDocument(document); //文档写入索引库
            }
            writer.Close();//会自动解锁
            directory.Close(); //不要忘了Close，否则索引结果搜不到
        }
 
        /// &lt;summary&gt;
        /// 从索引库中检索关键字
        /// &lt;/summary&gt;
        private void SearchFromIndexData() {
            string indexPath = Context.Server.MapPath("~/IndexData");
            FSDirectory directory = FSDirectory.Open(new DirectoryInfo(indexPath), new NoLockFactory());
            IndexReader reader = IndexReader.Open(directory, true);
            IndexSearcher searcher = new IndexSearcher(reader);
            //搜索条件
            PhraseQuery query = new PhraseQuery();
            //把用户输入的关键字进行分词
            foreach(string word in Common.SplitContent.SplitWords(Request.QueryString["SearchKey"])) {
                query.Add(new Term("content", word));
            }
            //query.Add(new Term("content", "C#"));//多个查询条件时 为且的关系
            query.SetSlop(100); //指定关键词相隔最大距离
 
            //TopScoreDocCollector盛放查询结果的容器
            TopScoreDocCollector collector = TopScoreDocCollector.create(1000, true);
            searcher.Search(query, null, collector);//根据query查询条件进行查询，查询结果放入collector容器
            //TopDocs 指定0到GetTotalHits() 即所有查询结果中的文档 如果TopDocs(20,10)则意味着获取第20-30之间文档内容 达到分页的效果
            ScoreDoc[] docs = collector.TopDocs(0, collector.GetTotalHits()).scoreDocs;
 
            //展示数据实体对象集合
            List&lt;PZYM.Shop.Model.Books&gt; bookResult = new List&lt;PZYM.Shop.Model.Books&gt;();
            for(int i = 0; i &lt; docs.Length; i++) {
                int docId = docs[i].doc;//得到查询结果文档的id（Lucene内部分配的id）
                Document doc = searcher.Doc(docId);//根据文档id来获得文档对象Document
 
 
                PZYM.Shop.Model.Books book = new PZYM.Shop.Model.Books();
                book.Title = doc.Get("title");
                //book.ContentDescription = doc.Get("content");//未使用高亮
                //搜索关键字高亮显示 使用盘古提供高亮插件
                book.ContentDescription = Common.SplitContent.HightLight(Request.QueryString["SearchKey"], doc.Get("content"));
                book.Id = Convert.ToInt32(doc.Get("id"));
                bookResult.Add(book);
            }
            Repeater1.DataSource = bookResult;
            Repeater1.DataBind();
        }
    }
}

使用的分词方法与关键字变红 SplitContent.cs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
using System.Collections.Generic;
using System.IO;
using Lucene.Net.Analysis;
using Lucene.Net.Analysis.PanGu;
using PanGu;
 
namespace Web.Common {
    public class SplitContent {
        public static string[] SplitWords(string content) {
            List&lt;string&gt; strList = new List&lt;string&gt;();
            Analyzer analyzer = new PanGuAnalyzer();//指定使用盘古 PanGuAnalyzer 分词算法
            TokenStream tokenStream = analyzer.TokenStream("", new StringReader(content));
            Lucene.Net.Analysis.Token token = null;
            while((token = tokenStream.Next()) != null) { //Next继续分词 直至返回null
                strList.Add(token.TermText()); //得到分词后结果
            }
            return strList.ToArray();
        }
 
        //需要添加PanGu.HighLight.dll的引用
        /// &lt;summary&gt;
        /// 搜索结果高亮显示
        /// &lt;/summary&gt;
        /// &lt;param name="keyword"&gt; 关键字 &lt;/param&gt;
        /// &lt;param name="content"&gt; 搜索结果 &lt;/param&gt;
        /// &lt;returns&gt; 高亮后结果 &lt;/returns&gt;
        public static string HightLight(string keyword, string content) {
            //创建HTMLFormatter,参数为高亮单词的前后缀
            PanGu.HighLight.SimpleHTMLFormatter simpleHTMLFormatter =
                new PanGu.HighLight.SimpleHTMLFormatter("&lt;font style=\"font-style:normal;color:#cc0000;\"&gt;&lt;b&gt;", "&lt;/b&gt;&lt;/font&gt;");
            //创建 Highlighter ，输入HTMLFormatter 和 盘古分词对象Semgent
            PanGu.HighLight.Highlighter highlighter =
                            new PanGu.HighLight.Highlighter(simpleHTMLFormatter,
                            new Segment());
            //设置每个摘要段的字符数
            highlighter.FragmentSize = 1000;
            //获取最匹配的摘要段
            return highlighter.GetBestFragment(keyword, content);
        }
    }
}

回到顶部 重点类的说明 Analyzer类：LuceneNet中分词算法的基类 任何自定义算法都需继承它 FSDirectory类: 指定索引库文件存放文件位置  是Directory的子类(它有两个子类 还有一个RAMDirecory,它用来指定将索引库文件存放在内存中) IndexReader：对索引进行读取的类 静态方法bool  IndexExists(Directory […]

禁止浏览器缓存

html: <meta http-equiv="pragma" content="no-cache"> <meta http-equiv="cache-control" content="no-store, must-revalidate"> <meta http-equiv="expires" content="wed, 26 feb 1997 08:21:57 gmt"> <meta http-equiv="expires" content="0"> asp response.expires=0 response.addheader("pragma","no-cache") response.addheader("cache-control","no-store, must-revalidate") php header("expires: mon, 26 jul 1997 05:00:00 gmt"); header("cache-control: no-store, must-revalidate"); header("pragma: no-cache"); jsp： response.addheader("cache-control", "no-store, must-revalidate"); response.addheader("expires", "thu, 01 jan 1970 00:00:01 gmt"); 转自：http://www.oschina.net/code/snippet_81226_7660

ASP

asp已经诞生18年了，是我工作用的第一门语言。 ASP是Active Server Page的缩写，意为“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。ASP的网页文件的格式是 .asp。现在常用于各种动态网站中。   发展史 从1996年ASP诞生到2012年已经过去了17年。在这短短的17年中，ASP发生了重大的变化，直到现在的ASP。 asp的第一版是0.9测试版，自从1996年ASP1.0诞生，它给Web开发界带来了福音。早期的Web程序开发是十分繁琐的，以至于要制作一个简单的动态页面需要编写大量的C代码才能完成，这对于普通的程序员来说有点难了。而ASP却允许使用VBScript这种的简单脚本语言，编写嵌入在HTML网页中的代码。在进行程序设计的时候可以使用它的内部组件来实现一些高级功能（例如Cookie）。它的最大的贡献在于它的ADO(ActiveX Data Object），这个组件使得程序对数据库的操作十分简单，所以进行动态网页设计也变成一件轻松的事情。因此一夜之间，Web程序设计不再是想像中的艰巨任务，仿佛很多人都可以一显身手。 到了1998年，微软发布了ASP 2.0。它是Windows NT4 Option Pack的一部分，作为IIS(Internet Information Services，互联网信息服务) 4.0的外接式附件。它与ASP 1.0的主要区别在于它的外部组件是可以初始化的，这样，在ASP程序内部的所有组件都有了独立的内存空间，并可以进行事务处理。 到了2000年，随着Windows 2000的成功发布，这个操作系统的IIS(Internet Information Services，互联网信息服务) 5.0所附带的ASP 3.0也开始流行。与ASP 2.0相比，ASP 3.0的优势在于它使用了COM+，因而其效率会比它前面的版本要好，并且更稳定。 2001年，ASP·NET出现了。在刚开始开发的时候，它的名字是ASP+，但是，为了与微软的·NET计划相匹配，并且要表明这个ASP版本并不是对ASP 3.0的补充，微软将其命名为ASP·NET。ASP·NET在结构上与前面的版本大相径庭，它几乎完全是基于组件和模块化的，Web应用程序的开发人员使用这个开发环境可以实现更加模块化的、功能更强大的应用程序。   网页特点ASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或Web应用程序。ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。利用ASP可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的web应用程序。与HTML相比，ASP网页具有以下特点：⑴利用ASP可以实现突破静态网页的一些功能限制，实现动态网页技术；⑵ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试；⑶服务器上的ASP解释程序会在服务器端执行ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页；⑷ASP提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强。例如可以从web浏览器中获取用户通过HTML表单提交的信息，并在脚本中对这些信息进行处理，然后向web浏览器发送信息；⑸ASP可以使用服务器端ActiveX组件来执行各种各样的任务，例如存取数据库、发送Email或访问文件系统等；⑹由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器，因此使用者不会看到ASP所编写的原始程序代码，可防止ASP程序代码被窃取；⑺ 方便连接ACCESS与SQL数据库；⑻开发需要有丰富的经验，否则会留出漏洞，让骇客（cracker）利用进行注入攻击。ASP也不仅仅局限于与HTML结合制作WEB网站，而且还可以与XHTML和WML语言结合制作WAP手机网站。但是其原理也是一样的。   工作原理当在Web站点中融入ASP功能后，将发生以下事情：1、用户向浏览器地址栏输入网址，默认页面的扩展名是.asp。2、浏览器向服务器发出请求。3、服务器引擎开始运行ASP程序。4、ASP文件按照从上到下的顺序开始处理，执行脚本命令，执行HTML页面内容。5、页面信息发送到浏览器。   生成txtFileName = "idcpcw.txt" '要保存的文本文件名Set fso = CreateObject("Scripting.FileSystemObject") '建立fso对象Set MyFile = fso.CreateTextFile(Server.mapPath(TxtFileName), True) '建立对象MyFile.WriteLine "文本的内容" & uuu '将name的值写入文本文件，uuu为数据库的数据MyFile.WriteLine "文本的内容" & uuu '同上[1] 

ASP内置对象 Request对象

集合 Request.ClientCertificate(key[SubField])所有客户证书的信息的集合。对于Key，该集合具有如下的关键字： Subject证书的主题。包含所有关于证书收据的信息。能和所有的子域后缀一起使用。 Issuer证书的发行人。包含所有关于证书验证的信息。除了CN外，能和所有的子域后缀一起使用。 VadidFrom证书发行的日期。使用VBScript格式。 ValidUntil该证书不在有效的时间。 SerialNumber包含该证书的序列号。 Certificate包含整个证书内容的二进制流，使用ASN.1格式。 对于SubField，Subject和Issuer关键字可以具有如下的子域后缀：（比如：SubjectOU或IssuerL） C起源国家。 O公司或组织名称。 OU组织单元。 CN用户的常规名称。 L局部。 S州（或省）。 T个人或公司的标题。 GN给定名称。 I初始。 当文件cervbs.inc(VBScript使用)或cerjavas.inc(Jscript使用)通过使用#INCLUDE导向包含在你的Active Server Page里时，下面两个标志可以使用： ceCertPresent指明客户证书是否存在，其值为TRUE或FALSE。 ceUnrecongnizedIssure指明在该链表中的最后的证书的发行者是否未知，其值为TRUE或FALSE。 Request.Cookies(Cookie[(key).Attribute]) Cookie的集合。允许获得浏览器的Cookie。Cookie指明返回那一个Cookie。Key用于从Cookie字典中返回具有某一关键字的Cookie值。对于Attribute，你能使用属性HasKeys来确定某一Cookie是否具有子关键字。HasKeys的值为TRUE或FALSE。 Request.Form(Parameter)[(Index).Count] 填写在HTML的表单中所有的数据的集合。Parameter是在HTML表单中某一元素的名称。当某一参数具有不止一个值（比如，当在<SELECT>中使用MULTIPLE属性时）时，使用Index。当某一参数具有多值时，Count指明多值个数。 Request.QueryString(Varible)[(Index).Count] 查询字符串的所有值的集合。Varible是在查询字符串某一变量的名称。当某一变量具有多于一个值时，使用Index。当某一参数具有多值时，Count指明值的个数。 Request.ServerVaribles(Server Environment Variable) 环境变量的集合。允许读取HTTP头。你可以通过使用HTTP_前缀来读取任何头信息。比如，HTTP_USER_AGENT接受客户代理HTTP头（浏览器类型）。除此外，你可以使用下表所示的变量获得任何环境信息。 ALL_HTTP客户端发送的所有HTTP标头，他的结果都有前缀HTTP_。 ALL_RAW客户端发送的所有HTTP标头,其结果和客户端发送时一样，没有前缀HTTP_ APPL_MD_PATH应用程序的元数据库路径。 APPL_PHYSICAL_PATH与应用程序元数据库路径相应的物理路径。 AUTH_PASSWORD当使用基本验证模式时，客户在密码对话框中输入的密码。 AUTH_TYPE这是用户访问受保护的脚本时，服务器用于检验用户的验证方法。 AUTH_USER代验证的用户名。 CERT_COOKIE唯一的客户证书ID号。 CERT_FLAG客户证书标志，如有客户端证书，则bit0为0。如果客户端证书验证无效，bit1被设置为1。 CERT_ISSUER用户证书中的发行者字段。 CERT_KEYSIZE安全套接字层连接关键字的位数，如128。 CERT_SECRETKEYSIZE服务器验证私人关键字的位数。如1024。 CERT_SERIALNUMBER客户证书的序列号字段。 CERT_SERVER_ISSUER服务器证书的发行者字段 CERT_SERVER_SUBJECT服务器证书的主题字段。 CERT_SUBJECT客户端证书的主题字段。 CONTENT_LENGTH客户端发出内容的长度。 CONTENT_TYPE客户发送的form内容或HTTP PUT的数据类型。 GATEWAY_INTERFACE服务器使用的网关界面。 HTTPS如果请求穿过安全通道（SSL），则返回ON。如果请求来自非安全通道，则返回OFF。 HTTPS_KEYSIZE安全套接字层连接关键字的位数，如128。 HTTPS_SECRETKEYSIZE服务器验证私人关键字的位数。如1024。 HTTPS_SERVER_ISSUER服务器证书的发行者字段。 HTTPS_SERVER_SUBJECT服务器证书的主题字段。 INSTANCE_IDIIS实例的ID号。 INSTANCE_META_PATH响应请求的IIS实例的元数据库路径。 LOCAL_ADDR返回接受请求的服务器地址。 LOGON_USER用户登录Windows NT的帐号 PATH_INFO客户端提供的路径信息。 PATH_TRANSLATED通过由虚拟至物理的映射后得到的路径。 QUERY_STRING查询字符串内容。 REMOTE_ADDR发出请求的远程主机的IP地址。 REMOTE_HOST发出请求的远程主机名称。 REQUEST_METHOD提出请求的方法。比如GET、HEAD、POST等等。 SCRIPT_NAME执行脚本的名称。 SERVER_NAME服务器的主机名、DNS地址或IP地址。 SERVER_PORT接受请求的服务器端口号。 SERVER_PORT_SECURE如果接受请求的服务器端口为安全端口时，则为1，否则为0。 SERVER_PROTOCOL服务器使用的协议的名称和版本。 SERVER_SOFTWARE应答请求并运行网关的服务器软件的名称和版本。 URL提供URL的基本部分。 　方法 Request.BinaryRead(Count) 接收一个HTML表单的未经过处理的内容。当调用此方法时，Count指明要接收多少字节。在调用此方法后，Count指明实际上接收到多少个字节。 属性 Request.TotalBytes 查询体的长度，以字节为单位。

清除页面缓存

当使用ASP进行Web编程时，你发现确实修改了程序代码，确认没有改错，却发现输出的Webyemi8an没有变化，这就是服务端将此ASP文件加入了页面缓存。    清楚页面缓存有一下几种方法；    1.在ASP页面首部加入一下代码：      Response.Buffer=True      Response.ExpiresAbsolute=Now()-1      Response.Expires=0      Response.CacheControl=“no-cache”      Response.AddHeader “Pragma”，“no-Cache”    2.在HTML代码中加入下面的代码，不过这些代码似乎不能解决刷新无效的问题，因为这些代码只是针对客户端的页面缓存而已，只具有清楚客户端的页面缓存的功能。      <HEAD>        <META HTTP-EQUIV="Pragma" CONTENT="no-cache">        <META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">        <META HTTP-EQUIV="Expires" CONTENT="no-cache">      </HEAD>    3.如果一个ASP文件是url.asp,那么在访问的时候，脚本链接应该为：      <input type="button" onclick="window.location.href=’url.asp?’+Math.random()" value="提交"/> 

Jmail邮件发送简单示例

 set msg = server.createobject("jmail.message")  msg.logging = true msg.charset = "gb2312" msg.from = "webmaster@w3cnet.com" msg.fromname = "标准网络"  msg.addrecipient "w3cnet@qq.com"  msg.subject = "会员验证" msg.htmlbody = "<span style=’color:red;'>LED</span>" 'msg.body = "this is html content" msg.addattachment("D:\ximancolor\Jmail\baidu.gif") msg.send("127.0.0.1")

asp数组使用

在ASP编程中使用数组 数组的定义Dim MyArrayMyArray = Array(1,5,123,12,98) 可扩展数组Dim MyArray()for i = 0 to 10ReDim Preserve MyArray(i)MyArray(i)=inext 将一个字符串分割并返回分割结果的数组Dim MyArrayMyArray = Split(tempcnt,chr(13)&chr(10))For I = Lbound(MyArray) to Ubound(MyArray) Response.Write MyArray(I) & "<br>"Next 数组排序函数function..Sort(ary) KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then FirstValue = ary(I) SecondValue = ary(I+1) ary(I) = SecondValue ary(I+1) = FirstValue KeepChecking = TRUE End If Next Loop Sort = ary End function.. 数组排序函数应用例子Dim MyArray MyArray = Array(1,5,123,12,98)MyArray = Sort(MyArray) […]

asp函数详解

Array()　　FUNCTION: 返回一个数组　　SYNTAX: Array(list)　　ARGUMENTS: 字符，数字均可　　EXAMPLE: <%　　Dim myArray()　　For i = 1 to 7　　Redim Preserve myArray(i)　　myArray(i) = WeekdayName(i)　　Next　　%>　　RESULT: 建立了一个包含7个元素的数组myArray　　myArray("Sunday","Monday", … … "Saturday") CInt()　　FUNCTION: 将一个表达式转化为数字类型　　SYNTAX: CInt(expression)　　ARGUMENTS: 任何有效的字符均可　　EXAMPLE: <%　　f = "234"　　response.write cINT(f) + 2　　%>　　RESULT: 236　　转化字符"234"为数字"234"，如果字符串为空，则返回0值 CreateObject()　　FUNCTION: 建立和返回一个已注册的ACTIVEX组件的实例。　　SYNTAX: CreateObject(objName)　　ARGUMENTS: objName 是任何一个有效、已注册的ACTIVEX组件的名字.　　EXAMPLE: <%　　Set con = Server.CreateObject("ADODB.Connection")　　%>　　RESULT: CStr()　　FUNCTION: 转化一个表达式为字符串.　　SYNTAX: CStr(expression)　　ARGUMENTS: expression 是任何有效的表达式。　　EXAMPLE: <%　　s = 3 + 2　　response.write "The result is: " & cStr(s)　　%>　　RESULT: 转化数字“5”为字符“5”。 Date()　　FUNCTION: 返回当前系统日期.　　SYNTAX: Date()　　ARGUMENTS: None.　　EXAMPLE: <%=Date%>　　RESULT: 8/4/99 DateAdd()　　FUNCTION: 返回一个被改变了的日期。　　SYNTAX: DateAdd(timeinterval,number,date)　　ARGUMENTS: timeinterval is the time interval to add; number is amount of time intervals to add; and date is the starting date.　　EXAMPLE: <%　　currentDate = […]

asp汉字转化为拼音

很多问题都是因为中文问题造成的 如文件名最好别用中文 现在的解决方法一般是产生一个ID,将这个ID做文件名 网页上如果url带汉字也经常出错 现在的解决方法一般用urlencode编码 现在用了这个转化，就好多了 原理，使用Dictionary技术1.添加索引2.遍历词典 <%Set d = CreateObject("Scripting.Dictionary")d.add "a",-20319d.add "ai",-20317d.add "an",-20304d.add "ang",-20295d.add "ao",-20292d.add "ba",-20283d.add "bai",-20265d.add "ban",-20257d.add "bang",-20242d.add "bao",-20230d.add "bei",-20051d.add "ben",-20036d.add "beng",-20032d.add "bi",-20026d.add "bian",-20002d.add "biao",-19990d.add "bie",-19986d.add "bin",-19982d.add "bing",-19976d.add "bo",-19805d.add "bu",-19784d.add "ca",-19775d.add "cai",-19774d.add "can",-19763d.add "cang",-19756d.add "cao",-19751d.add "ce",-19746d.add "ceng",-19741d.add "cha",-19739d.add "chai",-19728d.add "chan",-19725d.add "chang",-19715d.add "chao",-19540d.add "che",-19531d.add "chen",-19525d.add "cheng",-19515d.add "chi",-19500d.add "chong",-19484d.add "chou",-19479d.add "chu",-19467d.add "chuai",-19289d.add "chuan",-19288d.add "chuang",-19281d.add "chui",-19275d.add "chun",-19270d.add "chuo",-19263d.add "ci",-19261d.add "cong",-19249d.add "cou",-19243d.add "cu",-19242d.add "cuan",-19238d.add "cui",-19235d.add "cun",-19227d.add "cuo",-19224d.add "da",-19218d.add "dai",-19212d.add "dan",-19038d.add "dang",-19023d.add "dao",-19018d.add "de",-19006d.add "deng",-19003d.add "di",-18996d.add "dian",-18977d.add "diao",-18961d.add "die",-18952d.add "ding",-18783d.add "diu",-18774d.add "dong",-18773d.add "dou",-18763d.add "du",-18756d.add "duan",-18741d.add "dui",-18735d.add "dun",-18731d.add "duo",-18722d.add "e",-18710d.add "en",-18697d.add "er",-18696d.add […]