[WEB开发][转帖]一些有用的ASP自定义函数

1. <%
2. dim conn
3. dim connstr
4. dim connType,dbPath
5. connType=1
6. Set conn= Server.CreateObject("ADODB.Connection")
7. IF conn.State = 0 Then
8. IF connType= 1 Then
9. connstr = "Provider=SQLOLEDB;uid=shadow;pwd=XXXXXX;Initial Catalog=XXXXXX;server=(local);"
10. Else
11. dbPath = Server.Mappath("\") & "\hkcn\database\webhkcn.mdb"
12. connstr = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="& dbPath &";"
13. End If
14. conn.Open connstr
15. End If
16. Function SQLExecute(SqlStr)
17. on error resume next
18. Dim Rs
19. Set Rs=Server.CreateObject("Adodb.Recordset")
20. Rs.open SqlStr,conn,1,3
21. Set SQLExecute=Rs
22. If Err.Number <> 0 Then
23. Response.Write("<font color=red>抱歉你在访问本页时出现一个错误以下是错误的详细信息。<br>")
24. Response.Write("错误号:"&CStr(Hex(Err.Number))&"<br>")
25. Response.Write("错误对象:"&Err.Source&"<br>")
26. Response.Write("有关错误的详细描述:"&Err.Description&"<br>")
27. Response.Write("如果你始终无法访问本页请联系管理员。")
28. End If
29. End Function
30. ';=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
31. %>
32. <%
33. ';=================================================
34. '; Public Function
35. '; Programmer by Jiang Jian(Shadow)
36. '; Email:vbcc@sohu.com
37. '; Date: 2003-05-26
38. ';=================================================
39. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
40. ';判断用户是否登录
41. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
42. Function ChkLogin(UserName,Pass)
43. Dim Sql,Rs
44. Sql="Select id,username,password FROM member WHERE username=';"&UserName&"'; And password=';"&Pass&"';"
45. Set Rs=SQLExecute(Sql)
46. If Not (Rs.bof or Rs.eof) Then
47. ChkLogin=Rs("ID")
48. Else
49. ChkLogin=False
50. End If
51. Rs.Close
52. Set Rs=Nothing
53. End Function
54. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
55. ';判断是否非法提交数据 True 为正常 False 为非法提交
56. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
57. Function ChkPost()
58. Dim server_v1,server_v2
59. Chkpost=False
60. server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
61. server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
62. If Mid(server_v1,8,Len(server_v2))<>server_v2 Then
63. Chkpost=False
64. Else
65. Chkpost=True
66. End if
67. End function
68. ';====================================================
69. ';判断用户名是否包含非法字符 True 合法的字符串
70. ';====================================================
71. Function CheckString(Str1)
72. Dim N
73. Dim S
74. For N = 1 To Len(Str1)
75. S = Asc(Mid(Str1, N))
76. If S > 47 And S < 58 Or S > 64 And S < 91 Or S > 96 And S < 122 Or S = 95 Then ';合法的字符串
77. CheckString=True
78. Else
79. CheckString=False
80. End If
81. Next
82. End Function
83. ';====================================================
84. ';判断字符是否为中文 True 合法 False 非法
85. ';====================================================
86. Function IsChinese(Str)
87. Dim N
88. Dim S
89. For N = 1 To Len(Str)
90. S = Asc(Mid(Str, N))
91. If S => 0 Then
92. IsChinese=False
93. Exit for
94. Else
95. IsChinese=True
96. End If
97. Next
98. End Function
99. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
100. ';判断是否为合法的电话号码 True 合法 False 非法
101. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
102. Function IsPhone(Str)
103. Dim strArray
104. IsPhone=False
105. strArray=Split(Str,"-",-1,1)
106. IF Ubound(strArray)> 0 Then
107. IF Len(strArray(0))>2 And Len(strArray(0))< 5 Then
108. IF Len(strArray(1))>6 And Len(strArray(1))< 9 Then
109. If IsNumeric(strArray(0))=True And IsNumeric(strArray(1)) Then
110. IsPhone=True
111. End If
112. End If
113. End If
114. End IF
115. End Function
117. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
118. ';判断是否为合法的电子邮件地址 True 合法 False 非法
119. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
120. Function IsValidEmail(Email)
121. Dim Names, name, i, c
122. IsValidEmail = True
123. Names = Split(Email, "@")
125. If UBound(Names) <> 1 Then
126. IsValidEmail = False
127. Exit function
128. End If
130. For Each Name IN Names
131. If Len(name) <= 0 Then
132. IsValidEmail = False
133. Exit Function
134. End If
135. For i = 1 To Len(name)
136. c = Lcase(Mid(name, i, 1))
137. If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
138. IsValidEmail = False
139. Exit Function
140. End If
141. Next
142. If Left(name, 1) = "." or Right(name, 1) = "." Then
143. IsValidEmail = False
144. Exit Function
145. End If
146. Next
148. If InStr(names(1), ".") <= 0 Then
149. IsValidEmail = False
150. Exit Function
151. End If
153. i = Len(names(1)) - InStrRev(names(1), ".")
154. If i <> 2 And i <> 3 Then
155. IsValidEmail = False
156. Exit Function
157. End If
159. If InStr(Email, "..") > 0 Then
160. IsValidEmail = False
161. End If
162. End function
163. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
164. ';数据分页显示 strUrl 设置成自己本页
165. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
166. Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep)
167. Dim pgnum,page
168. page=Request("page")
169. objRs.PageSize = listSize
170. pgnum=objRs.Pagecount
171. if page="" or clng(page)<1 then page=1
172. if clng(page) > pgnum then page=pgnum
173. if pgnum>0 then objRs.AbsolutePage=page
174. If page=1 Then
175. Response.Write " 首 页 | 上一页 | "
176. Else
177. Response.Write " <a class="& cssClass &" href="&strUrl&"page=1>首 页</a><span class="& cssSep &"> | </span>"
178. Response.Write "<a class="& cssClass &" href="&strUrl&"page="&page-1&"> 上一页</a><span class="& cssSep &"> | </span>"
179. End if
180. If objRs.pagecount-page<1 Then
181. Response.Write "下一页 | 尾 页"
182. Else
183. Response.Write "<a class="& cssClass &" href="&strUrl&"page="&page+1&">下一页</a><span class="& cssSep &"> | </span>"
184. Response.Write "<a class="& cssClass &" href="&strUrl&"page="&objRs.pagecount&">尾 页</a>"
185. End if
186. Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页"
187. End Function
188. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
189. ';文章分页显示 strUrl 设置成自己本页
190. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
191. Public Function SplitPage(strContents)
192. Dim Page,PageArray
193. PageArray=SepPosition(strContents)
194. Page=Request("page")
195. pgnum=UBound(PageArray)
196. IF page="" or clng(page)<0 Then page=0
197. IF Clng(page) > pgnum Then page=pgnum
199. IF pgnum = 0 Then ';只有一页
200. SplitPage=strContents
201. Exit Function
202. End IF
204. If Page = 0 Then
205. SplitPage=Mid(strContents,1,PageArray(page)-1)
206. ElseIf Clng(Page)=pgnum Then
207. SplitPage=Mid(strContents,PageArray(page-1)+19,Len(strContents))
208. Else
209. SplitPage=Mid(strContents,PageArray(page-1)+19,PageArray(page)-(PageArray(page-1)+19))
210. End if
211. End Function
212. Public Function NavPage(strPage)
213. Page=Request("page")
214. IF page="" or clng(page)<0 Then page=0
215. IF pgnum > 0 Then
216. IF Page = 0 Then
217. Response.Write "<a class=""SepPage"" href="""&strPage&"&page=" & page & """>上一页</a> "
218. Else
219. Response.Write "<a class=""SepPage"" href="""&strPage&"&page=" & page - 1 & """>上一页</a> "
220. End if
222. If pgnum-Clng(Page)<1 Then
223. Response.Write "<a class=""SepPage"" href="""&strPage&"&page=" & page &""">下一页</a> "
224. Else
225. Response.Write "<a class=""SepPage"" href="""&strPage&"&page=" & page + 1 & """>下一页</a>"
226. End If
227. Response.Write "<span class=""I""> 共 " & pgnum + 1 & " 页 当前第 " & page + 1 & " 页</span>"
228. End IF
229. End Function
230. Public Function SepPosition(strContents)
231. Dim intPos,strPos
232. Dim intPageArray,strTemp
233. strTemp = "[PAGE]------[/PAGE]"
234. intPos=Instr(strContents,strTemp)
235. strPos = intPos
236. Do While (intPos)
237. intPos=Instr(intPos+19,strContents,strTemp)
238. strPos=strPos & "," & intPos
239. Loop
240. SepPosition=Split(strPos,",")
241. End Function
242. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
243. ';截取一定数量的文字输出
244. ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
245. Public Function OutText(strText,intOutSize)
246. IF Len(strText)>intOutSize Then
247. OutText = Left(strText,intOutSize-3) & "..."
248. Else
249. OutText = strText
250. End If
251. End Function
252. %>

复制代码

呵呵 ，见笑了，基础确实是很差  连基本的原理都不搞清楚。。
恩，我有机会测试下`。。
谢谢了

Function PageSplit(objRs,gonggaolan.asp,cssClass,listSize,cssSep)
这句明显不行噻。。
在声明函数的时候，括号里面只能是变量，不能是字符串。
在引用函数的时候，括号里如果有字符串，要加上双引号。
你只需要在调用这个函数的时候这样写就OK了。
PageSplit(rs,"gonggaolan.asp",cssClass,listSize,cssSep)
或者
strUrl="gonggaolan.asp"
PageSplit(rs,strUrl,cssClass,listSize,cssSep)

我想绕绕  弯路的，看来是不行
还是要系统的学才行````

';strUrl：你用来显示数据列表的网页，如：ShowClass.asp?ID=232

恩，我的是gonggaolan.asp 是不是把strurl全部替换就可以了
换成:
Function PageSplit(objRs,gonggaolan.asp,cssClass,listSize,cssSep)
象这样？？？别笑我。。[br][br]-=-=-=- 以下内容由 copyday 在 2007年02月05日 04:07pm 时添加 -=-=-=-
或者是这样？
Dim pgnum,page
page=Request("page")
strurl=gonggaolan.asp  ';这样写对吗？

';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ';objRS：你用来读取数据的RecordSet对象 ';strUrl：你用来显示数据列表的网页，如：ShowClass.asp?ID=232 ';cssClass：超链接的CSS类名 ';listSize：数据列表的最大条数 ';cssSep：分隔线的CSS类名 ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep) Dim pgnum,page page=Request("page") objRs.PageSize = listSize pgnum=objRs.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then objRs.AbsolutePage=page If page=1 Then Response.Write " 首 页 | 上一页 | " Else Response.Write " 首 页 | " Response.Write " 上一页 | " End if If objRs.pagecount-page<1 Then Response.Write "下一页 | 尾 页" Else Response.Write "下一页 | " Response.Write "尾 页" End if Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页" End Function

NumberOfRecord=Record.RecordCount NumberOfPage=Record.PageCount Numm=1 if Request.QueryString("Page").Count<>0 then iPage=clng(Request.QueryString("Page")) ';response.write(Request.Form("go").Count) if Request.Form("go").Count<>0 then iPage=clng(Request.Form("go")) if iPage=0 then iPage=1 if NumberOfRecord>0 then response.Write("共有" & NumberOfRecord & "封 分" & NumberOfPage & "页 第" & iPage & "页") %> <% Group=(iPage-(iPage) mod 10)/10 if Group>0 then %> ">上10组 <%end if%> <%for i=Group*10+1 to Group*10+10 if i<=NumberOfPage then %> "><%=i%> <%end if Next if NumberOfPage>Group*10+10 then %> ">下10组 <%end if%> 这个是我自己的分页代码，但是只能分出1页来，怎么修改呢？具体改什么地方呢？

不行 嵌套不进去，显示是乱码```
郁闷  似乎很复杂。。。[br][br]-=-=-=- 以下内容由 copyday 在 2007年02月02日 04:48pm 时添加 -=-=-=-
我定义的表名 字段名 属性名 都不一样，怎么能嵌套进去呢？`

呵呵，想了好久 都没想明白  谢谢您了，``呵呵  
我就去试下，不成功再来找您``

回楼上，第一段是文章列表分页的。。。
第二段是文章内容分页显示的。。。
像这种公用代码，建议你放在一个如“Common.asp”里面，然后包含这个文件，在你要显示分页的地方调用函数就OK了。。

';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ';数据分页显示 strUrl 设置成自己本页 ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep) Dim pgnum,page page=Request("page") objRs.PageSize = listSize pgnum=objRs.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then objRs.AbsolutePage=page If page=1 Then Response.Write " 首 页 | 上一页 | " Else Response.Write " 首 页 | " Response.Write " 上一页 | " End if If objRs.pagecount-page<1 Then Response.Write "下一页 | 尾 页" Else Response.Write "下一页 | " Response.Write "尾 页" End if Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页" End Function ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ';文章分页显示 strUrl 设置成自己本页 ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Public Function SplitPage(strContents) Dim Page,PageArray PageArray=SepPosition(strContents) Page=Request("page") pgnum=UBound(PageArray) IF page="" or clng(page)<0 Then page=0 IF Clng(page) > pgnum Then page=pgnum IF pgnum = 0 Then ';只有一页 SplitPage=strContents Exit Function End IF If Page = 0 Then SplitPage=Mid(strContents,1,PageArray(page)-1) ElseIf Clng(Page)=pgnum Then SplitPage=Mid(strContents,PageArray(page-1)+19,Len(strContents)) Else SplitPage=Mid(strContents,PageArray(page-1)+19,PageArray(page)-(PageArray(page-1)+19)) End if End Function Public Function NavPage(strPage) Page=Request("page") IF page="" or clng(page)<0 Then page=0 IF pgnum > 0 Then IF Page = 0 Then Response.Write "上一页 " Else Response.Write "上一页 " End if If pgnum-Clng(Page)<1 Then Response.Write "下一页 " Else Response.Write "下一页" End If Response.Write " 共 " & pgnum + 1 & " 页 当前第 " & page + 1 & " 页" End IF End Function Public Function SepPosition(strContents) Dim intPos,strPos Dim intPageArray,strTemp strTemp = "[PAGE]------[/PAGE]" intPos=Instr(strContents,strTemp) strPos = intPos Do While (intPos) intPos=Instr(intPos+19,strContents,strTemp) strPos=strPos & "," & intPos Loop SepPosition=Split(strPos,",") End Function 这两段是不是要全部放到asp页面内 才可以实现分页功能呢？

Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep) Dim pgnum,page page=Request("page") objRs.PageSize = listSize pgnum=objRs.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then objRs.AbsolutePage=page If page=1 Then Response.Write " 首 页 | 上一页 | " Else Response.Write " 首 页 | " Response.Write " 上一页 | " End if If objRs.pagecount-page<1 Then Response.Write "下一页 | 尾 页" Else Response.Write "下一页 | " Response.Write "尾 页" End if Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页" End Function 这段分页代码怎么用呢？直接放到我的gonggaolan.asp里就可以自动分页了吗？ 我现在是一页显示所有的通知，呵呵``别笑我！！