设置页面为UTF-8编码：

Session.CodePage=65001

Response.Charset="UTF-8"

设置页面状态码：

Response.Status = "404 Not Found"

Response.Status="301 Moved Permanently"

过滤字符串：replace(字符串变量, "要过滤的字符串", "过滤后的字符串")

更新某个位置的数组：

A="1,2,3,4,5"
Arr=Split(A,",")
Arr(1)="6" '--更新第一个位置1为6
a = join(arr,",")
Response.Write(A)

获得一个唯一时间PID
IDmsec=(timer*1000) Mod 1000
pid=year(now)&right("0"&month(now),2)&right("0"&day(now),2)&hour(now)&minute(now)&second(now)&IDmsec

当前页面加载另一个页面：server.execute("1.asp")

获取用户的系统和浏览器信息：Request.ServerVariables("HTTP_USER_AGENT")

获取访问来源完整URL：Request.ServerVariables("HTTP_REFERER")

获取用户的Session值：Session.SessionID

获取用户的IP地址：Request.ServerVariables("REMOTE_ADDR")

检查字符串是否包含【关键词】：instr(字符串变量, "关键词")

例子：if instr(字符串变量, "关键词") > 0 then response.write "包含关键词"

截取字段：

str="我是一名学生"
left(str,2)结果为"我是"，right(str,2)结果为："学生"，mid(str,2)结果为："是一名学生"

获取当前网址的根域名：

url=lcase(Request.ServerVariables("SERVER_NAME"))
url=right(url, len(url)-instr(url, "."))

获取来路域名：

from_domain = request.servervariables("http_referer")
from_domain = replace(from_domain, "http://", "")
from_domain = replace(from_domain, "https://", "")
from_domain = left(from_domain, instr(from_domain, "/"))
from_domain = replace(from_domain, "/", "")

获取当前页面的域名：Request.ServerVariables("SERVER_NAME")

获取当前页面的域名端口：Request.ServerVariables("SERVER_PORT")

获取当前页面的文件名：Request.ServerVariables("SCRIPT_NAME") 需要用replace函数过滤一下“/”符号。

获取当前页面的执行文件文件名和参数：Request.ServerVariables("HTTP_URL")

获取页面的所有参数：Request.ServerVariables("QUERY_STRING")

IIS7网站伪静态后获取当前页面的执行文件文件名和参数：Request.ServerVariables("HTTP_X_REWRITE_URL")

获取当前页面完整URL带参数：

ServerName = Request.ServerVariables("SERVER_NAME") '获取服务器IP
ServerPort = Request.ServerVariables("SERVER_PORT") '服务器处理请求的端口
'ScriptName = Request.ServerVariables("SCRIPT_NAME") '执行脚本的名称
'ScriptName = Request.ServerVariables("HTTP_X_REWRITE_URL") '伪静态方式执行脚本的名称，会浏览html的路径形式，如果使用此方式，请注释掉下面的【判断所访问的地址是否带有参数】这行代码
ScriptName = Request.ServerVariables("HTTP_URL")
QueryString = Request.ServerVariables("QUERY_STRING") '查询字符串内容
FromUrl="http://"&ServerName
If ServerPort <> "80" Then FromUrl = FromUrl & ":" & ServerPort '判断端口是否为80，如果不是就填上端口号
FromUrl=FromUrl&ScriptName
If QueryString <>"" Then FromUrl=FromUrl&"?"& QueryString '判断所访问的地址是否带有参数
GetLocationURL=FromUrl

重命名文件名：

imgsrc="201dfsf.jpg"
imgsrc_filename=Left(imgsrc,inStrRev(imgsrc,".")-1) '获取文件名
imgsrc_ext=Mid(imgsrc, InstrRev(imgsrc, ".") + 1) '获取文件后缀
imgsrc=imgsrc_filename&"_small."&imgsrc_ext '添加“_small.”字符串
得到的结果为：imgsrc = 201dfsf_small.jpg