栏目导航

热点推荐

阅览排行

当前位置：主页>网络编程>ASP教程>资讯:ASP常用代码段之三

ASP常用代码段之三

www.jz123.cn 2010-09-29 来源: 中国建站责任编辑(袁袁) 我要投递新闻

1：asp遍历文件夹，找到符合条件的文件

function bianli(sourcepath,str)
    dim fso,objfolder,objsubfolders,objSubFolder
    set fso=server.CreateObject(Const_ScriptFileSystem)
    set objFolder=fso.GetFolder(server.mappath(sourcepath))
    set objSubFolders=objFolder.Subfolders
    for each objSubFolder in objSubFolders
        if left(objSubFolder.name,sile)=str Then
            response.write sourcepath&"/"&objSubFolder.name &"======================>"&objSubFolder.name &"<BR>"
            i=i+1
        End If
        Call bianli(sourcepath & "/" & objSubFolder.name ,str)'递归
    next
    set objFolder=nothing
    set objSubFolders=nothing
    set fso=nothing
end function

2：asp Jmail 发送程序

<%
'参数说明
'Subject     : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email       : 收件人邮件地址
'Sender      : 发件人姓名
'Content     : 邮件内容
'Fromer      : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
      Set jmail = Server.CreateObject("JMAIL.SMTPMail")   '创建一个JMAIL对象
      jmail.silent = true   'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
      jmail.logging = true   '启用使用日志
      jmail.Charset = "GB2312" '邮件文字的代码为简体中文
      jmail.ContentType = "text/html" '邮件的格式为HTML的
      jmail.ServerAddress =mailaddress '发送邮件的服务器
      jmail.AddRecipient Email    '邮件的收件人
      jmail.SenderName = sender   '邮件发送者的姓名
      jmail.Sender = fromer    '邮件发送者的邮件地址
      jmail.Priority = 1   '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
      jmail.Subject = subject '邮件的标题
      jmail.Body = content   '邮件的内容
      '由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
      'jmail.AddRecipientBCC Email   '密件收件人的地址
      'jmail.AddRecipientCC Email   '邮件抄送者的地址
      jmail.Execute()   '执行邮件发送
if JMailerror then
response.write"发送成功！"
else
response.write JMailerror
end if
      jmail.Close    '关闭邮件对象
End Sub

'调用此Sub的例子

Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)

%>

3：asp创建文件夹

'==================================================
'函数名：BuildFolder
'作用：创建文件夹
'参数：path ----------要创建的文件夹(路径)
'==================================================
function BuildFolder(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder(Server.MapPath(path))
    fso.Close
    Set fso=Nothing
End Function
'==================================================
'函数名：Buildfile
'作用：创建文件
'参数：Htmlcode ------要创建的文件信息
'参数：filex ----------要创建的文件名(路径)
'==================================================
function Buildfile(filex,Htmlcode)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set html = fso.CreateTextFile(Server.MapPath(filex))
        html.WriteLine Htmlcode
        html.close
    Set html=Nothing
    fso.Close
    Set fso=Nothing
End Function
'==================================================
'函数名：Savefile
'作用：修改文件
'参数：file_body ------要创建的文件信息
'参数：file_name ------要创建的文件名(路径)
'参数：Cset -----------定义要创建的文件编码
'==================================================
Function Savefile(file_body,file_name,Cset)
Set OS=Server.CreateObject("ADODB.Stream")
        OS.Type=2
        OS.Open
        OS.Charset = Cset
        OS.Position=OS.Size
        OS.WriteText=file_body
        OS.SaveToFile Server.MapPath(file_name),2
        OS.Close
Set OS=Nothing
End Function

4：asp删除文件夹

'==================================================
'函数名：DelFolder
'作用：删除文件夹
'参数：FolderPath ------要删除的文件夹路径
'==================================================
Function DelFolder(FolderPath)
    dim path
    path=FolderPath
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set DeleteFolder = FSO.GetFolder(Server.MapPath(path))
    DeleteFolder.Delete
    fso.Close
    Set fso=Nothing
    Response.Write("<script language=""Javascript"">alert(""文件夹已删除"");history.go(-1);</script>")
End Function

5：asp检索文件是否存在

'==================================================
'函数名：ChkFile
'作用：检索文件是否存在
'参数：FilePath ------要检索的文件路径
'==================================================
Function ChkFile(FilePath)
    dim path
    path=Server.MapPath(FilePath)
    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(path) then
       ChkFile="OK!"
    Else
       ChkFile="文件不存在"
    End IF
    fso.Close
    Set fso=Nothing
End Function

6：asp删除文件

'==================================================
'函数名：DelFile
'作用：删除文件
'参数：FilePath ------要删除的文件的路径
'==================================================
Function DelFile(FilePath)
dim path
    path=Server.MapPath(FilePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    '用两种方法删除文件
    fso.DeleteFile(path)'第一种方法
    Set File= FSO.GetFile(path)'第二种方法
        File.Delete
    fso.Close
    Set fso=Nothing
End Function

'===========================专门用来过滤Request的参数值===================================
function GetVariable(strVariableName)
    if IsEmpty(Request(strVariableName)) then
        GetVariable=empty
        exit Function
    end if
    GetVariable=Replace(Request(strVariableName),"'","''")
    GetVariable=Replace(GetVariable,";","")
    GetVariable=Replace(GetVariable,"--","")
end function

function GetFormVariable(strVariableName)
    if IsEmpty(Request.Form(strVariableName)) then
        GetFormVariable=empty
        exit Function
    end if
    GetFormVariable=Replace(Request.Form(strVariableName),"'","''")
    GetFormVariable=Replace(GetFormVariable,"--","")
end function

function GetQueryString(strVariableName)
    if IsEmpty(Request.QueryString(strVariableName)) then
        GetQueryString=empty
        exit Function
    end if
    GetQueryString=Replace(Request.QueryString(strVariableName),"'","''")
    GetQueryString=Replace(GetQueryString,";","")
    GetQueryString=Replace(GetQueryString,"--","")
end function

7：asp专门用来过滤Request的参数值

**********************************************************************************************
'函数名称: HTMLcode(fString)
'函数功能: 过滤表单的特殊字符
'参数说明: fString          要操作的字符串
'返回值 : 格式化的字符串
'**********************************************************************************************
Function HTMLcode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", ">")
    fString = replace(fString, "<", "<")
    fString = Replace(fString, CHR(32), " ")
    fString = Replace(fString, CHR(9), " ")
    fString = Replace(fString, CHR(34), """)
    fString = Replace(fString, CHR(39), "'")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLcode = fString
end if
end Function

8：asp截取正确的英文/汉字长度

'函数名称: GetTrueLength(strChinese, lenMaxWord, strSpaceBar)
'函数功能: 截取正确的英文/汉字长度
'参数说明: strChinese 为被检测字符串
'           lenMaxWord 为限制的字符长度
'         strSpaceBar 为要过滤(去掉)的字符
'返回值 : 格式化的字符串(注：一个中文两个字符。)
'**********************************************************************************************
Function GetTrueLength(strChinese, lenMaxWord, strSpaceBar)
dim i, j, strTail, lenTotal, lenWord, lenNow
dim strWord, bOverFlow, RetString
if strChinese = "" or vartype(strChinese) = vbNull or CLng(lenMaxWord) <= 0 then
GetTrueLength = ""
exit function
end if
strTail = "..."        '标题截取后的表示,如“…”
bOverFlow = False
lenTotal = 0
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
'判断字符是否溢出
if lenTotal > lenMaxWord then bOverFlow = True
strSpaceBar = ""
if bOverFlow = True then
'字符溢出,去尾
lenWord = 0
RetString = ""
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then lenNow = 2 else lenNow = 1
lenWord = lenWord + lenNow
'截掉多余部分
if lenWord <= (lenMaxWord - Len(strTail)) then
    RetString = RetString + strWord
else
    RetString = RetString + strTail
    lenWord = lenWord + Len(strTail) - lenNow
    if (lenMaxWord-lenWord)>0 then
        for j =1 to lenMaxWord-lenWord
        strSpaceBar = strSpaceBar + " "
        next
    end if
    GetTrueLength = RetString
    exit for
end if
next
else
'字符不溢出,填充空位
RetString = strChinese
if (lenMaxWord-lenTotal)>0 then
    for i =1 to lenMaxWord-lenTotal
        strSpaceBar = strSpaceBar + " "
    next
end if
    GetTrueLength = RetString ''''''''''& strSpaceBar
end if
end function

顶一下

上一篇：ASP常用代码段之二下一篇：ASP常用代码段之四

栏目导航

热点推荐

阅览排行

ASP常用代码段之三

相关文章列表

评论总数：0 条 [ 查看全部 ] 网友评论