EZA v0.2 使用指南

千一网络 www.cftea.com


简介

嗨,还在等什么! 现在用 ASP 开发网站和应用程序,有了好帮手——EZA!EZA 是一款 ASP 开发框架,集成了常用的 ASP 开发内容: 尤其是其文件操作、图文混传、网页抓取简直让您事半功倍,其中图文混传功能强大,使用却非常非常简单。

EZA.asp 与 DEZA.asp

EZA.asp 创建一个 CEZA 对象,以便我们在后面的程序中使用它。一般在页面的最前面引用它。

<!--#include file="EZA.asp"-->

DEZA.asp 销毁 CEZA 对象。一般在页面的最后引用它。

<!--#include file="DEZA.asp"-->

ConnString.asp

EZA.ConnString.Access(filePath)

返回连接 Access 的字符串。

<!--#include file="EZA.asp"-->
<!--#include file="ConnString.asp"-->
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open EZA.ConnString.Access(Server.MapPath("db.mdb"))
%>
<!--#include file="DEZA.asp"-->

EZA.ConnString.Access2007(filePath)

返回连接 Access 2007 的字符串。

<!--#include file="EZA.asp"-->
<!--#include file="ConnString.asp"-->
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open EZA.ConnString.Access2007(Server.MapPath("db.accdb"))
%>
<!--#include file="DEZA.asp"-->

EZA.ConnString.Excel(filePath, header)

返回连接 Excel 的字符串。

<!--#include file="EZA.asp"-->
<!--#include file="ConnString.asp"-->
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open EZA.ConnString.Excel(Server.MapPath("db.xls"), "NO")
%>
<!--#include file="DEZA.asp"-->

EZA.ConnString.Excel2007(filePath, header)

返回连接 Excel 2007 的字符串。

<!--#include file="EZA.asp"-->
<!--#include file="ConnString.asp"-->
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open EZA.ConnString.Excel2007(Server.MapPath("db.xlsx"), "NO")
%>
<!--#include file="DEZA.asp"-->

EZA.ConnString.MySQL(datasource, db, userId, password)

返回连接 MySQL 的字符串。

<!--#include file="EZA.asp"-->
<!--#include file="ConnString.asp"-->
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open EZA.ConnString.MySQL("127.0.0.1", "db", "cftea", "pass")
%>
<!--#include file="DEZA.asp"-->

EZA.ConnString.SQLServer(datasource, db, userId, password)

返回连接 SQLServer 的字符串。

<!--#include file="EZA.asp"-->
<!--#include file="ConnString.asp"-->
<%
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open EZA.ConnString.SQLServer("127.0.0.1", "db", "cftea", "pass")
'EZA.ConnString.SQLServer("127.0.0.1", "db", "", "")
%>
<!--#include file="DEZA.asp"-->

DateTime.asp

EZA.DateTime.Format(dt, dtFormat)

自定义格式化日期时间。

<!--#include file="EZA.asp"-->
<!--#include file="DateTime.asp"-->
<%
Response.Write(EZA.DateTime.Format(Now(), "yyyy-mm-dd hh:nn:ss"))
%>
<!--#include file="DEZA.asp"-->

Encoding.asp

EZA.Encoding.URLEncode(s)

按 ANSI 编码字符串,等效于 Server.URLEncode。

<!--#include file="EZA.asp"-->
<!--#include file="Encoding.asp"-->
<%
dim s, es, ds
s = "千? +%一"
es = EZA.Encoding.URLEncode(s)
ds = EZA.Encoding.URLDecode(es)
Response.Write("<p>" & s & "</p>" & vbcrlf)
Response.Write("<p>" & es & "</p>" & vbcrlf)
Response.Write("<p>" & ds & "</p>" & vbcrlf)
%>
<!--#include file="DEZA.asp"-->

EZA.Encoding.URLDecode(s)

按 ANSI 解码字符串。

<!--#include file="EZA.asp"-->
<!--#include file="Encoding.asp"-->
<%
dim s, es, ds
s = "千? +%一"
es = EZA.Encoding.URLEncode(s)
ds = EZA.Encoding.URLDecode(es)
Response.Write("<p>" & s & "</p>" & vbcrlf)
Response.Write("<p>" & es & "</p>" & vbcrlf)
Response.Write("<p>" & ds & "</p>" & vbcrlf)
%>
<!--#include file="DEZA.asp"-->

EZA.Encoding.UTF8URLEncode(s)

按 UTF-8 编码字符串,等效于 JavaScript 的 encodeURIComponent。

<!--#include file="EZA.asp"-->
<!--#include file="Encoding.asp"-->
<%
dim s, es, ds
s = "千? +%一"
es = EZA.Encoding.UTF8URLEncode(s)
ds = EZA.Encoding.UTF8URLDecode(es)
Response.Write("<p>" & s & "</p>" & vbcrlf)
Response.Write("<p>" & es & "</p>" & vbcrlf)
Response.Write("<p>" & ds & "</p>" & vbcrlf)
%>
<!--#include file="DEZA.asp"-->

EZA.Encoding.UTF8URLDecode(s)

按 UTF-8 解码字符串,等效于 JavaScript 的 decodeURIComponent。

<!--#include file="EZA.asp"-->
<!--#include file="Encoding.asp"-->
<%
dim s, es, ds
s = "千? +%一"
es = EZA.Encoding.UTF8URLEncode(s)
ds = EZA.Encoding.UTF8URLDecode(es)
Response.Write("<p>" & s & "</p>" & vbcrlf)
Response.Write("<p>" & es & "</p>" & vbcrlf)
Response.Write("<p>" & ds & "</p>" & vbcrlf)
%>
<!--#include file="DEZA.asp"-->

File.asp

EZA.File.Read(filePath)

读取文件的全部内容。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
Response.Write(EZA.File.Read(Server.MapPath("1.txt")))
%>
<!--#include file="DEZA.asp"-->

EZA.File.Write(filePath, content)

向文件写内容。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
call EZA.File.Write(Server.MapPath("1.txt"), "123")
%>
<!--#include file="DEZA.asp"-->

EZA.File.GetIsExists(filePath)

判断文件是否存在。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
Response.Write(EZA.File.GetIsExists(Server.MapPath("1.txt")))
%>
<!--#include file="DEZA.asp"-->

EZA.File.GetSize(filePath)

获取文件的大小。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
Response.Write(EZA.File.GetSize(Server.MapPath("1.txt")))
%>
<!--#include file="DEZA.asp"-->

EZA.File.Move(srcFilePath, destFilePath)

移动文件。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
call EZA.File.Move(Server.MapPath("1.txt"), Server.MapPath("2.txt"))
%>
<!--#include file="DEZA.asp"-->

EZA.File.Copy(srcFilePath, destFilePath)

复制文件。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
call EZA.File.Copy(Server.MapPath("1.txt"), Server.MapPath("2.txt"))
%>
<!--#include file="DEZA.asp"-->

EZA.File.Delete(filePath)

删除文件。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
call EZA.File.Delete(Server.MapPath("1.txt"))
%>
<!--#include file="DEZA.asp"-->

EZA.File.GetFileName(filePath)

从文件全路径中取文件名,将“/”或“\”作为目录之间、目录与文件名之间的分隔符。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
Response.Write(EZA.File.GetFileName("C:/123\456/789\1.txt")) ' 1.txt
%>
<!--#include file="DEZA.asp"-->

EZA.File.GetExtention(fileName)

取扩展名(含“.”)。

<!--#include file="EZA.asp"-->
<!--#include file="File.asp"-->
<%
Response.Write(EZA.File.GetExtention("1.txt")) ' .txt
%>
<!--#include file="DEZA.asp"-->

Folder.asp

EZA.Folder.Create(folderPath)

创建文件夹,支持多级文件夹创建。比如 Create(Server.MapPath("a\b\c")) 自动创建 a,然后在 a 下自动创建 b,再在 b 下自动创建 c。

<!--#include file="EZA.asp"-->
<!--#include file="Folder.asp"-->
<%
call EZA.Folder.Create(Server.MapPath("a\b\c"))
%>
<!--#include file="DEZA.asp"-->

IP.asp

EZA.IP.Query()

获取并返回客户端 IP,如果客户端使用了代理,则跳过代理。

<!--#include file="EZA.asp"-->
<!--#include file="IP.asp"-->
<%
Response.Write(EZA.IP.Query())
%>
<!--#include file="DEZA.asp"-->

EZA.IP.ToNumber(ip)

将 IP 转换成数字(按 256 进制)。

<!--#include file="EZA.asp"-->
<!--#include file="IP.asp"-->
<%
Response.Write(EZA.IP.ToNumber("127.0.0.1")) ' 2130706433
%>
<!--#include file="DEZA.asp"-->

EZA.IP.FromNumber(n)

将数字转换成 IP。

<!--#include file="EZA.asp"-->
<!--#include file="IP.asp"-->
<%
Response.Write(EZA.IP.FromNumber(2130706433)) ' 127.0.0.1
%>
<!--#include file="DEZA.asp"-->

Math.asp

EZA.Math.NextRandom(min, max)

产生并返回一个 [min, max] 范围的随机整数。

<!--#include file="EZA.asp"-->
<!--#include file="Math.asp"-->
<%
Response.Write(EZA.Math.NextRandom(1, 100))
%>
<!--#include file="DEZA.asp"-->

SecCode.asp

EZA.SecCode.Show(codeName)

输出一个验证码。

<!--#include file="EZA.asp"-->
<!--#include file="SecCode.asp"-->
<%
call EZA.SecCode.Show("loginCode")
%>
<!--#include file="DEZA.asp"-->

EZA.SecCode.Check(codeName, value)

验证一个验证码,不区分大小写。

<!--#include file="EZA.asp"-->
<!--#include file="SecCode.asp"-->
<%
if not EZA.SecCode.Check("loginCode", Request.Form("loginCode")) then
    '验证未通过
end if
%>
<!--#include file="DEZA.asp"-->

Security.asp

EZA.Security.MD5(s)

计算并返回 s 的 MD5 散列值。

<!--#include file="EZA.asp"-->
<!--#include file="Security.asp"-->
<%
Response.Write(EZA.Security.MD5("abc"))
%>
<!--#include file="DEZA.asp"-->

EZA.Security.SHA1(s)

计算并返回 s 的 SHA-1 散列值。

<!--#include file="EZA.asp"-->
<!--#include file="Security.asp"-->
<%
Response.Write(EZA.Security.SHA1("abc"))
%>
<!--#include file="DEZA.asp"-->

Upload.asp

EZA.Upload.QueryVar(element)

取 name 属性值为 element 的表单元素的 value 属性值。如果存在多个同名的 element,则以数组形式返回。

提交页表单 enctype 属性值应为 multipart/form-data。

<form action="upload_process.asp" method="post" enctype="multipart/form-data">
  <ul>
    <li><input type="text" name="newsTitle" value="title" /></li>
    <li><input type="text" name="keyword" value="k1" /></li>
    <li><input type="text" name="keyword" value="k2" /></li>
    <li><input type="file" name="newsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="submit" value="submit" /></li>
  </ul>
</form>
<!--#include file="EZA.asp"-->
<!--#include file="Upload.asp"-->
<%
Response.Write(EZA.Upload.QueryVar("newsTitle") & "<br />")
Response.Write(EZA.Upload.QueryVar("keyword")(0) & "<br />")
Response.Write(EZA.Upload.QueryVar("keyword")(1) & "<br />")
%>
<!--#include file="DEZA.asp"-->

EZA.Upload.QueryFileSize(element)

取 name 属性值为 element 的文件表单元素的文件大小。如果存在多个同名的 element,则以数组形式返回。

提交页表单 enctype 属性值应为 multipart/form-data。

在某些浏览器中(比如 Chrome),如果没有为文件表单元素选择文件,浏览器就会不发送该元素的任何数据到服务器,就像不存在该元素一样。

<form action="upload_process.asp" method="post" enctype="multipart/form-data">
  <ul>
    <li><input type="text" name="newsTitle" value="title" /></li>
    <li><input type="text" name="keyword" value="k1" /></li>
    <li><input type="text" name="keyword" value="k2" /></li>
    <li><input type="file" name="newsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="submit" value="submit" /></li>
  </ul>
</form>
<!--#include file="EZA.asp"-->
<!--#include file="Upload.asp"-->
<%
Response.Write(EZA.Upload.QueryFileSize("newsPic") & "<br />")
'Response.Write(EZA.Upload.QueryFileSize("bigNewsPic")(0) & "<br />")
'Response.Write(EZA.Upload.QueryFileSize("bigNewsPic")(1) & "<br />")
%>
<!--#include file="DEZA.asp"-->

EZA.Upload.QueryFileName(element)

取 name 属性值为 element 的文件表单元素的文件名。如果存在多个同名的 element,则以数组形式返回。

提交页表单 enctype 属性值应为 multipart/form-data。

在某些浏览器中(比如 Chrome),如果没有为文件表单元素选择文件,浏览器就会不发送该元素的任何数据到服务器,就像不存在该元素一样。

<form action="upload_process.asp" method="post" enctype="multipart/form-data">
  <ul>
    <li><input type="text" name="newsTitle" value="title" /></li>
    <li><input type="text" name="keyword" value="k1" /></li>
    <li><input type="text" name="keyword" value="k2" /></li>
    <li><input type="file" name="newsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="submit" value="submit" /></li>
  </ul>
</form>
<!--#include file="EZA.asp"-->
<!--#include file="Upload.asp"-->
<%
Response.Write(EZA.Upload.QueryFileName("newsPic") & "<br />")
'Response.Write(EZA.Upload.QueryFileName("bigNewsPic")(0) & "<br />")
'Response.Write(EZA.Upload.QueryFileName("bigNewsPic")(1) & "<br />")
%>
<!--#include file="DEZA.asp"-->

EZA.Upload.QueryExtention(element)

取 name 属性值为 element 的文件表单元素的文件扩展名。如果存在多个同名的 element,则以数组形式返回。

提交页表单 enctype 属性值应为 multipart/form-data。

在某些浏览器中(比如 Chrome),如果没有为文件表单元素选择文件,浏览器就会不发送该元素的任何数据到服务器,就像不存在该元素一样。

<form action="upload_process.asp" method="post" enctype="multipart/form-data">
  <ul>
    <li><input type="text" name="newsTitle" value="title" /></li>
    <li><input type="text" name="keyword" value="k1" /></li>
    <li><input type="text" name="keyword" value="k2" /></li>
    <li><input type="file" name="newsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="submit" value="submit" /></li>
  </ul>
</form>
<!--#include file="EZA.asp"-->
<!--#include file="Upload.asp"-->
<%
Response.Write(EZA.Upload.QueryExtention("newsPic") & "<br />")
'Response.Write(EZA.Upload.QueryExtention("bigNewsPic")(0) & "<br />")
'Response.Write(EZA.Upload.QueryExtention("bigNewsPic")(1) & "<br />")
%>
<!--#include file="DEZA.asp"-->

EZA.Upload.Save(element, index, filePath)

保存 name 属性值为 element 的文件表单元素的文件。由于一个表单中可能有多个同名的文件表单元素,所以 index 指明了取这些同名文件表单元素中的哪一个,一般情况下该值为 0。

提交页表单 enctype 属性值应为 multipart/form-data。

在某些浏览器中(比如 Chrome),如果没有为文件表单元素选择文件,浏览器就会不发送该元素的任何数据到服务器,就像不存在该元素一样。

<form action="upload_process.asp" method="post" enctype="multipart/form-data">
  <ul>
    <li><input type="text" name="newsTitle" value="title" /></li>
    <li><input type="text" name="keyword" value="k1" /></li>
    <li><input type="text" name="keyword" value="k2" /></li>
    <li><input type="file" name="newsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="file" name="bigNewsPic" /></li>
    <li><input type="submit" value="submit" /></li>
  </ul>
</form>
<!--#include file="EZA.asp"-->
<!--#include file="Upload.asp"-->
<%
call EZA.Upload.Save("newsPic", 0, Server.MapPath("1" & EZA.Upload.QueryExtention("newsPic")))
%>
<!--#include file="DEZA.asp"-->

Web.asp

EZA.Web.Query(url)

抓取指定 URL 的网页内容并返回。

<!--#include file="EZA.asp"-->
<!--#include file="Web.asp"-->
<%
Response.Write(EZA.Web.Query("http://www.cftea.com/"))
%>
<!--#include file="DEZA.asp"-->

EZA.Web.Save(url, filePath)

抓取 URL 的内容,并保存为文件。

<!--#include file="EZA.asp"-->
<!--#include file="Web.asp"-->
<%
call EZA.Web.Save("http://www.cftea.com/images/cftea.gif", Server.MapPath("cftea.gif"))
%>
<!--#include file="DEZA.asp"-->