发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

写ASP时常用到的一些函数收集

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

'@转换日期为星期几函数'@idate为标准日期格式'@itype为0时表示英文星期几,否则为中文function showweek(idate,itype)if itype  0 then itype = 1 '//防止误输出错dim inum,ndayinum = weekday(idate)if itype = 0 thenselect case inumcase 1nday = "Sunday"case 2nday = "Monday"case 3nday = "Tuesday"case 4nday = "Wednesday"case 5nday = "Thursday"case 6nday = "Friday"case 7nday = "Saturday"end selectelseselect case inumcase 1nday = "星期天"case 2nday = "星期一"case 3nday = "星期二"case 4nday = "星期三"case 5nday = "星期四"case 6nday = "星期五"case 7nday = "星期六"end selectend if'//OUTPUTshowweek = ndayend function'//************************************************************* 

'@分页列表函数'@参数说明：TotalReCount:记录总数'@page:当前页码,pagesize:分页大小，url:页面地址function PageList(TotalReCount,page,pagesize,url)dim startPage,endPage,ipage,totalPage'//判断链接文件后参数个数if inStr(1,url,"?") = 0 thenurl = url  "?"elseurl = url  "amp;"end if'//得到总页数totalPage = TotalReCount \ pagesizeif TotalRecount mod pagesize  0 then totalPage = Cint(TotalRecount\pagesize+1)startPage = 1endPage = totalPageif page  10 then startPage = page - 4if totalPage  10 thenendPage = totalPageelseif page = 10 thenendPage = 10elseendPage = page + 4if endPage  totalPage then endPage = totalPageend ifend if%共有:%=TotalReCount%nbsp;%=pagesize%页 %if page1 then%a href="%=url%page=1"font face="webdings"9/font/anbsp;a href="%=url%page=%=page-1%"font face="webdings"7/font/anbsp;%end if%%for ipage = startPage to endPageif ipage  page then%a href=""%=ipage%/anbsp;%elseresponse.write i"nbsp;"end ifnext%%if (totalPage-page)4 then%a href="%=url%page=%=page+1%"font face="webdings"8/font/anbsp;a href="%=url%page=%=totalPage%"font face="webdings":/font/anbsp;%end if
end function'//*************************************************************
'//检测组件是否安装函数Function IsObjInstalled(strClassString)On Error Resume NextIsObjInstalled = FalseErr = 0Dim xTestObjSet xTestObj = Server.CreateObject(strClassString)If 0 = Err Then IsObjInstalled = TrueSet xTestObj = NothingErr = 0End Function'//*************************************************************
Function SafeRequest(ParaName,ParaType) '防止SQL注入攻击代码'--- 传入参数 ---//例: SafeRequest("username",0)或SafeRequest("id",1)'ParaName:参数名称-字符型'ParaType:参数类型-数字型(1表示参数是数字，0表示参数为字符)
Dim ParavalueParavalue=Request(ParaName)If ParaType=1 thenIf not isNumeric(Paravalue) then'Response.write "script language=javascriptalert('参数"  ParaName  "必须为数字型！');/script"Response.write "script language=javascriptwindow.history.back();/script"Response.endelseif Paravalue  1 thenParavalue = 1End ifElseParavalue=replace(Paravalue,"'","''")End ifSafeRequest=ParavalueEnd function'//*************************************************************
'//HTML解码函数Function HTMLDecode(fString)If Not IsNull(fString) ThenfString = replace(fString, "gt;", "")fString = replace(fString, "lt;", "")fString = Replace(fString, " ", CHR(32)) 'nbsp;fString = Replace(fString, " ", CHR(9)) 'nbsp;fString = Replace(fString, "quot;", CHR(34)) '双引号过滤'fString = Replace(fString, CHR(39), "#39;") '单引号过滤'fString = Replace(fString, ,"" CHR(13))fString = Replace(fString, "/pp", CHR(10)  CHR(10))fString = Replace(fString, "br", CHR(10))HTMLDecode = fStringEnd IfEnd Function'//*************************************************************
'//HTML编码函数Function HTMLEncode(fString)If Not IsNull(fString) ThenfString = replace(fString, "", "gt;")fString = replace(fString, "", "lt;")fString = Replace(fString, CHR(32), " ") 'nbsp;fString = Replace(fString, CHR(9), " ") 'nbsp;fString = Replace(fString, CHR(34), "quot;") '双引号过滤'fString = Replace(fString, CHR(39), "#39;") '单引号过滤fString = Replace(fString, CHR(13), "")fString = Replace(fString, CHR(10)  CHR(10), "/pp")fString = Replace(fString, CHR(10), "br")HTMLEncode = fStringEnd IfEnd Function'//*************************************************************
'CFS Encode FunctionFunction CfsEnCode(CodeStr)Dim CodeLenDim CodeSpaceDim NewCodedim cecr,cecb,cecCodeLen = 30CodeSpace = CodeLen - Len(CodeStr)If Not CodeSpace  1 ThenFor cecr = 1 To CodeSpaceCodeStr = CodeStr  Chr(21)NextEnd IfNewCode = 1Dim BeenFor cecb = 1 To CodeLenBeen = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecbNewCode = NewCode * BeenNextCodeStr = NewCodeNewCode = EmptyFor cec = 1 To Len(CodeStr)NewCode = NewCode  CfsCode(Mid(CodeStr,cec,3))NextFor cec = 20 To Len(NewCode) - 18 Step 2CfsEnCode = CfsEnCode  Mid(NewCode,cec,1)NextEnd Function
Function CfsCode(Word)dim ccFor cc = 1 To Len(Word)CfsCode = CfsCode  Asc(Mid(Word,cc,1))NextCfsCode = Hex(CfsCode)End Function'//*************************************************************
'//转换中文货币大小写function CLMoney(thenumber) dim Money,i,String1,String2,length,checkp'定义变量 dim one(),onestr()'定义数组 
String1 = "零壹贰叁肆伍陆柒捌玖" String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫" 
checkp=instr(thenumber,".")'判断是否含有小数位 if checkp0 then thenumber=replace(thenumber,".","")'去除小数位 end if 
length=len(thenumber) '取得数据长度 redim one(length-1)'重新定义数组大小 redim onestr(length-1)'重新定义数组大小 
for i=0 to length-1 
one(i)=mid(thenumber,i+1,1) '循环取得每一位的数字 one(i)=mid(string1,one(i)+1,1)'循环取得数字对应的大写 
if checkp=0 then '不含有小数的数据其数字对应的单位 onestr(i)=mid(string2,14-length+i,1) else '含有小数的数据其数字对应的单位 onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1) end if 
one(i)=one(i)onestr(i)'将数字与单位组合 next 
Money=replace(join(one)," ","") '取得数组中所有的元素，并连接起来 Money=replace(Money,"零元","元") Money=replace(Money,"零万","万") Money=replace(Money,"零亿","亿") Money=replace(Money,"零仟","零") Money=replace(Money,"零佰","零") Money=replace(Money,"零拾","零") 
do while not instr(Money,"零零")=0 Money=replace(Money,"零零","零") loop CLmoney = Moneyend function'//***********************************************************
'//IP转换成数字，限制IP时用'@使用示例'// userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))'// if userIPnum  IP2Num("192.168.0.0") and userIPnum  '// IP2Num("192.168.0.255") then'// response.write ("center您的IP被禁止/center")'// response.end'// end if
function IP2Num(sip)dim str1,str2,str3,str4dim numIP2Num=0if isnumeric(left(sip,2)) thenstr1=left(sip,instr(sip,".")-1)sip=mid(sip,instr(sip,".")+1)str2=left(sip,instr(sip,".")-1)sip=mid(sip,instr(sip,".")+1)str3=left(sip,instr(sip,".")-1)str4=mid(sip,instr(sip,".")+1)num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1IP2Num = numend ifend function'//********************************************************<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10000727" target="_blank">https://dangbai.cn/Article.asp?ID=10000727</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