admin_changepass.asp

电子商城代码

<!--#include file="conn.asp"-->
<!--#include file="../include/md5.asp"-->
<%
'On Error Resume next
	admintop()
	Dim admin_flag
	admin_flag=",1,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
		Select Case Request("action")
			Case "updat" : update()
			Case "del" : Del()
			Case "pasword" : pasword()
			Case "newpass" : newpass()
			Case "add" : addadmin()
			Case "edit" : userinfo()
			Case "savenew" : savenew()
			Case "log" : Log()
			Case Else
				userlist()
		End Select
        end     if
	sub userlist()
%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
<td height="27" class="classtop" align="center" colspan="5">绠＄悊鍛樼