📄 admin_members.asp
字号:
<!--
版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:13036133798
-->
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/access.asp"-->
<%
subname0 = request("subname0")
action = request("action")
UserEmail = request("UserEmail")
if request("UserID") <> "" then
UserID = cint(request("UserID"))
end if
if request("NUserID") <> "" then
NUserID = cint(request("NUserID"))
end if
UserName = trim(request("UserName"))
UserPwd = trim(request("UserPwd"))
if action = "add" and subname0 <> ""then
if UserName = "" or UserPwd = "" then
response.write "<script>alert('请检查用户名和密码是否为空！');history.go(-1);</script>"
response.End()
end if
if UserPwd = "******" then
response.write "<script>alert('请输入密码');history.go(-1);</script>"
end if
action = "add"
UserPwd = md5(UserPwd)
'检测用户是否存在
sql = "select * from [User] where UserName = '"&UserName&"'"
set rs0 = conn.execute(sql)
if not rs0.eof and not rs0.bof then
response.write "<script>alert('"&UserName&"会员已经存在，请重新输入');history.go(-1);</script>"
response.end
end if
'**************check email legal ******'
if checkEmail(UserEmail) = false then
response.write "<script>alert('您输入的email不合法');history.go(-1);</script>"
response.End()
end if
'**************check email legal end********'
sql = "insert into [User] (UserName,UserPwd,UserEmail) values ('"&UserName&"','"&UserPwd&"','"&UserEmail&"')"
conn.execute(sql)
if not Err then
response.write "<script>alert('添加会员成功');</script>"
else
response.write "<script>alert('添加会员时数据库发生错误');</script>"
end if
end if
if request("action")= "add" then
action = "add"
submittext = "添加"
else
action = "add"
submittext = "添加"
end if
if request("action") = "delete" then
action = "add"
submittext = "添加"
sql = "select * from [User] where UserID = "&UserID&""
set rs = conn.execute(sql)
if rs.eof and rs.bof then
response.write "<script>alert('该会员不存在');</script>"
else
sql = "delete from [User] where UserID = "&UserID&""
conn.execute(sql)
if not Err then
response.write "<script>alert('删除成功');</script>"
else
response.write "<script>alert('删除会员时数据库发生错误');</script>"
end if
end if
end if
if request("action") = "edit" and subname0 <> "" then
sql = "select * from [User] where UserID = "&NUserID&""
set rs = conn.execute(sql)
if rs.eof and rs.bof then
response.write "<script>alert('该会员不存在');</script>"
response.end
else
'**************check email legal ******'
if checkEmail(UserEmail) = false then
response.write "<script>alert('您输入的email不合法');history.go(-1);</script>"
response.End()
end if
'**************check email legal end********'
if UserPwd = "******" then
sql = "update [User] set UserName = '"&UserName&"',UserEmail = '"&UserEmail&"' where UserID = "&NUserID&""
set rs = conn.execute(sql)
else
UserPwd = md5(UserPwd)
sql = "update [User] set UserName = '"&UserName&"',UserPwd = '"&UserPwd&"',UserEmail = '"&UserEmail&"' where UserID = "&NUserID&""
end if
end if
conn.execute(sql)
if not Err then
response.write "<script>alert('编辑成功');</script>"
else
response.write "<script>alert('编辑会员时数据库发生错误');</script>"
end if
end if
if request("action") = "edit" then
action = "edit"
submittext = "编辑"
else
sql = "select max(UserID)+1 as num from [User]"
set rs = conn.execute(sql)
OUserID = rs(0)
action = "add"
submittext = "添加"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>后台管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=MSThemeCompatible content=Yes>
<LINK href="images/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.0" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width=650 align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR class=m_title>
<TD align=center>会员编号</TD>
<TD align=center>会员名</TD>
<TD align=center>会员密码</TD>
<TD align=center>会员Email</TD>
<TD align=center>操作</TD>
</TR>
<%
sql = "select * from [User] order by UserID asc"
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof and not rs.bof
if action = "edit" then
if UserID = rs("UserID") then
OUserID = rs("UserID")
OUserName = rs("UserName")
OUserEmail = rs("UserEmail")
end if
end if
%>
<TR class=line_1 align="center">
<TD noWrap><a href=?action=edit&UserID=<%=rs("UserID")%>><%=rs("UserID")%></a></TD>
<TD noWrap><%=rs("UserName")%></TD>
<TD noWrap>******</TD>
<TD noWrap><%=rs("UserEmail")%></TD>
<TD noWrap><a href=?action=edit&UserID=<%=rs("UserID")%>>编辑</a> <a href='?'>添加</a> <a href='?action=delete&UserID=<%=rs("UserID")%>' onclick='return confirm("确认删除?")'>删除</a></TD>
</TR>
<%
rs.movenext
loop
%>
<TR class=line_1>
<form method="post" action="?action=<%=action%>">
<TD align=center><input type="text" name="UserID" size="10" value="<%=OUserID%>" disabled style="text-align:center"><input type="hidden" name="NUserID" size="10" value="<%=OUserID%>"></TD>
<TD align=center><input type="text" name="UserName" size="10" value="<%=OUserName%>"></TD>
<TD align=center>
<input type="password" name="UserPwd" size="10" value="******">
<br>
如果不修改的话将不改变密码 </TD>
<TD align=center><input type="text" name="UserEmail" size="10" value="<%=OUserEmail%>"></TD>
<TD align=center><input type="submit" name="subname0" value="<%=submittext%>"></TD>
</form>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<BR><BR>
<TABLE cellSpacing=1 cellPadding=0 width="90%" align=center border=0>
<TBODY>
<TR>
<TD align=middle>技术支持：<A
href="http://www.vvcat.com/">http://www.vvcat.com/</A> <br>
QQ123888858,54016224 </TD>
</TR>
</TBODY>
</TABLE>
<BR>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -