datadeal.asp

个人网站系统,本人基于第三方源码进行更改!

	else
		Response.Write "没有操作权限!"
	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 "没有操作权限!"
	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 "对不起，您没有操作权限!"
	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 "没有操作权限!"
	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 "信息已经取消推荐..."
		Response.Write "<script language=""javascript"">this.close();this.opener.location='InfoMgr.asp';</script>"
	else
		Response.Write "对不起，您没有操作权限!"
	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 "没有操作权限!"
	end if
elseif UCase(Request.Form("Oper")) = "ADDUSER" then              '/添加系统管理用户/
	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 "该用户已经存在!"
		end if	
	else
		Response.Write "没有操作权限!"
	end if	
elseif UCase(Request.Form("Oper")) = "EDITUSER" then			'/编辑系统管理用户/
	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 "没有操作权限!"
	end if
elseif UCase(Request.Form("Oper")) = "LOCKUSER" then			'/关闭系统管理用户/
	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 "用户已被关闭..."
		Response.Write "<script language=""javascript"">this.close();this.opener.location='SysUser.asp';</script>"
	else
		Response.Write "没有操作权限!"
	end if
elseif UCase(Request.Form("Oper")) = "UNLOCKUSER" then			'/开启系统管理用户/
	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 "没有操作权限!"
	end if
elseif UCase(Request.Form("Oper")) = "DELUSER" then			'/删除系统管理用户/
	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 "没有操作权限!"
	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 "没有操作权限!"
	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 "没有操作权限!"
	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">&nbsp;&nbsp;&nbsp;&nbsp;<input onclick="parent.location.href='javascript:close();'" type="button" value="关 闭" class="button"></td>
  </tr>
</table>
</body>
</html>