Adodb.Stream读取和写入UTF-8编码的文件

最近在为网站添加一个内容，涉及到在线读取和写入UTF-8编码的文件，才发现FSO对象只能读写ANSI编码的文件，无法读写UTF-8编码的文件，琢磨了半天，终于在网上找到一个很实用的函数，完整的代码如下：
<%'函数名称：ReadTextFile
'作用：利用Adodb.Stream对象来读取UTF-8编码的文件
'示例：ReadFromTextFile("File/FileName.htm",UTF-8)
Function ReadFromTextFile(FileUrl,CharSet)
 dim str
 set stm=server.CreateObject("adodb.stream")
 stm.Type=2'以本模式读取
 stm.mode=3 
 stm.charset=CharSet
 stm.open
 stm.loadfromfile server.MapPath(FileUrl)
 str=stm.readtext
 stm.Close
 set stm=nothing
 ReadFromTextFile=str
End Function
'函数名称：WriteToTextFile
'作用：利用Adodb.Stream对象来写入UTF-8编码的文件
'示例：WriteToTextFile("File/FileName.htm",Content,UTF-8)
Sub WriteToTextFile(FileUrl,byval Str,CharSet)
 set stm=server.CreateObject("adodb.stream")
 stm.Type=2'以本模式读取
 stm.mode=3
 stm.charset=CharSet
 stm.open
 stm.WriteText str
 stm.SaveToFile server.MapPath(FileUrl),2 
 stm.flush
 stm.Close
 set stm=nothing
End Sub%>

http://www.zzsky.cn/build/content/1233.htm

ASP,PHP与.NET伪造HTTP-REFERER方法及防止伪造REFERER方法探讨

ASP,PHP与.NET伪造HTTP-REFERER方法及防止伪造REFERER方法探讨

当 用户访问Web服务器请求一个页面时，用户浏览器发送的HTTP请求中会有一个被称为HTTP请求头（HTTP Request Header）的信息，这个头信息中包含客户请求的一些信息，例如发出请求客户主机的浏览器版本、用户语言、用户操作系统平台、用户请求的文档名等，这些 信息以变量名/变量值的方式被传输。

HTTP-REFERER这个变量已经越来越不可靠了，完全就是可以伪造出来的东东。

以下是伪造方法：

ASP:

dim http
set http=server.createobject("MSXML2.XMLHTTP") '//MSXML2.serverXMLHTTP也可以
Http.open "GET",url,false
Http.setRequestHeader "Referer","http://www.dc9.cn/"
Http.send()


http://www.dc9.cn/catalog.asp?tags=C%23

如何用ASP获取真实IP地址

[ 来源:cndw | 作者:未知 | 时间:2007-04-17 10:23:24 | 收藏本文 ] 【大 中 小】

　　大家都知道，在ASP中可以使用Request.ServerVariables("REMOTE_ADDR")来取得客户端的IP地址，但如 果客户端是使用代理服务器来访问，那取到的就是代理服务器的IP地址，而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址，就要使 用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取。

Chinaz@com

　　不过要注意的是，并不是每个代理服务器都能用Request.ServerVariables("HTTP_X_FORWARDED_FOR")来读取客户端的真实 IP，有些用此方法读取到的仍然是代理服务器的 IP。 中国站长_站,为中文网站提供动力

　　还有一点需要注意的是：如果客户端没有通过代理服务器来访问，那么用Request.ServerVariables("HTTP_X_FORWARDED_FOR")取到的值将是空的。因此，如果要在程序中使用此方法，可以这样处理: Www.Chinaz.com

　　......
　　userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
　　If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
　　...... Www@Chinaz@com

　　即：如果客户端通过代理服务器，则取HTTP_X_FORWARDED_FOR的值，如果没通过代理服务器，就取 REMOTE_ADDR的值。

http://www.chinaz.com/Program/Asp/041M0262007.html