?? datadeal.asp
字號:
<!--#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">
<%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
sqlDelMember = "Delete From Dat_Member Where MemberKey = "& intDelMemberKey
Conn.Execute sqlDelMember
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")) = "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
sqlDelInfo = "Delete From Dat_Information Where InfoKey = "& Request("Id")
Conn.Execute sqlDelInfo
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
sqlDelInfo2 = "Delete From Dat_Information Where InfoKey = "& Request("Id")
Conn.Execute sqlDelInfo2
'/刪除供求信息的留言/
sqlDelgqInfohf1 = "Delete From Dat_hf Where xxid = "& Request("Id")
Conn.Execute sqlDelgqInfohf1
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")) = "EAALINK" then '/發布鏈接信息/
Dim sqlLink
if Session("intUserLevel") > 2 then
sqlLink = "Update Dat_Link Set State = 1 Where LinkKey = "& Request("Id")
Conn.Execute sqlLink
Response.Write "鏈接信息審批成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='LinkEaa.asp';</script>"
else
Response.Write "對不起，您沒有操作權限!"
end if
'開始會員級別設置
elseif UCase(Request.Form("Oper")) = "DELLINK" then '/刪除未審批的鏈接信息/
Dim sqlDelLink
if Session("intUserLevel") > 2 then
sqlDelLink = "Delete From Dat_Link Where LinkKey = "& Request("Id")
Conn.Execute sqlDelLink
Response.Write "鏈接信息刪除成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='LinkEaa.asp';</script>"
else
Response.Write "沒有操作權限!"
end if
elseif UCase(Request.Form("Oper")) = "DELLINK2" then '/刪除鏈接信息/
Dim sqlDelLink2
if Session("intUserLevel") > 2 then
sqlDelLink2 = "Delete From Dat_Link Where LinkKey = "& Request("Id")
Conn.Execute sqlDelLink2
Response.Write "鏈接信息刪除成功..."
Response.Write "<script language=""javascript"">this.close();this.opener.location='LinkMgr.asp';</script>"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -