<!--#include file="conn.asp" -->
<%action=request("action")
select case action
case "lists"
	call lists()
case "list"
	call list()
case "managemylist"
	call managemylist()
case "addmylist"
	call addmylist()
case "saveaddmylist"
	call saveaddmylist()
case "edit"
	call edit()
case "editmarket"
	call editmarket()
end select
'-------------------业内行情总页面-------------------------
sub lists()
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
dim rss
set rss=server.CreateObject("adodb.recordset")
rss.open "select * from shjia where shjiaid="&request.Cookies("godbook")("shjiaid")&" ",conn,1,1
if rss("lx")=0 then
response.Write"<script language=javascript>alert('此功能为收费商家提供');history.go(-1);</script>"
else%>
<link href="../image/css.css" rel="stylesheet" type="text/css">
<%end if
rss.close
set rss=nothing
end sub
'---------------------业内行情详细页面---------------------------
sub list()
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">
<%end sub
'---------------------管理我的行情-------------------------------
sub managemylist()
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
dim rss
set rss=server.CreateObject("adodb.recordset")
rss.open "select * from shjia where shjiaid="&request.Cookies("godbook")("shjiaid")&" ",conn,1,1
if rss("lx")=0 or rss("lx")=1 then
response.Write"<script language=javascript>alert('此功能为C级商家提供');history.go(-1);</script>"
else%>
<%dim selectid
'//删除
selectid=response("selectid")
if selectid<>"" then
conn.execute "delete from class where id in ("&selectid&")"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">
<%end if
rss.close
set rss=nothing
end sub
'-------------------------添加业内行情------------------------------
sub addmylist()
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
dim rss
set rss=server.CreateObject("adodb.recordset")
rss.open "select * from shjia where shjiaid="&request.Cookies("godbook")("shjiaid")&" ",conn,1,1
if rss("lx")=0 or rss("lx")=1 then
response.Write"<script language=javascript>alert('此功能为C级商家提供');history.go(-1);</script>"
else%>
<link href="../image/css.css" rel="stylesheet" type="text/css">
<%end if
rss.close
set rss=nothing
end sub%>

