ASP用ADODB.Stream写UTF
Function WriteToUTF(content,sFilen)'content为替换后的字符串,filename为生成的文件名
dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"' //编码，这里你可以改成任何编码
.Position = objStream.Size
.WriteText = content' //模版+数据 写入内容
.SaveToFile server.mappath("../"&sFilen),2' //生成文件路径
.Close
End With
Set objStream = Nothing
End Function
相关文档：
创建指定的文件名并返回一个 TextStream 对象，可以使用这个对象对文件进行读写。
object.CreateTextFile(filename[, overwrite[, unicode]])
参数
object
必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename
必选项。指明所要创建文件的字符串表达式。
overwrite
可选项。Boolean 值，指� ......
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
代码解释：
Request.ServerVariables("HTTP_REFERER")是获取上� ......
<!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>asp和mysql分页代码</title>
<style type="text/css">
<!--
.STYLE3 {
fon ......
今天在修改以前开发的一个网站的时候遇到一个问题，因为功能的需要，以前的一个数字类型字段改变为文本字段，因为这个字段需要包含多个类别的ID，以前这个字段只对应一个ID的。
网站是ASP VB语言的，数据库使用的是Access
修改数据类型之后前台的查询代码就不能使用诸如xID=1这种条件了。由于现在该字段变为文本类� ......
注意：系统需要FSO权限、XMLHTTP权限
系统包括两个文件，其实可以合并为一个。之所以分为两个是因为部分杀毒软件会因为里边含有FSO、XMLHTTP操作而被认为是脚本木马。
调用时，需要在ASP页面的最上边包含主文件，然后在下边写下以下代码
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 &n ......
