📄 oper.asp
字号:
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">删 除 会 员</font></td>
</tr>
<tr>
<td width="100%" align="center" height="72" bgcolor="#FFFFFF">真的要删除该会员么？</td>
</tr>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit4" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="button4"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "EAANEWS" then '/新闻审批/
Response.Write "<title>新闻审批</title>"%>
<form method="post" action="DataDeal.asp" name="form11">
<input type="hidden" name="Oper" value="EaaNews">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">新 闻 审 批</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要通过审批并发布该篇<<font color="#FF0000">新闻稿件</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="submit5" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button5"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELNEWS" then '/删除新闻稿件/
Response.Write "<title>新闻删除</title>"%>
<form method="post" action="DataDeal.asp" name="form131">
<input type="hidden" name="Oper" value="DelNews">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">新 闻 删 除</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要删除该篇<<font color="#FF0000">新闻稿件</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit7" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button7"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELNEWS2" then '/删除新闻/
Response.Write "<title>新闻删除</title>"%>
<form method="post" action="DataDeal.asp" name="form34">
<input type="hidden" name="Oper" value="DelNews2">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">新 闻 删 除</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要删除该篇新闻么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit8" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button8"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "EAAINFO" then '/供求信息审批/
Response.Write "<title>供求信息审批</title>"%>
<form method="post" action="DataDeal.asp" name="form254">
<input type="hidden" name="Oper" value="EaaInfo">
<input type="hidden" name="Id" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">供 求 信 息 审 批</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要通过审批并发布该条<<font color="#FF0000">供求信息</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit6" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button6"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELINFO" then '/删除未审批的供求信息/
Response.Write "<title>供求信息删除</title>"%>
<form method="post" action="DataDeal.asp" name="form467">
<input type="hidden" name="Oper" value="DelInfo">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">供 求 信 息 删 除</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要删除该条<<font color="#FF0000">未审批的供求信息</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit9" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button9"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELINFO2" then '/删除供求信息/
Response.Write "<title>供求信息删除</title>"%>
<form method="post" action="DataDeal.asp" name="form487">
<input type="hidden" name="Oper" value="DelInfo2">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">供 求 信 息 删 除</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要删除该条<<font color="#FF0000">供求信息</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit26" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button26"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "EAALINK" then '/链接信息审批/
Response.Write "<title>链接信息审批</title>"%>
<form method="post" action="DataDeal.asp" name="form24sd">
<input type="hidden" name="Oper" value="EaaLink">
<input type="hidden" name="Id" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">链 接 信 息 审 批</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要通过审批并发布该条<<font color="#FF0000">链接信息</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit23" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button23"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELLINK" then '/删除未审批的链接信息/
Response.Write "<title>链接信息删除</title>"%>
<form method="post" action="DataDeal.asp" name="form4f">
<input type="hidden" name="Oper" value="DelLink">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">链 接 信 息 删 除</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要删除该条<<font color="#FF0000">未审批的链接信息</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit24" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button24"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELLINK2" then '/删除链接信息/
Response.Write "<title>链接信息删除</title>"%>
<form method="post" action="DataDeal.asp" name="form4a">
<input type="hidden" name="Oper" value="DelLink2">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center">链 接 信 息 删 除</td>
</tr>
<tr>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">真的要删除该条<<font color="#FF0000">链接信息</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="确 定" name="Submit25" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button25"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "ADDCLS" then%>
<script language="javascript">
<!-- Begin validation form script
//检验表单的合法性
function AddCls() {
if (document.AddClsForm.CnName.value == "") {
alert("\目录名称不能为空！");
document.AddClsForm.CnName.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
</script>
<TITLE>目录添加</TITLE>
<form method="post" action="DataDeal.asp" OnSubmit="return AddCls()" name="AddClsForm">
<input type="hidden" name="Oper" value="AddCls">
<input type="hidden" name="ID" value="<% = Request.QueryString("ID")%>">
<table cellSpacing="1" cellPadding="0" width="100%" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center" colspan="2">目 录 添 加</td>
</tr>
<tr>
<td width="45%" height="75" align="center" bgcolor="#FFFFFF">目录名称：</td>
<td width="55%" height="75" bgcolor="#FFFFFF"> <input type="text" name="CnName" maxlength="50" size="20" class="face"></td>
</tr>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF" colspan="2"><input type="submit" value="确 定" name="Submit10" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button10"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "EDITCLS" then '/目录编辑/
Dim intEditClsID
Dim rdsEditClass
Dim sqlEditClass
intEditClsID = Request.QueryString("ID")
set rdsEditClass = Server.CreateObject("ADODB.Recordset")
sqlEditClass = "Select * From Dat_Class Where ClsID = "& intEditClsID
rdsEditClass.Open sqlEditClass,Conn
if not rdsEditClass.EOF then
%>
<script language="javascript">
<!-- Begin validation form script
//检验表单的合法性
function EditCls() {
if (document.EditClsForm.CnName.value == "") {
alert("\目录名称不能为空！");
document.EditClsForm.CnName.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
</script>
<TITLE>目录编辑</TITLE>
<form method="post" action="DataDeal.asp" OnSubmit="return EditCls()" name="EditClsForm">
<input type="hidden" name="Oper" value="EditCls">
<input type="hidden" name="ID" value="<% = intEditClsID%>">
<table cellSpacing="1" cellPadding="0" width="100%" border="0" align="center">
<tr>
<td width="100%" height="35" class="bottom" align="center" colspan="2">目 录 编 辑</td>
</tr>
<tr>
<td width="40%" align="center" height="49" bgcolor="#FFFFFF">目录名称：</td>
<td width="60%" height="49" bgcolor="#FFFFFF"> <input type="text" name="CnName" maxlength="50" size="20" class="face" value="<% = rdsEditClass("CnName")%>"></td>
</tr>
<%
if rdsEditClass("RootID") <> 0 then
Dim rdsRootClass
Dim sqlRootClass
set rdsRootClass = Server.CreateObject("ADODB.Recordset")
sqlRootClass = "Select * From Dat_Class Where RootID = 0 Order By ListNum"
rdsRootClass.Open sqlRootClass,Conn,1,1
if not rdsRootClass.EOF then
Response.Write "<tr>"& VbCRLF
Response.Write "<td width=""40%"" align=""center"" bgcolor=""#FFFFFF"" height=""25"">所属目录：</td>"& VbCRLF
Response.Write "<td width=""60%"" bgcolor=""#FFFFFF"" height=""25"">"& VbCRLF
Response.Write " <select size=""1"" name=""RootID"" class=""face"">"& VbCRLF
do while not rdsRootClass.EOF
if rdsEditClass("RootID") = rdsRootClass("ClsID") then
Response.Write "<option value="""& rdsRootClass("ClsID") &""" selected>"& rdsRootClass("CnName") &"</option>"& VbCRLF
else
Response.Write "<option value="""& rdsRootClass("ClsID") &""">"& rdsRootClass("CnName") &"</option>"& VbCRLF
end if
rdsRootClass.MoveNext
loop
Response.Write "</select>"& VbCRLF
Response.Write "</td>"& VbCRLF
Response.Write "</tr>"& VbCRLF
end if
rdsRootClass.Close
set rdsRootClass = nothing
else
Response.Write "<input type=""hidden"" name=""RootID"" value=""0"">"
end if
%>
<tr>
<td width="100%" height="35" align="center" bgcolor="#FFFFFF" colspan="2"><input type="submit" value="更 新" name="Submit11" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button" name="Button11"></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -