mgroup_form.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 133 行

ASP
133 行
字号 
<%@ Language=VBScript %>
<!--#INCLUDE FILE = "include/manager.asp" -->
<%functionno=4%>
<!--#INCLUDE FILE="checkuser.asp" -->
<%
if Session("userid")="" then
'	Response.Write "用户进行了违规操作"
'	Response.End 
end if
%>
<SCRIPT Language=Javascript>
function save(){
  var s1=group_process.groupname.value;
  var s2=group_process.groupdesc.value;
  
 if (group_process.groupname.value == "")
  {
    alert("请输入用户组代号!");
    group_process.groupname.focus();
    return false;
     }
 else
   {
   if (group_process.groupdesc.value == "")
     {
    alert("请输入用户组描述!");
    group_process.groupdesc.focus();
    return false;
     }
   return true;
   }
    
 }

function delete_onclick()
{	
   	if (confirm("删除用户" +group_process.groupname.value+ "吗!")) {
	
		group_process.action.value= "delete";
		group_process.submit();
	}
}


</SCRIPT>

<%
    strugroupname=Request("groupname")
	strugroupdesc=cstr(Request("groupdesc"))
	straction=cstr(Request("action"))
	
   if strugroupname="" then
   pageTitle="增加用户组" 
   else
   pageTitle="修改用户组" &strugroupid 
   end if
%>

<HTML>
<HEAD>
<title><%=pageTitle%></title>

<meta http-equiv="Content-Type" CONTENT="text/html"; charset="gb2312">

<LINK REL=stylesheet HREF="manager.css" TYPE="text/css">
</HEAD>
<body topmargin="0" >
<!--#INCLUDE FILE = "include/header.asp" -->

<table border="0" width="100%" height="423" cellspacing="0" cellpadding="0">
  <tr>
    <td width="140"  valign="top" >
    <!--#INCLUDE FILE = "include/menu.asp" -->
    </td>
    <td width="1" bgcolor="#000000" ></td>
    <td width="600" height="423" align="center" valign="top" class="main">
	<br>
	
<form action="xt_sys_add_update.asp" method = "post" name="group_process" onsubmit="return save()">
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=58.35% height=80 style="HEIGHT: 80px; WIDTH: 58.35%">
            
    <TR>
        <TD class="mainleft">用户组名</TD>
        <TD>
            <%
	if len(strugroupname)=0 then        
            Response.Write "<INPUT id=groupname name=groupname>"
    else
           Response.Write strugroupname
           Response.Write "<input type=hidden name=groupname value=" & strugroupname & ">"
    end if
%>            
            </TD></TR>         

    <TR>
        <TD class="mainleft">用户组描述</TD>
        <TD>
            <%
	if len(strugroupdesc)=0 then        
            Response.Write "<INPUT id=groupdesc name=groupdesc style=HEIGHT: 21px; WIDTH: 287px>"
    else
            Response.Write "<INPUT id=groupdesc name=groupdesc value=" &  strugroupdesc & " style=HEIGHT: 21px; WIDTH: 287px>"
    end if
    Response.Write "<input type=hidden name=action value=" & straction & ">"
   
%>
            
		</TD></TR></TABLE>

<P><BR>
<TABLE align=center border=0 cellPadding=1 cellSpacing=1 style="HEIGHT: 28px; 
WIDTH: 180px" width=180 height=28>
    
    <TR>
        <TD><INPUT style="WIDTH: 50px" type=submit value=保存>
        <INPUT TYPE="HIDDEN" NAME="type" VALUE="sysgroup">
		<INPUT TYPE="HIDDEN" NAME="goto" VALUE="mgroup_list.asp"></TD>
        <%
	if ucase(strugroupname)<>"ADMIN" and strugroupname<>"" then        
        Response.Write "<TD><INPUT id=delete name=delete style=WIDTH: 50px type=button value=删除 onclick='javascript:delete_onclick()'></TD>"
     end if
%>    
        <TD><INPUT id=reset name=reset style="WIDTH: 50px" type=reset value=恢复></TD></FORM>
        
        </TR></TABLE></P>


</td>
</table>
<!--#INCLUDE FILE = "include/copyright.asp" -->
</body>
</html>

mgroup_form.asp - 源码说明

本页面展示了「用ASP写的电子购物系统」中的 mgroup_form.asp 源码文件，采用 ASP 编程语言编写，共 133 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?