downtypemanage.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 108 行

ASP
108 行
字号 
<%@ 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 DownType Set state="&Request("state")&" where Type_ID="&Request("ID")&""
		End IF
	ElseIF Request("opr")="del" then
		if Request("ID")<>"" then
			Conn.Execute "delete * from DownType where Type_ID="&Request("ID")&""
		End IF	
	End IF	
End IF
%>
<%
	public Symbol				'===定义目录显示全局变量================
	public Symbolf				'===定义目录显示全局变量================
%>
		<FORM action="AudioTypeManage.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="DownTypeAdd.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 DispDownType(0)
	
				%>
			</table>

	
		</FORM>
	</body>
</html>
<%
if ErrMsg<>"" then
%>
<SCRIPT Language="javascript">
    window.alert ("<%=ErrMsg%>")
    </SCRIPT>
<%
end if
%>
<!--#include virtual="/Include/DBClose.asp"-->

downtypemanage.asp - 源码说明

本页面展示了「ASP编写的一个公司网站的源程序」中的 downtypemanage.asp 源码文件，采用 ASP 编程语言编写，共 108 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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