📄 admin_right.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%if request.cookies("days6")("shjianame")="" then
response.Redirect "admin_login.asp"
response.End
end if
%>
<%
set rsu=server.CreateObject("adodb.recordset")
rsu.open "select * from [shjia] where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
lx=rsu("lx")
%>
<html><head><title>商家专区</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body bgcolor="#ffffff">
<%if request.cookies("days6")("shjianame")<>"" then%>
<%xAction=lcase(request("action"))
if InStr(xAction,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
select case xAction
case "addnews"
case "glnews"
case "fkfs"
case "ps"
case "shjintr"
case "fk"
case "myziliao"
case "mydindan"
case "addclass"
case "addshp"
case "editshp"
case "url"
case "logo"
case "pass"
case "gong"
case "modify"
case else%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" background="../admin/images/bg_3.gif" height="25"><b><font color="#ffffff">多用户商城系统</font></b></td>
</tr>
<tr>
<td bgcolor="#D6DBF7"> <span class="style1">商家等级：</span></td>
<td bgcolor="#D6DBF7">
<%
if lx=0 then
response.write "<font color=red>A型免费使用（限20个产品,免费送二级域名）</font>"
end if
if lx=1 then
response.write "<font color=red>B型100元/年（限100个产品,免费送二级域名/商家推荐/首页广告宣传）</font>"
end if
if lx=2 then
response.write "<font color=red>C型365元/年（无限产品,送国际域名/顶级商家/首页醒目广告宣传）</font>"
end if
%>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#D6DBF7"> 程序开发：</td>
<td width="80%" bgcolor="#D6DBF7"> http://www.days6.com</td>
</tr>
<tr>
<td bgcolor="#D6DBF7"> 联系方法：</td>
<td bgcolor="#D6DBF7">E-mail:webmaster@days6.com QQ:151786466</td>
</tr>
<tr>
<td bgcolor="#D6DBF7"> 程序说明：</td>
<td bgcolor="#D6DBF7"> 本程序由伴江行制作，当前使用版本为 Access数据库 Version 1.0 2005-03-01<br>
各个管理项目中需要注意的地方都有标明，请注意查看清楚后再进行操作。<br>
如有什么问题或程序出错话尽快联系我们以便升级程序。<br>
如果您需要使用商业合作，请联系我，谢谢！</td>
</tr>
</table>
<%end select%>
<!--#include file=admin_inc.asp-->
<%xAction=lcase(request("action"))
select case xAction
case "myziliao"
call myziliao()
case "editshp"
call editshp()
case "fkfs"
call fkfs()
case "ps"
call ps()
case "shjintr"
call shjintr()
case "fk"
call fk()
case "addnews"
call addnews()
case "glnews"
call glnews()
case "mydindan"
call mydindan()
case "addclass"
call addclass()
case "addshp"
call addshp()
case "url"
call url()
case "logo"
call logo()
case "pass"
call pass()
case "gong"
call gong()
case "modify"
call modify()
end select%>
<%end if%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -