落伍者站长论坛 » 免费代码及编程交流 » 高手来帮忙， UTF版本的maxz CMS

Dalamar 发表于 2008-4-10 17:12

高手来帮忙， UTF版本的maxz CMS

*** 作者被禁止或删除 内容自动屏蔽 ***

455929861 发表于 2008-4-10 17:17

不会..帮顶~!

sinosoho 发表于 2008-4-10 17:24

帮顶

houniao 发表于 2008-4-10 20:57

确实，生成UTF-8时的确只能用ADODB.Stream，而非FSO...[code]'***********************************************
'函数名：LoadFile
'作  用：利用ADODB.Stream读取文件
'Update:2008-2-9
'***********************************************
Function LoadFile(ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile Server.MapPath(File)
        If Err.Number<>0 Then
    Response.Write "<div align='center'>文件<font color='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"
    Err.Clear
    Response.End
        End If
        .Charset = "utf-8"
        .Position = 2
        LoadFile = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function

'***********************************************
'函数名：SaveToFile
'作  用：利用ADODB.Stream存储内容到文件
'Update:2008-2-9
'***********************************************
Sub SaveToFile(ByVal strBody,ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 2
        .Open
        .Charset = "utf-8"
        .Position = objStream.Size
        .WriteText = strBody
        .SaveToFile Server.MapPath(File),2
        .Close
    End With
    Set objStream = Nothing
End Sub[/code]先引用上面两段函数，接着下面：[code]
<%
Dim wstr
wstr=LoadFile("../Template/Sort.asp")        '读取模板内容

'...
'这里是你的代码...
'...

Call SaveToFile(wstr,"..\Template\Sort.html")        '生成文件
Conn.Close : Set Conn=Nothing        '关闭数据链接，释放资源
Response.Write("<script>alert(""Create Html Ok！"");window.close();</script>")
Response.End()
%>
[/code]相信上面的代码你看得懂，也用得上 :ohh:

[[i] 本帖最后由 houniao 于 2008-4-10 21:01 编辑 [/i]]

Dalamar 发表于 2008-4-12 15:21

*** 作者被禁止或删除 内容自动屏蔽 ***

不算贵 发表于 2008-4-12 19:51

:tu:

不算贵 发表于 2008-4-12 20:03

-_=||

Dalamar 发表于 2008-4-19 00:58

*** 作者被禁止或删除 内容自动屏蔽 ***

xinnet 发表于 2008-4-19 17:31

帮顶

查看完整版本: 高手来帮忙， UTF版本的maxz CMS