user_center.asp

网站整站

call addexper("2","0")
rs.update
urlid=rs("id")
rs.close
set rs=nothing
for i=1 to request.form("no")
set rsurl=server.createobject("adodb.recordset")
sql="select * from [YC_picurl] where (id is null)"
rsurl.open sql,conn,1,3
rsurl.addnew
rsurl("num")=request.form("no"&i&"")
rsurl("url")=replace(trim(request.form("url"&i&"")),"'","")
rsurl("urlid")=urlid
rsurl.update
rsurl.close
set rsurl=nothing
next
	rs7.close
	set rs7=nothing
	YC("<script>alert('谢谢您的参与！请等待管理员审核！');location.href='user_center.asp?action=listpic';</script>")
	response.end
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub postadddown()
if userdown<>"yes" then
YCGO("error.asp?action=error&text="&server.urlencode("管理员屏蔽了此项!")&"")
response.end
end if
	set rs7=server.CreateObject("adodb.recordset")
	sql7="select * from [YC_downclass] where id="&Cint(Trim(request.Form("class")))
	rs7.open sql7,conn,1,1
	set rs=server.CreateObject("adodb.recordset")
	rs.open "YC_down",conn,1,3
	rs.addnew
rs("user")=username
rs("title")=replace(trim(request.Form("title")),"'","")  
rs("color")=replace(trim(request.Form("color")),"'","")
rs("commend")=replace(trim(request.Form("commend")),"'","")
rs("pic")=replace(trim(request.Form("pic")),"'","")
rs("singer")=replace(trim(request.Form("singer")),"'","")
rs("content")=replace(trim(request.Form("body")),"'","")
rs("filesize")=replace(trim(request.Form("filesize")),"'","")
rs("show")=replace(trim(request.Form("show")),"'","")
rs("url")=replace(trim(request.Form("url")),"'","")
rs("web")=Trim(request.Form("web"))
rs("bigclass")=cint(rs7("class"))
rs("class")=cint(request.Form("class"))
call addexper("2","0")
rs.update
	rs.close
	set rs=nothing
	rs7.close
	set rs7=nothing
	YC("<script>alert('谢谢您的参与！请等待管理员审核！');location.href='user_center.asp?action=listdown';</script>")
	response.end
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub postadddj()
if userdj<>"yes" then
YCGO("error.asp?action=error&text="&server.urlencode("管理员屏蔽了此项!")&"")
response.end
end if
	set rs7=server.CreateObject("adodb.recordset")
	sql7="select * from [YC_djclass] where id="&Cint(Trim(request.Form("class")))
	rs7.open sql7,conn,1,1
	set rs=server.CreateObject("adodb.recordset")
	rs.open "YC_dj",conn,1,3
	rs.addnew
rs("user")=username
rs("title")=replace(trim(request.Form("title")),"'","")  
rs("color")=replace(trim(request.Form("color")),"'","")
rs("commend")=replace(trim(request.Form("commend")),"'","")
rs("pic")=replace(trim(request.Form("pic")),"'","")
rs("singer")=replace(trim(request.Form("singer")),"'","")
rs("content")=replace(trim(request.Form("body")),"'","")
rs("bigclass")=cint(rs7("class"))
rs("class")=cint(request.Form("class"))
call addexper("2","0")
rs.update
urlid=rs("id")
rs.close
set rs=nothing
set rsurl=server.createobject("adodb.recordset")
for i=1 to request.form("no")
sql="select * from [YC_djurl] where (id is null)"
rsurl.open sql,conn,1,3
rsurl.addnew
	rsurl("urlid")=urlid
	rsurl("title")=request.form("urltitle"&i&"")
	rsurl("player")=request.form("player"&i&"")
	rsurl("lcr")=request.form("lcr"&i&"")
	rsurl("num")=request.form("no"&i&"")
	rsurl("url")=request.form("url"&i&"")
rsurl.update
next
	rsurl.close
	set rsurl=nothing
	rs7.close
	set rs7=nothing
	YC("<script>alert('谢谢您的参与！请等待管理员审核！');location.href='user_center.asp?action=listdj';</script>")
	response.end
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub poteditnews()
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_newsclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_news where id="&request("id")
rs.open sql,conn,1,3
	rs("title")=replace(trim(request.Form("title")),"'","")  
	rs("color")=replace(trim(request.Form("color")),"'","")  
	rs("pic")=replace(trim(request.Form("pic")),"'","")  
	rs("content")=replace(trim(request.Form("body")),"'","")  
	rs("writer")=replace(trim(request.Form("writer")),"'","")  
	rs("copyright")=replace(trim(request.Form("copyright")),"'","") 
	rs("commend")=replace(trim(request.Form("commend")),"'","")
	rs("bigclass")=cint(rs7("class"))
	rs("class")=cint(request.Form("class"))
	rs("showpage")=cint(request.Form("showpage"))
   'rs("pass")=1
rs.update
rs.close
rs7.close
set rs7=nothing
YC("<script>alert('修改成功！');location.href='user_center.asp?action=listnews';</script>")
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub poteditart()
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_artclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from [YC_art] where id="&request("id")
rs.open sql,conn,1,3
	rs("title")=replace(trim(request.Form("title")),"'","")  
	rs("color")=replace(trim(request.Form("color")),"'","")  
	rs("pic")=replace(trim(request.Form("pic")),"'","")  
	rs("content")=replace(trim(request.Form("body")),"'","")  
	rs("writer")=replace(trim(request.Form("writer")),"'","")  
	rs("copyright")=replace(trim(request.Form("copyright")),"'","") 
	rs("commend")=replace(trim(request.Form("commend")),"'","")
	rs("bigclass")=cint(rs7("class"))
	rs("class")=cint(request.Form("class"))
	rs("showpage")=cint(request.Form("showpage"))
   'rs("pass")=1
