<!--#include file="conn.asp" -->
<%action=request("action")
select case action
case "lists"
	call lists()
case "mycard"
	call mycard()
case "friendadd"
	call friendadd()
case "frienddel"
	call frienddel()
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 or rss("lx")=1 then
response.Write"<script language=javascript>alert('此功能为C级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%end sub
sub mycard()
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>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">
<%end sub%>