aa_user.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
dim User_Group,PageClassuser,UserGcalss
PageClassuser=1
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_Groud where Groud_Id>0 order by Id desc"
Rs.open Sql,Conn,1,1
while Not Rs.eof
UserGcalss= UserGcalss & "　|　<A HREF='Aa_User.asp?Action=Manage&xSelect=GroudId&Id=" & Rs("Groud_Id") & "'>" & Rs("Groud_Name") & "</A>"
Rs.moveNext
wend
Rs.close
Set Rs=Nothing
Page_HeadName="<A HREF=Aa_User.asp?Action=Add>添加用户</A>　|　<A HREF=Aa_User.asp?Action=Manage>用户列表</A>" & UserGcalss
Select case Action
case "Add"
Call Page_AdminFlag(52)
Page_BootmName="添加新用户"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action=As_User.asp?Action=Add>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=2 CLASS=Table6  ALIGN=center>必填资料</TD>"&_
         "</TR>"&_
		 "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>用户组：</TD>"&_
         "<TD CLASS=Table8><select NAME=User_Group id=User_Group><OPTION VALUE='' selected>请选择用户组</OPTION>"
strIfus = "</select></TD></TR>"&_
		 "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>用户名：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Name TYPE=text id=User_Name size=30> <INPUT NAME='ji' CLASS=submit_all TYPE='submit' VALUE='检测' onClick=" & CHR(34) & "this.form.action='As_User.asp?Action=Detection';this.form.submit()" & CHR(34) & "> <FONT COLOR=ff0000>*</FONT>　　用户名不能超过25个字符</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>登陆密码：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Passwd TYPE=password id=User_Passwd size=20> <FONT COLOR=ff0000>*</FONT>　　密码长度为6-20个字符</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>寻密问题：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Quesion TYPE=text id=User_Quesion size=20> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>问题答案：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Answer TYPE=password id=User_Answer size=20> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>电子邮件：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Email TYPE=text id=User_Email size=30> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=2 CLASS=Table6  ALIGN=center>选填资料</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>真实姓名：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_UserName TYPE=text id=User_UserName size=20>　　在本站订购产品的收货人姓名</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>联系地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Ress TYPE=text id=User_Ress size=30>　　如果其有订购产品，我们将按此地址给他发货</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>邮政编码：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Code TYPE=text id=User_Code size=10></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>联系电话：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Tel TYPE=text id=User_Tel size=30></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>支付方式：</TD>"&_
         "<TD CLASS=Table8><select NAME='User_Pay'><OPTION VALUE=''>请选择支付方式</OPTION>"
         Set Rs=server.createobject("adodb.recordset")
         Sql="Select * from Tx_Give where Pay_Name<>''"
         Rs.open Sql,Conn,1,1
         while Not Rs.eof
strIfus = strIfus & "<OPTION VALUE='" & Rs("Give_Id") & "'>" & Rs("Pay_Name") & "</OPTION>"
                    Rs.moveNext
                    wend
                    Rs.close
                    Set Rs=Nothing
strIfus = strIfus & "</select></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>收货方式：</TD>"&_
                    "<TD CLASS=Table8><select NAME='User_Give'><OPTION VALUE=''>请选择收货方式</OPTION>"
                    Set Rs=server.createobject("adodb.recordset")
                    Sql="Select * from Tx_Give where Give_Name<>''"
                    Rs.open Sql,Conn,1,1
                    while Not Rs.eof
strIfus = strIfus & "<OPTION VALUE='" & Rs("Give_Id") & "'>" & Rs("Give_Name") & "</OPTION>"
                    Rs.moveNext
                    wend
                    Rs.close
                    Set Rs=Nothing
strIfus = strIfus & "</select></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>QQ号码：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Qq TYPE=text id=User_Qq size=15></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>MSN：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Msn TYPE=text id=User_Msn size=30></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>个人主页：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Web TYPE=text id=User_Web VALUE='http://' size=30></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>单位名称：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Ltd TYPE=text id=User_Ltd size=30></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=50 CLASS=Table8>用户头像：</TD>"&_
                    "<TD CLASS=Table8><select NAME='Picture' size='1'  id='Picture' ALIGN='absmiddle' CLASS='submit_all' onChange='document.all.idface.src=options[selectedIndex].value;'>"
                    Set Rs_cm=server.createobject("adodb.recordset")
                    Sql="Select * from Tx_Picture Order By Picture_Id"
                    Rs_cm.open Sql,Conn,1,1
                    while not Rs_cm.eof
strIfb = strIfb & "<OPTION VALUE='" & Rs_cm("Picture_Url") & "'>" & Rs_cm("Picture_Name") & "</OPTION>"
		            IF Picture="" THEN Picture=Rs_cm("Picture_Url")
                    Rs_cm.movenext
                    wend
                    Rs_cm.close
                    Set Rs_cm=Nothing
strIfb = strIfb & "</select>　　　　<img hspace=5 src=" & Picture & " vspace='3' BORDER='0' id='idface' ALIGN='absmiddle'></TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 CLASS=Table8>个人简介：</TD>"&_
                  "<TD CLASS=Table8><TEXTAREA NAME=User_UserContent cols=44 rows=5 id=User_UserContent></TEXTAREA>　　HTML支持</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 CLASS=Table8>个性签名：</TD>"&_
                  "<TD CLASS=Table8><TEXTAREA NAME=User_UserSigns cols=44 rows=5 id=User_UserSigns></TEXTAREA>　　HTML支持</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 CLASS=Table8>用户审核：</TD>"&_
                  "<TD CLASS=Table8><INPUT CLASS=radio_all TYPE=radio NAME=User_Flag VALUE='1' checked> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=User_Flag VALUE='0'>取消审核</TD>"&_
                  "</TR>"&_
                  "<TR ALIGN=center>"&_
                  "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS=submit_all NAME=ok TYPE=submit id=ok VALUE=提交资料> "&_
                  "<INPUT NAME=cl TYPE=reset CLASS=submit_all id=cl VALUE=重新输入></TD>"&_
                  "</TR>"&_
                  "</form>"&_
                  "</TABLE>"
Call Page_aTable(0,0)
case "Edit"
Call Page_AdminFlag(53)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_User Where User_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="用户资料修改 > " & Rs_edit("User_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("User_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
User_Group=Rs_edit("User_Group")
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Save method=post action='As_User.asp?Action=Edit&Id=" & Rs_edit("User_Id") & "'>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=2 CLASS=Table6  ALIGN=center>必填资料</TD>"&_
         "</TR>"&_
		 "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>用户组：</TD>"&_
         "<TD CLASS=Table8><select NAME=User_Group id=User_Group>"
strIfus = "</select></TD></TR>"&_
		 "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>用户名：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Name TYPE=text VALUE='" & Rs_edit("User_Name") & "' id=User_Name size=30> <FONT COLOR=ff0000>*</FONT>　　用户名不能超过25个字符</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>登陆密码：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Passwd TYPE=password id=User_Passwd size=20>　　如果不修改请留空</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>寻密问题：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Quesion TYPE=text VALUE='" & Rs_edit("User_Quesion") & "' id=User_Quesion size=20> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>问题答案：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Answer TYPE=password id=User_Answer size=20>　　如果不修改请留空</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>电子邮件：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Email TYPE=text VALUE='" & Rs_edit("User_Email") & "' id=User_Email size=30> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=2 CLASS=Table6  ALIGN=center>选填资料</TD>"&_
         "</TR>"&_
         "<TR>"&_