?? modify.asp
字號:
<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：權(quán)限管理--修改管理員界面
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs
Dim id , username , pwd , realname , adm_level , email
call DB_Connect(strconn)
'---驗證身份----
Call AdminCheck
id = getForm("id")
if not isnumeric(id) then id = 0
'---取管理員信息----
sql="select * from t_AdminUserInfo where asr_id=" & id
set rs = oConn.execute(sql)
if not rs.eof then
username = rs("asr_name")
pwd = rs("asr_pwd")
realname = rs("asr_realname")
adm_level = rs("asr_level")
email = rs("asr_email")
end if
rs.close
set rs=nothing
%>
<HTML>
<HEAD>
<title>電子商城</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="/inc/css/pub.css" TYPE="TEXT/CSS">
<SCRIPT LANGUAGE="JavaScript">
<!--
function formchk(){
var addform=document.addform;
if (addform.ctxtuser.value==""){
alert("請?zhí)顚懹脩裘?");
addform.ctxtuser.focus();
return false;
}
if (addform.ctxtpwd.value==""){
alert("請?zhí)顚懨艽a!");
addform.ctxtpwd.focus();
return false;
}
if (addform.ctxtname.value==""){
alert("請?zhí)顚懻鎸嵭彰?");
addform.ctxtname.focus();
return false;
}
return true;
}
//-->
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include virtual="/admin/inc/all_top.asp" -->
<!--#include virtual="/admin/inc/all_first_top.asp" -->
<!--#include virtual="/admin/inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
<TR>
<TD COLSPAN=3><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=170 ALIGN=right VALIGN=top>
<!--#include virtual="/admin/inc/default_left.asp" -->
</TD>
<TD WIDTH=15><IMG SRC="/images/dot.gif" WIDTH="15" HEIGHT="1" BORDER=0 ALT=""></TD>
<TD VALIGN=top>
<TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD VALIGN="TOP">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD><B><FONT COLOR="#0033cc">權(quán)限管理</FONT></B><IMG SRC="/images/arrow.gif" BORDER=0></TD>
</TR>
<TR BGCOLOR="#000000">
<TD><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></TD>
</TR>
</TABLE>
<BR>
<FORM NAME="addform" METHOD="post" ACTION="savem.asp" onSubmit="return formchk();">
<TABLE WIDTH="100%" BORDER="1" CELLSPACING="0" CELLPADDING="3" ALIGN="CENTER" BORDERCOLORDARK="#FFFFFF" BORDERCOLORLIGHT="#666666">
<TR>
<TD WIDTH="25%" ALIGN="RIGHT" BGCOLOR="#e1e1e1"><FONT COLOR="#FF0000">*</FONT>用戶名:</TD>
<TD WIDTH="75%"><INPUT TYPE="text" NAME="ctxtuser" VALUE="<%=username%>">
(3到20個字符) </TD>
</TR>
<TR>
<TD WIDTH="25%" ALIGN="RIGHT" BGCOLOR="#e1e1e1"><FONT COLOR="#FF0000">*</FONT>密碼:</TD>
<TD WIDTH="75%"><INPUT TYPE="TEXT" NAME="ctxtpwd" VALUE="<%=pwd%>">
(3到10個字符) </TD>
</TR>
<TR>
<TD WIDTH="25%" ALIGN="RIGHT" BGCOLOR="#e1e1e1"><FONT COLOR="#FF0000">*</FONT>真實姓名:</TD>
<TD WIDTH="75%"><INPUT TYPE="text" NAME="ctxtname" VALUE="<%=realname%>">
(3到20個字符) </TD>
</TR>
<TR>
<TD WIDTH="25%" ALIGN="RIGHT" BGCOLOR="#e1e1e1">權(quán)限:</TD>
<TD WIDTH="75%">
<SELECT NAME="csellevel" >
<OPTION VALUE="1">超級管理員</OPTION>
</TD>
</TR>
<TR>
<TD WIDTH="25%" ALIGN="RIGHT" BGCOLOR="#e1e1e1">Email:</TD>
<TD WIDTH="75%">
<INPUT TYPE="text" NAME="ctxtemail" VALUE="<%=email%>">
</TD>
</TR>
<TR ALIGN="CENTER">
<TD COLSPAN="2">
<INPUT TYPE="hidden" NAME="id" VALUE="<%=id%>">
<INPUT TYPE="submit" NAME="Submit" VALUE="修 改">
<INPUT TYPE="RESET" NAME="Submit2" VALUE="取 消">
</TD>
</TR>
</TABLE>
</FORM>
<BR>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD BACKGROUND="/images/gotop_bg.gif"><A HREF="#top"><IMG SRC="/images/gotop.gif" BORDER="0"></A></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<!--#include virtual="/inc/default_end.asp" -->
<BR>
</BODY>
</HTML>
<%
call DB_DisConnect
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -