📄 protypemanage.asp
字号:
<%@ Language=VBScript %>
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#include file="Function.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content=" ">
<meta name="keywords" content=" ">
<link rel="stylesheet" href="../Css/css.css" type="text/css">
<script language="Javascript" src="/JS/CheckInput.js"></script>
</head>
<script language="javascript">
<!--
function deleted(DoType,url) {
var Content=DoType;
var truthBeTold =window.confirm("你确定要"+Content+"?");
if (truthBeTold) {
window.location = ( url )
}
else
{
return false;
}
}
-->
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="Menu.asp"-->
<%
If Request("opr")<>"" then
If Request("opr")="set" then
If Request("state")<>"" and Request("ID")<>"" then
Conn.Execute "Update ProType Set state="&Request("state")&" where Type_ID="&Request("ID")&""
End IF
ElseIF Request("opr")="del" then
if Request("ID")<>"" then
Conn.Execute "delete * from ProType where Type_ID="&Request("ID")&""
End IF
End IF
End IF
%>
<%
public Symbol '===定义目录显示全局变量================
public Symbolf '===定义目录显示全局变量================
%>
<FORM action="ProTypeManage.asp" id="form1" method="post" name="form1">
<table name="table1" border="0" id="table1" width="95%">
<tr class="header">
<td align="left" nowrap height="20">
<b>产品类别名</b>
</td>
<td align="left" nowrap>
<b>添加子类别</b>
</td>
<td align="left" nowrap colspan=3>
<b>操作</b>
</td>
</tr>
<tr>
<td align="left" nowrap>
产品类别
</td>
<td align="left" nowrap>
<%'if GetAdminRight(cint(session("CATID")),CONST_RIGHTS_EDIT) =true then%>
<a href="ProTypeAdd.asp?Parent_ID=0&layer=0">添加类别</a>
<%'Else
'<font Class="NoRights">添加子项</font> %>
<%'End IF%>
</td>
<td align="left" nowrap>
</td>
<td align="left" nowrap>
</td>
<td align="left" nowrap>
</td>
</tr>
<%
Call DispProType(0)
%>
</table>
</FORM>
</body>
</html>
<%
if ErrMsg<>"" then
%>
<SCRIPT Language="javascript">
window.alert ("<%=ErrMsg%>")
</SCRIPT>
<%
end if
%>
<!--#include virtual="/Include/DBClose.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -