整理了一个editplus的剪辑文件（ASP方面的内容）
#title=asp常用语法及函数
#info
asp常用的一些语法及自定义函数
#sort=n
#t= ===asp常用语法===
#t=============================
#t=数据库相关
#t= 连接access数据库
<%
dim dbname,conn
dbname"^!" '定义数据库路径及名称
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(dbname)
%>
#t= 连接ms sql数据库
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open "provider=sqloledb;data source=sql服务器名称或ip地址;uid=数据库登录帐号;pwd=数据库密码;database=数据库名称"
%>
#t= 建立记录集
set ^!=server.createobject("adodb.recordset")
#t= 执行sql命令
rs.open sql,conn,1,1
#t= 执行sql命令
conn.execute("^!")
#t= rs直接执行sql命令
set rs = conn.execute("^!")
#t= 关闭记录集
rs.close
set rs=nothing
#t= 关闭数据库
conn.close
set conn=nothing
#t=============================
#t=servervariables相关
#t= 取上一页地址
request.servervariables("http_referer")
#t= 取服务器的名称1
request.servervariables("server_name")
#t= 取服务器的名称2
request.servervariables("http_host")
#t= 取服务器ip
request.servervariables("local_addr")
#t= 取用户ip
request.servervariables("remote_host")
#t= 取用户真实ip1
request.servervariables("remote_addr")
#t= 取用户真实ip函数
function getrealip()
getrealip = request.servervariables("http_x_forwarded_for")
if(getrealip = "")then getrealip = request.servervariables("remote_addr")
end function
#t= 取服务器端口
request.servervariables("server_port")
#t= 取服务器操作系统
request.servervariables("os")
#t= 取服务器的绝对路径
request.servervariables("appl_physical_path")
#t= 取本文件的绝对路径1
requet.servervariables("path_translated")
#t= 取本文件的绝对路径2
server.mappath(request.servervariables("script_name"))
#t= 取本文件的相对路径1
request.servervariables("url")
#t= 取本文件的相对路径2
request.servervariables("script_name")
#t= 取本文件的相对路径3
request.servervariables("path_info")
#t= 取地址栏后的参数
request.servervariables("query_string")
#t= 取服务器系统信息
request.servervariables("http_user_agent")
#t= 服务器组件检测
<%
function isobjinstalled(strclassstring)
on error resume next
isobjinstalled = false
err = 0
dim xtestobj
set xtestobj = server.createobject(strclassstring)
if(0 = err)then isobjinstalled = true
set xtestobj = nothing
err = 0
end function
'if(isobjinstalled("persits.upload")=true)then
' response.write "支持aspupload组件"
'else
' response.write "不支持aspupload组件"
'end if
%>
#t= 取客户端语言环境
^!request.servervariables("http_accept_language")
#t= 取客户端信息:http_user_agent
^!request.servervariables("http_user_agent")
#t= 取表单(form)值元素值
request.form("^!")
#t= 取url传递的值
request.querystring("^!")
#t= 取完整url地址
function geturl()
geturl="http://"&request.servervariables("server_n ... .servervariables("url")
if(request.servervariables("query_string")<>"")then geturl=geturl&"?"& request.servervariables("query_string")
end function
#t=============================
#t=自定义函数
#t= 过滤html字符
<%
'过滤html字符函数
function htmlencode(str)
if(str <> "")then
str = replace(str, "&", "&")
str = replace(str, ">", ">")
str = replace(str, "<", "<")
str = replace(str, chr(32), " ")
str = replace(str, chr(9), " ")
str = replace(str, chr(34), """)
str = replace(str, chr(39), "'")
str = replace(str, chr(13), "")
str = replace(str, chr(10) & chr(10), "</p><p>")
str = replace(str, chr(10), "<br>")
str = replace(str, chr(255), " ")
end if
htmlencode = str
end function
%>
#t= 检测上页是否从本站提交
<%
'检测上页是否从本站提交
'返回:true,false
'===============================================================
function isselfrefer()
dim shttp_referer, sserver_name
shttp_referer = cstr(request.servervariables("http_referer"))
sserver_name = cstr(request.servervariables("server_name"))
if(mid(shttp_referer, 8, len(sserver_name)) = sserver_name)then
isselfrefer = true
else
isselfrefer = false
end if
end function
%>
#t= 清除所有html标记
<%
'清除html标记
function striphtml(htmlstr)
dim regex
set regex = new regexp
regex.ignorecase = true
regex.global = true
regex.pattern = "<.+?>"
htmlstr = regex.replace(htmlstr,"")
htmlstr = replace(htmlstr, "<","<")
htmlstr = replace(htmlstr, ">",">")
htmlstr = replace(htmlstr,chr(10),"")
htmlstr = replace(htmlstr,chr(13),"")
striphtml = htmlstr
set regex = nothing
end function
%>
#t= 取字符串长度
<%
'求字符串长度函数
function getlength(str)
dim length
for i=1 to len(str)
if(asc(mid(str,i,1))<0 or asc(mid(str,i,1))>256)then
length=length+2
else
length=length+1
end if
next
getlength=length
end function
%>
#t= 截取指定长度字符串
<%
'截取指定长度的字符串，多余的用...代替
function strleft(str,strlen)
if(str = "")then
strleft = ""
exit function
end if
dim l,t,c,i
str = replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=abs(asc(mid(str,i,1)))
if(c>255)then
t=t+2
else
t=t+1
end if
if(t>strlen)then
strleft = left(str,i) & "..."
exit for
else
strleft = str
end if
next
strleft = replace(replace(replace(replace(strleft," "," "),chr(34),"""),">",">"),"<","<")
end function
%>
#t= 获取安全的提交参数
<%
'===============================================================
'sql injection check
'函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0
'参数意义：str ---- 要过滤的参数
'strtype ---- 参数类型，分为字符型和数字型，字符型为"s"，数字型为"i"
'===============================================================
function checkstr(str,strtype)
dim strtmp
strtmp = ""
if(strtype ="s")then
strtmp = replace(trim(str),"'","''")
elseif(strtype="i")then
if(isnumeric(str)=false)then str=false
strtmp = str
else
strtmp = str
end if
checkstr= strtmp
end function
%>
#t= 过滤不良字符(badword)
<%
'过滤不良字符(badwords)
function chkbadwords(fstring)
dim badwords,bwords,i
badwords = "我操|操你|操他|你妈的|他妈的|狗|杂种|屄|屌|王八|强奸|做爱|处女|泽民|*|法伦|*|*"
if(not(isnull(badwords) or isnull(fstring)))then
bwords = split(badwords, "|")
for i = 0 to ubound(bwords)
fstring = replace(fstring, bwords(i), string(len(bwords(i)),"*"))
next
chkbadwords = fstring
end if
end function
%>
#t= 生成随机自定义长度密码
<%
'生成随机自定义长度密码
function makepassword(maxlen)
dim strnewpass
dim whatsnext, upper, lower, intcounter
randomize
for intcounter = 1 to maxlen
whatsnext = int((1 - 0 + 1) * rnd + 0)
if(whatsnext = 0)then
'character
upper = 90
lower = 65
else
upper = 57
lower = 48
end if
strnewpass = strnewpass & chr(int((upper - lower + 1) * rnd + lower))
next
makepassword = strnewpass
end function
'response.write makepassword(8)
%>
#t= 填入textarea时保持格式inhtml
<%
'===============================================================
'去除html格式，用于从数据库中取出值填入输入框时
'注意：value="?"这边一定要用双引号
'===============================================================
function inhtml(str)
dim stemp
stemp = str
inhtml = ""
if isnull(stemp) = true then
exit function
end if
stemp = replace(stemp, "&", "&")
stemp = replace(stemp, "<br>",chr(13))
stemp = replace(stemp, "<", "<")
stemp = replace(stemp, ">", ">")
stemp = replace(stemp, """, chr(34))
inhtml = stemp
end function
%>
#t= 正则表表达式验证函数
<%
'正则表表达式验证函数 patrn-正则表达式 strng-需要验证的字符串
'===============================================================
function regexptest(patrn, strng)
dim regex, retval ' 建立变量。
set regex = new regexp ' 建立正则表达式。
regex.pattern = patrn ' 设置模式。
regex.ignorecase = false ' 设置是否区分大小写。
retval = regex.test(strng) ' 执行搜索测试。
regexptest = retval '返回值，不符合就返回false，符合为true
set regex = nothing
end function
%>
#t= 生成随机字符串
<%
'生成随机字符串
function rndcode()
dim codeset,amountset
codeset = "0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
amountset = 62 ' 文字数量
randomize
dim vcode(10), vcodes,i
for i = 0 to 9
vcode(i) = int(rnd * amountset)
vcodes = vcodes & mid(codeset, vcode(i) + 1, 1)
next
rndcode=vcodes
end function
%>
#t=============================
#t=fso相关操作
#t= 判断目录是否存在
<%
function isfloderexist(strfoldername)
set fso=server.createobject("scripting.filesystemobject")
if(fso.folderexists(strfoldername))then
isfloderexist = true
else
isfloderexist = false
end if
set fso=nothing
end function
%>
#t= 创建目录
<%
function createfolder(strfoldername)
set fso=server.createobject("scripting.filesystemobject")
if(fso.folderexists(strfoldername) = false)then
fso.createfolder(strfoldername)
end if
set fso=nothing
end function
%>
#t= 删除目录
<%
function deletefolder(strfoldername)
set fso=server.createobject("scripting.filesystemobject")
if(fso.folderexists(strfoldername))then
fso.deletefolder(strfoldername)
end if
set fso=nothing
end function
%>
#t= 判断文件是否存在
<%
function isfileexist(strfilename)
set fso=server.createobject("scripting.filesystemobject")
if(fso.fileexists(strfilename))then
isfileexist = true
else
isfileexist = false
end if
set fso=nothing
end function
%>
#t= 删除文件
<%
function deletefile(strfilename)
set fso=server.createobject("scripting.filesystemobject")
if(fso.fileexists(strfilename))then
fso.deletefile(strfilename)
end if
set fso=nothing
end function
%>
#t=============================
#t= asp小偷常用的几个函数
<%
function bytetostr(vin)
dim strreturn,i,thischarcode,innercode,hight8,low8,nextcharcode
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if(thischarcode < &h80)then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytetostr = strreturn
end function
function gethttppagecontent(url,method,sendstr)
dim retrieval
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval
.open method, url, false ,"" ,""
.setrequestheader "content-type","application/x-www-form-urlencoded"
.send(sendstr)
gethttppagecontent = .responsebody
end with
set retrieval = nothing
gethttppagecontent=bytetostr(gethttppagecontent)
end function
function regexptext(strng,regstr)
dim regex,match,matches,retstr
set regex = new regexp
regex.pattern = regstr
regex.ignorecase = true
regex.global = true
set matches = regex.execute(strng)
for each match in matches
retstr = retstr & regex.replace(match.value,"$1") & ","
next
regexptext = retstr
set regex=nothing
end function
function streambytestobstr(strbody, codebase)
dim objstream
set objstream = server.createobject("adodb.stream")
with objstream
.type = 1
.mode = 3
.open
.write strbody
.position = 0
.type = 2
.charset = codebase
streambytestobstr = .readtext
.close
end with
set objstream = nothing
end function
%>