📄 useradd.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
Dim Conn,User_Conn
MF_Default_Conn
MF_User_Conn
MF_Session_TF
If Request.Form("action") = "add" then
Dim P_UserAdd_Obj,P_UserAdd_Sql,P_ChooseME_NameObj,P_MeName_Str
If NoSqlHack(Request.Form("UserName"))="" or isnull(Request.Form("UserName")) then
Response.Write("<script>alert(""请填写会员登录名"");</script>")
Response.End
Else
End If
If len(Request.Form("UserName"))>10 then
Response.Write("<script>alert(""会员登录名不可以超过10个字符"");</script>")
Response.End
Else
end if
'by xq
P_MeName_Str = Replace(Replace(Request.Form("Name"),"""",""),"'","")
Set P_ChooseME_NameObj = User_Conn.Execute("Select UserID from FS_Me_Users where UserName='"&P_MeName_Str&"'")
If Not P_ChooseME_NameObj.eof then
Response.Write("<script>alert(""此会员登录名已经存在,请修改"");</script>")
Response.End
End If
P_ChooseME_NameObj.Close
Set P_ChooseME_NameObj = Nothing
If Request.Form("Password")="" or isnull("Password") then
Response.Write("<script>alert(""请输入会员登录密码"");</script>")
Response.End
End If
If Len(Request.Form("Password")) < 6 then
Response.Write("<script>alert(""会员登录密码不能少于六位"");</script>")
Response.End
End If
If Cstr(Request.Form("Password"))<>Cstr(Request.Form("PasswordTF")) then
Response.Write("<script>alert(""密码与确认密码不同"");</script>")
Response.End
End If
If Request.Form("Name")="" or isnull(Request.Form("Name")) then
Response.Write("<script>alert(""请填写会员真实姓名"");</script>")
Response.End
End If
'-------------------
Dim Fs_User,NumShopPoint
Set Fs_User = New Cls_User
NumShopPoint = Fs_User.getUserConfig(6)
Randomize
Dim RandomFigure
RandomFigure = CStr(Int((9999 * Rnd) + 1))
'----------------------------------
Set P_UserAdd_Obj = Server.CreateObject(G_FS_RS)
P_UserAdd_Sql = "Select * from FS_Me_Users where 1=0"
P_UserAdd_Obj.Open P_UserAdd_Sql,User_Conn,3,3
P_UserAdd_Obj.AddNew
P_UserAdd_Obj("UserName") = Replace(Replace(Request.Form("UserName"),"""",""),"'","")
P_UserAdd_Obj("Password") = md5(Request.Form("Password"),16)
P_UserAdd_Obj("GroupID") = Request.Form("GroupID")
P_UserAdd_Obj("Name") = Replace(Replace(Request.Form("Name"),"""",""),"'","")
If Request.Form("Lock") = "0" then
P_UserAdd_Obj("IsLock") = "0"
Else
P_UserAdd_Obj("IsLock") = "1"
End If
If Request.Form("Sex") = "0" then
P_UserAdd_Obj("Sex") = "0"
Else
P_UserAdd_Obj("Sex") = "1"
End If
P_UserAdd_Obj("RegTime") = Now()
P_UserAdd_Obj("Email")="Foosun@foosun.cn"
P_UserAdd_Obj("LastLoginIP") = Request.ServerVariables("REMOTE_ADDR")
P_UserAdd_Obj("LastLoginTime") = Now()
P_UserAdd_Obj("LoginNum") = 0
P_UserAdd_Obj("Integral") = 100 '会员积分
P_UserAdd_Obj("UserNumber") = year(now)&month(now)&day(now)&hour(now)&RandomFigure '会员编号
P_UserAdd_Obj.Update
P_UserAdd_Obj.Close
Set P_UserAdd_Obj = Nothing
Response.Redirect("Usermanage.asp")
Response.End
End If
%>
<html>
<HEAD>
<TITLE>添加会员</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<body leftmargin="2" topmargin="2">
<form action="" method="post" name="UserAddSForm">
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table">
<tr>
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="3" cellspacing="1">
<tr class="hback">
<td width=35 align="center" alt="保存" onClick="document.UserAddSForm.submit();" >保存</td>
<td width=2 >|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" >后退</td>
<td> <input name="action" type="hidden" id="action" value="add"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table">
<tr>
<td width="100">
<div align="right">会 员 名</div></td>
<td colspan="3" >
<input name="Name" type="text" id="Name" style="width:100%" value="<%=Request("UserName")%>"></td>
</tr>
<tr >
<td >
<div align="right">密 码</div></td>
<td colspan="3">
<input name="Password" type="password" id="Password" style="width:1090%"></td>
</tr>
<tr>
<td>
<div align="right">确认密码</div></td>
<td colspan="3">
<input name="PasswordTF" type="password" id="PasswordTF" style="width:100%"></td>
</tr>
<tr>
<td>
<div align="right">会 员 组</div></td>
<td colspan="3">
<select name="GroupID" id="GroupID" style="width:100%">
<option value="0" <%If Request("GroupID") = "" or Request("GroupID") = "0" then Response.Write("selected") end if%>>
</option>
<%
Dim P_Set_GroupObj
Set P_Set_GroupObj = User_Conn.Execute("Select GroupID,GroupName from FS_ME_Grouporder by GroupNamedesc")
do while not P_Set_GroupObj.eof
%>
<option value="<%=P_Set_GroupObj("GroupID")%>" <%If Cstr(Request("GroupID"))=Cstr(P_Set_GroupObj("GroupID")) then Response.Write("selected") end if%>><%=P_Set_GroupObj("GroupName")%></option>
<%
P_Set_GroupObj.MoveNext
Loop
P_Set_GroupObj.Close
Set P_Set_GroupObj = Nothing
%>
</select></td>
</tr>
<tr>
<td>
<div align="right">真实姓名</div></td>
<td colspan="3">
<input name="Name" type="text" id="Name" size="20" style="width:100%" value="<%=Request("Name")%>"></td>
</tr>
<tr valign="middle">
<td>
<div align="right">锁 定</div></td>
<td>
<input type="radio" name="Lock" value="1" <%If Request("IsLock") = "1" then Response.Write("checked") end if%>>
是
<input name="Lock" type="radio" value="0" <%If Request("IsLock") = "0" or Request("Lock") = "" then Response.Write("checked") end if%>>
否</td>
</tr>
<tr>
<td>
<div align="right">性 别</div></td>
<td>
<input name="Sex" type="radio" value="0" <%If Request("Sex") = "0" or Request("Sex") = "" then Response.Write("checked") end if%>>
男
<input type="radio" name="Sex" value="1" <%If Request("Sex") = "1" then Response.Write("checked") end if%>>
女</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -