[code]<% '功能:在一个字符串前后补全另一字符串 '来源:http://jorkin.reallydo.com/article.asp?id=452 Public Function Fill(ByVal sString, ByVal sStr)     Fill = RFill(LFill(sString, sStr), sStr ) End Function %>&...

记录集内随机取记录的代码<% ' Moving to random record - Steven Jones' ExtensionIf Not(记录集名称.bof and 记录集名称.eof) Then' reset the cursor to the beginningIf (记录集名称.CursorType > 0) Then记录集名称.MoveFi...

IP限制函数大家如果还有好的建议算法，就联系我！！：）“******************************“Function CheckIp(cInput_Ip,cBound_Ip)“Created by qqdao, qqdao@263.net 2001/11/28“说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内“参数： cInput_Ip,代检查的ip“ cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到...

最近经常有人问到这类问题,在此转贴一下,内容:1。数据库表结构(Access)：UserID:Text(保存上传文件的用户ID)FileContentType:Text(用来保存上传文件的类型，eg:"Application/msword"，主要用来使用户能正确下载此文件）FileContent:OLE Object（保存文件数据）2。HTML文件muploadfile.htm<Form name="upload_file" enctype="multipart/form-data" action="muploadfile.asp" me...

'=================================================='函数名：UrlEncoding'作  用：转换编码'==================================================Function UrlEncoding(DataStr)    Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8    StrReturn = "" ...

<%'申明变量Dim valNameDim arrNameDim objConnDim connStrIf Request.Form("mySubmit") = "确定" Then '数据库链接代码set objConn=server.CreateObject("ADODB.connection") connStr = "PROVIDER=SQLOLEDB;Server=(local);DATABASE=test;UID=sa;PWD=123456;"&nbs...

<%’******************************’函数：HTMLEncode(reString)’参数：reString,待编码转换处理的字符串’作者：阿里西西’日期：2007/7/15’描述：对HTML代码进行转换’示例：HTMLEncode("<p>欢迎访问<br>阿里西西</p>")’******************************Function HTMLEncode(reString) Dim Str:Str=reString If Not IsNull...

<%’******************************’函数：FormatFileSize(l1)’参数：l1,字节数’作者：阿里西西’日期：2007/7/12’描述：格式化文件大小样式’示例：<%=FormatFileSize(l1)%>’******************************function FormatFileSize(l1) dim l2,l3 l3=formatnumber(l1,0,true) if l1>1048576 then l2="("&...

<%’******************************’函数：NewOrder(ArrStr)’参数：Rstr,以逗号做分隔的数字数组’作者：阿里西西’日期：2007/7/13’描述：重排序数字数组’示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>’******************************Function NewOrder(ArrStr)For i = 0 To Ubound(Split(ArrStr,",")) If ...

截取字符串特定部分内容函数<%’******************************’函数：GetKey(HTML,Start,Last)’参数：HTML,待截取的原字符串；tart,截取开始标记；last,截取结束标记’作者：阿里西西’日期：2007/7/12’描述：截取字符串函数，从Start开始截取，到Last为结束’示例：<%=GetKey("阿里西西，国内最大的WEB开发资源","最大的","资源")%>’******************************Function GetKey(HTML,Start,Last)filearray=...

看到很多人需要，就放出来，好东西大家一起分享。 [code]Function content_Code(Str)   dim ary_String,i,n,n_pos   ary_String=split(Str,"[ code ]")   n=ubound(ary_String)   If n<1 then    content_Code=Str &...