开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
B;GuanLi.Asp
资源名称：4.rar　[点击查看]
上传用户：zhbanny
上传日期：2020-11-04
资源大小：161k
文件大小：10k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

B;GuanLi.Asp：源码内容
  1. <!--#Include File="Inc/xkon.Asp"--><%
  2. Call QuanXian("1",0)
  3. Private c,s
  4. Set c=New xkon_Response
  5. Set s=New xkon_Request
  6. Dim ID
  7. ID=s.QueryString_Long("ID")
  8. Private Sub x()
  9. c.Write(xkon_FenXi(Replace(Replace(Replace(Read_Text("B;GuanLi;X"),xkon_S("名称"),DuQu_BanKuai(ID,"BanKuai_MingChen")),xkon_S("简介"),DuQu_BanKuai(ID,"BanKuai_JianJie")),xkon_S("编号"),ID)))
  10. End Sub
  11. Private Sub JiaRu(JiaRu_ZhangHao)
  12. Dim JiaRu_Cn1,JiaRu_Cn2,J_ID
  13. Set JiaRu_Cn1=Server.CreateObject("Adodb.Command")
  14. JiaRu_Cn1.ActiveConnection=Conn
  15. JiaRu_Cn1.CommandType=1
  16. JiaRu_Cn1.CommandText="Select id From ChengYuan Where ZhangHao='"&JiaRu_ZhangHao&"' And BanKuai_ID="&ID
  17. Set JiaRu_Cn2=JiaRu_Cn1.Execute
  18. If Not JiaRu_Cn2.Eof Then Call xkon_Error("不能重复加入")
  19. Set JiaRu_Cn2=Nothing
  20. Set JiaRu_Cn1=Nothing
  21. Set JiaRu_Cn2=Server.CreateObject("Adodb.Command")
  22. JiaRu_Cn2.ActiveConnection=Conn
  23. JiaRu_Cn2.CommandType=1
  24. JiaRu_Cn2.CommandText="Select id From ChengYuan Order By ID Desc"
  25. Set JiaRu_Cn1=JiaRu_Cn2.Execute
  26. If JiaRu_Cn1.Eof Then
  27. J_ID=1
  28. Else
  29. J_ID=JiaRu_Cn1("ID")+1
  30. End If
  31. Set JiaRu_Cn2=Nothing
  32. Set JiaRu_Cn1=Nothing
  33. Conn.Execute("Insert Into ChengYuan(ID,BanKuai_ID,ZhangHao,NiChen,BanKuai_MingChen)Values('"&J_ID&"','"&ID&"','"&JiaRu_ZhangHao&"','"&Get_NiChen(JiaRu_ZhangHao)&"','"&DuQu_BanKuai(ID,"BanKuai_MingChen")&"')")
  34. End Sub
  35. Private Sub JiaRu_1()
  36. Call OpenData()
  37. Call FaXin("xkon.cn",Zi_ZhangHao,0,"你加入了"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
  38. Call FaXin("xkon.cn",DuQu_BanKuai(ID,"BanKuai_BanZhu"),0,"用户"&Zi_ZhangHao&"加入了"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
  39. Call JiaRu(Zi_ZhangHao)
  40. Call CloseData()
  41. Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  42. End Sub
  43. Private Sub JiaRu_2()
  44. Call OpenData()
  45. Call FaXin("xkon.cn",Zi_ZhangHao,0,"你向管理员"&DuQu_BanKuai(ID,"BanKuai_BanZhu")&"发出了加入申请,请等待管理员审核")
  46. Call FaXin("xkon.cn",DuQu_BanKuai(ID,"BanKuai_BanZhu"),0,"用户"&Zi_ZhangHao&"申请加入"&DuQu_BanKuai(ID,"BanKuai_MingChen")&"<br/><a href=""B;GuanLi.Asp?ID="&ID&"&amp;l=z&amp;z="&Zi_ZhangHao&"{(xkon.cn)链接}"">通过</a><br/><a href=""B;GuanLi.Asp?ID="&ID&"&amp;l=jj&amp;z="&Zi_ZhangHao&"{(xkon.cn)链接}"">拒绝</a>")
  47. Call CloseData()
  48. Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  49. End Sub
  50. Private Sub GuanLi()
  51. If Zi_ZhangHao<>DuQu_BanKuai(ID,"BanKuai_BanZhu") Then Call xkon_Error("你还不是创建者")
  52. End Sub
  53. Private Sub z()
  54. Call GuanLi()
  55. Call OpenData()
  56. Call FaXin("xkon.cn",s.QueryString("z"),0,"你加入了"&DuQu_BanKuai(ID,"BanKuai_MingChen"))
  57. Call JiaRu(s.QueryString("z"))
  58. Call CloseData()
  59. Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  60. End Sub
  61. Private Sub jj()
  62. If Zi_ZhangHao<>DuQu_BanKuai(ID,"BanKuai_BanZhu") Then Call xkon_Error("你还不是管理员")
  63. Call OpenData()
  64. Call FaXin("xkon.cn",s.QueryString("z"),0,"管理员拒绝了你的请求")
  65. Call CloseData()
  66. Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  67. End Sub
  68. Private Sub JiaRu_3()
  69. Call xkon_Error("禁止加入成员")
  70. End Sub
  71. Private Function c1()
  72. Dim C_Cn1,p,i
  73. p=s.QueryString_Long("p")
  74. Call OpenData()
  75. Set C_Cn1=Server.CreateObject("Adodb.RecordSet")
  76. C_Cn1.Open "Select ZhangHao,NiChen From ChengYuan Where BanKuai_ID="&ID,Conn,1,1
  77. C_Cn1.PageSize=Const_Page_Ys
  78. If C_Cn1.Eof Then Call xkon_Error("没有任何成员加入")
  79. C_Cn1.AbsolutePage=p
  80. For i=1 To Const_Page_Ys
  81. If C_Cn1.Eof Then Exit For
  82. c1=c1&"<a href=""ZiLiao.Asp?ZhangHao="&C_Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&C_Cn1("NiChen")&"</a><br/>"
  83. C_Cn1.MoveNext
  84. Next
  85. c1=c1&CPage(C_Cn1.PageCount,p,"B;GuanLi.Asp?l=c{(xkon.cn)链接}&amp;")
  86. C_Cn1.Close
  87. Set C_Cn1=Nothing
  88. Call CloseData()
  89. End Function
  90. Private Function ChengYuan_GuanLi()
  91. Dim ChengYuan_GuanLi_Cn1,p,i
  92. p=s.QueryString_Long("p")
  93. Call OpenData()
  94. Set ChengYuan_GuanLi_Cn1=Server.CreateObject("Adodb.RecordSet")
  95. ChengYuan_GuanLi_Cn1.Open "Select ZhangHao,NiChen From ChengYuan Where BanKuai_ID="&ID,Conn,1,1
  96. ChengYuan_GuanLi_Cn1.PageSize=Const_Page_Ys
  97. If ChengYuan_GuanLi_Cn1.Eof Then ChengYuan_GuanLi="暂时没有成员":ChengYuan_GuanLi_Cn1.Close:Set ChengYuan_GuanLi_Cn1=Nothing:Call CloseData():Exit Function
  98. ChengYuan_GuanLi_Cn1.AbsolutePage=p
  99. For i=1 To Const_Page_Ys
  100. If ChengYuan_GuanLi_Cn1.Eof Then Exit For
  101. ChengYuan_GuanLi=ChengYuan_GuanLi&"<a href=""ZiLiao.Asp?ZhangHao="&ChengYuan_GuanLi_Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&ChengYuan_GuanLi_Cn1("NiChen")&"</a><a href=""B;GuanLi.Asp?l=She&amp;ID="&ID&"&amp;ZhangHao="&ChengYuan_GuanLi_Cn1("ZhangHao")&"{(xkon.cn)链接}"">设为管理员</a><a href=""B;GuanLi.Asp?l=Shan&amp;ID="&ID&"&amp;ZhangHao="&ChengYuan_GuanLi_Cn1("ZhangHao")&"{(xkon.cn)链接}"">删除</a><br/>"
  102. ChengYuan_GuanLi_Cn1.MoveNext
  103. Next
  104. ChengYuan_GuanLi=ChengYuan_GuanLi&CPage(ChengYuan_GuanLi_Cn1.PageCount,p,"B;GuanLi.Asp?l=ChengYuan_GuanLi&amp;ID="&ID&"{(xkon.cn)链接}&amp;")
  105. ChengYuan_GuanLi_Cn1.Close
  106. Set ChengYuan_GuanLi_Cn1=Nothing
  107. Call CloseData()
  108. End Function
  109. Private Sub g()
  110. c.Write(xkon_FenXi(Replace(Read_Text("B;GuanLi;G"),xkon_S("编号"),ID)))
  111. End Sub
  112. Private Sub b()
  113. Call GuanLi()
  114. c.Write(xkon_FenXi(Replace(Read_Text("B;GuanLi;B"),xkon_S("编号"),ID)))
  115. End Sub
  116. Private Sub b2()
  117. Call GuanLi()
  118. Dim BanKuai_MingChen,BanKuai_JianJie,ChengYuan_JiaRu
  119. BanKuai_MingChen=s.Form_Str("BanKuai_MingChen",1,16)
  120. BanKuai_JianJie=s.Form_Str("BanKuai_JianJie",1,250)
  121. ChengYuan_JiaRu=s.Form_Str("ChengYuan_JiaRu",1,1)
  122. If BanKuai_MingChen="" Or BanKuai_JianJie="" Or ChengYuan_JiaRu="" Then Call xkon_Error("所有填写项不能为空")
  123. Call OpenData()
  124. Conn.Execute("Update BanKuai Set BanKuai_MingChen='"&BanKuai_MingChen&"',BanKuai_JianJie='"&BanKuai_JianJie&"',ChengYuan_JiaRu='"&ChengYuan_JiaRu&"' Where ID="&ID)
  125. Call CloseData()
  126. DelFile(Server.Mappath("File/BanKuai/"&ID&".xkon.cn"))
  127. Response.Redirect(Replace(xkon_FenXi("B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  128. End Sub
  129. Private Function GuanLiYuan()
  130. Dim GuanLiYuan_Cn1,p,i
  131. p=s.QueryString_Long("p")
  132. Call OpenData()
  133. Set GuanLiYuan_Cn1=Server.CreateObject("Adodb.RecordSet")
  134. GuanLiYuan_Cn1.Open "Select MingChen,HuiYuan From BanZhu Where BanKuai="&ID,Conn,1,1
  135. GuanLiYuan_Cn1.PageSize=Const_Page_Ys
  136. If GuanLiYuan_Cn1.Eof Then GuanLiYuan="暂时没有管理员<br/>":GuanLiYuan_Cn1.Close:Set GuanLiYuan_Cn1=Nothing:Call CloseData():Exit Function
  137. GuanLiYuan_Cn1.AbsolutePage=p
  138. For i=1 To Const_Page_Ys
  139. If GuanLiYuan_Cn1.Eof Then Exit For
  140. GuanLiYuan=GuanLiYuan&"<a href=""ZiLiao.Asp?ZhangHao="&GuanLiYuan_Cn1("HuiYuan")&"{(xkon.cn)链接}"">"&GuanLiYuan_Cn1("MingChen")&"</a><a href=""B;GuanLi.Asp?l=s&amp;ZhangHao="&GuanLiYuan_Cn1("HuiYuan")&"{(xkon.cn)链接}"">删除</a><br/>"
  141. GuanLiYuan_Cn1.MoveNext
  142. Next
  143. GuanLiYuan=GuanLiYuan&CPage(GuanLiYuan_Cn1.PageCount,p,"B;GuanLi.Asp?l=GuanLiYuan{(xkon.cn)链接}&amp;")
  144. GuanLiYuan_Cn1.Close
  145. Set GuanLiYuan_Cn1=Nothing
  146. Call CloseData()
  147. End Function
  148. Private Sub She()
  149. Dim ZhangHao,J_ID,She_Cn1,She_Cn2
  150. ZhangHao=s.QueryString("ZhangHao")
  151. Call OpenData()
  152. Set She_Cn1=Server.CreateObject("Adodb.Command")
  153. She_Cn1.ActiveConnection=Conn
  154. She_Cn1.CommandType=1
  155. She_Cn1.CommandText="Select ID From BanZhu Order By ID Desc"
  156. Set She_Cn2=She_Cn1.Execute
  157. If She_Cn2.Eof Then
  158. J_ID=1
  159. Else
  160. J_ID=She_Cn2("ID")+1
  161. End If
  162. Set She_Cn1=Nothing
  163. Set She_Cn2=Nothing
  164. Conn.Execute("Insert Into BanZhu(ID,MingChen,HuiYuan,BanKuai)Values('"&J_ID&"','"&Get_NiChen(ZhangHao)&"','"&ZhangHao&"','"&ID&"')")
  165. Call FaXin("xkon.cn",ZhangHao,0,DuQu_BanKuai(ID,"BanKuai_MingChen")&"的创建者"&Zi_ZhangHao&"将您设为管理员<br/><a href=""B;LieBiao.Asp?ID="&ID&"{(xkon.cn)链接}"">查看</a>")
  166. Call CloseData()
  167. Response.Redirect(Replace(xkon_FenXi("B;GuanLi.Asp?l=GuanLiYuan&amp;ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  168. End Sub
  169. Private Sub Shan()
  170. Dim ZhangHao
  171. ZhangHao=s.QueryString("ZhangHao")
  172. Call OpenData()
  173. Conn.Execute("Delete From ChengYuan Where ZhangHao='"&ZhangHao&"' And BanKuai_ID="&ID)
  174. Call CloseData()
  175. Response.Redirect(Replace(xkon_FenXi("B;GuanLi.Asp?l=ChengYuan_GuanLi&amp;ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  176. End Sub
  177. Private Sub Delete()
  178. Dim ZhangHao
  179. ZhangHao=s.QueryString("ZhangHao")
  180. Call OpenData()
  181. Conn.Execute("Delete From BanZhu Where HuiYuan='"&ZhangHao&"' And BanKuai="&ID)
  182. Call CloseData()
  183. Response.Redirect(Replace(xkon_FenXi("B;GuanLi.Asp?l=GuanLiYuan&amp;ID="&ID&"{(xkon.cn)链接}"),"&amp;","&"))
  184. End Sub
  185. Call H_Title("{(xkon.cn)家族名称}管理")
  186. Dim l
  187. l=s.QueryString("l")
  188. Select Case l
  189. Case "x"
  190. Call x()
  191. Case "j"
  192. Select Case DuQu_BanKuai(ID,"ChengYuan_JiaRu")
  193. Case "1"
  194. Call JiaRu_1()
  195. Case "2"
  196. Call JiaRu_2()
  197. Case "3"
  198. Call JiaRu_3()
  199. End Select
  200. Case "z"
  201. Call z()
  202. Case "jj"
  203. Call jj()
  204. Case "c"
  205. c.Write(xkon_FenXi(Replace(Replace(Read_Text("B;GuanLi1"),xkon_S("成员列表"),c1()),xkon_S("编号"),ID)))
  206. Case "g"
  207. Call g()
  208. Case "b"
  209. Call b()
  210. Case "b2"
  211. Call b2()
  212. Case "GuanLiYuan"
  213. Call GuanLi()
  214. c.Write(xkon_FenXi(Replace(Replace(Read_Text("B;GuanLi;GuanLiYuan"),xkon_S("编号"),ID),xkon_S("管理员列表"),GuanLiYuan())))
  215. Case "ChengYuan_GuanLi"
  216. Call GuanLi()
  217. c.Write(xkon_FenXi(Replace(Replace(Read_Text("B;GuanLi;ChengYuan_GuanLi"),xkon_S("编号"),ID),xkon_S("成员列表"),ChengYuan_GuanLi())))
  218. Case "She"
  219. Call GuanLi()
  220. Call She()
  221. Case "s"
  222. Call GuanLi()
  223. Call Delete()
  224. Case "Shan"
  225. Call GuanLi()
  226. Call Shan()
  227. End Select
  228. Call H_End()
  229. Set c=Nothing
  230. Set s=Nothing
  231. %>