📄 huiyuan_caozuo.asp

📁 支持IE 手机同步访问的WAP论坛社区程序
💻 ASP
字号:
<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.HuiYuan()
Set FangWen=Nothing
Private c,s
	Set c=New xkon_Response
	Set s=New xkon_Request
		Private Sub x()
			Dim Cn1,Cn2,SQL
			SQL="Select * From ZhangHao Where ID="&ID
			Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText=SQL
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then
				Call xkon_Error("该会员不存在")
			Else
				Dim ZhangHao,MiMa,BiaoShi,NiChen,XingBie,NianLin,GeRenSuoMing,JingBi,ZhuCeShiJian,ZuiHouDenLuShiJian,ZuiHouDenLuIP,ZhuangTai,ShouJiHao,XingMing,ShengFenZhengHao,FuZhi,ZiShu,JiBie,JingYan,YeShu,SuoDing,ZuiHouDenLuDiQu
				ZhangHao=Cn2("ZhangHao")
				MiMa=Cn2("MiMa")
				BiaoShi=Cn2("BiaoShi")
				NiChen=Cn2("NiChen")
				XingBie=Cn2("XingBie")
				NianLin=Cn2("NianLin")
				GeRenSuoMing=Cn2("GeRenSuoMing")
				JingBi=Cn2("JingBi")
				ZhuCeShiJian=Cn2("ZhuCeShiJian")
				ZuiHouDenLuShiJian=Cn2("ZuiHouDenLuShiJian")
				ZuiHouDenLuIP=Cn2("ZuiHouDenLuIP")
				ZuiHouDenLuDiQu=Cn2("ZuiHouDenLuDiQu")
				ZhuangTai=Cn2("ZhuangTai")
				ShouJiHao=Cn2("ShouJiHao")
				XingMing=Cn2("XingMing")
				ShengFenZhengHao=Cn2("ShengFenZhengHao")
				FuZhi=Cn2("FuZhi")
				ZiShu=Cn2("ZiShu")
				JiBie=Cn2("JiBie")
				JingYan=Cn2("JingYan")
				YeShu=Cn2("YeShu")
				SuoDing=Cn2("SuoDing")
			End If
			Set Cn2=Nothing
			Set Cn1=Nothing
			Call CloseData()
			c.Writeln("ID:"&ID)
			c.Writeln("账号:"&ZhangHao)
			c.Writeln("密码:"&MiMa)
			c.Writeln("标识:"&BiaoShi)
			c.Writeln("昵称:"&NiChen)
			c.Writeln("性别:"&XingBieed(XingBie))
			c.Writeln("年龄:"&NianLin)
			c.Writeln("个人说明:"&GeRenSuoMing)
			c.Writeln("金币:"&JingBi)
			c.Writeln("注册时间:"&ZhuCeShiJian)
			c.Writeln("最后登陆时间:"&ZuiHouDenLuShiJian)
			c.Writeln("最后登陆IP:"&ZuiHouDenLuIP)
			c.Writeln("最后登陆地区:"&ZuiHouDenLuDiQu)
			c.Writeln("会员状态:"&ZhuangTai)
			c.Writeln("手机号:"&ShouJiHao)
			c.Writeln("姓名:"&XingMing)
			c.Writeln("身份证号:"&ShengFenZhengHao)
			c.Writeln("复制板:"&FuZhi)
			c.Writeln("字数设置:"&ZiShu)
			c.Writeln("级别:"&JiBie)
			c.Writeln("经验:"&JingYan)
			c.Writeln("记录数:"&YeShu)
			c.Writeln("是否锁定:"&SuoDing)
		End Sub
		Private Sub b()
			Dim Cn1,Cn2,SQL
			SQL="Select * From ZhangHao Where ID="&ID
			Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText=SQL
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then
				Call xkon_Error("该会员不存在")
			Else
				Dim ZhangHao,MiMa,BiaoShi,NiChen,XingBie,NianLin,GeRenSuoMing,JingBi,ZhuCeShiJian,ZuiHouDenLuShiJian,ZuiHouDenLuIP,ZhuangTai,ShouJiHao,XingMing,ShengFenZhengHao,FuZhi,ZiShu,JiBie,JingYan,YeShu,SuoDing,ZuiHouDenLuDiQu
				ZhangHao=Cn2("ZhangHao")
				MiMa=Cn2("MiMa")
				BiaoShi=Cn2("BiaoShi")
				NiChen=Cn2("NiChen")
				XingBie=Cn2("XingBie")
				NianLin=Cn2("NianLin")
				GeRenSuoMing=Cn2("GeRenSuoMing")
				JingBi=Cn2("JingBi")
				ZhuCeShiJian=Cn2("ZhuCeShiJian")
				ZuiHouDenLuShiJian=Cn2("ZuiHouDenLuShiJian")
				ZuiHouDenLuIP=Cn2("ZuiHouDenLuIP")
				ZuiHouDenLuDiQu=Cn2("ZuiHouDenLuDiQu")
				ZhuangTai=Cn2("ZhuangTai")
				ShouJiHao=Cn2("ShouJiHao")
				XingMing=Cn2("XingMing")
				ShengFenZhengHao=Cn2("ShengFenZhengHao")
				FuZhi=Cn2("FuZhi")
				ZiShu=Cn2("ZiShu")
				JiBie=Cn2("JiBie")
				JingYan=Cn2("JingYan")
				YeShu=Cn2("YeShu")
				SuoDing=Cn2("SuoDing")
			End If
			Set Cn2=Nothing
			Set Cn1=Nothing
			Call CloseData()
			c.Writeln("ID:"&ID)
			c.Writeln("<form method=""post"" action=""HuiYuan_CaoZuo.Asp?l=b2"">")
			c.Writeln("账号:<input type=""text"" name=""ZhangHao"" value="""&ZhangHao&""" />")
			c.Writeln("密码:<input type=""text"" name=""MiMa"" value="""&MiMa&""" />")
			c.Writeln("标识:<input type=""text"" name=""BiaoShi"" value="""&BiaoShi&""" />")
			c.Writeln("昵称:<input type=""text"" name=""NiChen"" value="""&NiChen&""" />")
			c.Writeln("性别:<Select name=""XingBie"" ><option value=""1"" "&Selected("1",XingBie)&">女</option><option value=""0"" "&Selected("0",XingBie)&">男</option></select>")
			c.Writeln("年龄:<input type=""text"" name=""NianLin"" value="""&NianLin&""" />")
			c.Writeln("个人说明:<input type=""text"" name=""GeRenSuoMing"" value="""&GeRenSuoMing&""" />")
			c.Writeln("金币:<input type=""text"" name=""JingBi"" value="""&JingBi&""" />")
			c.Writeln("注册时间:"&ZhuCeShiJian)
			c.Writeln("最后登陆时间:"&ZuiHouDenLuShiJian)
			c.Writeln("最后登陆IP:"&ZuiHouDenLuIP)
			c.Writeln("最后登陆地区:<input type=""text="" name=""ZuiHouDenLuDiQu"" value="""&ZuiHouDenLuDiQu&""" />")
			c.Writeln("会员状态:<select name=""ZhuangTai""><option value=""1"" "&Selected("1",ZhuangTai)&">正式会员</option><option value=""2"" "&Selected("1",ZhuangTai)&">特殊会员</option><option value=""0"" "&Selected("1",ZhuangTai)&">待审会员</option></select>")
			c.Writeln("手机号:<input type=""text"" name=""ShouJiHao"" value="""&ShouJiHao&""" />")
			c.Writeln("姓名:<input type=""text"" name=""XingMing"" value="""&XingMing&""" />")
			c.Writeln("身份证号:<input type=""text"" name=""ShengFenZhengHao"" value="""&ShengFenZhengHao&""" />")
			c.Writeln("复制板:<input type=""text"" name=""FuZhi"" value="""&FuZhi&""" />")
			c.Writeln("字数设置:<input type=""text"" name=""ZiShu"" value="""&ZiShu&""" />")
			c.Writeln("级别:<input type=""text"" name=""JiBie"" value="""&JiBie&""" />")
			c.Writeln("经验:<input type=""text"" name=""JingYan"" value="""&JingYan&""" />")
			c.Writeln("记录数:<input type=""text"" name=""YeShu"" value="""&YeShu&""" />")
			c.Writeln("是否锁定:<select name=""SuoDing""><option value=""0"" "&Selected("0",SuoDing)&">否</option><option value=""1"" "&Selected("1",SuoDing)&">是</option></select>")
			c.Write("<input type=""submit"" value=""修改"" />")
			c.Writeln("</form>")
		End Sub
		Private Sub b2()
			Dim ZhangHao,MiMa,BiaoShi,NiChen,XingBie,NianLin,GeRenSuoMing,JingBi,ZhuCeShiJian,ZuiHouDenLuShiJian,ZuiHouDenLuIP,ZhuangTai,ShouJiHao,XingMing,ShengFenZhengHao,FuZhi,ZiShu,JiBie,JingYan,YeShu,SuoDing
			ZhangHao=s.Form_aa("ZhangHao",1,250)
			MiMa=s.Form_aa("MiMa",1,250)
			BiaoShi=s.Form("BiaoShi")
			NiChen=s.Form_Str("NiChen",1,250)
			XingBie=s.Form_Str("XingBie",1,1)
			NianLin=s.Form_Long("NianLin")
			GeRenSuoMing=s.Form_Str("GeRenSuoMing",1,250)
			JingBi=s.Form_Long("JingBi")
			ZhuCeShiJian=s.Form("ZhuCeShiJian")
			ZuiHouDenLuShiJian=s.Form("ZuiHouDenLuShiJian")
			ZuiHouDenLuIP=s.Form("ZuiHouDenLuIP")
			ZhuangTai=s.Form_Str("ZhuangTai",1,1)
			ShouJiHao=s.Form_Str("ShouJiHao",11,11)
			XingMing=s.Form_Str("XingMing",2,100)
			ShengFenZhengHao=s.Form_Str("ShengFenZhengHao",15,18)
			FuZhi=s.Form_Str("FuZhi",1,10000)
			ZiShu=s.Form_Long("ZiShu")
			JiBie=s.Form_Long("JiBie")
			JingYan=s.Form_Long("JingYan")
			YeShu=s.Form_Long("YeShu")
			SuoDing=s.Form_Str("SuoDing",1,1)
			Call OpenData()
				Conn.Execute("Update ZhangHao Set ZhangHao='"&ZhangHao&"',MiMa='"&MiMa&"',BiaoShi='"&BiaoShi&"',NiChen='"&NiChen&"',XingBie='"&XingBie&"',NianLin='"&NianLin&"',GeRenSuoMing='"&GeRenSuoMing&"',JingBi='"&JingBi&"',ZhuangTai='"&ZhuangTai&"',ShouJiHao='"&ShouJiHao&"',XingMing='"&XingMing&"',ShengFenZhengHao='"&ShengFenZhengHao&"',FuZhi='"&FuZhi&"',ZiShu='"&ZiShu&"',JiBie='"&JiBie&"',JingYan='"&JingYan&"',YeShu='"&YeShu&"',SuoDing='"&SuoDing&"' Where ID="&ID)
				Call JiLu("编辑会员"&ID)
			Call CloseData()
	Response.Write("<script language=javascript>location.href=""HuiYuan.Asp"";</script>")
	Response.End()
		End Sub
		Private Sub Delete()
			Call OpenData()
				Conn.Execute("Delete From ZhangHao Where ID="&ID)
				Call JiLu("删除会员"&ID)
	Response.Write("<script language=javascript>location.href=""HuiYuan.Asp"";</script>")
	Response.End()
			Call CloseData()
		End Sub
		Dim ID
		ID=s.QueryString_Long("ID")
		Call H_Title("管理会员")
		Dim l
		l=s.QueryString("l")
		Select Case l
		Case "x"
			Call x()
		Case "b"
			Call b()
		Case "b2"
			Call b2()
		Case "s"
			Call Delete()
		End Select
		c.Write("<a href=""HuiYuan.Asp"">返回会员管理</a>")
		Call H_End()
	Set c=Nothing
	Set s=Nothing
%>
⌨️ 快捷键说明

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