?? oper.asp
字號:
</form>
</table>
<% end if
rdsEditClass.Close
set rdsEditClass = nothing
elseif UCase(Request.QueryString("Oper")) = "UNLOCKCLS" then%>
<TITLE>目錄開啟</TITLE>
<form method="post" action="DataDeal.asp" name="form5g">
<input type="hidden" name="Oper" value="UnLockCls">
<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="Submit12" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="Button12"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "LOCKCLS" then%>
<TITLE>目錄關閉</TITLE>
<form method="post" action="DataDeal.asp" name="form6a">
<input type="hidden" name="Oper" value="LockCls">
<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="Submit13" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="Button13"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELCLS" then%>
<TITLE>目錄刪除</TITLE>
<form method="post" action="DataDeal.asp" name="form7b">
<input type="hidden" name="Oper" value="DelCls">
<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">刪除操作將導致本目錄包括其下<br>的子目錄以及該目錄下的所有供求信息一并刪除<br>您確實要刪除該<<font color="#FF0000">信息目錄</font>>么？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="確 定" name="Submit14" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="Button14"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "ADDUSER" then '/添加系統管理用戶/
Response.Write "<title>添加用戶</title>"%>
<script language="javascript">
<!-- Begin validation form script
//檢驗表單的合法性
function AddUser() {
if (document.AddUserForm.Account.value == "") {
alert("\請填寫用戶名!");
document.AddUserForm.Account.focus();
}
else if (document.AddUserForm.PassWord.value == "") {
alert("\請填寫用戶管理密碼!");
document.AddUserForm.PassWord.focus();
}
else if (document.AddUserForm.UserLevel.value == "#") {
alert("\請選擇用戶身份!");
document.AddUserForm.UserLevel.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
</script>
<form method="post" action="DataDeal.asp" OnSubmit="return AddUser()" name="AddUserForm">
<input type="hidden" name="Oper" value="AddUser">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" colspan="2" height="35" class="bottom" align="center">添 加 用 戶</font></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用 戶 名：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="text" name="Account" size="15" class="face"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">管理密碼：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="password" name="PassWord" size="15" class="face"></td>
</tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用戶身份：</td>
<td width="55%" height="25" bgcolor="#FFFFFF">
<select name="UserLevel" size="1" class="face">
<option value="#">選擇身份</option>
<option value="1">普通用戶</option>
<option value="3">管 理 員</option>
</select>
</td>
</tr>
<tr>
<td width="100%" height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="確 定" name="Submit15" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="button15"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "EDITUSER" then '/編輯系統管理用戶/
Dim intUserID
Dim rdsUser
Dim sqlUser
intUserID = Request.QueryString("ID")
set rdsUser = Server.CreateObject("ADODB.Recordset")
sqlUser = "Select * From Sys_Account Where UserKey = "& intUserID
rdsUser.Open sqlUser,Conn
if not rdsUser.EOF then
Response.Write "<title>編輯用戶</title>"%>
<script language="javascript">
<!-- Begin validation form script
//檢驗表單的合法性
function EditUser() {
if (document.EditUserForm.Account.value == "") {
alert("\請填寫用戶名!");
document.EditUserForm.Account.focus();
}
else if (document.EditUserForm.PassWord.value == "") {
alert("\請填寫用戶管理密碼!");
document.EditUserForm.PassWord.focus();
}
else if (document.EditUserForm.UserLevel.value == "#") {
alert("\請選擇用戶身份!");
document.EditUserForm.UserLevel.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
</script>
<form method="post" action="DataDeal.asp" OnSubmit="return EditUser()" name="EditUserForm">
<input type="hidden" name="Oper" value="EditUser">
<input type="hidden" name="ID" value="<% = intUserID%>">
<table cellSpacing="1" cellPadding="0" width="100%" class="booktable" border="0" align="center">
<tr>
<td width="100%" colspan="2" height="35" class="bottom" align="center">編 輯 用 戶</font></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用 戶 名：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="text" name="Account" size="15" class="face" value="<% = rdsUser("Account")%>"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">管理密碼：</td>
<td width="55%" height="25" bgcolor="#FFFFFF"> <input type="password" name="PassWord" size="15" class="face" value="<% = rdsUser("PassWord")%>"></td>
</tr>
<tr>
<td width="45%" height="25" align="center" bgcolor="#FFFFFF">用戶身份：</td>
<td width="55%" height="25" bgcolor="#FFFFFF">
<select name="UserLevel" size="1" class="face">
<option value="#">選擇身份</option>
<%if rdsUser("UserLevel") > 2 then%>
<option value="1">普通用戶</option>
<option value="3" selected>管 理 員</option>
<%else%>
<option value="1" selected>普通用戶</option>
<option value="3">管 理 員</option>
<%end if%>
</select>
</td>
</tr>
<tr>
<td width="100%" height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" value="更 新" name="Submit16" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="Button16"></td>
</tr>
</form>
</table>
<%end if
rdsUser.Close
set rdsUser = nothing
elseif UCase(Request.QueryString("Oper")) = "LOCKUSER" then '/關閉系統管理用戶/
Response.Write "<title>關閉用戶</title>"%>
<form method="post" action="DataDeal.asp" name="form1gfd">
<input type="hidden" name="Oper" value="LockUser">
<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">關 閉 用 戶</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="Submit17" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="Button17"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "UNLOCKUSER" then '/開啟系統管理用戶/
Response.Write "<title>開啟用戶</title>"%>
<form method="post" action="DataDeal.asp" name="form2hre">
<input type="hidden" name="Oper" value="UnLockUser">
<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">開 啟 用 戶</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="Submit18" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="Button18"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELUSER" then '/刪除系統管理用戶/
Response.Write "<title>刪除用戶</title>"%>
<form method="post" action="DataDeal.asp" name="form3r">
<input type="hidden" name="Oper" value="DelUser">
<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">刪 除 用 戶</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="Submit19" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button"name="Button19"></td>
</tr>
</form>
</table>
<%elseif UCase(Request.QueryString("Oper")) = "DELFEEDBACK" then '/刪除留言反饋新聞/
Response.Write "<title>刪除留言反饋信息</title>"%>
<form method="post" action="DataDeal.asp" name="form34d">
<input type="hidden" name="Oper" value="DelFeedBack">
<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">刪 除 留 言 反 饋 信 息</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="Submit21" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關 閉" class="button" name="button21"></td>
</tr>
</form>
</table>
<%else%>
<title>出錯了</title>
<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>
<td width="100%" align="center" height="75" bgcolor="#FFFFFF">無工作任務？</td>
</tr>
<tr>
<td width="100%" height="35" colspan="2" align="center" bgcolor="#FFFFFF"><input onclick="parent.location.href='javascript:close();'" type="button" value="關閉窗口" class="button"></td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -