<![CDATA[JiangLan's Blog - Asp]]> http://www.jianglan.net.cn/blog/ zh-cn PBlog2 v2.4 JiangLan's Blog http://www.jianglan.net.cn/blog/images/logos.gif http://www.jianglan.net.cn/blog/ JiangLan's Blog http://www.jianglan.net.cn/blog/article.asp?id=408 <![CDATA[万年历程序中十二生肖排列顺序及算法]]> llk39@163.com(江蓝) Wed,04 Mar 2009 11:42:09 +0800 http://www.jianglan.net.cn/blog/default.asp?id=408
算法：
年份减3除以12，余数则是对应的十二生肖序号, 如果余数为0,序号计为12。然后根据以下口诀得到生肖:

一鼠二牛三虎四兔走，
舞龙六蛇七马八羊头。
九猴十鸡幺幺数狗狗。
十二金猪排列到最后。

按地支及生肖的口诀：
子鼠丑牛寅虎卯兔走，
辰龙巳蛇午马未羊头。
申猴酉鸡之后戍狗狗，
亥属金猪排列到最后。

注：以上口诀（也可说是十二生肖的顺口溜吧），是我读高中时瞎编的，不过至今仍记得，转载请注明出处 :)

还有一个关于十二生肖的顺口溜

小老鼠，打头来，牛把蹄儿往上抬。
老虎回头一声吼，兔脚一蹬跑得快。
龙和蛇，尾巴甩，马啸羊儿大步迈。
小猴机灵蹦又跳，雄鸡一唱天下白。
狗儿跳，猪儿叫，老鼠接着跟上来。
十二动物转圈跑，一二三四按序排。

附：十二生肖属相年份对照表（农历1900-2103年）
鼠1900 牛1901 虎1902 兔1903 龙1904 蛇1905 马1906 羊1907 猴1908 鸡1909 狗1910 猪1911
鼠1912 牛1913 虎1914 兔1915 龙1916 蛇1917 马1918 羊1919 猴1920 鸡1921 狗1922 猪1923
鼠1924 牛1925 虎1926 兔1927 龙1928 蛇1929 马1930 羊1931 猴1932 鸡1933 狗1934 猪1935
鼠1936 牛1937 虎1938 兔1939 龙1940 蛇1941 马1942 羊1943 猴1944 鸡1945 狗1946 猪1947
鼠1948 牛1949 虎1950 兔1951 龙1952 蛇1953 马1954 羊1955 猴1956 鸡1957 狗1958 猪1959
鼠1960 牛1961 虎1962 兔1963 龙1964 蛇1965 马1966 羊1967 猴1968 鸡1969 狗1970 猪1971
鼠1972 牛1973 虎1974 兔1975 龙1976 蛇1977 马1978 羊1979 猴1980 鸡1981 狗1982 猪1983
鼠1984 牛1985 虎1986 兔1987 龙1988 蛇1989 马1990 羊1991 猴1992 鸡1993 狗1994 猪1995
鼠1996 牛1997 虎1998 兔1999 龙2000 蛇2001 马2002 羊2003 猴2004 鸡2005 狗2006 猪2007
鼠2008 牛2009 虎2010 兔2011 龙2012 蛇2013 马2014 羊2015 猴2016 鸡2017 狗2018 猪2019
鼠2020 牛2021 虎2022 兔2023 龙2024 蛇2025 马2026 羊2027 猴2028 鸡2029 狗2030 猪2031
鼠2032 牛2033 虎2034 兔2035 龙2036 蛇2037 马2038 羊2039 猴2040 鸡2041 狗2042 猪2043
鼠2044 牛2045 虎2046 兔2047 龙2048 蛇2049 马2050 羊2051 猴2052 鸡2053 狗2054 猪2055
鼠2056 牛2057 虎2058 兔2059 龙2060 蛇2061 马2062 羊2063 猴2064 鸡2065 狗2066 猪2067
鼠2068 牛2069 虎2070 兔2071 龙2072 蛇2073 马2074 羊2075 猴2076 鸡2077 狗2078 猪2079
鼠2080 牛2081 虎2082 兔2083 龙2084 蛇2085 马2086 羊2087 猴2088 鸡2089 狗2090 猪2091
鼠2092 牛2093 虎2094 兔2095 龙2096 蛇2097 马2098 羊2099 猴2100 鸡2101 狗2102 猪2103

十二生肖与十二时辰：
古人根据太阳升起的时间，将一昼夜区分为十二个时辰，用十二地支为代号，方便熟记。 中国用地支计时法，叫做十二时辰(“大时”)，也就是我们现在所称的二十四“小时”。
十二生肖是由十一种来自自然界的动物： 鼠、牛、虎、兔、蛇、马、羊、猴、鸡、狗和猪，还有传说中的龙所组成的。古人以这十二种动物的习性来为分配各个地支， 例如：老鼠是夜间活动的动物，因此以子时（午夜11时至1时）配合鼠，都和当时农业社会的生活起居作习息息相关。

生肖和时辰是如何相对应的呢？以下仅供参考：
子（鼠）午夜23时至1时：在一日中，子时一天的最后时刻，也是新一天的开始。
丑（牛）凌晨1时至3时：丑时指的是黎明前的黑暗阶段。据说是牛开始日出耕田的时刻。
寅（虎）凌晨3时至5时：在一日中， 天方大白之时，正是老虎开始活动的时刻。
卯（兔）清晨5时至7时：卯时是太阳已东升，开始放万丈光芒的时候。
辰（龙）清晨7时至9时：辰时太阳光热增强时刻，据说是群龙行西的时刻。
巳（蛇）上午9时至11时，巳时太阳光热更强了。
午（马）上午11时至下午13时，在一日中，阳光最为猛烈。
未（羊）下午13时至15时：在一日中， 未时是暑气将消之时。
申（猴）下午15时至17时：在一日中，申时的暑气已快过去了。
酉（鸡）下午17时至晚上19时：在一日中，酉时是夜晚将来临的时刻。
戍（狗）晚上19时至21时：在一日中，戌时正是黑夜扩散，华灯初上时分。
亥（猪）晚上21时至午夜23时：在一日中，亥时是一日将尽，要迈向明日之前时分。]]> http://www.jianglan.net.cn/blog/article.asp?id=407 <![CDATA[ASP防止外部提交数据]]> llk39@163.com(江蓝) Thu,26 Feb 2009 09:25:14 +0800 http://www.jianglan.net.cn/blog/default.asp?id=407
程序代码 程序代码
<%
Function isSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function

If isSelfRefer() Then
response.write "ok"
Else
response.write "no"
End If
%>


把以上代码放到aa.asp，如果是直接输入网址或者是从外部网部链接到本站，http://doamain/aa.asp 就会显示NO，如果系从本站链接到aa.asp，或通过表单提交到aa.asp，将会显示ok。可以防止一些伪造表单向站内提交数据。]]> http://www.jianglan.net.cn/blog/article.asp?id=347 <![CDATA[JScript compilation error '800a03ec'解决方法]]> llk39@163.com(江蓝) Tue,11 Dec 2007 16:26:08 +0800 http://www.jianglan.net.cn/blog/default.asp?id=347 　　
　　明明就是VBScript语句，怎么会提示JScript编译错误呢？百思不得其解。立即百度了一下，但没有发现任何解决的办法。后来在IIS的Application Configuration/Options页中有一项设置ASP的默认语言为JavaScript，如下图。把它改为VBScript问题得以解决。
　　
]]> http://www.jianglan.net.cn/blog/article.asp?id=325 <![CDATA[AspJpeg组件介绍、注册、高级使用方法]]> llk39@163.com(江蓝) Sat,17 Nov 2007 20:17:13 +0800 http://www.jianglan.net.cn/blog/default.asp?id=325 　　AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。
　　AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，支持的图象格式有：JPEG, GIF, BMP, TIFF, PNG
　　AspJpeg主要可以做到：
　　生成缩略图片、生成水印图片、图片合并、图片切割、数据库支持、安全码技术

02、AspJpeg功能摘要
　　支持JPEG、GIF、BMP、TIFF和PNG格式图片。输出格式始终为JPEG
　　源图片可以来源于磁盘、内存、或者记录集（数据库）
　　缩略图片可以保存到磁盘、内存、或者HTTP流
　　支持三种更改大小方式: nearest-neighbor, bilinear, and bicubic
　　可以在图片之上添加图片或者文字
　　支持画中画
　　支持复制，反转，旋转，锐化，灰度调节
　　可以调节压缩比率，以得到最佳输出效果和大小
　　从Jpeg图片中抽取EXIF 和 IPTC数据
　　CMYK-RGB转换
　　Read/write access to individual pixels of an image. （从图象中对任意象素进行读/写存取。）

03、AspJpeg系统需求
　　Windows 95/98/NT/2000/XP/2003, and IIS 4.0+ and ASP/ASP.NET, or Visual Basic 5.0+, or Visual C++ 5.0+, or any development environment supporting COM.

04、AspJpeg安装
　　全新安装：
　　在AspJpeg安装过程中输入序列号即可，如果安装位置磁盘格式为NTFS，则可能出现访问权限问题，需手工设置安装目录对Everyone有访问权限。
　　AspJpeg v1.6.0.0
　　安装sn:48958-77556-02411
　　AspJpeg v1.5.0
　　安装sn:71316-48529-38722

　　更新安装：
　　如果之前有装过其它版本的AspJpeg组件，则需要先卸载原来的组件，再进行新版本的安装。
　　先停止IIS（Net Stop iisadmin /y）
　　卸载旧版组件（regsvr32 /u Path/aspjpeg.dl（Path为安装路径））
　　重启IIS（Net Start w3svc）

　　然后再进行全新安装或复制AspJpeg.dll文件到安装目录进行手工安装：
　　regsvr32 Path/aspjpeg.dll（Path为安装路径）

　　如果在正常安装过程中没有输入序列号或手工安装则必须在注册表中加入以下项，为方便起见您可以直接将以下代码保存为.reg文档并导入注册表：

　　Windows Registry Editor Version 5.00

　　[HKEY_LOCAL_MACHINE\SOFTWARE\Persits Software\AspJpeg\RegKey]
　　@="48958-77556-02411"

05、如何创建一个AspJpeg实例？
　　Set Jpeg = Server.CreateObject("Persits.Jpeg")

06、如何查看到期时间（是否注册成功）？
　　Set Jpeg = Server.CreateObject("Persits.Jpeg")
　　Response.Write Jpeg.Expires
　　注册成功则到期时间为：9999-9-9
　　否则为：安装日期加1个月期限

07、如何用AspJpeg组件生成图片缩略图？

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
Path = Server.MapPath("../images/apple.jpg") '处理图片路径
Jpeg.Open Path '打开图片
'调整宽度和高度为原来的50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("apple_small.jpg") '保存图片到磁盘
Jpeg.Close
Set Jpeg = Nothing
%>

08、如何用AspJpeg组件生成图片水印？

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
'开始写文字
Jpeg.Canvas.Font.Color = &000000 ' red 颜色
Jpeg.Canvas.Font.Family = "Courier New" '字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) http://hi.baidu.com/yongfa365."
'打印坐标x 打印坐标y 需要打印的字符
'以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000 'black 颜色
Jpeg.Canvas.Pen.Width = 2 '画笔宽度
Jpeg.Canvas.Brush.Solid = False '是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
'起始X坐标 起始Y坐标 输入长度 输入高度
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") '保存
%>

09、如何用AspJpeg组件进行图片合并？
AspJpeg 1.3+ enables you to place images on top of each other via the method DrawImage. To use this method, you must create two instances of the AspJpeg objects and populate both of them with images via calls to Open (or OpenBinary). When calling Canvas.DrawImage, the 2nd instance of AspJpeg is passed as an argument to this method, along with the X and Y offsets (in pixels):
使用该方法，您必需创建两个AspJpeg实例对象

<%
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("t.jpg")
Jpeg2.Open Server.MapPath("t1.jpg")
Jpeg1.Canvas.DrawImage 10, 10, Jpeg2 ' optional arguments omitted
jpeg1.save Server.mappath("tt.jpg")
%>

10、如何用AspJpeg组件进行图片切割？
AspJpeg 1.1+ is also capable of cutting off edges from, or cropping, the resultant thumbnails via the method Crop(x0, y0, x1, y1). The size of the cropped image is specified by the coordinates of the upper-left and lower-right corners within the resultant thumbnail, not the original large image.

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("t.jpg")
jpeg.Crop 20, 30, jpeg.Width - 20, jpeg.Height - 10
jpeg.save Server.mappath("tt.jpg")
Response.Write("")
%>

11、如何用AspJpeg组件创建安全码？
创建安全码原理上和创建水印差不多。

<%
Function make_randomize(max_len, w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字
    Randomize
    For intcounter = 1 To max_len
        whatnext = Int((1 -0 + 1) * Rnd + w_n)
        If whatnext = 0 Then
            upper = 122
            lower = 97
        Else
            upper = 57
            lower = 48
        End If
        strnewpass = strnewpass & Chr(Int((upper - lower + 1) * Rnd) + lower)
    Next
    make_randomize = strnewpass
End Function

'生成安全码的图片。
random_num = make_randomize(4, 1) ''生成4位数字的安全码
session("random_num") = random_num '为么调用session，没有session的安全码是完全没有意义的。呵呵 .

Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件
Jpeg.Open Server.MapPath("t.jpg") '打开准备的图片
Jpeg.Canvas.Font.Color = &HFFFFFF
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("tt.jpg") '保存
%>

12、如何让AspJpeg组件支援数据库？
图片存进数据库只能以二进制数据保存，这里即利用AspJpeg的Binary方法，下面以两个AspJpeg用户手册上的代码为例，具体请参考AspJpeg用户手册：
Opening Images from Memory

<%' Using ADO, open database with an image blob
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "select image_blob from images2 where id = " & Request("id")
rs.Open SQL, strConnect, 1, 3
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open image directly from recordset
Jpeg.OpenBinary rs("image_blob").Value
' Resize
jpeg.Width = Request("Width")
' Set new height, preserve original aspect ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.SendBinary
rs.Close
%>

Output to Memory

<%
...
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs.Update
...
%>

一个生成文字水印的过程
<%
'call jpegclass(图片相对路径, 文字字体大小, 文字字体, 是否加粗, 距顶部距离, 距左边距离, 水印内容)

Sub jpegclass(J_imgurl, J_fontsize, J_family, J_isbold, J_top, J_Left, J_Content) '调用过程名

    If Len(J_imgurl) = 0 or Len(J_Content) = 0 Then Exit Sub
    Dim JPEG, font_color, font_size, font_family, f_width, f_height, f_Content
    Set JPEG = Server.CreateObject("Persits.JPEG")
    JPEG.Open Server.MapPath(J_imgurl)
    font_size = 10
    font_family = "宋体"
    f_Left = 5
    f_top = 5
    If J_fontsize<>"" Then font_size = J_fontsize '字体大小
    If J_family<>"" Then font_family = J_family '字体
    If J_top<>"" Then f_Left = J_Left '水印离图片左边位置
    If J_Left<>"" Then f_top = J_top '水印离图片J_top位置
    f_Content = J_Content
    ' 添加文字水印
    JPEG.Canvas.Font.Color = &hff0000 ' 红色
    JPEG.Canvas.Font.family = font_family
    JPEG.canvas.font.Size = font_size
    If J_isbold = 1 Then
        JPEG.Canvas.Font.Bold = True
    End If
    JPEG.Canvas.Print f_Left, f_top, f_Content
    JPEG.Save Server.MapPath(J_imgurl)
    Set JPEG = Nothing
End Sub
%>]]> http://www.jianglan.net.cn/blog/article.asp?id=324 <![CDATA[ASP输出N行N列表格]]> llk39@163.com(江蓝) Sat,17 Nov 2007 19:57:26 +0800 http://www.jianglan.net.cn/blog/default.asp?id=324
1、一行一行的输出
程序代码 程序代码
<%
Response.Write("<table border=""1"" width=""200"">")
For i=1 to 5
     Response.Write("<tr><td> </td><td> </td><td> </td><td> </td></tr>")
Next
Response.Write("</table>")
%>

这没什么好说的了，大家都看得明白。

2、一个单元格一个单元格的输出
程序代码 程序代码
<%
Response.Write("<table border=""1"" width=""200"">")
For i=1 to 18
     If i mod 4 = 1 Then Response.Write("<tr>")
     Response.Write("<td> </td>")
     If i mod 4 = 0 Then Response.Write("</tr>")
Next
'补足单元格
i = i - 1
If i mod 4<>0 Then
     For j=1 to 4-i mod 4
         Response.Write("<td>补</td>")
     Next
     Response.Write("</tr>")
End If
Response.Write("</table>")
%>

　　这边需要说明一下：网上很多的输出N行N列表格的ASP中都没有考虑最后一行的列数是否完整，即没有上边的补足部分，结果输出一个残缺的表格。细节上的问题，毛病虽不大，但还是希望大家注意下。]]> http://www.jianglan.net.cn/blog/article.asp?id=323 <![CDATA[Microsoft JET Database Engine 错误 80004005 未指定的错误]]> llk39@163.com(江蓝) Sat,17 Nov 2007 10:08:11 +0800 http://www.jianglan.net.cn/blog/default.asp?id=323 　　Microsoft JET Database Engine 错误 '80004005' 未指定的错误 （Provider 错误）

造成原因：
　　权限问题，系统缓存目录权限不足

解决方法：
　　把系统盘如 C:\WINNT\Temp 目录权限加上 Everyone 可读取权限，如果是2003的系统给C:\WINDOWS\Temp加上了Everyone的权限还是没有解决问题的话，那就给C:\WINDOWS\Temp目录再加上“Internet 来宾帐户”即IUSR_电脑名的“写”的权限]]> http://www.jianglan.net.cn/blog/article.asp?id=293 <![CDATA[Asp讲座之Cookies]]> llk39@163.com(江蓝) Wed,24 Oct 2007 14:23:19 +0800 http://www.jianglan.net.cn/blog/default.asp?id=293
　　每个 WEB 站点都有自己的标记，标记的内容可以随时读取，但只能由该站点的页面完成。每个站点的Cookie与其他所有站点的Cookie存在同一文件夹中的不同文件内（你可以在 win98 的 Windows 目录下的 Cookie 文件夹中找到它们，而 win2k 则在  Documents and Settings 文件夹下特定用户的 cookies 文件夹中）。

　　一个 Cookie 就是一个唯一标识客户的标记，Cookie 可以包含在一个对话期或几个对话期之间某个 WEB 站点的所有页面共享的信息，使用 Cookie 还可以在页面之间交换信息。这项功能经常被使用在要求认证客户密码以及电子公告板、WEB 聊天室等 ASP 程序中。

　　尽管现在听起来 cookie没有什么激动人心的，但实际上利用它，你能实现许多有意义的功能！比如说：你可以在站点上放置一个调查问答表，询问访问者最喜欢的颜色和字体，然后根据这些定制用户的web界面。并且，你还可以保存访问者的登录密码，这样，当访问者再次访问这个站点时，不用再输入密码进行登录。

　　当然，cookie也有一些不足。首先，由于利用cookie的功能可以编程实现一些不良企图，所以大多数的浏览器中都有安全设定，其中可以设置是否允许或者接受cookie（IE浏览器中“工具”--“Internet选项...”--“安全”--“自定义级别”--“Cookie的使用”； Netscape浏览器中“工具”--“Cookie管理器”--“管理贮存的Cookie”即可），因此这就不能保证随时能使用cookie。再者，访问者可能有意或者无意地删除cookie。当访问者的机器遇到“蓝屏”死机时，或者重新格式化硬盘、安装系统后，原来保存的cookie将全部丢失。最后一点，有一些最初始的浏览器并不能支持cookie。

一、怎样利用cooklie？

　　有2种使用cookie的基本方式：

　　1、将cookie写入访问者的计算机（使用 Response 命令）

　　2、从访问者的计算机中取回cookie（使用 Request 命令）

◆　创建cookie的基本语法: Response.Cookies(cookie)[(key)|.attribute]=value

　　这里的 cookie 是指定 cookie 的名称。

　　而如果指定了 key，则该 cookie 就是一个字典。

　　测试一、cookie是否为一个字典可用后面代码显示布尔值：<%=Request.Cookies("cookiename").HasKeys%>。为true是字典，false则不是。

　　Attribute 指定 cookie 自身的有关信息。Attribute 参数可以是下列之一 :

  　① Domain 若被指定，则cookie将被发送到对该域的请求中去。域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但你也可以根据需要改变它。如：Response.Cookies("CookieName").Domain =  "www.7dspace.com"

　　② Path 为一路径属性，该属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制 cookie的使用范围。如果未设置该属性，则使用应用程序的路径。如：Response.Cookies("CookieName").Path =  "/maindir/subdir/path" ）

　　③ Expires 指定 cookie 的过期日期。为了在会话结束后将cookie 存储在客户端磁盘上，或在许多时候，我们希望能更长时间地在访问者的计算机上保存cookie。必须设置该日期。若此项属性的设置未超过当前日期，则在任务结束后 cookie 将到期。

　　后面的代码，就可以设置cookie的使用到期时间为“2010年1月1日”：Response.Cookies("CookieName").Expires=#January 01, 2010#

　　后面的代码，将设定cookie的过期时间为“cookie的创建时间＋365天”：Response.Cookies("CookieName").Expires=Date+365

　　但最好不要随便写 Response.Cookies("CookieName").Expires=Date，这样页面之间的调用时值会为空。

　　执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝Ken ：

　　Response.Cookies("VisitorName")="Ken"

　　执行下面的代码将会在访问者的计算机中创建一个cookie，名字＝VisitorName，值＝表单中UserName的值

　　Response.Cookies("VisitorName")=Request.Form("UserName")

　　你可以扩展下面的代码成为Cookie子关键值（CookieSubName），即cookie字典的生成。代码如下：

　　Response.Cookies("VisitorName")("FirstName")="Ken"
　　Response.Cookies("VisitorName")("LastName")="Baumbach"

◆　读取cookie的基本语法：Request.Cookies(cookie)[(key)|.attribute]

　　cookie 指定要检索其值的 cookie。

　　key 可选参数，用于从 cookie 字典中检索子关键字的值。

　　attribe 指定 cookie 自身的有关信息。如：HasKeys 只读，指定 cookie 是否包含关键字。

　　如果客户端浏览器发送了两个同名的 cookie,那么 Request.Cookie 将返回其中路径结构较深的一个。例如，如果有两个同名的的 cookie，但其中一个的路径属性为 /www/ 而另一个为 /www/home/，客户端浏览器同时将两个 cookie 都发送到 /www/home/ 目录中，那么 Request.Cookie 将只返回第二个cookie。

二、案例分析

num.asp（通过留在本地磁盘上的cookie记录一年内访问本站的次数，第一次显示“首次访问”，以后显示“第几次访问”）
程序代码 程序代码
<%
dim num
num = request.cookies("visitnum")
If num > "0" Then
   num = num + 1
   Response.write "您已是第"&num&"次访问本站点了。"
Else
   Response.write "欢迎您首次访问本站。"
   num = 1
End If
response.cookies("visitnum") = num
response.cookies("visitnum").expires = date+365
%>


showcookie.asp（从Cookies文件夹中遍历出浏览器所有的Cookie name，以及相关的字典Cookie的显示（蓝字显示））
程序代码 程序代码
<%
For each cookie in Request.Cookies
  If Request.cookies(cookie).HasKeys =false Then
  Response.write cookie & "=" & Request.Cookies(cookie)
  Response.write ("")
Else
  For each key in Request.Cookies(cookie)
    Response.write ("<font color=blue>")
    Response.write cookie & ".("&key&")" & "=" & Request.Cookies(cookie)(key)
    Response.write ("</font>")
  Next
End If
Next
%>


check.asp
程序代码 程序代码
<%@ LANGUAGE="VBSCRIPT" %>
<%
'首先，设置页面。然后，检查表单变量（在同一个页面中）。如果表单变量存在，就创建cookie，并设置到期时间
bgcolor = Request.Form("bgcolor")
fgcolor = Request.Form("fgcolor")
pwd = Request.form("pwd")

If bgcolor <> "" or fgcolor <> "" Then
   Response.cookies("check")("bgcolor") = bgcolor
   Response.Cookies("check")("fgcolor") = fgcolor
   Response.Cookies("check")("pwd") = pwd
   Response.Cookies("check").Expires = #may 01, 2004#
End If

'接着，读取cookie
bgcolor = request.cookies("check")("bgcolor")
fgcolor = request.cookies("check")("fgcolor")
pwd = request.cookies("check")("pwd")

'如果cookie在访问者的计算机上不存在，就创建一个表单，询问相关信息
If bgcolor = "" And fgcolor = "" And pwd = "" Then
%>
<HTML>
<body>
<div align="center">
<Form action="check.asp" method="post">
  Bgcolor: <input type="text" name="bgcolor"><br>
  Fgcolor: <input type="text" name="fgcolor"><br>
  Password:<input type="password" name="pwd"><br>
  <input type="submit" value="Submit">
</Form>
</div>
</body>
<%
End If

'如果cookie已经存在，并且bgcolor存在，就跳转到color.asp。
If bgcolor <> "" then
   Response.Redirect "color.asp"
End If
%>


color.asp（显示用户爱好颜色的页面特性）
程序代码 程序代码
<%
bgcolor = request.cookies("check")("bgcolor")
fgcolor = request.cookies("check")("fgcolor")
pwd = request.cookies("check")("pwd")
response.write("<body bgcolor="&bgcolor&"><font color="&fgcolor&">")
%>

你的密码是：<%response.write(" "&pwd&" ")%>
]]> http://www.jianglan.net.cn/blog/article.asp?id=264 <![CDATA[Jmail组件发送邮件之绝对能用的函数]]> llk39@163.com(江蓝) Sun,07 Oct 2007 07:15:32 +0800 http://www.jianglan.net.cn/blog/default.asp?id=264
　　01、pop3对象是对pop3邮件接收服务器的操作。
　　02、Messages对象是有关邮件集合的对象。
　　03、Message对象是有关邮件的对象，其是Jmail组件最常用的对象，能发送邮件信息，也能接收邮件信息。
　　04、Header对象是与邮件头相关的对象。
　　05、Recipients对象是有关接收邮件集合的对象。
　　06、Recipient对象是有关接收邮件的对象。
　　07、Attachments对象是有关邮件附件集合的对象。
　　08、Attachment对象是有关邮件附件的对象。
　　09、MailMerge对象是有关邮件模板的对象。
　　10、PGPKeys对象是有关邮件PGP密钥集合的对象。
　　11、PGPKeyInfo对象是有关邮件PGP密钥信息的对象。
　　……

　　在邮件发送的Web应用中，Message对象是最常用的，在使用之前需要建立该对象，并赋值到变量上。
　　
程序代码 程序代码
Set jmail = Server.CreateObject("JMAIL.Message")


　　其中关于Message对象有如下常用的属性和方法应用：

　　01、Silent属性表示屏蔽例外错误，返回FALSE或TRUE值，当值为TRUE时，表示邮件发送会忽略错误，不将错误信息返回给操作系统。
　　　　jmail.silent = true

　　02、Logging属性表示是否启用日志。
　　　　jmail.logging = true

　　03、Charset属性设置邮件显示的字符集，中文简体可使用GB2312。
　　　　jmail.Charset = "GB2312"

　　04、ContentType属性表示邮件正文的类型。
　　　　jmail.ContentType = "text/html"

　　05、AddRecipient方法表示收件人的E-Mail地址。
　　　　jmail.AddRecipient ("cnbruce@126.com")

　　06、From属性表示发件人的E-Mail地址。该地址一般与使用SMTP服务器验证时所需的登录帐户相同。
　　　　jmail.From = "dw8asp@126.com"

　　07、FromName属性表示发件人的名称。
　　　　jmail.FromName = "BruceWolf"

　　08、Subject属性表示设置发送邮件的标题。
　　　　jmail.Subject = "这是邮件的标题"

　　09、Body属性表示设置发送邮件的正文内容，可使用HTML标签代码
　　　　jmail.Body = "这是邮件的内容<br>换行的内容显示"

　　10、Priority属性表示邮件发送的优先级，1为最快，5为最慢，3为默认值。
　　　　jmail.Priority = 1

　　11、MailServerUserName属性表示当邮件服务器使用SMTP发信验证时设置的登录帐户。
　　　　jmail.MailServerUserName = "dw8asp@126.com"

　　12、MailServerPassword属性表示当邮件服务器使用SMTP发信验证时设置的登录密码。
　　　　jmail.MailServerPassword = "**************"

　　13、Send方法表示通过指定的邮件发送服务器进行邮件的发送。需要注意的即是该邮件服务器地址与MailServerUserName和MailServerPassword中的值是一致的。
　　　　jmail.Send("smtp.126.com")

　　14、Close方法表示释放Jmail和邮件服务器连接而使用的缓存空间。
　　　　jmail.Close()

　　由于采用邮件服务器的不同，发送邮件接收人的不同，以及邮件标题和内容的不同，综合这些经常需要变化的值，自定义如下的函数用来完成Jmail发送邮件的功能。

Jmail邮件发送的函数
程序代码 程序代码
<%
Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content)
  Set jmail = Server.CreateObject("JMAIL.Message")
  jmail.silent = true
  jmail.logging = true
  jmail.Charset = "gb2312"
  jmail.ContentType = "text/html"
  jmail.AddRecipient mailTo
  jmail.From = smtpUser
  jmail.FromName = FromName
  jmail.Subject = subject
  jmail.Body = content
  jmail.Priority = 1
  jmail.MailServerUserName = smtpUser
  jmail.MailServerPassword = smtpPass
  jmail.Send(smtpHost)
  jmail.Close()
  response.write("邮件发送成功")
End Function
%>


其中Send_Email表示自定义的函数名称
参数smtpHost表示邮件服务器地址
参数smtpUser表示发信验证所需的登录帐户
参数smtpPass表示发信验证所需的登录密码
参数mailTo表示邮件收件人的E-Mail地址
参数FromName表示邮件发件人的名称
而参数subject和content则分别表示邮件的标题和正文内容

通过如下方法可应用该函数：
程序代码 程序代码
Call Send_EMail("smtp.126.com","dw8asp@126.com","******","cnbruce@msn.com","cnbruce","标题","邮件正文内容")


或者有个人邮局的可使用
程序代码 程序代码
Call Send_EMail("mail.cnbruce.com","root@cnbruce.com","******","cnbruce@msn.com","cnbruce","标题","邮件正文内容")


调试地址]]> http://www.jianglan.net.cn/blog/article.asp?id=263 <![CDATA[Access数据库在线压缩的实现]]> llk39@163.com(江蓝) Sun,07 Oct 2007 02:27:59 +0800 http://www.jianglan.net.cn/blog/default.asp?id=263
　　如果在 Access 数据库中删除数据或对象，或者在 Access 项目中删除对象，Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 Access 数据库或Access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 Access 数据库和 Access 项目的性能。

　　所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用MSaccess来完成压缩操作，然后再上传！后来我想是否可以在线实现对ACCESS数据库的压缩呢？为此我查了一些资料，但还是不得要领。

　　我在本机测试获得成功，又上网对自己的动网论坛实施了压缩操作结果也完全正常，数据库从原来的3.7M压缩到了2.1M从而证实是可行的。需要注意的是：本程序其实是通过FSO权限和JET引擎连接，因此在使用之前请确认你的服务器支持FSO（filesystemobject)权限并安装的 ACCESS最新驱动！从安全出发，请在压缩之前备份原始数据库！已经测试通过的运行环境：WIN98SE+PWS、WIN2000+IIS5.0

　　下面是我整理后的源代码，复制另存为compact.asp并上传到数据库所在目录即可正常使用。
程序代码 程序代码
<html>
<head>
<title>ACCESS数据库压缩程序</title>
</head>
<body bgcolor="e0f8ef">
<div><div align="center"><font color="#3300FF"><b><font size="5">通用ACCESS数据库在线压缩程序</font></b></font><br></div>
<div><br>本程序其实是通过FSO权限和JET引擎连接，因此在使用之前请确认你的服务器支持FSO（filesystemobject)权限并安装的ACCESS最新驱动！从安全出发，请在压缩之前备份原始数据库！</div><br>
<div align="center">运行环境：在WIN98SE+PWS、WIN2000+IIS5.0 <br>

<%
Const JET_3X = 4
Function CompactDB(dbPath, boolIs97)
  Dim fso, Engine, strDBPath
  strDBPath = left(dbPath,instrrev(DBPath,"\"))
  Set fso = CreateObject("Scripting.FileSystemObject")

  If fso.FileExists(dbPath) Then
     Set Engine = CreateObject("JRO.JetEngine")
     If boolIs97 = "True" Then
        Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
        & "Jet OLEDB:Engine Type=" & JET_3X
     Else
        Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
     End If
     fso.CopyFile strDBPath & "temp.mdb",dbpath
     fso.DeleteFile(strDBPath & "temp.mdb")
     Set fso = nothing
     Set Engine = nothing
     CompactDB = "你的数据库, " & dbpath & ", 已经被压缩" & vbCrLf
  Else
     CompactDB = "你输入的数据库路径或名称未找到，请重试" & vbCrLf
  End If
End Function
%>
</div>

<form name="compact" method="post" action="compact.asp">
<div align="center"><font size="2"><b><font color="#FF0000">压缩选项，请仔细填写！</font></b><br>
<br>输入数据库全称：<input type="text" name="dbpath">（包括扩展名，如MDB、ASA、ASP等）<br>
<br><input type="checkbox" name="boolIs97" value="True">检查是否为ACCESS97数据库<br>(默认为ACCESS2000的数据库)<br>
<br><input type="submit" name="submit" value="确认压缩"></font></div>
</form>
<div align="center"><font size="2">
<%
Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")

If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If
%>
<br>
</font>
</div>
]]> http://www.jianglan.net.cn/blog/article.asp?id=259 <![CDATA[Asp输出Word、Excel文件]]> llk39@163.com(江蓝) Thu,04 Oct 2007 09:18:44 +0800 http://www.jianglan.net.cn/blog/default.asp?id=259
程序代码 程序代码
<%
    Dim Fso,FileExt,strFilePath,Mime
    strFilePath = "D:\asptoword.doc"
    Set Fso=Server.CreateObject("Scripting.FileSystemObject")
    FileExt = Fso.GetExtensionName(strFilePath)  
       Set fso=Nothing

    Select Case FileExt
        Case "doc"
        Mime="Application/msword"
        Case "xls"
        Mime="Application/msexcel"
    End Select

Call OutPut(strFilePath,Mime)

'######################################################
Function OutPut(strFilePath,Mime)
Response.ContentType = Mime
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End Function
'######################################################
%>
]]>