把textarea内容在服务器端保存成asp文件
<%
response.Charset = "gb2312"
if request("test") <> "" then
On Error Resume Next
dim fso
set fso = server.createObject("Scripting.FileSystemObject")
if Err.Number > 0 then
response.end
end if
dim ts
set ts = fso.OpenTextFile(server.mappath(".\" & session("testfilesystemobject")), 2, True, false)
if Err.Number > 0 then
response.end
end if
ts.Write(request("test"))
if Err.Number > 0 then
response.end
end if
ts.close()
On Error GoTo 0
end if
if request("testfilesystemobject") = "" then
response.end
else
session("testfilesystemobject") = request("testfilesystemobject")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
</head>
<body>
<form ACTION="" METHOD=post>
<textarea name=test>
</textarea>
<input type=submit>
</form>
</BODY>
</html>
相关文档：
今天遇到一个asp程序，用ReWrite重写URL后，中文参数乱码，查资料后说是ReWrite所接收的参数自动转为UTF-8，而我的前台页面和数据库都为GB2312格式，后来在网上找了好久，终于找到一个能成功将UTF-8转换为GB2312的函数，函数转换代码如下
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.Crea ......
<%
yourip=Request.ServerVariables("REMOTE_ADDR")
if yourip="111.111.111.111" then
Response.Redirect ("http://www.baidu.com")
end if
%>
Dim UserIP
UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : User ......
'--------------------------------------------------------------
'ASP版HashMap实现
'该实现存储数据为有序数据,类似Java中的LinkedHashMap
'--------------------------------------------------------------
Class HashMap
dim arr()
dim arr_len
'构造函数
private Sub Clas ......
刚刚 看到这么一个问题，这里也做个标记：http://topic.csdn.net/u/20080411/14/7b0f9da5-0413-4149-91e9-72c3df3018a3.html?seed=327251592
第一种方式：
//在Visual Studio 2008中调试通过
testPop_Page.aspx:主页面ASPX代码
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
......
