?? 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 + -