?? datadeal.asp
字號:
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "DELNEWS" then '/刪除新聞稿件/
Dim rdsDelNews
Dim sqlDelNews
Dim strPhotoName
if Session("intUserLevel") > 2 then
set rdsDelNews = Server.CreateObject("ADODB.Recordset")
sqlDelNews = "Select * From Dat_News Where NewsKey = "& Request("ID")
rdsDelNews.Open sqlDelNews,Conn,1,1
strPhotoName = rdsDelNews("PhotoName")
if strPhotoName <> "" then
Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile Server.MapPath(strUploadNewsPhotoUrl & strPhotoName)
set fso = nothing
end if
sqlDelNews = "Delete From Dat_News Where NewsKey = "& Request("ID")
Conn.Execute sqlDelNews
rdsDelNews.Close
set rdsDelNews = nothing
Response.Write "新聞刪除成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='NewsEaa.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "TJ" then '/設為推薦信息/
Dim sqlPublish1
if Session("intUserLevel") > 2 then
sqlPublish1 = "Update Dat_Information Set tj =1 Where InfoKey = "& Request("Id")
Conn.Execute sqlPublish1
Response.Write "信息推薦成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='InfoMgr.asp';</script>"
else
Response.Write "對不起，您沒有操作權(quán)限!"
end if
elseif Request("Oper") = "setjb" then '/會員級別設置/
if Session("intUserLevel") > 2 then
intMemberKey = Request("ID")
jb = Request.Form("jb")
sqljbMember = "Update Dat_Member Set jb ="&jb&" Where MemberKey = "& intMemberKey
Conn.Execute sqljbMember
Response.Write "會員級別設置成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='MemberMgr.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "QXTJ" then '/取消推薦信息/
Dim sqlPublish2
if Session("intUserLevel") > 2 then
sqlPublish2 = "Update Dat_Information Set tj=0 Where InfoKey = "& Request("Id")
Conn.Execute sqlPublish2
Response.Write "信息已經(jīng)取消推薦..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='InfoMgr.asp';</script>"
else
Response.Write "對不起，您沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "DELNEWS2" then '/刪除新聞/
Dim rdsDelNews2
Dim sqlDelNews2
Dim strPhotoName2
if Session("intUserLevel") > 2 then
set rdsDelNews2 = Server.CreateObject("ADODB.Recordset")
sqlDelNews2 = "Select * From Dat_News Where NewsKey = "& Request("ID")
rdsDelNews2.Open sqlDelNews2,Conn,1,1
strPhotoName2 = rdsDelNews2("PhotoName")
if strPhotoName2 <> "" then
Dim fso2
set fso2 = CreateObject("Scripting.FileSystemObject")
fso2.DeleteFile Server.MapPath(strUploadNewsPhotoUrl & strPhotoName2)
set fso2 = nothing
end if
sqlDelNews2 = "Delete From Dat_News Where NewsKey = "& Request("ID")
Conn.Execute sqlDelNews2
rdsDelNews2.Close
set rdsDelNews2 = nothing
Response.Write "新聞刪除成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='NewsMgr.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "ADDUSER" then '/添加系統(tǒng)管理用戶/
if Session("intUserLevel") > 2 then
if not SearchFieldValue("Sys_Account","Account",Request.Form("Account")) then
Dim rdsAddSysUser
set rdsAddSysUser = Server.CreateObject("ADODB.Recordset")
rdsAddSysUser.Open "Sys_Account",Conn,3,3
rdsAddSysUser.AddNew
rdsAddSysUser("Account") = Trim(Request.Form("Account"))
rdsAddSysUser("PassWord") = Trim(Request.Form("PassWord"))
rdsAddSysUser("UserLevel") = Request.Form("UserLevel")
rdsAddSysUser("State") = 0
rdsAddSysUser("CreateTime") = now()
rdsAddSysUser.Update
rdsAddSysUser.Close
set rdsAddSysUser = nothing
Response.Write "用戶資料添加成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='SysUser.asp';</script>"
else
Response.Write "該用戶已經(jīng)存在!"
end if
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "EDITUSER" then '/編輯系統(tǒng)管理用戶/
Dim intEditUserID
Dim rdsEditUser
intEditUserID = Request("ID")
if Session("intUserLevel") > 2 then
if not SearchEditFieldValue("Sys_Account","Account",Request.Form("Account"),"UserKey",intEditUserID) then
set rdsEditUser = Server.CreateObject("ADODB.Recordset")
rdsEditUser.Open "Sys_Account Where UserKey = "& intEditUserID,Conn,3,3
rdsEditUser("Account") = Request.Form("Account")
rdsEditUser("Password") = Request.Form("Password")
rdsEditUser("UserLevel") = Request.Form("UserLevel")
rdsEditUser.Update
rdsEditUser.Close
set rdsEditUser = nothing
Response.Write "用戶資料更新成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='SysUser.asp';</script>"
else
Response.Write "該用戶已存在!"
end if
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "LOCKUSER" then '/關(guān)閉系統(tǒng)管理用戶/
Dim intLockUserID
Dim sqlLockUser
intLockUserID = Request("ID")
if Session("intUserLevel") > 2 then
sqlLockUser = "Update Sys_Account Set State = 1 Where UserKey = "& intLockUserID
Conn.Execute sqlLockUser
Response.Write "用戶已被關(guān)閉..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='SysUser.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "UNLOCKUSER" then '/開啟系統(tǒng)管理用戶/
Dim intUnLockUserID
Dim sqlUnLockUser
intUnLockUserID = Request("ID")
if Session("intUserLevel") > 2 then
sqlUnLockUser = "Update Sys_Account Set State = 0 Where UserKey = "& intUnLockUserID
Conn.Execute sqlUnLockUser
Response.Write "用戶已被開啟..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='SysUser.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "DELUSER" then '/刪除系統(tǒng)管理用戶/
Dim intDelUserID
Dim sqlDelUser
intDelUserID = Request("ID")
if Session("intUserLevel") > 2 then
sqlDelUser = "Delete From Sys_Account Where UserKey = "& intDelUserID
Conn.Execute sqlDelUser
Response.Write "用戶已被刪除..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='SysUser.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "DELFEEDBACK" then '/刪除反饋信息/
Dim sqlDelFeedBack
if Session("intUserLevel") > 2 then
sqlDelFeedBack = "Delete From Dat_FeedBack Where FeedBackKey = "& Request("ID")
Conn.Execute sqlDelFeedBack
Response.Write "反饋信息刪除成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='FeedBack.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
elseif UCase(Request.Form("Oper")) = "DELORDER" then '/刪除定單信息/
Dim sqlDelOrder
if Session("intUserLevel") > 2 then
sqlDelOrder = "Delete From Dat_Orders Where OrderKey = "& Request("ID")
Conn.Execute sqlDelOrder
Response.Write "定單信息刪除成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='OrderMgr.asp';</script>"
else
Response.Write "沒有操作權(quán)限!"
end if
else
Response.Write "無工作任務..."
end if%>
</td>
</tr>
<tr>
<td width="100%" height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input onclick="parent.location.href='javascript:history.back();'" type="button" value="返 回" class="button"> <input onclick="parent.location.href='javascript:close();'" type="button" value="關(guān) 閉" class="button"></td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -