📄 as_user.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' 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_Passwd,User_Answer
Select Case Action
Case "Add"
IF Request.form("User_Group")="" THEN
Errorst="请选择用户组！"
founderr=True
elseIF Request.form("User_Name")="" THEN
Errorst="请输入用户名！"
founderr=True
elseIF Request.form("User_Passwd")="" THEN
Errorst="请输入登陆密码！"
founderr=True
elseIF Request.form("User_Quesion")="" THEN
Errorst="请输入密码提示问题！"
founderr=True
elseIF Request.form("User_Answer")="" THEN
Errorst="请输入密码问题答案！"
founderr=True
elseIF IsValidEmail(trim(Request.form("User_Email")))=false THEN
Errorst="请输入正确的电子邮件地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_User"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		User_Passwd=checkfSQLStr(trim(Request.form("User_Passwd")))
		User_Answer=checkfSQLStr(trim(Request.form("User_Answer")))
		Rs("User_Name")=Request.form("User_Name")
		Rs("User_Passwd")=Md5(User_Passwd)
		Rs("User_Answer")=Md5(User_Answer)
		Rs("User_Quesion")=Request.form("User_Quesion")
		Rs("User_Email")=Request.form("User_Email")
		Rs("User_UserName")=Request.form("User_UserName")
		Rs("User_UserRess")=Request.form("User_UserRess")
		Rs("User_UserCode")=Request.form("User_UserCode")
		Rs("User_UserTel")=Request.form("User_UserTel")
		Rs("User_shopPay")=Request.form("User_shopPay")
		Rs("User_shopGive")=Request.form("User_shopGive")
		Rs("User_UserQq")=Request.form("User_UserQq")
		Rs("User_UserMsn")=Request.form("User_UserMsn")
		Rs("User_UserWeb")=Request.form("User_UserWeb")
		Rs("User_UserLtd")=Request.form("User_UserLtd")
		Rs("User_Picture")=Request.form("User_Picture")
		Rs("User_Flag")=Request.form("User_Flag")
		Rs("User_UserContent")=Request.form("User_UserContent")
		Rs("User_UserSigns")=Request.form("User_UserSigns")
		Rs("User_OldLoginIp")=VisitorsIp
		Rs("User_LoginIp")=VisitorsIp
		Rs("User_regIp")=VisitorsIp
		Rs("User_regDate")=Now()
		Rs("User_LoginDate")=Now()
		Rs("User_OldLoginDate")=Now()
		Rs("User_LoginCount")=1
		Rs("User_Group")=Request.form("User_Group")
		Rs.update
		ToHistory="Aa_User.asp?Action=Edit&Id=" & Rs("User_Id")
		Rs.Close
		set Rs=Nothing
		saveok="用户：[ " & Request.form("User_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "Edit"
IF Request.form("User_Group")="" THEN
Errorst="请选择用户组！"
founderr=True
elseIF Request.form("User_Name")="" THEN
Errorst="请输入用户名！"
founderr=True
elseIF Request.form("User_Quesion")="" THEN
Errorst="请输入密码提示问题！"
founderr=True
elseIF IsValidEmail(trim(Request.form("User_Email")))=false THEN
Errorst="请输入正确的电子邮件地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_User where User_Id=" & Id
        Rs.open Sql,Conn,1,3
		User_Passwd=checkfSQLStr(trim(Request.form("User_Passwd")))
		User_Answer=checkfSQLStr(trim(Request.form("User_Answer")))
		Rs("User_Name")=Request.form("User_Name")
		IF Request.form("User_Passwd")<>"" THEN
		Rs("User_Passwd")=Md5(User_Passwd)
		End IF
		Rs("User_Quesion")=Request.form("User_Quesion")
		IF Request.form("User_Answer")<>"" THEN
		Rs("User_Answer")=Md5(User_Answer)
		End IF
		Rs("User_Email")=Request.form("User_Email")
		Rs("User_UserName")=Request.form("User_UserName")
		Rs("User_UserRess")=Request.form("User_UserRess")
		Rs("User_UserCode")=Request.form("User_UserCode")
		Rs("User_UserTel")=Request.form("User_UserTel")
		Rs("User_shopPay")=Request.form("User_shopPay")
		Rs("User_shopGive")=Request.form("User_shopGive")
		Rs("User_UserQq")=Request.form("User_UserQq")
		Rs("User_UserMsn")=Request.form("User_UserMsn")
		Rs("User_UserWeb")=Request.form("User_UserWeb")
		Rs("User_UserLtd")=Request.form("User_UserLtd")
		Rs("User_Picture")=Request.form("User_Picture")
		Rs("User_Flag")=Request.form("User_Flag")
		Rs("User_UserContent")=Request.form("User_UserContent")
		Rs("User_UserSigns")=Request.form("User_UserSigns")
		Rs("User_regIp")=VisitorsIp
		Rs("User_regDate")=Now()
		Rs("User_regDate")=Now()
		Rs("User_LoginCount")=Request.form("User_LoginCount")
		Rs("User_Group")=Request.form("User_Group")
		Rs.update
		ToHistory="Aa_User.asp?Action=Edit&Id=" & Rs("User_Id")
		Rs.Close
		set Rs=Nothing
		saveok="用户：[ " & Request.form("User_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "Del"
    Conn.execute "Delete From Tx_User Where User_Id<>" & Loginuser_Id & " And User_Id=" & Id
    ToHistory="Aa_User.asp?Action=Manage"
    saveok="删除成功！"
    Call Form_Saveok()
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_User where User_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("User_Flag")=1 THEN
		    Rs("User_Flag")=0
		saveok="用户：[ " & Rs("User_Name") & " ] 已取消审核！"
		Else
		    Rs("User_Flag")=1
		saveok="用户：[ " & Rs("User_Name") & " ] 已通过审核！"
		End IF
		Rs.update
		Rs.Close
		set Rs=Nothing
		ToHistory=VisitorsForm
	    Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
    Conn.execute "Delete From Tx_User Where User_Id<>" & Loginuser_Id & " And User_Id in (" & Request.form("Id") & ")"
    ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End IF
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.execute "upDate Tx_User set User_Flag=1 Where User_Id in (" & Request.form("Id") & ")"
	ToHistory=VisitorsForm
    saveok="已通过审核！"
    Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.execute "upDate Tx_User set User_Flag=0 Where User_Id in (" & Request.form("Id") & ")"
		ToHistory=VisitorsForm
    saveok="已取消审核！"
    Call Form_Saveok()
End IF
Case "EditClass"
IF Request.form("Id")="" THEN
Errorst="请选择要移动的用户！"
founderr=True
elseIF Request.form("NewUser_Group")="" THEN
Errorst="请选择移动到的用户组！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
        Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User Where User_Id in (" & Request.form("Id") & ")"
            Rs.open Sql,Conn,1,3
            while not Rs.eof
                Rs("User_Group")=Request.form("NewUser_Group")
            Rs.moveNext
            wend
        Rs.Close
	    set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="用户转换分组成功 ！"
        Call Form_Saveok()
End IF
Case "Detection"
UserName=Request.form("User_Name")
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_User where User_Name='" & UserName & "'"
Rs.open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
Errorst="此用户名已被注册，请重新输入！"
founderr=True
End IF
Rs.Close
set Rs=Nothing
IF founderr=True THEN
Call Form_Error()
Else
ToHistory="javascript:history.go(-1);"
saveok="此用户名可以注册！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
💿 文件大小 2808 K
👤 上传用户 haoding306
📂 所属分类其他
🏷️ 相关标签

#V2006 #管理系统 #测试
⌨️ 快捷键说明

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