ASP实用函数库大全 浏览代码 脚本代码 IT人家

来源：百度文库 编辑：神马文学网 时间：2024/04/27 22:33:29
ASP实用函数库大全http://www.webkey.cn/ 2007-4-10 2:28:09 IT人家整理

开新窗口(view plain)复制(copy to clipboard)打印(print)关于(about)

  1. <%   
  2. '判断文件名是否合法   
  3. Function isFilename(aFilename)   
  4. Dim sErrorStr,iNameLength,i   
  5. isFilename=TRUE   
  6. sErrorStr=Array("/","\",":","*","?","""","<",">","|")  
  7. iNameLength=Len(aFilename)  
  8. If iNameLength<1 Or iNameLength=null Then  
  9. isFilename=FALSE  
  10. Else  
  11. For i=0 To 8  
  12. If instr(aFilename,sErrorStr(i)) Then  
  13. isFilename=FALSE  
  14. End If  
  15. Next  
  16. End If  
  17. End Function  
  18. '去掉字符串头尾的连续的回车和空格  
  19. function trimVBcrlf(str)  
  20. trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))  
  21. end function  
  22. '去掉字符串开头的连续的回车和空格  
  23. function ltrimVBcrlf(str)  
  24. dim pos,isBlankChar  
  25. pos=1  
  26. isBlankChar=true  
  27. while isBlankChar  
  28. if mid(str,pos,1)=" " then  
  29. pos=pos+1  
  30. elseif mid(str,pos,2)=VBcrlf then  
  31. pos=pos+2  
  32. else  
  33. isBlankChar=false  
  34. end if  
  35. wend  
  36. ltrimVBcrlf=right(str,len(str)-pos+1)  
  37. end function  
  38. '去掉字符串末尾的连续的回车和空格  
  39. function rtrimVBcrlf(str)  
  40. dim pos,isBlankChar  
  41. pos=len(str)  
  42. isBlankChar=true  
  43. while isBlankChar and pos>=2  
  44. if mid(str,pos,1)=" " then  
  45. pos=pos-1  
  46. elseif mid(str,pos-1,2)=VBcrlf then  
  47. pos=pos-2  
  48. else  
  49. isBlankChar=false  
  50. end if  
  51. wend  
  52. rtrimVBcrlf=rtrim(left(str,pos))  
  53. end function  
  54. '判断Email是否有效,返回1表示正确  
  55. Function isEmail(aEmail)  
  56. Dim iLocat,v,iLength,i,checkletter  
  57. If instr(aEmail,"@") = 0 Or instr(aEmail,".") = 0 Then  
  58. isEmail=0  
  59. EXIT FUNCTION  
  60. End If  
  61. iLocat=instr(aEmail,"@")  
  62. If instr(iLocat,aEmail,".")=0 Or instr(iLocat+1,aEmail,"@")>0 Then  
  63. isEmail=0  
  64. EXIT FUNCTION  
  65. End If  
  66. If left(aEmail,1)="." Or right(aEmail,1)="." Or left(aEmail,1)="@" Or right(aEmail,1)="@" Then  
  67. isEmail=0  
  68. EXIT FUNCTION  
  69. End If  
  70. v="1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.@"  
  71. iLength=len(aEmail)  
  72. For i=1 To iLength  
  73. checkletter=mid(aEmail,i,1)  
  74. If instr(v,checkletter)=0 Then  
  75. isEmail=0  
  76. EXIT FUNCTION  
  77. End If  
  78. Next  
  79. isEmail=1  
  80. End Function  
  81. '测试用:显示服务器信息  
  82. Sub showServer  
  83. Dim name  
  84. Response.write ""  
  85. for each name in request.servervariables  
  86. Response.write ""  
  87. Response.write ""&name&""  
  88. Response.write ""&request.servervariables(name)&"
    "  
  89. Response.write ""  
  90. next  
  91. Response.write ""  
  92. End Sub  
  93. '测试用:显示Rs结果集以及字段名称  
  94. Sub showRs(rs)  
  95. Dim strTable,whatever  
  96. Response.write "
    "  
  97. for each whatever in rs.fields  
  98. response.write "
    99. "  
  99. next  
  100. strTable = "
    101. " & whatever.name & "
    "&rs.GetString(,,"","
    "," ") &"
    "  
  101. Response.Write(strTable)  
  102. End Sub  
  103. '用HTML格式显示文本  
  104. function HTMLEncode(fString)  
  105. if not isnull(fString) then  
  106. fString = replace(fString, ">", ">")  
  107. fString = replace(fString, "<", "<")  
  108. fString = Replace(fString, CHR(32), " ")  
  109. fString = Replace(fString, CHR(34), """)   
  110. fString = Replace(fString, CHR(39), "'")   
  111. fString = Replace(fString, CHR(13), "")   
  112. fString = Replace(fString, CHR(10) & CHR(10), "

     ")   

  113. fString = Replace(fString, CHR(10), "
     ")   
  114. HTMLEncode = fString   
  115. end if   
  116. end function   
  117. '测试用:显示调试错误信息   
  118. Sub showError   
  119. Dim sErrMsg   
  120. sErrMsg=Err.Source&" "&Err.Des cription   
  121. Response.write "
    "&sErrMsg&"
    "  
  122. Err.clear   
  123. End Sub  
  124. '显示文字计数器   
  125. Sub showCounter   
  126. Dim fs,outfile,filename,count   
  127. filename=server.mappath("count.txt")   
  128. Set fs = CreateObject("s cripting.FileSystemObject")   
  129. If fs.fileExists(filename) Then  
  130. Set outfile=fs.openTextFile(filename,1)   
  131. count=outfile.readline   
  132. count=count+1   
  133. Response.write "
    浏览人次："&count&"
    "  
  134. outfile.close   
  135. Set outfile=fs.CreateTextFile(filename)   
  136. outfile.writeline(count)   
  137. Else  
  138. Set outfile=fs.openTextFile(filename,8,TRUE)   
  139. count=0   
  140. outfile.writeline(count)   
  141. END IF   
  142. outfile.close   
  143. set fs=nothing   
  144. End Sub  
  145. %>   
  146. Array()   
  147. 　FUNCTION: 返回一个数组   
  148. 　SYNTAX: Array(list)   
  149. 　ARGUMENTS: 字符，数字均可   
  150. 　EXAMPLE:   
  151. 　RESULT: 建立了一个包含7个元素的数组myArray   
  152. myArray("Sunday","Monday", ... ... "Saturday")   
  153. 　   
  154. CInt()   
  155. 　FUNCTION: 将一个表达式转化为数字类型   
  156. 　SYNTAX: CInt(expression)   
  157. 　ARGUMENTS: 任何有效的字符均可   
  158. 　EXAMPLE:   
  159. 　RESULT: 236   
  160. 转化字符"234"为数字"234"，如果字符串为空，则返回0值　   
  161. 　   
  162. CreateObject()   
  163. 　FUNCTION: 建立和返回一个已注册的ACTIVEX组件的实例。   
  164. 　SYNTAX: CreateObject(objName)   
  165. 　ARGUMENTS: objName 是任何一个有效、已注册的ACTIVEX组件的名字.   
  166. 　EXAMPLE:   
  167. 　RESULT:　   
  168. 　   
  169. CStr()   
  170. 　FUNCTION: 转化一个表达式为字符串.   
  171. 　SYNTAX: CStr(expression)   
  172. 　ARGUMENTS: expression 是任何有效的表达式。   
  173. 　EXAMPLE:   
  174. 　RESULT: 转化数字“5”为字符“5”。   
  175. 　   
  176. Date()   
  177. 　FUNCTION: 返回当前系统日期.   
  178. 　SYNTAX: Date()   
  179. 　ARGUMENTS: None.   
  180. 　EXAMPLE:   
  181. 　RESULT: 8/4/99   
  182. 　   
  183. DateAdd()   
  184. 　FUNCTION: 返回一个被改变了的日期。   
  185. 　SYNTAX: DateAdd(timeinterval,number,date)   
  186. 　ARGUMENTS: timeinterval is the time interval to add; number is amount of   
  187. time intervals to add; and date is the starting date.   
  188. 　EXAMPLE:   
  189. 　RESULT: 11/4/99   
  190. 3:34:45 PM   
  191. "m" = "month";   
  192. "d" = "day";   
  193. If currentDate is in time format then,   
  194. "h" = "hour";   
  195. "s" = "second";   
  196. 　   
  197. DateDiff()   
  198. 　FUNCTION: 返回两个日期之间的差值 。   
  199. 　SYNTAX: DateDiff(timeinterval,date1,date2 [, firstdayofweek ][,   
  200. firstweekofyear]])   
  201. 　ARGUMENTS: timeinterval 表示相隔时间的类型，如“M“表示“月”。   
  202. 　EXAMPLE:   
  203. 　RESULT: 从8/4/99 到2000年还有 150 天.   
  204. 　   
  205. Day()   
  206. 　FUNCTION: 返回一个月的第几日　.   
  207. 　SYNTAX: Day(date)   
  208. 　ARGUMENTS: date 是任何有效的日期。　   
  209. 　EXAMPLE:   
  210. 　RESULT: 4   
  211. FormatCurrency()   
  212. 　FUNCTION: 返回表达式，此表达式已被格式化为货币值　   
  213. 　SYNTAX: FormatCurrency(Expression [, Digit ][, LeadingDigit ][, Paren ][,   
  214. GroupDigit]]]])   
  215. 　ARGUMENTS:　Digit 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是   
  216. 计算机的区域设置; LeadingDigit 三态常数，指示是否显示小数值小数点前面的   
  217. 零。　   
  218. 　EXAMPLE:   
  219. 　RESULT: 34.35   
  220. 　   
  221. FormatDateTime()   
  222. 　FUNCTION: 返回表达式，此表达式已被格式化为日期或时间   
  223. 　SYNTAX: FormatDateTime(Date, [, NamedFormat])   
  224. 　ARGUMENTS: NamedFormat 指示所使用的日期/时间格式的数值，如果省略，则使用   
  225. VBGeneralDate.   
  226. 　EXAMPLE:   
  227. 　RESULT: Wednesday, August 04, 1999   
  228. 　   
  229. FormatNumber()   
  230. 　FUNCTION: 返回表达式，此表达式已被格式化为数值.   
  231. 　SYNTAX: FormatNumber(Expression [, Digit ][, LeadingDigit ][, Paren ][,   
  232. GroupDigit]]]])   
  233. 　ARGUMENTS:　Digit 指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是   
  234. 计算机的区域设置。; LeadingDigit i指示小数点右侧显示位数的数值。默认值为 -   
  235. 1，指示使用的是计算机的区域设置。; Paren 指示小数点右侧显示位数的数值。默认   
  236. 值为 -1，指示使用的是计算机的区域设置。; GroupDigit i指示小数点右侧显示位数   
  237. 的数值。默认值为 -1，指示使用的是计算机的区域设置。.   
  238. 　EXAMPLE:   
  239. 　RESULT: 45.325   
  240. 　   
  241. FormatPercent()   
  242. 　FUNCTION: 返回表达式，此表达式已被格式化为尾随有 % 符号的百分比（乘以   
  243. 100 ）。 (%)   
  244. 　SYNTAX: FormatPercent(Expression [, Digit ][, LeadingDigit ][, Paren ][,   
  245. GroupDigit]]]])   
  246. 　ARGUMENTS: 同上.   
  247. 　EXAMPLE:   
  248. 　RESULT: 45.267%   
  249. 　   
  250. Hour()   
  251. 　FUNCTION: 以24时返回小时数.   
  252. 　SYNTAX: Hour(time)   
  253. 　ARGUMENTS:　   
  254. 　EXAMPLE:   
  255. 　RESULT: 16   
  256. (Hour has been converted to 24-hour system)   
  257. Instr()   
  258. 　FUNCTION: 返回字符或字符串在另一个字符串中第一次出现的位置.   
  259. 　SYNTAX: Instr([start, ] strToBeSearched, strSearchFor [, compare])   
  260. 　ARGUMENTS: Start为搜索的起始值，strToBeSearched接受搜索的字符串　   
  261. strSearchFor要搜索的字符.compare比较方式（详细见ASP常数）   
  262. 　EXAMPLE:   
  263. 　RESULT: 9   
  264. 　   
  265. InstrRev()   
  266. 　FUNCTION: 同上，只是从字符串的最后一个搜索起   
  267. YNTAX: InstrRev([start, ] strToBeSearched, strSearchFor [, compare])   
  268. 　ARGUMENTS: 同上.   
  269. 　EXAMPLE:   
  270. 　RESULT: 13   
  271. 　   
  272. Int()   
  273. 　FUNCTION: 返回数值类型,不四舍五入，注意取值是不大于它的整数。   
  274. 　SYNTAX: Int(number)   
  275. 　ARGUMENTS:　   
  276. 　EXAMPLE: 　   
  277. 　RESULT: 32　　-4   
  278. 　   
  279. IsArray()   
  280. 　FUNCTION: 判断一对象是否为数组，返回布尔值　.   
  281. 　SYNTAX: IsArray(name)   
  282. 　ARGUMENTS:　   
  283. 　EXAMPLE:   
  284. 　RESULT: False  
  285. IsDate()   
  286. 　FUNCTION: 判断一对象是否为日期，返回布尔值   
  287. 　SYNTAX: IsDate(expression)   
  288. 　ARGUMENTS: expression is any valid expression.   
  289. 　EXAMPLE:   
  290. 　RESULT: True  
  291. 　   
  292. IsEmpty()   
  293. 　FUNCTION: 判断一对象是否初始化，返回布尔值.   
  294. 　SYNTAX: IsEmpty(expression)   
  295. 　ARGUMENTS:　   
  296. 　EXAMPLE:   
  297. 　RESULT: True  
  298. 　   
  299. IsNull()   
  300. 　FUNCTION: 判断一对象是否为空，返回布尔值.   
  301. 　SYNTAX: IsNull(expression)   
  302. 　ARGUMENTS:　   
  303. 　EXAMPLE:   
  304. 　RESULT: False  
  305. 　   
  306. IsNumeric()   
  307. 　FUNCTION: 判断一对象是否为数字，返回布尔值.   
  308. 　SYNTAX: IsNumeric(expression)   
  309. 　ARGUMENTS:　   
  310. 　EXAMPLE:   
  311. 　RESULT: True  
  312. 就算数字加了引号，ASP还是认为它是数字。   
  313. IsObject()   
  314. 　FUNCTION: 判断一对象是否为对象，返回布尔值.   
  315. 　SYNTAX: IsObject(expression)   
  316. 　ARGUMENTS:　   
  317. 　EXAMPLE:   
  318. 　RESULT: True  
  319. 　   
  320. LBound()   
  321. 　FUNCTION: 返回指定数组维的最小可用下标.   
  322. 　SYNTAX: Lbound(arrayname [, dimension])   
  323. 　ARGUMENTS: ; dimension 指明要返回哪一维下界的整数。使用 1 表示第一维，2   
  324. 表示第二维，以此类推。如果省略 dimension 参数，默认值为 1.   
  325. 　EXAMPLE:   
  326. 　RESULT: 0   
  327. 　   
  328. LCase()   
  329. 　FUNCTION:　 返回字符串的小写形式   
  330. 　SYNTAX: Lcase(string)   
  331. 　ARGUMENTS: string is any valid string expression.   
  332. 　EXAMPLE:   
  333. 　RESULT: this is a test!   
  334. 　   
  335. Left()   
  336. 　FUNCTION: 返回字符串左边第length个字符以前的字符（含第length个字符).   
  337. 　SYNTAX: Left(string, length)   
  338. 　ARGUMENTS:　   
  339. 　EXAMPLE:   
  340. 　RESULT: Thi   
  341. Len()   
  342. 　FUNCTION: 返回字符串的长度.   
  343. 　SYNTAX: Len(string | varName)   
  344. 　ARGUMENTS:　   
  345. 　EXAMPLE:   
  346. 　RESULT: 15   
  347. 　   
  348. LTrim()   
  349. 　FUNCTION: 去掉字符串左边的空格.   
  350. 　SYNTAX: LTrim(string)   
  351. 　ARGUMENTS:　   
  352. 　EXAMPLE:   
  353. 　RESULT: This is a test!   
  354. 　   
  355. Mid()   
  356. 　FUNCTION: 返回特定长度的字符串(从start开始,长度为length).   
  357. 　SYNTAX: Mid(string, start [, length])   
  358. 　ARGUMENTS:　   
  359. 　EXAMPLE:   
  360. 　RESULT: Today   
  361. 　   
  362. Minute()   
  363. 　FUNCTION: 返回时间的分钏.   
  364. 　SYNTAX: Minute(time)   
  365. 　ARGUMENTS:　   
  366. 　EXAMPLE:   
  367. 　RESULT: 45   
  368. Right()   
  369. 　FUNCTION: 返回字符串右边第length个字符以前的字符（含第length个字符).   
  370. 　SYNTAX: Right(string, length)   
  371. 　ARGUMENTS: .   
  372. 　EXAMPLE:   
  373. 　RESULT: st!   
  374. 　   
  375. Rnd()   
  376. 　FUNCTION: 产生一个随机数.   
  377. 　SYNTAX: Rnd [ (number) ]   
  378. 　ARGUMENTS:　   
  379. 　EXAMPLE:   
  380. 　RESULT: 任何一个在0 到 1 之间的数   
  381. 　   
  382. Round()   
  383. 　FUNCTION: 返回按指定位数进行四舍五入的数值.   
  384. 　SYNTAX: Round(expression [, numRight])   
  385. 　ARGUMENTS: numRight数字表明小数点右边有多少位进行四舍五入。如果省略，则   
  386. Round 函数返回整数.   
  387. 　EXAMPLE:   
  388. 　RESULT: 32   
  389. 　   
  390. Rtrim()   
  391. 　FUNCTION: 去掉字符串右边的字符串.   
  392. 　SYNTAX: Rtrim(string)   
  393. 　ARGUMENTS:　   
  394. 　EXAMPLE:   
  395. 　RESULT: This is a test!!   
  396. 　   
  397. Second()   
  398. 　FUNCTION: 返回秒.   
  399. 　SYNTAX: Second(time)   
  400. 　ARGUMENTS: .   
  401. 　EXAMPLE:   
  402. 　RESULT: 28   
  403. 　   
  404. StrReverse()   
  405. 　FUNCTION: 反排一字符串   
  406. 　SYNTAX: StrReverse(string)   
  407. 　ARGUMENTS:　   
  408. 　EXAMPLE:   
  409. 　RESULT: !!tset a si sihT   
  410. Time()   
  411. 　FUNCTION: 返回系统时间.   
  412. 　SYNTAX: Time()   
  413. 　ARGUMENTS: .   
  414. 　EXAMPLE:   
  415. 　RESULT: 9:58:28 AM   
  416. 　   
  417. Trim()   
  418. 　FUNCTION: 去掉字符串左右的空格.   
  419. 　SYNTAX: Trim(string)   
  420. 　ARGUMENTS: string is any valid string expression.   
  421. 　EXAMPLE:   
  422. 　RESULT: This is a test!!   
  423. 　   
  424. UBound()   
  425. 　FUNCTION: 返回指定数组维数的最大可用下标.   
  426. 　SYNTAX: Ubound(arrayname [, dimension])   
  427. 　ARGUMENTS: ; dimension (optional) 指定返回哪一维上界的整数。1 表示第一   
  428. 维，2 表示第二维，以此类推。如果省略 dimension 参数，则默认值为 1.   
  429. 　EXAMPLE:   
  430. 　RESULT: 2   
  431. 　   
  432. UCase()   
  433. 　FUNCTION: 返回字符串的大写形式.   
  434. 　SYNTAX: UCase(string)   
  435. 　ARGUMENTS:　   
  436. 　EXAMPLE:   
  437. 　RESULT: THIS IS A TEST!!   
  438. 　   
  439. VarType()   
  440. 　FUNCTION: 返回指示变量子类型的值   
  441. 　SYNTAX: VarType(varName)   
  442. 　ARGUMENTS:　   
  443. 　EXAMPLE:   
  444. 　RESULT: 2(数字)详见"ASP常数"  
  445. 　   
  446. WeekDay()   
  447. 　FUNCTION: 返回在一周的第几天.   
  448. 　SYNTAX: WeekDay(date [, firstdayofweek])   
  449. 　ARGUMENTS: .   
  450. 　EXAMPLE:   
  451. 　RESULT: 4(星期三)   
  452. 　   
  453. WeekDayName()   
  454. 　FUNCTION: 返回一周第几天的名字.   
  455. 　SYNTAX: WeekDayName(weekday [, Abb ][, firstdayofweek]])   
  456. 　ARGUMENTS: Abb可选。Boolean 值，指明是否缩写表示星期各天的名称。如果省   
  457. 略， 默认值为 False，即不缩写星期各天的名称.firstdayofweek指明星期第一天的   
  458. 数值   
  459. 　EXAMPLE:   
  460. 　RESULT: Wednesday   
  461. 　   
  462. Year()   
  463. 　FUNCTION: 返回当前的年份.   
  464. 　SYNTAX: Year(date)   
  465. 　ARGUMENTS:　   
  466. 　EXAMPLE:   
  467. 　RESULT: 1999   

 

ASP实用函数库大全 浏览代码 脚本代码 IT人家 各种实用代码大全 常用asp.net代码 ASP在线统计代码 ASP 分页显示代码 FLASH实用代码大全|flash动作代码2 FLASH实用代码大全|flash动作代码111 FLASH实用代码大全|flash动作代码333 各色实用播放器代码大全 淘宝网店装修实用代码大全! 淘宝网店装修实用代码大全! 代码大全 代码大全 代码大全 通用asp生成html代码 经典ASP代码集合(ZZ) 通用asp生成html代码 asp下载防盗链代码 ASP验证码刷新代码 ASP调用网页代码_knowage asp.net 2.0 代码国际化 电子邮件email验证代码-asp asp调用数据库代码1 通用asp生成html代码