本人整理好的一些ASP函数,提供给初学ASP的朋友们使用

<%
'============================textarea显示用===================================
function htmlencode1(fString)
if fString<>"" and not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " ", chr(32))
fString = Replace(fString, "</p><p>", CHR(10) & CHR(10))
fString = Replace(fString, "<br>", CHR(10))
htmlencode1=fString
else
htmlencode1=""
end if
end function
'===========================页面显示用===========================================
function htmlencode2(fString)
if fString<>"" and not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, chr(32), " ")
fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
fString = Replace(fString, CHR(10), "<br>")
htmlencode2=fString
else
htmlencode2=""
end if
end function
'====================================给指定的字符串添加字体颜色=====================================
function FontStyle(fString,strings)
if fString<>"" and not isnull(fString) then   '
fString = replace(fString,strings, "<SPAN style='COLOR: red; FONT-SIZE: 10pt; FONT-FAMILY: 黑体'>"&strings&"</SPAN>")
FontStyle=fString
else
FontStyle=""
end if
end function
'================================取出指定字符串前后的字符串方法=====================================
function GetStrs(str1,CharFlag,Dflag)
dim tmpstr
if Dflag=0 then'取左
pos1=instr(str1,charFlag)
if pos1<=20 then
tmpstr=left(str1,pos1-1)
else
tmpstr=mid(str1,pos1-20,20)
end if
else            '取右
pos1=instr(str1,charFlag)+len(charFlag)
if len(str1)-pos1<=20 then
tmpstr=right(str1,len(str1)-pos1)
else
tmpstr=mid(str1,pos1+1,20)
end if
end if
GetStrs=tmpstr
end function

function getfilename(str)
pos=instr(str,".")
if str<>"" then
str=mid(str,pos,len(str))
end if
getfilename=str
end function
'======================================================删除文件=====================================
function delfile(filepath)
imangepath=trim(filepath)
path=server.MapPath(imangepath)
SET fs=server.CreateObject("Scripting.FileSystemObject")
if FS.FileExists(path) then
FS.DeleteFile(path)
end if
set fs=nothing
end function
'===================================得到真实的客户端IP======================================
Public Function GetClientIP()
dim uIpAddr
' 本函数参考webcn.Net/AspHouse 文献<取真实的客户IP>
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR")
GetClientIP = uIpAddr
uIpAddr = ""
End function

'======================================用Jmail发送邮件===========================================
Function sendMail(names,message,email)
set mymail=server.CreateObject("jmail.message")
mymail.MailServerPassWord ="gwd3209" '发信授权邮件密码
mymail.MailServerUserName ="gwd3209@163.com" '发信授权邮件名称
mymail.ContentType = "text/html" '(是否支持html,如不要就去掉此行)
mymail.Charset="gb2312" '使用字符集,不用改的
mymail.AddRecipient "gwd3209@163.com"'收件人邮箱chg@haigaochem.com
mymail.Body= message '邮件正文
'mymail.Body= "密码："&pass&"/n" '邮件正文
mymail.From=""&email '发件人邮箱s
mymail.Subject=""&names&"的意见和建议!!!"'邮件标题
mymail.Send "smtp.163.com",false '邮件发送服务器
set mymail = nothing
end Function
'========================================根据ID得到字符串========================================
function getStr(getID)
dim result
result=""
select case getID
case 1
result="一天"
case 2
result="一星期"
case 3
result="一个月"
case 4
result="三个月"
case 5
result="半年"
case 6
result="一年"
end select
getStr=result
end function
'========================================四舍五入函数==============================================
public function Round_(v,p)
dim tempInt,tempdot,temp,Power
temp=v
Power=10^p
tempInt=int(temp*power)
tempDot=temp*Power-tempInt
if tempdot>=0.499 then
'tempdot一般不会恰好等于0.5，等于0.499999999999**,这个在数值计算中有详细介绍
'我当时也没有写对，后来alert调试时候，忽然猛的想起来，当初程序员考试中说过这个问题，记忆力减退啊
tempInt=tempInt+1
end if
Round_=CSng(tempInt/power)
'因为有时候计算需要用到，如果不转换，会导致计算不出来，而且这种情况不是恒定的，我晕，所以干脆，强行转换
end function
'==========================================SQL函数安全=================================================
function SqlShouldBeSafe()

dim str_
dim arra(1000)
dim arrb(1000)
dim strlen_
dim k_
dim i_
dim tmpA_
dim tmpB_
dim tmp_
str_ = request.QueryString
if str_<>"" then
strlen_ = len(str_)
k_=1
for i_=1 to strlen_
if mid(str_,i_,1)="%" then
tmpA_=mid(str_,i_+1,1)
tmpB_=mid(str_,i_+2,1)
if ( (asc(tmpA_)>=48 and asc(tmpA_)<=57) or (asc(tmpA_)>=65 and asc(tmpA_)<=70) or (asc(tmpA_)>=97 and asc(tmpA_)<=102) ) and ( (asc(tmpB_)>=48 and asc(tmpB_)<=57) or (asc(tmpB_)>=65 and asc(tmpB_)<=70) or (asc(tmpB_)>=97 and asc(tmpB_)<=102) ) then
tmp_ = chr(cint(tmpA_)*16+cint(tmpB_))
arra(k_)="%" & tmpA_ & tmpB_
arrb(k_)=LCase(tmp_)
k_ = k_ + 1
end if
end if
next
for i_=1 to k_
str_ = replace(str_,arra(i_),arrb(i_))
next
If Instr(str_,"select ") or Instr(str_,"insert ") or Instr(str_,"delete from") or Instr(str_,"count(") or Instr(str_,"drop table") or Instr(str_,"update ") or Instr(str_,"truncate ") or Instr(str_,"asc(") or Instr(str_,"mid(") or Instr(str_,"char(") or Instr(str_,"xp_cmdshell") or Instr(str_,"exec master") or Instr(str_,"net localgroup administrators") or Instr(str_,":") or Instr(str_,"net user") or Instr(str_,"'") or Instr(str_," or ") then
response.Write "<script language=""javascript"">alert('出错了');window.opener=null;window.close();</script>"
response.End()
end if
end if
end function
'==================================取到浏览器版本转换字符串========================================
function browser()
dim text
text = Request.ServerVariables("HTTP_USER_AGENT")
if Instr(text,"MSIE 5.5")>0 then
browser="IE 5.5"
elseif Instr(text,"MSIE 6.0")>0 then
browser="IE 6.0"
elseif Instr(text,"MSIE 5.01")>0 then
browser="IE 5.01"
elseif Instr(text,"MSIE 5.0")>0 then
browser="IE 5.00"
elseif Instr(text,"MSIE 4.0")>0 then
browser="IE 4.01"
else
browser="未知"
end if
end function
'================================取到系统脚本转换字符串==================================
function system(text)
if Instr(text,"NT 5.1")>0 then
system=system+"Windows XP"
elseif Instr(text,"NT 5")>0 then
system=system+"Windows 2000"
elseif Instr(text,"NT 4")>0 then
system=system+"Windows NT4"
elseif Instr(text,"4.9")>0 then
system=system+"Windows ME"
elseif Instr(text,"98")>0 then
system=system+"Windows 98"
elseif Instr(text,"95")>0 then
system=system+"Windows 95"
else
system=system+"未知"
end if
end function
'==================================AutoSelectsendEmail邮件功能=============================
Function AutoSelectsendEmail()
emailname=l_title
on error resume next
if h_selectemail=0 then
sendmsg="系统未开启邮件功能<br>"

elseif h_selectemail=1 then
Set objcdonts = Server.CreateObject("CDONTS.NewMail")
objcdonts.From =h_email
objcdonts.To =emailto
objcdonts.Subject =emailtopic
objcdonts.BodyFormat = 0
objcdonts.MailFormat = 0
objcdonts.Body =emailbody
objcdonts.Send
Set objcdonts = Nothing

elseif h_selectemail=2 then

set Jmail=server.CreateObject ("Jmail.message")
Jmail.Silent=true
Jmail.fromname=emailname
Jmail.from=h_email
Jmail.AddRecipient (emailto)
Jmail.Subject= emailtopic
Jmail.body=emailbody
JMail.MailServerUserName ="pwsite" 'SMTP服务器登录用户名
JMail.MailServerPassWord ="xxxxxx" 'SMTP服务器登录密码
JMail.send(h_emailserver)

elseif h_selectemail=3 then
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=emailto
sender=h_email
subject=emailtopic
message=emailbody
mailserver=h_emailserver
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
end if

if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function

'===================================图表函数=====================================
function table3(total,table_x,table_y,all_width,all_height,table_type)
'参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,图表的类型)
'纯ASP代码生成图表函数3——饼图
tb_height=30
dim tb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#ffe3bb"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#d9d9e5"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"

tb_color(1,2)="#00ff00"
tb_color(2,2)="#ff0000"
tb_color(3,2)="#ff9900"
tb_color(4,2)="#33cccc"
tb_color(5,2)="#666699"
tb_color(6,2)="#993300"
tb_color(7,2)="#99cc00"

total_no=ubound(total,1)
totalpie=0
for i=1 to total_no
totalpie=totalpie+total(i,1)
next

PreAngle=0
for i=1 to total_no
response.write "<v:shape id='_x0000_s1025' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:1' coordsize='1500,1400' o:spt='100' adj='0,,0' path='m750,700ae750,700,750,700,"&int(23592960*PreAngle)&","&int(23592960*total(i,1)/totalpie)&"xe' fillcolor='"&tb_color(i,1)&"' strokecolor='#FFFFFF'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/><v:stroke joinstyle='round'/><v:formulas/><v:path o:connecttype='segments'/></v:shape>"&CHr(13)
PreAngle=PreAngle+total(i,1)/totalpie
next

if table_type="A" then
response.write "<v:rect id='_x0000_s1025' style='position:absolute;left:"&table_x+all_width+20&"px;top:"&table_y+20&"px;width:100px;height:"&total_no*tb_height+20&"px;z-index:1'/>"
for i=1 to total_no
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>"
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>"
response.write "<v:rect id='_x0000_s1040' alt='' style='position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+30+(i-1)*tb_height+3&"px;width:30px;height:20px;z-index:1' fillcolor='"&tb_color(i,1)&"'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/></v:rect>"
'显示比例数
' response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+110&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>"
' response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>"
next
end if

if table_type="B" then
pie=3.14159265358979
TempPie=0
for i=1 to total_no
TempAngle=pie*2*(total(i,1)/(TotalPie*2)+TempPie)
x1=table_x+all_width/2+cos(TempAngle)*all_width*3/8
y1=table_y+all_height/2-sin(TempAngle)*all_height*3/8
x2=table_x+all_width/2+cos(TempAngle)*all_width*3/4
y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4
if x2>table_x+all_width/2 then
x3=x2+20
x4=x3
else
x3=x2-20
x4=x3-100
end if
response.write "<v:oval id='_x0000_s1027' style='position:absolute;left:"&x1-2&"px;top:"&y1-2&"px;width:4px;height:4px; z-index:2' fillcolor='#111111' strokecolor='#111111'/>"&CHR(13)
response.write "<v:line id='_x0000_s1025' alt='' style='position:absolute;left:0;text-align:left;top:0;z-index:1' from='"&x1&"px,"&y1&"px' to='"&x2&"px,"&y2&"px' coordsize='21600,21600' strokecolor='#111111' strokeweight='1px'></v:line>"
response.write "<v:line id='_x0000_s1025' alt='' style='position:absolute;left:0;text-align:left;top:0;z-index:1' from='"&x2&"px,"&y2&"px' to='"&x3&"px,"&y2&"px' coordsize='21600,21600' strokecolor='#111111' strokeweight='1px'></v:line>"
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&x4&"px;top:"&y2-10&"px;width:100px;height:20px;z-index:1'>"
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&" "&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>"
TempPie=TempPie+total(i,1)/TotalPie
next
end if
end function
%>