📄 datadeal.asp

📁 北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<html>
<head>
<title><% = strSiteName%> - 网站后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Common/Site.css" type="text/css">
</head>

<body topmargin="5" leftmargin="5">
<table cellSpacing="0" cellPadding="0" width="98%" 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="68" bgcolor="#FFFFFF">
<%
Application.Lock
Application("index_update")="true"
Application.unLock
if UCase(Request.Form("Oper")) = "ADDCOUNT" then			'/会员点数管理/
	if Session("intUserLevel") > 2 then
		Dim intMemberKey
		Dim strAdd
		Dim intUpdateCount
		Dim rdsMemberCount
		Dim rdsMember
		Dim sqlMember
		
		intMemberKey = Request("ID")
		strAdd = Request.Form("Add")
		intUpdateCount = Request.Form("UpdateCount")
		
		set rdsMemberCount = Server.CreateObject("ADODB.Recordset")
		rdsMemberCount.Open "Dat_MemberCount",Conn,3,3
		rdsMemberCount.AddNew
		rdsMemberCount("MemberKey") = intMemberKey
		rdsMemberCount("Add") = strAdd
		rdsMemberCount("UpdateCount") = Request.Form("UpdateCount")
		rdsMemberCount("Remark") = Request.Form("Remark")
		rdsMemberCount("UpdateTime") =now()
		rdsMemberCount.Update
		rdsMemberCount.Close
		set rdsMemberCount = nothing
		
		set rdsMember = Server.CreateObject("ADODB.Recordset")
		Response.Flush
		sqlMember = "Select * From Dat_Member Where MemberKey = "& intMemberKey
		rdsMember.Open sqlMember,Conn,1,3
		
		if strAdd = 0 then
			rdsMember("Point") = rdsMember("Point") + intUpdateCount
		else
			rdsMember("Point") = rdsMember("Point") - intUpdateCount
		end if
		rdsMember.Update
		rdsMember.Close
		set rdsMember = nothing
			
		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")) = "LOCKMEMBER" then			'/关闭会员/
	Dim intLockMemberID
	Dim sqlLockMember
	
	intLockMemberID = Request("ID")
	
	if Session("intUserLevel") > 2 then
		sqlLockMember = "Update Dat_Member Set State = 1 Where MemberKey = "& intLockMemberID
		Conn.Execute sqlLockMember
		
		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")) = "UNLOCKMEMBER" then			'/开启会员/
	Dim intUnLockMemberID
	Dim sqlUnLockMember
	
	intUnLockMemberID = Request("ID")
	
	if Session("intUserLevel") > 2 then
		sqlUnLockMember = "Update Dat_Member Set State = 0 Where MemberKey = "& intUnLockMemberID
		Conn.Execute sqlUnLockMember
		
		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")) = "DELMEMBER" then			'/删除会员/
	Dim intDelMemberKey
	Dim sqlDelMember
	
	intDelMemberKey = Request("ID")
	
	if Session("intUserLevel") > 2 then
'先删除企业图片
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Dat_Member where MemberKey = "& intDelMemberKey
rs.open sql,conn,1,1
pic=rs("pic")
if pic<>"" then
piclj="../Upload/reg/"
pic=piclj&pic
If Fs.FileExists(server.mappath(pic)) Then
Set Os = Fs.GetFile(server.mappath(pic))
Os.Delete
end if
end if
rs.close
set rs=nothing
if  is_sqldata=0  then
		sqlDelMember = "Delete From Dat_Member Where MemberKey = "& intDelMemberKey
		Conn.Execute sqlDelMember
else
		sqlDelMember = "Delete Dat_Member Where MemberKey = "& intDelMemberKey
		Conn.Execute sqlDelMember
end  if	
		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")) = "EAANEWS" then		'/审批发布新闻/
	Dim sqlPublish
	
	if Session("intUserLevel") > 2 then
		sqlPublish = "Update Dat_News Set State = 1 Where NewsKey = "& Request("ID")
		Conn.Execute sqlPublish
		
		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 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")) = "FYTOP" then		'/设为置顶信息/
	Dim sqltop
	
	if Session("intUserLevel") > 2 then
		sqltop = "Update Dat_Information Set infotop='1' Where InfoKey = "& Request("Id")
		Conn.Execute sqltop
		
		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")) = "NOFYTOP" then		'/取消置顶信息/
	Dim sqlnofytop
	
	if Session("intUserLevel") > 2 then
		sqlnofytop = "Update Dat_Information Set infotop='0' Where InfoKey = "& Request("Id")
		Conn.Execute sqlnofytop
		
		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")) = "EAAINFO" then		'/发布供求信息/
	Dim sqlInfo,yhid
	
	if Session("intUserLevel") > 2 then
		sqlInfo = "Update Dat_Information Set State = 1 Where InfoKey = "& Request("Id")
		Conn.Execute sqlInfo

		set rdsMember23 = Server.CreateObject("ADODB.Recordset")
		sqlMember23 = "Select * From Dat_Information Where InfoKey = "& Request("Id")
		rdsMember23.Open sqlMember23,Conn,1,3
	if rdsMember23("MemberKey") <> 0 then
		yhid=rdsMember23("MemberKey")		
		set rdsMember24 = Server.CreateObject("ADODB.Recordset")
		sqlMember24 = "Select * From Dat_Member Where MemberKey = "& yhid
		rdsMember24.Open sqlMember24,Conn,1,3
		rdsMember24("Point") = rdsMember24("Point") + 1
		rdsMember24.Update
		rdsMember24.Close
		set rdsMember24 = nothing
	end if
		rdsMember23.Close
		set rdsMember23 = nothing
		
		Response.Write "信息审批成功..."
		Response.Write "<script language=""javascript"">this.close();this.opener.location='InfoEaa.asp';</script>"
	else
		Response.Write "对不起，您没有操作权限!"
	end if
elseif UCase(Request.Form("Oper")) = "DELINFO" then			'/删除未审批的供求信息/
	Dim sqlDelInfo
	
	if Session("intUserLevel") > 2 then
if  is_sqldata=0  then
		sqlDelInfo = "Delete from Dat_Information Where InfoKey = "& Request("Id")
		Conn.Execute sqlDelInfo
else
		sqlDelInfo = "Delete Dat_Information Where InfoKey = "& Request("Id")
		Conn.Execute sqlDelInfo
end  if	
		
		Response.Write "信息删除成功..."
		Response.Write "<script language=""javascript"">this.close();this.opener.location='InfoEaa.asp';</script>"
	else
		Response.Write "没有操作权限!"
	end if
elseif UCase(Request.Form("Oper")) = "DELINFO2" then			'/删除供求信息/
	Dim sqlDelInfo2
	Dim sqlDelgqInfohf1
	
	if Session("intUserLevel") > 2 then
if  is_sqldata=0  then
sqlDelInfo2 = "Delete From Dat_Information Where InfoKey = "& Request("Id")
else
sqlDelInfo2 = "Delete Dat_Information Where InfoKey = "& Request("Id")
end  if	
		Conn.Execute sqlDelInfo2
		
				'/删除供求信息的留言/

if  is_sqldata=0  then
sqlDelgqInfohf1 = "Delete From Dat_hf Where xxid = "& Request("Id")
else
sqlDelgqInfohf1 = "Delete Dat_hf Where xxid = "& Request("Id")
end  if
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -