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

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

手机WAP编程

开发平台：

ASP/ASPX

XiuGaiZiLiao.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. Private Sub NiChen()
  7. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;NiChen")))
  8. End Sub
  9. Private Sub XingBie()
  10. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;XingBie")))
  11. End Sub
  12. Private Sub NianLin()
  13. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;NianLin")))
  14. End Sub
  15. Private Sub GeRenSuoMing()
  16. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;GeRenSuoMing")))
  17. End Sub
  18. Private Sub TouXiang()
  19. Dim DaiMa,Cn1,p,i
  20. p=s.QueryString_Long("p")
  21. Call OpenData()
  22. Set Cn1=Server.CreateObject("Adodb.Recordset")
  23. Cn1.Open "Select * From TouXiang Where XingBie='"&Zi_XingBie&"'",Conn,1,1
  24. Cn1.PageSize=Const_Page_Ys
  25. If Cn1.Eof Then xkon_Error("暂时还没有头像")
  26. Cn1.AbsolutePage=p
  27. For i=1 To Const_Page_Ys
  28. If Cn1.Eof Then Exit For
  29. DaiMa=DaiMa&"<img src="""&Cn1("DiZhi")&""" alt="""&Cn1("MingChen")&""" /><br/>名称:"&Cn1("MingChen")&"<br/>等级:"&Cn1("DenJi")&"<br/>{(xkon.cn)金币名称}:"&Cn1("JingBi")&"<br/><a href=""XiuGaiZiLiao.Asp?l=TouXiang_Go&amp;id="&Cn1("ID")&"{(xkon.cn)链接}"">更换</a><br/>"
  30. Cn1.MoveNext
  31. Next
  32. DaiMa=DaiMa&Cpage(Cn1.PageCount,p,"XiuGaiZiLiao.Asp?l="&l&"{(xkon.cn)链接}&amp;")
  33. Cn1.Close
  34. Set Cn1=Nothing
  35. Call CloseData()
  36. c.Write(xkon_FenXi(Replace(Read_Text("XiuGaiZiLiao;TouXiang"),xkon_S("头像列表"),DaiMa)))
  37. End Sub
  38. Private Sub DiQu()
  39. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;DiQu")))
  40. End Sub
  41. Private Sub XingZuo()
  42. Dim XingZuo,XingZuo_All,i
  43. XingZuo=Split("白羊座,金牛座,双子座,巨蟹座,狮子座,处女座,天秤座,天蝎座,射手座,摩羯座,水瓶座,双鱼座",",")
  44. For i=0 To UBound(XingZuo)
  45. XingZuo_All=XingZuo_All&"<option value="""&i+1&""">"&XingZuo(i)&"</option>"
  46. Next
  47. c.Write(xkon_FenXi(Replace(Read_Text("XiuGaiZiLiao;XingZuo"),xkon_S("星座"),XingZuo_All)))
  48. End Sub
  49. Private Sub QiTa()
  50. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;QiTa")))
  51. End Sub
  52. Private Sub NiChen_Go()
  53. Dim NiChen
  54. NiChen=s.Form_Str("NiChen",CLng(Read_SZ("NiChen_Length_d")),CLng(Read_SZ("NiChen_Length_c")))
  55. If NiChen="" Then
  56. Call xkon_Error("昵称不能为空")
  57. End If
  58. Dim Rep_NiChen
  59. Rep_NiChen=Split(Read_SZ("Rep_NiChen"),"|")
  60. Dim i,BaoHan
  61. BaoHan=false
  62. For i=0 To Ubound(Rep_NiChen)
  63. If InStr(NiChen,Rep_NiChen(i))>0 Then BaoHan=True:Exit For
  64. Next
  65. If BaoHan=True Then Call xkon_Error("用户名中包含不可注册的字符"&Rep_NiChen(i))
  66. Call OpenData()
  67. Dim Cn1,Cn2
  68. Set Cn1=Server.CreateObject("Adodb.Command")
  69. Cn1.ActiveConnection=Conn
  70. Cn1.CommandType=1
  71. Cn1.CommandText="Select id From ZhangHao Where NiChen='"&NiChen&"'"
  72. Set Cn2=Cn1.Execute
  73. If Not Cn2.Eof Then Call xkon_Error("该昵称已被使用")
  74. Set Cn1=Nothing
  75. Set Cn2=Nothing
  76. Conn.Execute("Update ZhangHao Set NiChen='"&NiChen&"' Where BiaoShi='"&xkon&"'")
  77. Call CloseData
  78. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  79. End Sub
  80. Private Sub XingBie_Go()
  81. Dim XingBie
  82. XingBie=s.Form("XingBie")
  83. If XingBie<>"1" Then
  84. XingBie="0"
  85. End If
  86. Call OpenData()
  87. Dim SQL
  88. SQL="Update ZhangHao Set XingBie='"&XingBie&"' Where BiaoShi='"&xkon&"'"
  89. Conn.Execute(SQL)
  90. Call CloseData()
  91. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  92. End Sub
  93. Private Sub NianLin_Go()
  94. Dim NianLin
  95. NianLin=s.Form_Long("NianLin")
  96. If NianLin>120 Or NianLin<1 Then Call xkon_Error("年龄必须在1~120内")
  97. Call OpenData()
  98. Dim SQL
  99. SQL="Update ZhangHao Set NianLin='"&NianLin&"' Where BiaoShi='"&xkon&"'"
  100. Conn.Execute(SQL)
  101. Call CloseData()
  102. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  103. End Sub
  104. Private Sub GeRenSuoMing_Go()
  105. Dim GeRenSuoMing
  106. GeRenSuoMing=s.Form_Str("GeRenSuoMing",1,250)
  107. If GeRenSuoMing="" Then Call xkon_Error("个人说明不能为空")
  108. Call OpenData()
  109. Dim SQL
  110. SQL="Update ZhangHao Set GeRenSuoMing='"&GeRenSuoMing&"' Where BiaoShi='"&xkon&"'"
  111. Conn.Execute(SQL)
  112. Call CloseData()
  113. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  114. End Sub
  115. Private Sub TouXiang_Go()
  116. Dim ID,DiZhi,JingBi,DenJi,XingBie,Cn1,Cn2
  117. ID=s.QueryString_Long("ID")
  118. Call OpenData()
  119. Set Cn1=Server.CreateObject("Adodb.Command")
  120. Cn1.ActiveConnection=Conn
  121. Cn1.CommandType=1
  122. Cn1.CommandText="Select DiZhi,JingBi,DenJi,XingBie From TouXiang Where ID="&ID
  123. Set Cn2=Cn1.Execute
  124. If Cn2.Eof Then Call xkon_Error("该头像不存在")
  125. DiZhi=Cn2("DiZhi")
  126. JingBi=Cn2("JingBi")
  127. DenJi=Cn2("DenJi")
  128. XingBie=Cn2("XingBie")
  129. Set Cn2=Nothing
  130. Set Cn1=Nothing
  131. If Zi_JingBi<JingBi Then Call xkon_Error("您的金币不够")
  132. If Zi_JiBie<DenJi Then Call xkon_Error("你的等级不够")
  133. If Zi_XingBie<>XingBie Then Call xkon_Error("您的性别不符")
  134. Conn.Execute("Update ZhangHao Set JingBi=JingBi-"&JingBi&",TouXiang='"&DiZhi&"' Where BiaoShi='"&xkon&"'")
  135. Call CloseData()
  136. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  137. End Sub
  138. Private Sub DiQu_Go()
  139. Dim DiQu
  140. DiQu=s.Form_Str("DiQu",1,100)
  141. If DiQu="" Then Call xkon_Error("地区不能为空")
  142. Call OpenData()
  143. Dim SQL
  144. SQL="Update ZhangHao Set DiQu='"&DiQu&"' Where BiaoShi='"&xkon&"'"
  145. Conn.Execute(SQL)
  146. Call CloseData()
  147. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  148. End Sub
  149. Private Sub XingZuo_Go()
  150. Dim XingZuo,X_LieBiao
  151. X_LieBiao=Split("白羊座,金牛座,双子座,巨蟹座,狮子座,处女座,天秤座,天蝎座,射手座,摩羯座,水瓶座,双鱼座",",")
  152. XingZuo=s.Form_Long("XingZuo")
  153. If XingZuo>12 Or XingZuo<1 Then
  154. XingZuo=1
  155. End If
  156. Call OpenData()
  157. Dim SQL
  158. SQL="Update ZhangHao Set XingZuo='"&X_LieBiao(XingZuo)&"' Where BiaoShi='"&xkon&"'"
  159. Conn.Execute(SQL)
  160. Call CloseData()
  161. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  162. End Sub
  163. Private Sub QiTa_Go()
  164. Dim HunFou,ShengGao,TiZhong,XingQu,ZhiYe,XueXiao,YuanWang,GeRenZhuYe,LunTanQianMing
  165. HunFou=s.Form_Long("HunFou")
  166. Select Case HunFou
  167. Case 1
  168. HunFou="是"
  169. Case Else
  170. HunFou="否"
  171. End Select
  172. ShengGao=s.Form_Long("ShengGao")
  173. TiZhong=s.Form_Long("TiZhong")
  174. XingQu=s.Form_Str("XingQu",1,250)
  175. ZhiYe=s.Form_Str("ZhiYe",1,250)
  176. XueXiao=s.Form_Str("XueXiao",1,250)
  177. YuanWang=s.Form_Str("YuanWang",1,250)
  178. GeRenZhuYe=s.Form_Str("GeRenZhuYe",1,250)
  179. LunTanQianMing=s.Form_Str("LunTanQianMing",1,250)
  180. Call OpenData()
  181. Dim SQL
  182. SQL="Update ZhangHao Set HunFou='"&HunFou&"',ShengGao='"&ShengGao&"',TiZhong='"&TiZhong&"',XingQu='"&XingQu&"',ZhiYe='"&ZhiYe&"',XueXiao='"&XueXiao&"',YuanWang='"&YuanWang&"',GeRenZhuYe='"&GeRenZhuYe&"',LunTanQianMing='"&LunTanQianMing&"' Where BiaoShi='"&xkon&"'"
  183. Conn.Execute(SQL)
  184. Call CloseData()
  185. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  186. End Sub
  187. Private Sub MiMa()
  188. c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;MiMa")))
  189. End Sub
  190. Private Sub MiMa_Go()
  191. Dim MiMa1,MiMa2,MiMa3
  192. MiMa1=s.Form_aa("MiMa1",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
  193. MiMa2=s.Form_aa("Mima2",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
  194. MiMa3=s.Form_aa("MiMa3",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
  195. If MiMa1="" Or MiMa2="" Or MiMa3="" Then Call xkon_Error("所有填写项不能为空")
  196. If MiMa2<>MiMa3 Then Call xkon_Error("密码与确认密码不相同")
  197. Call OpenData()
  198. Dim Cn1,Cn2
  199. Set Cn1=Server.CreateObject("Adodb.Command")
  200. Cn1.ActiveConnection=Conn
  201. Cn1.CommandType=1
  202. Cn1.CommandText="Select ID From ZhangHao Where MiMa='"&MiMa1&"' And BiaoShi='"&xkon&"'"
  203. Set Cn2=Cn1.Execute
  204. If Cn2.Eof Then Call xkon_Error("原密码输入错误")
  205. Set Cn2=Nothing
  206. Set Cn1=Nothing
  207. Dim SQL
  208. SQL="Update ZhangHao Set MiMa='"&MiMa2&"' Where BiaoShi='"&xkon&"'"
  209. Conn.Execute(SQL)
  210. Call CloseData()
  211. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  212. End Sub
  213. Private Sub MIB()
  214. Call OpenData()
  215. Dim Cn1,Cn2,ShouJiHao,XingMing,ShengFenZhengHao,SQL
  216. Set Cn1=Server.CreateObject("Adodb.Command")
  217. Cn1.ActiveConnection=Conn
  218. Cn1.CommandType=1
  219. Cn1.CommandText="Select ShouJiHao,XingMing,ShengFenZhengHao From ZhangHao Where BiaoShi='"&xkon&"'"
  220. Set Cn2=Cn1.Execute
  221. If Cn2.Eof Then Call xkon_Error("")
  222. ShouJiHao=Cn2("ShouJiHao")
  223. XingMing=Cn2("XingMing")
  224. ShengFenZhengHao=Cn2("ShengFenZhengHao")
  225. Set Cn2=Nothing
  226. Set Cn1=Nothing
  227. Call CloseData()
  228. If ShouJiHao<>"" Or XingMing<>"" Or ShengFenZhengHao<>"" Then Call xkon_Error("您已设置密码保护,不能更改")
  229. c.Writeln(xkon_FenXi("<form method=""post"" action=""XiuGaiZiLiao.Asp?l=MIB_Go{(xkon.cn)链接}"">你的姓名:<br/><input type=""text"" size=""10"" maxlength=""16"" name=""XingMing"" />"))
  230. c.Writeln("你的手机号:<br/><input type=""text"" size=""10"" maxlength=""11"" name=""ShouJiHao"" />")
  231. c.Writeln("你的身份证号:<br/><input type=""text"" size=""10"" maxlength=""18"" name=""ShengFenZhengHao"" />")
  232. c.Write("<input type=""submit"" value=""设置(注意:一旦设置无法更改)"" /></form>")
  233. End Sub
  234. Private Sub MIB_Go()
  235. Dim ShouJiHao,XingMing,ShengFenZhengHao
  236. ShouJiHao=s.Form("ShouJiHao")
  237. XingMing=s.Form_Str("XingMing",1,16)
  238. ShengFenZhengHao=s.Form("ShengFenZhengHao")
  239. If ShouJiHao="" Or XingMing="" Or ShengFenZhengHao="" Then Call xkon_Error("所有填写项不能为空")
  240. If Len(ShouJiHao)<>11 Or Len(ShengFenZhengHao)<>18 Then Call xkon_Error("")
  241. Call OpenData()
  242. Dim SQL
  243. SQL="Update ZhangHao Set ShoujiHao='"&ShouJiHao&"',XingMing='"&XingMing&"',ShengFenZhengHao='"&ShengFenZhengHao&"' Where BiaoShi='"&xkon&"'"
  244. Conn.Execute(SQL)
  245. Call CloseData()
  246. Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
  247. End Sub
  248. Call H_Title("修改资料")
  249. Dim l
  250. l=s.QueryString("l")
  251. Select Case l
  252. Case "NiChen"
  253. Call NiChen()
  254. Case "NiChen_Go"
  255. Call NiChen_Go()
  256. Case "XingBie"
  257. Call XingBie()
  258. Case "XingBie_Go"
  259. Call XingBie_Go()
  260. Case "NianLin"
  261. Call NianLin()
  262. Case "NianLin_Go"
  263. Call NianLin_Go()
  264. Case "GeRenSuoMing"
  265. Call GeRenSuoMing()
  266. Case "GeRenSuoMing_Go"
  267. Call GeRenSuoMing_GO()
  268. Case "TouXiang"
  269. Call TouXiang()
  270. Case "TouXiang_Go"
  271. Call TouXiang_Go()
  272. Case "DiQu"
  273. Call DiQu()
  274. Case "DiQu_Go"
  275. Call DiQu_Go()
  276. Case "XingZuo"
  277. Call XingZuo()
  278. Case "XingZuo_Go"
  279. Call XingZuo_Go()
  280. Case "QiTa"
  281. Call QiTa()
  282. Case "QiTa_Go"
  283. Call QiTa_Go()
  284. Case "MIB"
  285. Call MIB()
  286. Case "MIB_Go"
  287. Call MIB_Go()
  288. Case "MiMa"
  289. Call MiMa()
  290. Case "MiMa_Go"
  291. Call MiMa_Go()
  292. Case Else
  293. Call xkon_Error("发生意外错误")
  294. End Select
  295. Call H_End()
  296. Set c=Nothing
  297. Set s=Nothing
  298. %>