📄 user_control.asp
字号:
<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_function.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<!--#include file="admin/md5.asp"-->
<%
if userlogin<>sys then
response.write"<SCRIPT>alert('请登陆后操作,请返回！');javascript:history.go(-1)</SCRIPT>"
response.end
end if
Select case request("action")
case "art"
shotantop="发布文章"
case "news"
shotantop="发布新闻"
case "free"
shotantop="发布免费资源"
case "js"
shotantop="发布网页特效"
case "music"
shotantop="发布音乐"
case "vod"
shotantop="发布影视"
case "pic"
shotantop="发布图片"
case "edit_data"
shotantop="资料修改"
case else
shotantop="欢迎光临"
End Select
title="会员中心"
loadhead
sql="select * from St_user where pass=true and id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write"<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" class=""dabg""><tr><td class=""left""></td><td class=""width""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td valign=""top"">"& vbCrLf
titletop ""&st_login&"",150,1,0,"","","",0
response.write"<table align=""center""><tr height=""25""><td> <b><a href=""user_control.asp?action=welcome"">用户首页</a></b> <b><a href=""user.asp?action=loginout"">安全退出 </a></b></td></tr><tr height=""22""><td> 会 员：<font color=""red""><b>"&rs("st_username")&"</b></font></td></tr><tr height=""22""><td> 权 限："
if rs("st_userpurview")="1" then
response.write "普通会员"
elseif rs("st_userpurview")="2" then
response.write "<font color=blue>VIP 会员</font>"
elseif rs("st_userpurview")="3" then
response.write "<font color=red>管理人员</font>"
else
response.write "非法用户"
end if
response.write"</td></tr><tr height=""22""><td> 金 币："&rs("st_usermoney")&" 个</td></tr><tr height=""22""><td> 登 陆："&rs("st_userltime")&" 次</td></tr><tr height=""22""><td align=""center""><b><a href=""?action=edit_data""><font color=""#FF0000"">修改资料</font></a></b></td></tr></table>"
titlebom 1
titletop ""&st_useroption&"",150,1,0,"","","",1
response.write"<table><tr><td valign=top align=center height=20><a href=""?action=news"">发布新闻信息</a>"& vbCrLf
if usernews="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=art"">发布文章作品</a>"& vbCrLf
if userart="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=free"">发布免费资源</a>"& vbCrLf
if userfree="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=js"">发布网页特效</a>"& vbCrLf
if userjs="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=pic"">发布经典图片</a>"& vbCrLf
if userpic="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=music"">发布音乐前线</a>"& vbCrLf
if usermusic="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=vod"">发布影视天地</a>"& vbCrLf
if uservod="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr><tr><td valign=top align=center height=20><a href=""?action=down"">发布下载软件</a>"& vbCrLf
if userdown="no" then
response.write"<font color=red><b>[×]</b></font>"
else
response.write"<font color=blue><b>[√]</b></font>"
end if
response.write"</td></tr></table>"
titlebom 1
st_replace "st_usertaxis",""&st_usertaxis&""
br
response.write"</td><td width=""5""></td><td valign=top align=right>"
titletop ""&shotantop&"",150,2,0,"","","",0
select case request("action")
case "news"
call news()
case "art"
call art()
case "free"
call free()
case "js"
call js()
case "pic"
call pic()
case "music"
call music()
case "vod"
call vod()
case "down"
call down()
case "edit_data"
call edit_data()
case "editpost"
call editpost()
case "welcome"
sql="select * from St_user where pass=true and id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
br()
br()
response.write"<table bgcolor=""#ffffff"" borderColor=""#e6e6e6"" Border=""1"" Cellspacing=""0"" Cellpadding=""5"" width=""535"" align=""Center"" style=""border-collapse: collapse""><tr><td colspan=3 align=""Center""><b><font color=""#FF0000"">欢迎您来到"&webname&"会员中心，感谢您使用</font><a href=""http://DXY.9126.NET"" target=_blank><font color=blue>丁香苑</font></a><font color=""#FF0000"">系统！</font></b></td></tr>"
response.write"<tr><td width='20%'><img src='images/userb.gif' border=0> 会员名称：</td><td width='40%'><b>"&rs("st_username")&"</b></td><td width='40%' rowspan=6 align=center><img src='"&rs("st_userface")&"' border=0></td></tr><tr><td><img src='images/userb.gif' border=0> 会员权限：</td><td>"
if rs("st_userpurview")="1" then
response.write "普通会员"
elseif rs("st_userpurview")="2" then
response.write "<font color=blue>VIP 会员</font>"
elseif rs("st_userpurview")="3" then
response.write "<font color=red>管理人员</font>"
else
response.write "非法用户"
end if
response.write"</td></tr><tr><td><img src='images/userb.gif' border=0> 会员性别：</td><td>"& vbCrLf
if rs("st_usersex")="男" then
response.write "<img border=0 src='images/boy.gif' align=absmiddle> 男孩"& vbCrLf
else
response.write "<img border=0 src='images/girl.gif' align=absmiddle> 女孩"& vbCrLf
end if
response.write"</td><tr><td><img src='images/userb.gif' border=0> 注册时间：</td><td>"&rs("st_userregdate")&"</td></tr>"& vbCrLf
response.write"<tr><td><img src='images/userb.gif' border=0> 登录次数：</td><td>"&rs("st_userltime")&" 次</td></tr>"& vbCrLf
response.write"<tr><td><img src='images/userb.gif' border=0> 丁香金币：</td><td>"&rs("st_usermoney")&" 个</td></tr>"& vbCrLf
response.write"<tr><td><img src='images/userb.gif' border=0> 会员 Q Q：</td><td colspan=2><font color=gray>"&rs("st_userqq")&"</font></td></tr>"& vbCrLf
response.write"<tr><td><img src='images/userb.gif' border=0> E-mail：</td><td colspan=2><a href='mailto:"&rs("st_useremail")&"'>"&rs("st_useremail")&"</a></td></tr>"& vbCrLf
response.write"<tr><td><img src='images/userb.gif' border=0> 个人主页：</td><td colspan=2><a href='"&rs("st_userhomepage")&"' target=_blank><font color=gray>"&rs("st_userhomepage")&"</font></a></td></tr></table>"& vbCrLf
br
br
response.write"<table bgcolor=""#ffffff"" borderColor=""#e6e6e6"" Border=""1"" Cellspacing=""0"" Cellpadding=""5"" width=""535"" align=""Center"" style=""border-collapse: collapse""><tr><td align=""Center""><font color=""#FF0000""><b>用户须知</b></font></td></tr>"& vbCrLf
response.write"<tr><td width='100%'><font color=gray><strong>权利与义务：</strong><br> <span style='font-family:Wingdings;'>v</span> 作为本站会员，获得本站会员的所有权利；<br>"& vbCrLf
response.write" <span style='font-family:Wingdings;'>v</span> 作为付费会员，有获得优质服务的优先权及产品的优先使用权。<br>"& vbCrLf
response.write" <span style='font-family:Wingdings;'>v</span> 有义务为本站作正面宣传，不得做有损本站形象的行为。<br>"& vbCrLf
response.write" <span style='font-family:Wingdings;'>v</span> 有义务提供网站程序的BUG报告。</td></tr></table>"& vbCrLf
end select
br
br
titlebom 2
response.write"</td></tr></table>"& vbCrLf
sub news()
if usernews="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布新闻功能！');history.go(-1);</script>"
Response.End
end if%>
<script language="javascript">
function chk(){
document.all("content").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("新闻标题不能为空");
document.form.title.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("新闻内容不能为空");
IframeID.document.body.focus();
return false;}
return true;}
</Script>
<%response.write"<form method=""post"" name=""form"" id=""form"" action=""?action=newsok"" onsubmit=""return chk();"">"& vbCrLf
response.write"<table width=""100%"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" rules=none class=3d>"& vbCrLf
response.write"<tr class=bg height=5><td></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td> 新闻标题：<input name=""title"" type=""text"" id=""title"" size=""20"" class=""input"" style=""width:120px""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td> 新闻分类："
st_classify("St_newsclass")
response.write"</td></tr>"& vbCrLf
response.write"<tr height=""25"" class=bg><td> 新闻图片：<input name=""pic"" type=""text"" id=""pic"" size=""20"" class=""input"" style=""width:300px""></td></tr>"& vbCrLf
if userup="yes" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -