asp常用函数库

最新推荐文章于 2024-08-08 14:37:33 发布
最新推荐文章于 2024-08-08 14:37:33 发布
阅读量608 收藏 2
点赞数
分类专栏： ASP 文章标签： asp applet date insert mozilla sql
 
  1. '----------------- ASP站点开发常用函数库 ------------------
  2. 'OpenDB(vdata_url)   -------------------- 打开数据库
  3. 'getIp()  ------------------------------- 得到真实IP
  4. 'getIPAdress(sip)------------------------ 查找ip对应的真实地址
  5. 'IP2Num(sip) ---------------------------- 限制某段IP地址
  6. 'chkFrom() ------------------------------ 防站外提交设定
  7. 'getsys() ------------------------------- 操作系统检测
  8. 'GetBrowser() --------------------------- 浏览器版本检测
  9. 'GetSearcher() -------------------------- 识别搜索引擎
  10. '
  11. '---------------------- 数据过滤 ↓----------------------------
  12. 'CheckStr(byVal ChkStr) ----------------- 检查无效字符
  13. 'CheckSql() ----------------------------- 防止SQL注入
  15. 'UnCheckStr(Str)------------------------- 检查非法sql命令
  16. 'Checkstr(Str) -------------------------- ASP最新SQL防注入过滤涵数
  18. 'HTMLEncode(reString) ------------------- 过滤转换HTML代码
  19. 'DateToStr(DateTime,ShowType) ----------- 日期转换函数
  20. 'Date2Chinese(iDate) -------------------- 获得ASP的中文日期字符串
  21. 'lenStr(str) ---------------------------- 计算字符串长度（字节）
  23. 'CreateArr(str) ------------------------- 生成二维数组
  24. 'ShowRsArr(rsArr) ----------------------- 用表格显示记录集getrows生成的数组的表结构
  26. '---------------------- 外接组件使用函数↓------------------------
  27. 'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail组件 发送邮件
  29. '-----------------------------------------系统检测函数↓------------------------------------------
  30. 'IsValidUrl(url) ------------------------ 检测网页是否有效
  31. 'getHTMLPage(filename) ------------------ 获取文件内容
  32. 'CheckFile(FilePath) -------------------- 检查某一文件是否存在
  33. 'CheckDir(FolderPath) ------------------- 检查某一目录是否存在
  34. 'MakeNewsDir(foldername) ---------------- 根据指定名称生成目录
  35. 'CreateHTMLPage(filename,FileData,C_mode) 生成文件
  37. 'CheckBadWord(byVal ChkStr) ------------- 过滤脏字
  38. '###############################################################
  40. Dim ipData_url
  41. ipData_url="./Ip.mdb"
  43. Response.Write("--------------客户端信息检测------------""<br>")
  44. Response.Write(getsys()"<br>")
  45. Response.Write(GetBrowser()"<br>")
  46. Response.Write(GetSearcher()"<br>")
  47. Response.Write("IP:"&getIp()"<br>")
  48. Response.Write("来源:"&(getIPAdress(GetIp()))"<br>")
  49. Response.Write("<br>")
  51. Response.Write("--------------数据提交检测--------------""<br>")
  52. if not chkFrom then
  53.     Response.write("请不要从站外提交内容！""<br>")
  54.     Response.end
  55. else
  56.     Response.write("本站提交内容！""<br><br>")
  57. End if
  60. function OpenDB(vdata_url)
  61. '------------------------------打开数据库
  62. '使用:Conn = OpenDB("data/data.mdb")
  63.   Dim vibo_Conn
  64.   Set vibo_Conn= Server.CreateObject("ADODB.Connection")
  65.   vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vdata_url)
  66.   vibo_Conn.Open
  67.   OpenDB=vibo_Conn
  68. End Function
  70. function getIp()
  71. '-----------------------得到真实IP
  72. userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
  73. If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 
  74. getIp=userip
  75. End function
  77. Function getIPAdress(sip) 
  78. '---------------------查找ip对应的真实地址
  79. Dim iparr,iprs,country,city
  80. If sip="127.0.0.1" then sip= "192.168.0.1"    
  81. iparr=split(sip,".")
  82. sip=cint(iparr(0))*256*256*256+cint(iparr(1))*256*256+cint(iparr(2))*256+cint(iparr(3))-1 
  83. Dim vibo_ipconn_STRING
  84. vibo_ipconn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(ipData_url)
  85. Set iprs = Server.CreateObject("ADODB.Recordset")
  86. iprs.ActiveConnection = vibo_ipconn_STRING
  87. iprs.Source = "Select Top 1 city, country FROM address Where ip1 <=" & sip & " and " & sip & "<=ip2"
  88. iprs.CursorType = 0
  89. iprs.CursorLocation = 2
  90. iprs.LockType = 1
  91. iprs.Open()
  93. If iprs.bof and iprs.eof then
  94.     country="未知地区"
  95.     city=""
  96. Else
  97.     country=iprs.Fields.Item("country").Value
  98.     city=iprs.Fields.Item("city").Value
  99. End If
  100. getIPAdress=country&city 
  101. iprs.Close()
  102. Set iprs = Nothing
  103. End Function 
  105. Function IP2Num(sip)
  106. '--------------------限制某段IP地址
  108.     dim str1,str2,str3,str4
  109.     dim num
  110.     IP2Num=0
  111.     if isnumeric(left(sip,2)) then
  112.         str1=left(sip,instr(sip,".")-1)
  113.         sip=mid(sip,instr(sip,".")+1)
  114.         str2=left(sip,instr(sip,".")-1)
  115.         sip=mid(sip,instr(sip,".")+1)
  116.         str3=left(sip,instr(sip,".")-1)
  117.         str4=mid(sip,instr(sip,".")+1)
  118.         num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
  119.         IP2Num = num
  120.     end if
  121. end function
  123. 'userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
  124. 'if userIPnum > IP2Num("192.168.0.0") and userIPnum < IP2Num("192.168.0.255") then
  125.     'response.write ("<center>您的IP被禁止</center>")
  126.     'response.end
  127. 'end if
  130. Function chkFrom() 
  131. '----------------------------防站外提交设定
  132.     Dim server_v1,server_v2, server1, server2
  133.     chkFrom=False 
  134.     server1=Cstr(Request.ServerVariables("HTTP_REFERER"))
  135.     server2=Cstr(Request.ServerVariables("SERVER_NAME"))
  136.     If Mid(server1,8,len(server2))=server2 Then chkFrom=True 
  137. End Function
  138. 'if not chkFrom then
  139.     'Response.write("请不要从站外提交内容！")
  140.     'Response.end
  141. 'End if
  143. function getsys()
  144. '----------------------------------操作系统检测
  145. vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")
  146. if instr(vibo_soft,"Windows NT 5.0") then
  147.     msm="Win 2000"
  148. elseif instr(vibo_soft,"Windows NT 5.1") then
  149.     msm="Win XP"
  150. elseif instr(vibo_soft,"Windows NT 5.2") then
  151.     msm="Win 2003"
  152. elseif instr(vibo_soft,"4.0") then
  153.     msm="Win NT"
  154. elseif instr(vibo_soft,"NT") then
  155.     msm="Win NT"
  156. elseif instr(vibo_soft,"Windows CE") then
  157.     msm="Windows CE"
  158. elseif instr(vibo_soft,"Windows 9") then
  159.     msm="Win 9x"
  160. elseif instr(vibo_soft,"9x") then
  161.     msm="Windows ME"
  162. elseif instr(vibo_soft,"98") then
  163.     msm="Windows 98"
  164. elseif instr(vibo_soft,"Windows 95") then
  165.     msm="Windows 95"
  166. elseif instr(vibo_soft,"Win32") then
  167.     msm="Win32"
  168. elseif instr(vibo_soft,"unix") or instr(vibo_soft,"linux") or instr(vibo_soft,"SunOS") or instr(vibo_soft,"BSD") then
  169.     msm="类Unix"
  170. elseif instr(vibo_soft,"Mac") then
  171.     msm="Mac"
  172. else
  173.     msm="Other"
  174. end if
  175. getsys=msm
  176. End Function
  178. function GetBrowser()
  179. '----------------------------------浏览器版本检测
  180. dim vibo_soft
  181. vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")
  182. Browser="unknown"
  183. version="unknown"
  184. 'vibo_soft="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; TencentTraveler ; .NET CLR 1.1.4322)"    
  185. If Left(vibo_soft,7) ="Mozilla" Then '有此标识为浏览器
  186.             vibo_soft=Split(vibo_soft,";")
  187.             If InStr(vibo_soft(1),"MSIE")>0 Then
  188.                 Browser="Microsoft Internet Explorer "
  189.                 version=Trim(Left(Replace(vibo_soft(1),"MSIE",""),6))
  190.             ElseIf InStr(vibo_soft(4),"Netscape")>0 Then 
  191.                 Browser="Netscape "
  192.                 tmpstr=Split(vibo_soft(4),"/")
  193.                 version=tmpstr(UBound(tmpstr))
  194.             ElseIf InStr(vibo_soft(4),"rv:")>0 Then
  195.                 Browser="Mozilla "
  196.                 tmpstr=Split(vibo_soft(4),":")
  197.                 version=tmpstr(UBound(tmpstr))
  198.                 If InStr(version,")") > 0 Then 
  199.                     tmpstr=Split(version,")")
  200.                     version=tmpstr(0)
  201.                 End If
  202.             End If
  203. ElseIf Left(vibo_soft,5) ="Opera" Then 
  204.             vibo_soft=Split(vibo_soft,"/")
  205.             Browser="Mozilla "
  206.             tmpstr=Split(vibo_soft(1)," ")
  207.             version=tmpstr(0)
  208. End If
  209. If version<>"unknown" Then 
  210.             Dim Tmpstr1
  211.             Tmpstr1=Trim(Replace(version,".",""))
  212.             If Not IsNumeric(Tmpstr1) Then
  213.                 version="unknown"
  214.             End If
  215. End If
  216. GetBrowser=Browser " "& version
  217. End function
  219. function GetSearcher()
  220. '----------------------识别搜索引擎
  221. Dim botlist,Searcher
  222. Dim vibo_soft
  223. vibo_soft=Request.ServerVariables("HTTP_USER_AGENT")
  225. Botlist="Google,Isaac,SurveyBot,Baiduspider,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir,TencentTraveler"
  226. Botlist=split(Botlist,",")
  227.   For i=0 to UBound(Botlist)
  228.     If InStr(vibo_soft,Botlist(i))>0  Then 
  229.       Searcher=Botlist(i)" 搜索器"
  230.       IsSearch=True
  231.       Exit For
  232.     End If
  233.   Next 
  234. If IsSearch Then 
  235.   GetSearcher=Searcher
  236. else
  237.   GetSearcher="unknown"
  238. End if
  239. End function
  242. '----------------------------------数据过滤 ↓---------------------------------------
  243. Function CheckSql() '防止SQL注入
  244.     Dim sql_injdata  
  245.     SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" 
  246.     SQL_inj = split(SQL_Injdata,"|") 
  247.     If Request.QueryString<>"" Then 
  248.         For Each SQL_Get In Request.QueryString 
  249.             For SQL_Data=0 To Ubound(SQL_inj) 
  250.                 if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then 
  251.                     Response.Write "<Script Language='javascript'>{alert('请不要在参数中包含非法字符！');history.back(-1)}</Script>" 
  252.                     Response.end 
  253.                 end if 
  254.             next 
  255.         Next 
  256.     End If
  257.     If Request.Form<>"" Then 
  258.         For Each Sql_Post In Request.Form 
  259.             For SQL_Data=0 To Ubound(SQL_inj) 
  260.                 if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then 
  261.                     Response.Write "<Script Language='javascript'>{alert('请不要在参数中包含非法字符！');history.back(-1)}    </Script>" 
  262.                     Response.end 
  263.                 end if 
  264.             next 
  265.         next 
  266.     end if
  267. End Function
  269. Function CheckStr(byVal ChkStr) '检查无效字符
  270.     Dim Str:Str=ChkStr
  271.     Str=Trim(Str)
  272.     If IsNull(Str) Then
  273.         CheckStr = ""
  274.         Exit Function 
  275.     End If
  276.     Dim re
  277.     Set re=new RegExp
  278.     re.IgnoreCase =True
  279.     re.Global=True
  280.     re.Pattern="(/r/n){3,}"
  281.     Str=re.Replace(Str,"$1$1$1")
  282.     Set re=Nothing
  283.     Str = Replace(Str,"'","''")
  284.     Str = Replace(Str, "select", "select")
  285.     Str = Replace(Str, "join", "join")
  286.     Str = Replace(Str, "union", "union")
  287.     Str = Replace(Str, "where", "where")
  288.     Str = Replace(Str, "insert", "insert")
  289.     Str = Replace(Str, "delete", "delete")
  290.     Str = Replace(Str, "update", "update")
  291.     Str = Replace(Str, "like", "like")
  292.     Str = Replace(Str, "drop", "drop")
  293.     Str = Replace(Str, "create", "create")
  294.     Str = Replace(Str, "modify", "modify")
  295.     Str = Replace(Str, "rename", "rename")
  296.     Str = Replace(Str, "alter", "alter")
  297.     Str = Replace(Str, "cast", "cast")
  298.     CheckStr=Str
  299. End Function
  301. Function UnCheckStr(Str) '检查非法sql命令
  302.         Str = Replace(Str, "select", "select")
  303.         Str = Replace(Str, "join", "join")
  304.         Str = Replace(Str, "union", "union")
  305.         Str = Replace(Str, "where", "where")
  306.         Str = Replace(Str, "insert", "insert")
  307.         Str = Replace(Str, "delete", "delete")
  308.         Str = Replace(Str, "update", "update")
  309.         Str = Replace(Str, "like", "like")
  310.         Str = Replace(Str, "drop", "drop")
  311.         Str = Replace(Str, "create", "create")
  312.         Str = Replace(Str, "modify", "modify")
  313.         Str = Replace(Str, "rename", "rename")
  314.         Str = Replace(Str, "alter", "alter")
  315.         Str = Replace(Str, "cast", "cast")
  316.         UnCheckStr=Str
  317. End Function
  319. Function Checkstr(Str) 'SQL防注入过滤涵数
  320.     If Isnull(Str) Then 
  321.     CheckStr = "" 
  322.     Exit Function 
  323.     End If 
  324.     Str = Replace(Str,Chr(0),"", 1, -1, 1) 
  325.     Str = Replace(Str, """", """", 1, -1, 1) 
  326.     Str = Replace(Str,"<","<", 1, -1, 1) 
  327.     Str = Replace(Str,">",">", 1, -1, 1) 
  328.     Str = Replace(Str, "script", "script", 1, -1, 0) 
  329.     Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0) 
  330.     Str = Replace(Str, "Script", "Script", 1, -1, 0) 
  331.     Str = Replace(Str, "script", "Script", 1, -1, 1) 
  332.     Str = Replace(Str, "object", "object", 1, -1, 0) 
  333.     Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0) 
  334.     Str = Replace(Str, "Object", "Object", 1, -1, 0) 
  335.     Str = Replace(Str, "object", "Object", 1, -1, 1) 
  336.     Str = Replace(Str, "applet", "applet", 1, -1, 0) 
  337.     Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0) 
  338.     Str = Replace(Str, "Applet", "Applet", 1, -1, 0) 
  339.     Str = Replace(Str, "applet", "Applet", 1, -1, 1) 
  340.     Str = Replace(Str, "[", "[") 
  341.     Str = Replace(Str, "]", "]") 
  342.     Str = Replace(Str, """", "", 1, -1, 1) 
  343.     Str = Replace(Str, "=", "=", 1, -1, 1) 
  344.     Str = Replace(Str, "'", "''", 1, -1, 1) 
  345.     Str = Replace(Str, "select", "select", 1, -1, 1) 
  346.     Str = Replace(Str, "execute", "execute", 1, -1, 1) 
  347.     Str = Replace(Str, "exec", "exec", 1, -1, 1) 
  348.     Str = Replace(Str, "join", "join", 1, -1, 1) 
  349.     Str = Replace(Str, "union", "union", 1, -1, 1) 
  350.     Str = Replace(Str, "where", "where", 1, -1, 1) 
  351.     Str = Replace(Str, "insert", "insert", 1, -1, 1) 
  352.     Str = Replace(Str, "delete", "delete", 1, -1, 1) 
  353.     Str = Replace(Str, "update", "update", 1, -1, 1) 
  354.     Str = Replace(Str, "like", "like", 1, -1, 1) 
  355.     Str = Replace(Str, "drop", "drop", 1, -1, 1) 
  356.     Str = Replace(Str, "create", "create", 1, -1, 1) 
  357.     Str = Replace(Str, "rename", "rename", 1, -1, 1) 
  358.     Str = Replace(Str, "count", "count", 1, -1, 1) 
  359.     Str = Replace(Str, "chr", "chr", 1, -1, 1) 
  360.     Str = Replace(Str, "mid", "mid", 1, -1, 1) 
  361.     Str = Replace(Str, "truncate", "truncate", 1, -1, 1) 
  362.     Str = Replace(Str, "nchar", "nchar", 1, -1, 1) 
  363.     Str = Replace(Str, "char", "char", 1, -1, 1) 
  364.     Str = Replace(Str, "alter", "alter", 1, -1, 1) 
  365.     Str = Replace(Str, "cast", "cast", 1, -1, 1) 
  366.     Str = Replace(Str, "exists", "exists", 1, -1, 1) 
  367.     Str = Replace(Str,Chr(13),"<br>", 1, -1, 1) 
  368.     CheckStr = Replace(Str,"'","''", 1, -1, 1) 
  369. End Function
  371. Function HTMLEncode(reString) '过滤转换HTML代码
  372.     Dim Str:Str=reString
  373.     If Not IsNull(Str) Then
  374.         Str = UnCheckStr(Str)
  375.         Str = Replace(Str, "&", "&")
  376.         Str = Replace(Str, ">", ">")
  377.         Str = Replace(Str, "<", "<")
  378.         Str = Replace(Str, CHR(32), " ")
  379.         Str = Replace(Str, CHR(9), "    ")
  380.         Str = Replace(Str, CHR(9), "    ")
  381.         Str = Replace(Str, CHR(34),""")
  382.         Str = Replace(Str, CHR(39),"'")
  383.         Str = Replace(Str, CHR(13), "")
  384.         Str = Replace(Str, CHR(10), "<br>")
  385.         HTMLEncode = Str
  386.     End If
  387. End Function
  389. Function DateToStr(DateTime,ShowType)  '日期转换函数
  390.     Dim DateMonth,DateDay,DateHour,DateMinute
  391.     DateMonth=Month(DateTime)
  392.     DateDay=Day(DateTime)
  393.     DateHour=Hour(DateTime)
  394.     DateMinute=Minute(DateTime)
  395.     If Len(DateMonth)<2 Then DateMonth="0"
  396.     If Len(DateDay)<2 Then DateDay="0"
  397.     Select Case ShowType
  398.     Case "Y-m-d"  
  399.         DateToStr=Year(DateTime)"-"&DateMonth"-"
  400.     Case "Y-m-d H:I A"
  401.         Dim DateAMPM
  402.         If DateHour>12 Then 
  403.             DateHour=DateHour-12
  404.             DateAMPM="PM"
  405.         Else
  406.             DateHour=DateHour
  407.             DateAMPM="AM"
  408.         End If
  409.         If Len(DateHour)<2 Then DateHour="0"&DateHour    
  410.         If Len(DateMinute)<2 Then DateMinute="0"
  411.         DateToStr=Year(DateTime)"-"&DateMonth"-"&DateDay" "&DateHour":"&DateMinute" "
  412.     Case "Y-m-d H:I:S"
  413.         Dim DateSecond
  414.         DateSecond=Second(DateTime)
  415.         If Len(DateHour)<2 Then DateHour="0"&DateHour    
  416.         If Len(DateMinute)<2 Then DateMinute="0"
  417.         If Len(DateSecond)<2 Then DateSecond="0"
  418.         DateToStr=Year(DateTime)"-"&DateMonth"-"&DateDay" "&DateHour":"&DateMinute":"
  419.     Case "YmdHIS"
  420.         DateSecond=Second(DateTime)
  421.         If Len(DateHour)<2 Then DateHour="0"&DateHour    
  422.         If Len(DateMinute)<2 Then DateMinute="0"
  423.         If Len(DateSecond)<2 Then DateSecond="0"
  424.         DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond    
  425.     Case "ym"
  426.         DateToStr=Right(Year(DateTime),2)
  427.     Case "d"
  428.         DateToStr=DateDay
  429.     Case Else
  430.         If Len(DateHour)<2 Then DateHour="0"
  431.         If Len(DateMinute)<2 Then DateMinute="0"
  432.         DateToStr=Year(DateTime)"-"&DateMonth"-"&DateDay" "&DateHour":"
  433.     End Select
  434. End Function
  436. Function Date2Chinese(iDate) '获得ASP的中文日期字符串
  437. 　 　 Dim num(10)
  438. 　 　 Dim iYear
  439. 　 　 Dim iMonth
  440. 　 　 Dim iDay
  442. 　 　 num(0) = "〇"
  443. 　 　 num(1) = "一"
  444. 　 　 num(2) = "二"
  445. 　 　 num(3) = "三"
  446. 　 　 num(4) = "四"
  447. 　 　 num(5) = "五"
  448. 　 　 num(6) = "六"
  449. 　 　 num(7) = "七"
  450. 　 　 num(8) = "八"
  451. 　 　 num(9) = "九"
  453. 　 　 iYear = Year(iDate)
  454. 　 　 iMonth = Month(iDate)
  455. 　 　 iDay = Day(iDate)
  456. 　 　 Date2Chinese = num(iYear / 1000) + num((iYear / 100) Mod 10) + num((iYear/ 10) Mod 10) + num(iYear Mod 10) + "年"
  457. 　 　 If iMonth >= 10 Then
  458. 　 　 　 　 If iMonth = 10 Then
  459. 　 　 　 　 　 　 Date2Chinese = Date2Chinese + "十" + "月"
  460. 　 　 　 　 Else
  461. 　 　 　 　 　 　 Date2Chinese = Date2Chinese + "十" + num(iMonth Mod 10) + "月"
  462. 　 　 　 　 End If
  463. 　 　 Else
  464. 　 　 　 　 Date2Chinese = Date2Chinese + num(iMonth Mod 10) + "月"
  465. 　 　 End If
  466. 　 　 If iDay >= 10 Then
  467. 　 　 　 　 If iDay = 10 Then
  468. 　 　 　 　 　 　 Date2Chinese = Date2Chinese +"十" + "日"
  469. 　 　 　 　 ElseIf iDay = 20 or iDay = 30 Then
  470. 　 　 　 　 　 　 Date2Chinese = Date2Chinese + num(iDay / 10) + "十" + "日"
  471. 　 　 　 　 ElseIf iDay > 20 Then
  472. 　 　 　 　 　 　 Date2Chinese = Date2Chinese + num(iDay / 10) + "十" +num(iDay Mod 10) + "日"
  473. 　 　 　 　 Else
  474. 　 　　 　 　 　 Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"
  475. 　 　 　 　 End If
  476. 　 　 Else
  477. 　 　 　 　 Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"
  478. 　 　 End If
  479. End Function
  482. Function lenStr(str)'计算字符串长度（字节）
  483.     dim l,t,c
  484.     dim i
  485.     l=len(str)
  486.     t=0
  487. for i=1 to l
  488.     c=asc(mid(str,i,1))
  489.     if c<0 then c=c+65536
  490.     if c<255 then t=t+1
  491.     if c>255 then t=t+2
  492. next
  493.    lenstr=t
  494. End Function
  496. Function CreateArr(str) '生成二维数组 数据如："1,a1,b1,c1,d1|2,a2,b2,c2,d2|5,a3,b3,c3,d3|8,a4,b4,c4,d4"
  497. dim arr()
  498. str=split(str,"|")
  499. for i=0 to UBound(str)
  500.     arrstr=split(str(i),",")
  501.     for j=0 to Ubound(arrstr)
  502.         ReDim Preserve arr(UBound(str),UBound(arrstr))
  503.         arr(i,j)=arrstr(j)
  504.     next
  505. next
  506. CreateArr=arr
  507. End Function
  509. '###############################################################
fredtaylor
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ASP常用函数库
05-17
ASP常用函数库，详细介绍了ASP动态服务器页面开发中所使用的各类函数
不错的ASP函数库
SmartJavaer的专栏
10-12 2224
不错的ASP函数库                   函数目录                    ----------------------------------------------- 函数ID：0001[截字符串]                        函数ID：0002[过滤html]             
ASP函数库
柯兄技术博客
05-17 1739
option explicit001.function lpad(desstr,padchar,lenint) 左填充002.function rpad(desstr,padchar,lenint) 右填充 003.function MakeRndPass(passlen,passtype) 生成随机密码004.function readFile(filepath) 读文件005.fu
ASP函数库(全部可以直接调用，非常方便) 6
weixin_30727835的博客
08-14 402
'**************************************************'函数ID：0034[用于右填充指定数量的字符,以达到规范长度]'函数名：rpad'作 用：用于右填充指定数量的字符,以达到规范长度'参 数：desstr ---- 目标字符'参 数：padchar ---- 填充字符'参 数：lenint ---- 填充后的字符总长度'返回值：返回字符'示 例：...
ASP常用函数库（非系统函数）
07-15
这个“ASP常用函数库”集合了开发者编写的实用函数，可以帮助提高开发效率，解决常见问题。 文档"ASP常用函数库.doc"可能包含以下一些关键知识点： 1. **字符串处理函数**：字符串操作是ASP中常见的任务，如字符串...
Asp.Net常用函数库
02-25
"Asp.Net常用函数库"就是这样一个资源集合，它包含了一系列常用的函数和方法，可以帮助开发者快速处理常见的任务。 `Binken.Platform.General_Function.dll`很可能是一个封装了多种通用功能的类库，通常这样的库会...
ASP常用函数:ArrayToxml
01-20
总的来说，`ArrayToxml`函数在ASP开发中扮演着数据转换的角色，将数据库查询结果从二维数组的形式转换为易于处理的XML结构，从而提高数据处理的灵活性和兼容性。这种转换对于需要在不同系统之间交换数据或者使用XML...
sql所有信息
灵狐博客园
01-11 2889
基本操作（1.数据类型） 1.数据类型数据类弄是数据的一种属性，表示数据所表示信息的类型。任何一种计算机语言都定义了自己的数据类型。当然，不同的程序语言都具有不同的特点，所定义的数据类型的各类和名称都或多或少有些不同。SQL Server 提供了 25 种数据类型：·Binary [(n)]·Varbinary [(n)]·Char [(n)]·Varchar[(n)]·Nchar[(n)]·Nv
ASP函数库(全部可以直接调用，非常方便) 5
weixin_30371469的博客
08-14 181
'**************************************************'''''函数ID：0028[取得图像的类型|宽|高]'函数名：GetImageDx'作 用：取得图像的类型|宽|高'参 数：filepath ---- 文件路径及文件命名'返回值："类型|宽|高"'*************************************************...
ASP函数库(全部可以直接调用，非常方便) 1
weixin_30410119的博客
08-14 284
'**************************************************'''''函数ID：0001[截字符串]'函数名：SubstZFC'作 用：截字符串，汉字一个算两个字符，英文算一个字符'参 数：str ----原字符串' strlen ----截取长度'返回值：截取后的字符串'******************************************...
ASP实用函数库
10-21 489
判断文件名是否合法Function isFilename(aFilename) Dim sErrorStr,iNameLength,i isFilename=TRUE sErrorStr=Array("/","/",":","*","?","""","","|") iNameLength=Len(aFilename) If iNameLength  isFilename=FALSE Else  
(六)、引入uni-id用户体系，基于opendb创建schema，向数据库添加新数据【uniapp+uinicloud多用户社区博客实战项目(完整开发文档-从零到完整项目)】
tigerhhzz的博客
02-15 767
(六)、引入uni-id用户体系，基于opendb创建schema，向数据库添加新数据【uniapp+uinicloud多用户社区博客实战项目(完整开发文档-从零到完整项目)】
ASP常用代码段
superkoneyzheng的博客
06-01 1355
原文地址：http://biancheng.dnbcw.info/94/94887.html VBScript code Function GetSafeStr(str) GetSafeStr=Replace(Replace(Replace(Replace(Replace(str,"'","‘"),"""","“"),"&",""),"",">") End Function
asp文件操作常用函数(from fisker)
judge9999的专栏
09-12 617
1, openDBAccess数据库连接用法：openDB2, closeDB断开数据库连接用法：closeDB3, print简化输出用法：print "fisker"4, endPrint结束输出用法：endPrint5, ReadFile使用adodb.stream读取文本文件用法：ReadFile("fisker.txt")6, SaveFile保存文本文件用法：SaveFile("I L
解决页面设计和搜索引擎优化的两难
赵宏伟的专栏
11-27 845
设计漂亮的网页往往是复杂的，但是搜索引擎却不懂得欣赏漂亮的网页，只是喜欢代码精炼的网页，这就形成了一个页面设计跟搜索引擎优化的两难。 解决这种两难其实很简单，只要给搜索引擎提供不同的内容就可以了。 实现方法就是识别搜索引擎，然后发送特定信息。识别搜索引擎有两种方法，排除常用浏览器和直接识别搜索引擎，这里我用第二种方法，识别部分搜索引擎。发送特定信息业有多种方法，可以在当前页面中包含生成特定信息代码
ASP------字符串与HTML格式相互转换
weixin_34192993的博客
06-21 361
代码： 1.字符串转HTML HttpUtility.HtmlDecode("&amp;nbsp;is&amp;nbsp;") 或者 Server.UrlDecode("&amp;nbsp;is&amp;nbsp;") 2.HTML转字符串 HttpUtility.HtmlEncode("&amp;nbsp;is&amp;nbsp;") 或者 Server.UrlEncode("&am
kubernetes集群部署sql server数据库服务
最新发布
jiang0615csdn的博客
08-08 499
kubernetes集群部署sql server数据库服务
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值