Wapls_conn.asp
资源名称:7.rar [点击查看]
上传用户:lfyh0123
上传日期:2020-11-04
资源大小:200k
文件大小:5k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <%
  2. '==================================
  3. '=文 件 名:wapls_conn.asp
  4. '=适用版本:蓝色世纪WAP网站管理系统(CMS)V1.1
  5. '=官方版权:http://www.songfr.cn
  6. '=文件功能:网站数据库连接及相关的限制
  7. '=文件作者:蓝色阳光
  8. '=发行时间:2007-02-01
  9. '==================================
  10. '==================================
  11. '=功    能:数据库地址设置.根据相应情况作更改.名称越复杂越好.
  12. '==================================
  13. dim conn,connstr,db
  14. db="mdb/mdb.mdb"
  15. connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(db)
  16. set conn = server.createobject("adodb.connection")
  17. conn.open connstr
  18. if err then
  19. err.clear
  20. set conn = nothing
  21. response.write "<card title=""网站出错了""><p>"
  22. response.write "网站数据库连接出错,请检查wapls_conn.asp连接设置是否正确.</p></card></wml>"
  23. response.end
  24. end if
  25. '关闭数据库连接函数
  26. function closedatabase
  27. conn.close
  28. set conn = nothing
  29. end function
  30. %>
  31. <!--#include file="wapls_ubb.asp"-->
  32. <!--#include file="wapls_config.asp"-->
  33. <%
  34. on error resume next
  35. '==================================
  36. '=功    能:非手机IP地址限制访问
  37. '==================================
  38. request_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  39. If request_ip = "" Then request_ip = Request.ServerVariables("REMOTE_ADDR")
  40. if web_ok="0" then
  41. if len("request_ip")>0 then
  42. ip=left(request_ip,1)
  43. end if
  44. if ip<>2 then
  45. browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
  46. if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or  browsers="wap/" or  browsers="mozi" or browsers="m3ga" then
  47. response.write "<card title=""访问出错了""><p>很抱歉.本站属于WAP站点请使用开通了GPRS的手机访问我们网站.</p></card></wml>"
  48. response.end
  49. end if
  50. end if
  51. end if 
  52. '==================================
  53. '=功    能:IP地址限制访问
  54. '==================================
  55. userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  56. If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
  57. replace_ip="|"&replace_ip
  58. ipb = InStr(1, request_ip, ".") 
  59. ipc = InStr(1, mid(request_ip,ipb+1), ".")
  60. ipd = InStr(1, mid(mid(request_ip,ipb+1),ipc+1), ".")
  61. if instr(1,replace_ip,"|" & left(request_ip,ipb) & "*") or instr(1,replace_ip,"|" & left(request_ip,ipb+ipc) & "*") or instr(1,replace_ip,"|" & left(request_ip,ipb+ipc+ipd) & "*") or instr(1,replace_ip,"|" & request_ip) then
  62. response.write "<card title=""网站出错了""><p>很抱歉.本功能暂停开放.请稍后再试.</p></card></wml>"
  63. response.end
  64. end if
  65. '==================================
  66. '=功    能:网站维护限制访问
  67. '==================================
  68. if weihu=1 then
  69. response.write "<card title=""网站维护中""><p>很抱歉.由于以下原因网站暂停开放<br/>"&weihu_case&"<br/>预计的时间"&weihu_time&"!</p></card></wml>"
  70. response.end
  71. end if
  72. '==================================
  73. '=功    能:关键字过滤
  74. '==================================
  75. function keys(str)
  76. word=replace_word
  77. reword=split(word,"|")
  78. for i=0 to ubound(reword)
  79. if i=0 then
  80. restr=replace(str,reword(i),"***")
  81. else
  82. restr=replace(re_1,reword(i),"***")
  83. end if
  84. re_1=restr
  85. next
  86. keys=restr
  87. end function
  88. '==================================
  89. '=功    能:字符验证
  90. '==================================
  91. function strLength(str)
  92. ON ERROR RESUME NEXT
  93. dim WINNT_CHINESE
  94. WINNT_CHINESE    = (len("中国")=2)
  95. if WINNT_CHINESE then
  96.         dim l,t,c
  97.         dim i
  98.         l=len(str)
  99.         t=l
  100.         for i=1 to l
  101.          c=asc(mid(str,i,1))
  102.             if c<0 then c=c+65536
  103.             if c>255 then
  104.                 t=t+1
  105.             end if
  106.         next
  107.         strLength=t
  108.     else 
  109.         strLength=len(str)
  110.     end if
  111.     if err.number<>0 then err.clear
  112. end function
  113. '==================================
  114. '函数名:BPCheckEMail
  115. '作  用:检查Email地址合法性
  116. '参  数:email ----要检查的Email地址
  117. '返回值:True  ----Email地址合法
  118. '        False ----Email地址不合法
  119. '==================================
  120. function BPCheckEMail(email)
  121. dim names, name, i, c
  122. BPCheckEMail = true
  123. names = Split(email, "@")
  124. if UBound(names) <> 1 then
  125.    BPCheckEMail = false
  126.    exit function
  127. end if
  128. for each name in names
  129. if Len(name) <= 0 then
  130. BPCheckEMail = false
  131.      exit function
  132. end if
  133. for i = 1 to Len(name)
  134.     c = Lcase(Mid(name, i, 1))
  135. if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
  136.        BPCheckEMail = false
  137.        exit function
  138.      end if
  139.    next
  140.    if Left(name, 1) = "." or Right(name, 1) = "." then
  141.        BPCheckEMail = false
  142.       exit function
  143.    end if
  144. next
  145. if InStr(names(1), ".") <= 0 then
  146. BPCheckEMail = false
  147.    exit function
  148. end if
  149. i = Len(names(1)) - InStrRev(names(1), ".")
  150. if i <> 2 and i <> 3 then
  151.    BPCheckEMail = false
  152.    exit function
  153. end if
  154. if InStr(email, "..") > 0 then
  155.    BPCheckEMail = false
  156. end if
  157. end function
  158. %>