xiugaiziliao.asp

来自「支持IE 手机同步访问的WAP论坛社区程序」· ASP 代码 · 共 298 行

ASP
298 行
字号 
<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub NiChen()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;NiChen")))
	End Sub
	Private Sub XingBie()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;XingBie")))
	End Sub
	Private Sub NianLin()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;NianLin")))
	End Sub
	Private Sub GeRenSuoMing()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;GeRenSuoMing")))
	End Sub
	Private Sub TouXiang()
		Dim DaiMa,Cn1,p,i
		p=s.QueryString_Long("p")
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Recordset")
			Cn1.Open "Select * From TouXiang Where XingBie='"&Zi_XingBie&"'",Conn,1,1
			Cn1.PageSize=Const_Page_Ys
			If Cn1.Eof Then xkon_Error("暂时还没有头像")
			Cn1.AbsolutePage=p
			For i=1 To Const_Page_Ys
				If Cn1.Eof Then Exit For
				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/>"
				Cn1.MoveNext
			Next
			DaiMa=DaiMa&Cpage(Cn1.PageCount,p,"XiuGaiZiLiao.Asp?l="&l&"{(xkon.cn)链接}&amp;")
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
		c.Write(xkon_FenXi(Replace(Read_Text("XiuGaiZiLiao;TouXiang"),xkon_S("头像列表"),DaiMa)))
	End Sub
	Private Sub DiQu()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;DiQu")))
	End Sub
	Private Sub XingZuo()
		Dim XingZuo,XingZuo_All,i
		XingZuo=Split("白羊座,金牛座,双子座,巨蟹座,狮子座,处女座,天秤座,天蝎座,射手座,摩羯座,水瓶座,双鱼座",",")
		For i=0 To UBound(XingZuo)
			XingZuo_All=XingZuo_All&"<option value="""&i+1&""">"&XingZuo(i)&"</option>"
		Next
		c.Write(xkon_FenXi(Replace(Read_Text("XiuGaiZiLiao;XingZuo"),xkon_S("星座"),XingZuo_All)))
	End Sub
	Private Sub QiTa()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;QiTa")))
	End Sub
	Private Sub NiChen_Go()
		Dim NiChen
		NiChen=s.Form_Str("NiChen",CLng(Read_SZ("NiChen_Length_d")),CLng(Read_SZ("NiChen_Length_c")))
		If NiChen="" Then
			Call xkon_Error("昵称不能为空")
		End If
		Dim Rep_NiChen
		Rep_NiChen=Split(Read_SZ("Rep_NiChen"),"|")
		Dim i,BaoHan
		BaoHan=false
		For i=0 To Ubound(Rep_NiChen)
			If InStr(NiChen,Rep_NiChen(i))>0 Then BaoHan=True:Exit For
		Next
		If BaoHan=True Then Call xkon_Error("用户名中包含不可注册的字符"&Rep_NiChen(i))
		Call OpenData()
			Dim Cn1,Cn2
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select id From ZhangHao Where NiChen='"&NiChen&"'"
			Set Cn2=Cn1.Execute
			If Not Cn2.Eof Then Call xkon_Error("该昵称已被使用")
			Set Cn1=Nothing
			Set Cn2=Nothing
			Conn.Execute("Update ZhangHao Set NiChen='"&NiChen&"' Where BiaoShi='"&xkon&"'")
		Call CloseData
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub XingBie_Go()
		Dim XingBie
		XingBie=s.Form("XingBie")
		If XingBie<>"1" Then
			XingBie="0"
		End If
		Call OpenData()
			Dim SQL
			SQL="Update ZhangHao Set XingBie='"&XingBie&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub NianLin_Go()
		Dim NianLin
		NianLin=s.Form_Long("NianLin")
		If NianLin>120 Or NianLin<1 Then Call xkon_Error("年龄必须在1~120内")
		Call OpenData()
			Dim SQL
			SQL="Update ZhangHao Set NianLin='"&NianLin&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub GeRenSuoMing_Go()
		Dim GeRenSuoMing
		GeRenSuoMing=s.Form_Str("GeRenSuoMing",1,250)
		If GeRenSuoMing="" Then Call xkon_Error("个人说明不能为空")
		Call OpenData()
			Dim SQL
			SQL="Update ZhangHao Set GeRenSuoMing='"&GeRenSuoMing&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub TouXiang_Go()
		Dim ID,DiZhi,JingBi,DenJi,XingBie,Cn1,Cn2
		ID=s.QueryString_Long("ID")
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select DiZhi,JingBi,DenJi,XingBie From TouXiang Where ID="&ID
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then Call xkon_Error("该头像不存在")
			DiZhi=Cn2("DiZhi")
			JingBi=Cn2("JingBi")
			DenJi=Cn2("DenJi")
			XingBie=Cn2("XingBie")
			Set Cn2=Nothing
			Set Cn1=Nothing
			If Zi_JingBi<JingBi Then Call xkon_Error("您的金币不够")
			If Zi_JiBie<DenJi Then Call xkon_Error("你的等级不够")
			If Zi_XingBie<>XingBie Then Call xkon_Error("您的性别不符")
			Conn.Execute("Update ZhangHao Set JingBi=JingBi-"&JingBi&",TouXiang='"&DiZhi&"' Where BiaoShi='"&xkon&"'")
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub DiQu_Go()
		Dim DiQu
		DiQu=s.Form_Str("DiQu",1,100)
		If DiQu="" Then Call xkon_Error("地区不能为空")
		Call OpenData()
			Dim SQL
			SQL="Update ZhangHao Set DiQu='"&DiQu&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub XingZuo_Go()
		Dim XingZuo,X_LieBiao
		X_LieBiao=Split("白羊座,金牛座,双子座,巨蟹座,狮子座,处女座,天秤座,天蝎座,射手座,摩羯座,水瓶座,双鱼座",",")
		XingZuo=s.Form_Long("XingZuo")
		If XingZuo>12 Or XingZuo<1 Then
			XingZuo=1
		End If
		Call OpenData()
			Dim SQL
			SQL="Update ZhangHao Set XingZuo='"&X_LieBiao(XingZuo)&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub QiTa_Go()
		Dim HunFou,ShengGao,TiZhong,XingQu,ZhiYe,XueXiao,YuanWang,GeRenZhuYe,LunTanQianMing
		HunFou=s.Form_Long("HunFou")
		Select Case HunFou
		Case 1
			HunFou="是"
		Case Else
			HunFou="否"
		End Select
		ShengGao=s.Form_Long("ShengGao")
		TiZhong=s.Form_Long("TiZhong")
		XingQu=s.Form_Str("XingQu",1,250)
		ZhiYe=s.Form_Str("ZhiYe",1,250)
		XueXiao=s.Form_Str("XueXiao",1,250)
		YuanWang=s.Form_Str("YuanWang",1,250)
		GeRenZhuYe=s.Form_Str("GeRenZhuYe",1,250)
		LunTanQianMing=s.Form_Str("LunTanQianMing",1,250)
		Call OpenData()
			Dim SQL
			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&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub MiMa()
		c.Write(xkon_FenXi(Read_Text("XiuGaiZiLiao;MiMa")))
	End Sub
	Private Sub MiMa_Go()
		Dim MiMa1,MiMa2,MiMa3
		MiMa1=s.Form_aa("MiMa1",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
		MiMa2=s.Form_aa("Mima2",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
		MiMa3=s.Form_aa("MiMa3",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
		If MiMa1="" Or MiMa2="" Or MiMa3="" Then Call xkon_Error("所有填写项不能为空")
		If MiMa2<>MiMa3 Then Call xkon_Error("密码与确认密码不相同")
		Call OpenData()
			Dim Cn1,Cn2
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select ID From ZhangHao Where MiMa='"&MiMa1&"' And BiaoShi='"&xkon&"'"
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then Call xkon_Error("原密码输入错误")
			Set Cn2=Nothing
			Set Cn1=Nothing
			Dim SQL
			SQL="Update ZhangHao Set MiMa='"&MiMa2&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Private Sub MIB()
		Call OpenData()
			Dim Cn1,Cn2,ShouJiHao,XingMing,ShengFenZhengHao,SQL
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select ShouJiHao,XingMing,ShengFenZhengHao From ZhangHao Where BiaoShi='"&xkon&"'"
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then Call xkon_Error("")
			ShouJiHao=Cn2("ShouJiHao")
			XingMing=Cn2("XingMing")
			ShengFenZhengHao=Cn2("ShengFenZhengHao")
			Set Cn2=Nothing
			Set Cn1=Nothing
		Call CloseData()
		If ShouJiHao<>"" Or XingMing<>"" Or ShengFenZhengHao<>"" Then Call xkon_Error("您已设置密码保护,不能更改")
		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"" />"))
		c.Writeln("你的手机号:<br/><input type=""text"" size=""10"" maxlength=""11"" name=""ShouJiHao"" />")
		c.Writeln("你的身份证号:<br/><input type=""text"" size=""10"" maxlength=""18"" name=""ShengFenZhengHao"" />")
		c.Write("<input type=""submit"" value=""设置(注意:一旦设置无法更改)"" /></form>")
	End Sub
	Private Sub MIB_Go()
		Dim ShouJiHao,XingMing,ShengFenZhengHao
		ShouJiHao=s.Form("ShouJiHao")
		XingMing=s.Form_Str("XingMing",1,16)
		ShengFenZhengHao=s.Form("ShengFenZhengHao")
		If ShouJiHao="" Or XingMing="" Or ShengFenZhengHao="" Then Call xkon_Error("所有填写项不能为空")
		If Len(ShouJiHao)<>11 Or Len(ShengFenZhengHao)<>18 Then Call xkon_Error("")
		Call OpenData()
			Dim SQL
			SQL="Update ZhangHao Set ShoujiHao='"&ShouJiHao&"',XingMing='"&XingMing&"',ShengFenZhengHao='"&ShengFenZhengHao&"' Where BiaoShi='"&xkon&"'"
			Conn.Execute(SQL)
		Call CloseData()
		Response.Redirect(Replace(xkon_FenXi("ZiLiao_GuanLi.Asp?n={(xkon.cn)链接}"),"&amp;","&"))
	End Sub
	Call H_Title("修改资料")
	Dim l
	l=s.QueryString("l")
	Select Case l
	Case "NiChen"
		Call NiChen()
	Case "NiChen_Go"
		Call NiChen_Go()
	Case "XingBie"
		Call XingBie()
	Case "XingBie_Go"
		Call XingBie_Go()
	Case "NianLin"
		Call NianLin()
	Case "NianLin_Go"
		Call NianLin_Go()
	Case "GeRenSuoMing"
		Call GeRenSuoMing()
	Case "GeRenSuoMing_Go"
		Call GeRenSuoMing_GO()
	Case "TouXiang"
		Call TouXiang()
	Case "TouXiang_Go"
		Call TouXiang_Go()
	Case "DiQu"
		Call DiQu()
	Case "DiQu_Go"
		Call DiQu_Go()
	Case "XingZuo"
		Call XingZuo()
	Case "XingZuo_Go"
		Call XingZuo_Go()
	Case "QiTa"
		Call QiTa()
	Case "QiTa_Go"
		Call QiTa_Go()
	Case "MIB"
		Call MIB()
	Case "MIB_Go"
		Call MIB_Go()
	Case "MiMa"
		Call MiMa()
	Case "MiMa_Go"
		Call MiMa_Go()
	Case Else
		Call xkon_Error("发生意外错误")
	End Select
	Call H_End()
Set c=Nothing
Set s=Nothing
%>

xiugaiziliao.asp - 源码说明

本页面展示了「支持IE 手机同步访问的WAP论坛社区程序」中的 xiugaiziliao.asp 源码文件，采用 ASP 编程语言编写，共 298 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与WAP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?