Wordpress外贸企业主题, Wp企业主题, wordpress企业主题, wordpress主题定制, PHP代码, ASP代码, 精选JS代码, WORDPRESS, 网站SEO,Flash焦点广告,JS焦点广告,CSS技巧 | 九创主题 » asp文件操作

ASP生成静态Html文件总结

寒林 — Mon, 30 Nov 2009 07:16:53 +0000

把HTML代码写入到文件中然后生成.html格式的文件

<%
　　filename="test.htm"
　　if request("body")<>"" then
　　set fso = Server.CreateObject("Scripting.FileSystemObject")
　　set HTMLwrite = fso.CreateTextFile(server.mappath(""filename""))
　　htmlwrite.write "" request.form("title") ""
　　htmlwrite.write "输出Title内容: " request.form("title") "
输出Body内容:" request.form("body") ""
　　htmlwrite.close
　　set fout=nothing
　　set fso=nothing
　　end if
　　%>
　　

2、但是按照上面的方法生成HTML文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.

　　template.htm ’ //模板文件
　　
　　
　　$title$ by ASPid.cn
　　
　　
　　$body$
　　
　　TestTemplate.asp ’// 生成Html
　　<%
　　Dim fso,htmlwrite
　　Dim strTitle,strContent,strOut
　　’// 创建文件系统对象
　　Set fso=Server.CreateObject("Scripting.FileSystemObject")
　　’// 打开网页模板文件，读取模板内容
　　Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
　　strOut=f.ReadAll
　　htmlwrite.close

　　strTitle="生成的网页标题"
　　strContent="生成的网页内容"

　　’// 用真实内容替换模板中的标记
　　strOut=Replace(strOut,"$title$",strTitle)
　　strOut=Replace(strOut,"$body$",strContent)

　　’// 创建要生成的静态页
　　Set HTMLwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)

　　’// 写入网页内容
　　HTMLwrite.WriteLine strOut
　　htmlwrite.close

　　Response.Write "生成静态页成功！"

　　’// 释放文件系统对象
　　set HTMLwrite=Nothing
　　set fso=Nothing
　　%>

ASP函数大全

寒林 — Mon, 30 Nov 2009 06:56:08 +0000

Abs(number) 返回绝对值。
Array(arglist) 创建一个数组。

Asc(string) 返回字符串第一个字符的ANSI码。

Atn(number) 返回反正弦值。

CBool (expression) 转换成Boolean数据类型变量。

CByte (expression) 转换成Byte数据类型变量。

CCur (expression) 转换成Currency数据类型变量。

CDate (expression) 转换成Date数据类型变量。

CDbl (expression) 转换成Double数据类型变量。

Chr(charcode) 把ANSI 码转换成相应的键盘字符。

CInt (expression) 转换成Integer数据类型变量。

CLng (expression) 转换成Long数据类型变量。

CreateObject(servername.typename) 创建一个自动对象。

CSng (expression) 转换成Single数据类型变量。

CStr (expression) 转换成String数据类型变量。

Date 根据所用的系统返回时间。

DateAdd(interval,number,date) 向date对象添加指定的时间间隔。其中参数interval 接受下表所示的值。

设定值
描述

yyyy 年

q 季度

m 月份

y 一年的第几天

d 天

w 星期几

ww 一年的第几个星期

h 小时

m 分钟

s 秒钟

DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

返回两个日期之间的间隔，关于firstdayofweek及firstweekofyear的值请参考下面的“日期和时间常数”一节。interval参数接受下表所示的值。

设定值
描述

yyyy 年

q 季度

m 月份

y 一年的第几天

d 天

w 星期几

ww 一年的第几个星期

h 小时

m 分钟

s 秒钟

DatePart(interval , date[,firstdayofweek[,firstweekofyear]])

返回Date对象指定部分。关于firstdayofweek及firstweekofyear的值请参考下面的“日期和时间常数”一节。interval参数接受下表所示的值。

设定值
描述

yyyy 年

q 季度

m 月份

y 一年的第几天

d 天

w 星期几

ww一年的第几个星期

h 小时

m 分钟

s 秒钟

DateSerial(year,month,day) 转换成Date数据子类型变体值。

DateValue(date) 转换成Date数据子类型变体值。

Day(date) 根据参数date返回该天在一个月中的号数。

Exp(number) 返回e的number次方的值。

Filter(InputStrings,Value[,Include[,Compare]]) 根据筛选条件创建一个新的数组。关于Compare的值，请参看后面“比较常数”一节。

Fix(number) 转换成一个整数（对于负数，只入不舍）。

FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigit]]]]) 格式化成currency形式。关于IncludeleadingDigit,UseParensForNegativeNumbers及GroupDigit的值请参看后面“三态常数”一节。

FormatDateTime(Date[,NamedFormat]) 对日期及时间进行格式化输出。关于NamedFormat的值请参看后面“日期格式常数”一节。

FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigit]]]]) 对数字进行格式化。关于IncludeleadingDigit,UseParensForNegativeNumbers及GroupDigit的值请参看后面“三态常数”一节。

FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigit]]]]) 对百分数进行格式化。关于IncludeleadingDigit,UseParensForNegativeNumbers及GroupDigit的值请参看后面“三态常数”一节。

GetObject([pathname][,class]) 从指定的文件中返回指定的动态对象。

Hex(number) 返回数number的十六进制的值。

Hour(time) 根据参数time的值返回小时。

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 显示一个临时的输入框，并且返回用户的输入。

InStr([start,]string1,string2[,compare]) 返回字符串string2在字符串string1中第一次出现的位置。关于compare的值请参看后面的“比较常数”一节。

InStrRev(string1,string2 [start [,compare]]) 返回字符串string2在字符串string1中最后出现的位置。关于compare的值请参看后面的“比较常数”一节。

Int(number) 返回一个整数(负数只舍不入)。

IsArray(varname) 确定变量是否是一个数组。

IsDate(expression) 确定表达式expression能否转换成日期格式。

IsEmpty(varname) 确定变量是否已经初始化了。

IsNull(expression) 确定表达式expression是否为空。

IsNumberic(expression) 确定表达式expression的结果是否是一个数。

IsObject(expression) 确定表达式expression是否是一个自动对象。

Join(list,[,delimiter]) 把一个数组中的所有子字符串连接起来，连接所用的分隔符由delimiterd的值设定。

LBound(arrayname[,dimension]) 返回数组某维的最低界限。在当前的VBScript版本中，该函数总是返回值0。

Lcase(string) 以小写字符格式化。

Left(string,length) 返回指定长度的字符串string左部分。

Len(string|varname) 返回字符串string的长度或变量varname的字节长度。

LoadPicture(pitcurename) 载入一个图片对象。

Log(number)返回数number的自然对数值。

Ltrim(string) 删除字符串string左边多余的空格。

Mid(strin,start[,length]) 返回指定长度的字符串string的子串。

Minute(time) 根据参数time的值返回分钟的值。

Month(date) 返回以数字表示的月份。

MonthName(month[,abbreviate]) 返回以名称表示的月份。

MsgBox(prompt[,buttons][,title][helpfile,context]) 显示一个消息框，要求用户选择一个按钮，返回能指明用户所做选择的值。关于button的值和返回值请参看后面“消息框常数”一节。

Now 根据系统，返回当前的日期和时间。

Oct(number) 返回数number的八进制值。

Replace(expression,find,replacewith[,start[,count[,compare]]]) 用指定的子字符串replacewith替换指定的子字符串find指定的次数。关于参数compare的值请参看后面“比较常数”一节。

Right(string,length) 返回指定长度的字符串string的右部分子串。

Rnd([number]) 产生一个随机数。

Round(number[,numdecimalplaces]根据指定的十进制位数对数number进行四舍五入。

RTrim(string) 删除字符串string右边多余的空格。

ScriptEngine 返回使用的脚本语言的名称。

ScriptEngineBuildVersion 返回使用的脚本引擎版本。

ScriptEngineMaorVersion 返回使用的脚本引擎的大版本号。

Second(time) 根据参数time的值返回该分的第几秒。

Sgn(number) 返回数number的正负号。

Sin(number) 返回数number的正弦值。

Space(number) 用指定数量的空格创建字符串。

Split(expression[,delimiter[,count[,compare]]]) 把一个字符串分割并转换成数组。关于compare的值请参看后面“比较常数”一节。

Sqr(number) 返回数number的平方根值。

StrComp(string1,string2[,compare]) 字符串比较。关于compare的值请参看后面“比较常数”一节。

StrReverse(string1) 对字符串string1进行倒序。

String(number,character)用number个字符character创建字符串。

Tan(number) 返回数number的正切。

Time 根据系统返回当前时间。

TimeSerial(hour,minute,second) 返回Date变量体。

TimeValue(time) 返回包含时间的Date变量体。

Trim(string) 删除字符串string两边的多余空格。

TypeName(varname) 返回子类型的名称。关于返回值请参看后面“变量类型常数”一节。

UBound(arrayname[,dimension]) 返回数组某维的上边界。缺省维数时，为第一维。 Ucase(string)

用大写字母格式格式化字符串string。

VarType(varname) 返回子类型的值。关于返回值请参看后面“变量类型常数”一节。

Weekday(date,[firstdayofweek]) 用数字形式返回星期几。关于参数firstdayofweek的值请参看后面“变量类型常数”一节。

WeekDayName(weekday,abbreviate,firstdayofweek) 用名称形式返回星期几。关于参数firstdayofweek的值请参看后面“变量类型常数”一节。

Year(date) 根据参数date返回年份。

你的姓名是：<%= Request.Form("yourname") %>

你的密码是：<%= Request.Form("yourpw") %>

在这个 .ASP 文件里，你可以看到最关键的两句代码是：

你的姓名是：<%= Request.Form("yourname") %>

你的密码是：<%= Request.Form("yourpw") %>

Request.Form 括号里的 "yourname" 和"yourpw" 各对应于 HTML 表单中的两个 input 输入框的 name 值。

当使用 method="post" 提交表单信息时，用户不会从地址栏看到这些提交信息。

HTML表单中还有一些可供用户选择的表单控件，比如单选框 input type="radio"，复选框 input type="checkbox"，单选下拉框 select，复选下拉框 select multiple。

这些选择性的控件示例，请参见 HTML表单教程。在这些示例中，action 指向的那个 .ASP 文件叫 choose.asp。以下是 choose.asp 文件的源代码：

retrieve information from form controls(radio, checkbox, select)

你选择了：

<% For counter = 1 To Request.Form("fruit").Count

Response.Write Request.Form("fruit")(counter) & "
"

Request.Form 获取的是一个集合 (collection)。Request.Form 集合有两个参数，一个是 element，称做元素，对应 HTML表单控件的 name 值；第二个是 index，称做索引，表示 element 的第几个值，index 从1开始计数。

用 Request.Form(element)(index) 可以引用 Request.Form 集合中某个元素的某个值。

比如 Request.Form("fruit")(1)，表示"fruit"元素中的第一个值，Request.Form("fruit")(2) 表示"fruit"元素中的第2个值。

用 Request.Form(element).Count，可以得到集合中某个元素的值的总数量。

比如 Request.Form("fruit").Count 为 3 的话，就表示 "fruit" 这个元素有3个值。

学习ASP获取HTML表单提交的信息实例

寒林 — Mon, 30 Nov 2009 06:39:23 +0000

学习ASP获取HTML表单提交信息的实例
在 ASP 中，有两个很常用的集合，一个是 Request.QueryString，另一个是 Request.Form。这两个集合可以获取 HTML 表单(HTML Forms) 提交的信息。

HTML 表单中的 method 有两种，一种是 get，另外一种是 post。当 HTML 表单的 method="get" 时，可以用 Request.QueryString 来获取表单提交的信息。

以下是一个让用户输入姓名的 HTML 表单示例。

http://www.webyi.com/HTML/asdocs/html_tutorials/userpw.ASP" method="post">
请输入你的姓名：

该示例中，HTML 表单中使用的 method 为 get，指向 action 的网页是一个 .ASP 文件，名字为 yourname.asp。以下是 yourname.asp 文件的源代码：

姓名信息

你的姓名是：<%= Request.QueryString("yourname") %>

在这个 .ASP 文件里，你可以看到最关键的一句代码是：

你的姓名是：<%= Request.QueryString("yourname") %>

Request.QueryString 括号里的 "yourname" 对应于 HTML 表单中的 input 输入框的 name 值。

当使用 method="get" 提交表单信息时，用户可以从地址栏看到这些提交信息。

Request.Form

当 HTML 表单中 method = "post" 时，可以用 Request.Form 来获取 HTML 表单提交的信息。

以下是一个让用户输入姓名和密码的 HTML 表单示例。

http://www.webyi.com/HTML/asdocs/html_tutorials/userpw.ASP" method="post">

请输入你的姓名：

请输入你的密码：

该示例中，HTML 表单中使用的 method 为 post，指向 action 的网页是一个 .ASP 文件，名字为 userpw.asp。以下是 userpw.asp 文件的源代码：

用户信息

你的姓名是：<%= Request.Form("yourname") %>

你的密码是：<%= Request.Form("yourpw") %>

在这个 .ASP 文件里，你可以看到最关键的两句代码是：

你的姓名是：<%= Request.Form("yourname") %>

你的密码是：<%= Request.Form("yourpw") %>

Request.Form 括号里的 "yourname" 和"yourpw" 各对应于 HTML 表单中的两个 input 输入框的 name 值。

当使用 method="post" 提交表单信息时，用户不会从地址栏看到这些提交信息。

HTML表单中还有一些可供用户选择的表单控件，比如单选框 input type="radio"，复选框 input type="checkbox"，单选下拉框 select，复选下拉框 select multiple。

这些选择性的控件示例，请参见 HTML表单教程。在这些示例中，action 指向的那个 .ASP 文件叫 choose.asp。以下是 choose.asp 文件的源代码：

retrieve information from form controls(radio, checkbox, select)

你选择了：

<% For counter = 1 To Request.Form("fruit").Count

Response.Write Request.Form("fruit")(counter) & "
"

用 Request.Form(element)(index) 可以引用 Request.Form 集合中某个元素的某个值。

比如 Request.Form("fruit")(1)，表示"fruit"元素中的第一个值，Request.Form("fruit")(2) 表示"fruit"元素中的第2个值。

用 Request.Form(element).Count，可以得到集合中某个元素的值的总数量。

比如 Request.Form("fruit").Count 为 3 的话，就表示 "fruit" 这个元素有3个值。

ASP遍历文件文件夹的函数

寒林 — Wed, 25 Nov 2009 02:49:25 +0000

ASP遍历文件文件夹的函数

<%@ Language=VBScript %>
<%
function bianli(path)
dim fso            'fso对象
dim objFolder      '文件夹对象
dim objSubFolders '子文件夹集合
dim objSubFolder   '子文件夹对象
dim objFiles       '文件集合
dim objFile        '文件对象

set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)'创建文件夹对象
set objSubFolders=objFolder.Subfolders'创建的子文件夹对象
for each objSubFolder in objSubFolders
nowpath=path + "\\" + objSubFolder.name
Response.Write nowpath
set objFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "
---"
Response.Write objFile.name
next
Response.Write "

"
bianli(nowpath) '调用递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:\") '调用bianli()函数,这里是遍历d:盘
%>

ASP读取文本文件的函数

寒林 — Wed, 25 Nov 2009 02:46:03 +0000

ASP读取文本文件的函数

'[读取文本文件]
'函数名：ReadTextFile
'作用：读取文本文件
'参数：Fname ---- 文本文件名称（包括路径）
'返回值：返回读取的文本内容
'**************************************************
Public Function ReadTextFile(ByVal Fname)
Dim M_fso,FnameN,Fnr
ReadTextFile=""
Set M_fso = CreateObject("Scripting.FileSystemObject")
Set FnameN= M_fso.OpenTextFile(Fname,1,True)
Fnr=FnameN.ReadAll
FnameN.Close
Set M_fso = Nothing
ReadTextFile=Fnr
End Function

ASP创建文本文件的函数

寒林 — Wed, 25 Nov 2009 02:44:27 +0000

ASP创建文本文件的函数

'[创建文本文件]
'函数名：WritTextFile
'作用：创建文本文件
'参数：Fname ---- 文本文件名称（包括路径）
'参数：WritString ---- 写入的内容
'返回值：创建成功返回True，否则False
'**************************************************
Public Function WritTextFile(ByVal Fname,ByVal WritString)
Dim M_fso,FnameN
WritTextFile=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
Set FnameN= M_fso.OpenTextFile(Fname,2,True)
FnameN.Write WritString
FnameN.Close
Set M_fso = Nothing
WritTextFile=True
End Function

ASP判断文件是否存在的函数

寒林 — Wed, 25 Nov 2009 02:41:50 +0000

ASP判断文件是否存在的函数
'[测试某个文件存在否]
'函数名：CheckFile
'作用：测试某个文件存在否
'参数：ckFilename ---- 被测试的文件名（包括路径）
'返回值：文件存在返回True,否则False
'**************************************************
Public Function CheckFile(ByVal ckFilename)
Dim M_fso
CheckFile=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If M_fso.FileExists(ckFilename) Then
CheckFile=True
End If
Set M_fso = Nothing
End Function

ASP删除文件的函数

寒林 — Wed, 25 Nov 2009 02:39:48 +0000

ASP删除文件的函数

'[删除某个文件]
'函数名：DelFile
'作用：删除某个文件
'参数：dFilename ---- 被删除的文件名（包括路径）
'返回值：文件删除返回True,否则False
'**************************************************
Public Function DelFile(ByVal dFilename)
Dim M_fso
DelFile=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If M_fso.FileExists(dFilename) Then
M_fso.DeleteFile(dFilename)
DelFile=True
End If
Set M_fso = Nothing
End Function

asp判断目录或文件夹是否存在

寒林 — Wed, 25 Nov 2009 02:37:57 +0000

asp判断目录或文件夹是否存在

'[判断目录是否存在]
'函数名：CheckDir
'作用：判断目录是否存在
'参数：ckDirname ---- 目录名（包括路径）
'返回值：目录存在返回True,否则False
'**************************************************
Public Function CheckDir(ByVal ckDirname)
Dim M_fso
CheckDir=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If (M_fso.FolderExists(ckDirname)) Then
CheckDir=True
End If
Set M_fso = Nothing
End Function

ASP FSO创建目录文件夹的函数

寒林 — Wed, 25 Nov 2009 02:36:25 +0000

ASP FSO创建目录文件夹的函数

'[创建目录]
'函数名：CreateDir
'作用：创建目录
'参数：crDirname ---- 目录名（包括路径）
'返回值：目录创建成功返回True,否则False
'**************************************************
Public Function CreateDir(ByVal crDirname)
Dim M_fso
CreateDir=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If (M_fso.FolderExists(crDirname)) Then
CreateDir=False
Else
M_fso.CreateFolder(crDirname)
CreateDir=True
End If
Set M_fso = Nothing
End Function

ASP删除指定文件夹的函数

寒林 — Wed, 25 Nov 2009 02:34:27 +0000

ASP删除指定文件夹的函数

'[删除目录]
'函数名：DelDir
'作用：删除目录
'参数：DlDirname ---- 目录名（包括路径）
'返回值：目录删除成功返回True,否则False
'**************************************************
Public Function DelDir(ByVal DlDirname)
Dim M_fso
DelDir=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If (M_fso.FolderExists(DlDirname)) Then
M_fso.DeleteFolder(DlDirname)
DelDir=True
End If
Set M_fso = Nothing
End Function