rs.update
rs.close
rs7.close
set rs7=nothing
YC("<script>alert('修改成功！');location.href='user_center.asp?action=listart';</script>")
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub poteditpic()
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_picclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from [YC_pic] where id="&request("id")
rs.open sql,conn,1,3
	rs("title")=replace(trim(request.Form("title")),"'","")  
	rs("color")=replace(trim(request.Form("color")),"'","")
	rs("commend")=replace(trim(request.Form("commend")),"'","")
	rs("pic")=replace(trim(request.Form("pic")),"'","")
	rs("content")=replace(trim(request.Form("body")),"'","")
	rs("bigclass")=cint(rs7("class"))
	rs("class")=cint(request.Form("class"))
   'rs("pass")=1
rs.update
urlid=rs("id")
rs.close
set rs=nothing
set rsurl=server.createobject("adodb.recordset")
for i=1 to request("count")
Conn.execute"update [YC_picurl] set url='"&request("url"&i)&"' where id="&request("id"&i)
next
rs7.close
set rs7=nothing
YC("<script>alert('修改成功！');location.href='user_center.asp?action=listpic';</script>")
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub poteditdown()
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_downclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from [YC_down] where id="&request.Form("id")
rs.open sql,conn,1,3
	rs("title")=replace(trim(request.form("title")),"'","")  
	rs("color")=replace(trim(request.form("color")),"'","")
	rs("commend")=replace(trim(request.form("commend")),"'","")
	rs("pic")=replace(trim(request.form("pic")),"'","")
	rs("singer")=replace(trim(request.form("singer")),"'","")
	rs("content")=replace(trim(request.Form("body")),"'","")
	rs("filesize")=replace(trim(request.form("filesize")),"'","")
    rs("show")=replace(trim(request.form("show")),"'","")
    rs("url")=replace(trim(request.form("url")),"'","")
    rs("web")=trim(request.form("web"))
	rs("bigclass")=cint(rs7("class"))
	rs("class")=cint(request.form("class"))
   'rs("pass")=1
rs.update
rs.close
set rs=nothing
rs7.close
set rs7=nothing
YC("<script>alert('修改成功！');location.href='user_center.asp?action=listdown';</script>")
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub poteditdj()
set rs7=server.CreateObject("adodb.recordset")
sql7="select * from [YC_djclass] where id="&Cint(Trim(request.Form("class")))
rs7.open sql7,conn,1,1
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_dj where id="&request("id")
rs.open sql,conn,1,3
	rs("title")=replace(trim(request.form("title")),"'","")  
	rs("color")=replace(trim(request.form("color")),"'","")
	rs("commend")=replace(trim(request.form("commend")),"'","")
	rs("pic")=replace(trim(request.form("pic")),"'","")
	rs("singer")=replace(trim(request.form("singer")),"'","")
	rs("content")=replace(trim(request.Form("body")),"'","")
	rs("bigclass")=cint(rs7("class"))
	rs("class")=cint(request.form("class"))
   'rs("pass")=1
rs.update
urlid=rs("id")
rs.close
 
set rsurl=server.createobject("adodb.recordset")
for i=1 to request("count")
Conn.execute"update [YC_djurl] set url='"&request("url"&i)&"',title='"&request("urltitle"&i)&"',player='"&request("player"&i)&"',lcr='"&request("lcr"&i)&"' where id="&request("id"&i)
next
rs7.close
set rs7=nothing
YC("<script>alert('修改成功！');location.href='user_center.asp?action=listdj';</script>")
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub editnews()
%>
编辑新闻
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub editart()
%>
编辑文章
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub editpic()
%>
编辑图片
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub editdown()
%>
编辑下载
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub editdj()
%>
编辑娱乐
<%
end sub
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub listnews()
if request.querystring("class")<>"" then
sql="select * from [YC_news] where class="&cint(request.querystring("class"))&" order by id desc" 
elseif request.querystring("bigclass")<>"" then
sql="select * from [YC_news] where bigclass="&cint(request.querystring("bigclass"))&" order by id desc" 
else											 
sql="select * from [YC_news] where user='"&username&"' order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<html>
<head>
<title>新闻列表</title>
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<script type='text/javascript' language='javascript' src='inc/adminjs.js'></script>
</head>
<body>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="3" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;新闻列表</b>
</td></tr>
<tr class='bg' height="25">
<td width="70%" align=center>标题</td>
<td width="5%"align=center>点击</td>
<td width="25%"align=center>操作</td>
</tr>
<tr><td class="hr" colspan="3"></td></tr>
<%
if not rs.bof and not rs.eof then
rs.pagesize=15
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25 class='bg' onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td>&nbsp;<font face='wingdings'>v</font>&nbsp;[<%call mYClass("YC_newsclass","news",rs("class"))%>]
<font color="<%=rs("color")%>"><%=rs("title")%></font>&nbsp;
<%if rs("best")=1 then%>『<font color=red>推荐</font>』<%end if%>
<%if rs("pass")=0 then%><font color="red">[审核中……]</font><%end if%>
</td>
<td align="center"><%=rs("click")%></td>
<td align="center">
<a href="shownews.asp?id=<%=rs("id")%>" target=_blank>查看</a>
</td>
</tr>