<!--#include file="conn.asp" -->
<%dim action
action=request.QueryString("action")
select case action
'管理短信
case "manage"
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'新短信
case "new"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'收信箱
case "inletter"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'发信箱
case "outletter"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'草稿箱
case "onletter"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'发信件
case "out"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'回复信件
case "recive"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%'修改草稿箱信件
case "edit"
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
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 or rss("lx")=2 then
response.Write"<script language=javascript>alert('此功能为D级商家提供');history.go(-1);</script>"
end if%>
<link href="../image/css.css" rel="stylesheet" type="text/css">

<%end select%>