asp生成utf-8静态html页面的函数代码

用asp生成静态utf-8编码网页的代码。用fso无法生成，只有使用Adodb.Stream才可以生成真正的UTF-8静态页

<%
Dim sContent,iType,oAdos
sContent = ""
iType = 2    '类型（1-二进制/2-文本）
Set oAdos = Server.CreateObject("Adodb.Stream")
With oAdos
    .Type = iType
    .Mode = 3
    .CharSet = "utf-8"
    .Open
    If iType = 1 Then
        .Write sContent
    Else
        .WriteText sContent
    End If
    .SaveToFile Server.Mappath("test.html"), 2
    .Close
End With
Set oAdos = Nothing
%>

时间： 2024-09-15 05:35:29

asp生成utf-8静态html页面的函数代码的相关文章

asp.net动态获取Excel表名的函数代码

复制代码 代码如下: public string GetExcelFirstTableName(string excelFileName) { string tableName = null; if (File.Exists(excelFileName)) { using (OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet." + "OLEDB.4.0;Extended Properties=

asp.net动态获取Excel表名的函数代码_实用技巧

复制代码 代码如下: public string GetExcelFirstTableName(string excelFileName) { string tableName = null; if (File.Exists(excelFileName)) { using (OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet." + "OLEDB.4.0;Extended Properties=

几种关于利用asp生成静态html页面方法实例代码(1/5)

<% '当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题 '注意:本文件一定要放在20041227111723.htm指向的文件的同一目录下 dim hughchiu_rtcode Function get_exe_code(20041227111723.htm) dim execode dim tmp_str Dim re,re1,content,fso,f,aspStart,aspEnd dim ms,m execode = "&quo

Asp.net ajax实现任务提示页面的简单代码_实用技巧

复制代码 代码如下: <%@ Page Language="C#" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><script runat="server">    void WaitFiveS

ASP和javaScript中的字母大小写转换函数代码

  ASP中的字母大小写转换代码,同时也给出了javascript中的代码,二者大家可参考比较,下面先来看ASP中的,脚本引擎基于VBScript: VBScript代码: str = "abcdE" str = UCASE(str) '大写 str = LCASE(str) '小写 JavaScript中的字母大小写转换,同样简单: str = "abcdE";str = str.toUpperCase();//大写str = str.toLowerCase();

ASP 支持中文的len(),left(),right()的函数代码

Function Strlength(Str) Temp_Str=Len(Str) For I=1 To Temp_Str Test_Str=(Mid(Str,I,1)) If Asc(Test_Str)>0 Then Strlength=Strlength+1 Else Strlength=Strlength+2 End If Next End Function Function Strleft(Str,L) Temp_Str=Len(Str) For I=1 To Temp_Str Test

ASP 支持中文的len(),left(),right()的函数代码_应用技巧

比如一个汉字也只会算一个字节,在排版时如果全是汉字,好说,反正没什么差别,但是如果被操作的字符串有汉字又有英文字母时,就不方便了,以下三个函数可以代替ASP自带的相关函数. 也有注意的地方,如果用在循环中,因不变量"i"也是常用于循环的变量,执行以下函数时,"i"的值会发生变化,如果是调用他的循环中用到相同的变量,会产生未知的结果,请换用其它变量名. 以下用法和len(),left(),right()一样. 程序代码 复制代码 代码如下: Function Strl

asp下过滤非法的SQL字符的函数代码_应用技巧

复制代码 代码如下: '************************************************** '函数名:R '作 用:过滤非法的SQL字符 '参 数:strChar-----要过滤的字符 '返回值:过滤后的字符 '************************************************** Public Function R(strChar) If strChar = "" Or IsNull(strChar) Then R =

asp 正则实现清除html文本格式的函数代码_应用技巧

复制代码 代码如下: <% '/* 函数名称:Zxj_ReplaceHtml ClearHtml '/* 函数语言:VBScript Language '/* 作 用:清除文件HTML格式函数 '/* 传递参数:Content (注:需要进行清除的内容) '/* 函数作者:张晓军(古城童话) QQ:382511147 '/* 函数说明:正则匹配(正则表达式)模式进行数据匹配替换 Function ClearHtml(Content) Content=Zxj_ReplaceHtml("[^&