adminfunction.asp

网站整站

<%
function addlog(content)
sql="select * from [YC_log]"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("ip")=request.servervariables("remote_addr")
rs("os")=browser(Request.ServerVariables("HTTP_USER_AGENT"))&"/"&system(Request.ServerVariables("HTTP_USER_AGENT"))
rs("content")=content
rs.update
rs.close
set rs=nothing
end function
'检测在线访客的浏览器
function browser(info)
if Instr(info,"NetCaptor 6.5.0")>0 then
browser="NS 6.5.0"
elseIf InStr(info," Firefox/")>0 Then
browser="Mozilla Firefox"
ElseIf InStr(info," Firebird/")>0 Then
browser="Mozilla Firebird"
ElseIf InStr(info,"Maxthon")>0 Then
browser="Maxthon"
ElseIf InStr(info,"TencentTraveler")>0 Then
browser="腾讯浏览器"
elseif Instr(info,"MyIe 3.1")>0 then
browser="遨游 3.1"
elseif Instr(info,"NetCaptor 6.5.0RC1")>0 then
browser="NS 6.5.0RC1"
elseif Instr(info,"NetCaptor 6.5.PB1")>0 then
browser="NS 6.5.PB1"
elseif Instr(info,"MSIE 5.5")>0 then
browser="IE 5.5"
elseif Instr(info,"MSIE 6.0")>0 then
browser="IE 6.0"
elseif Instr(info,"MSIE 6.0b")>0 then
browser="IE 6.0b"
elseif Instr(info,"MSIE 5.01")>0 then
browser="IE 5.01"
elseif Instr(info,"MSIE 5.0")>0 then
browser="IE 5.00"
elseif Instr(info,"MSIE 4.0")>0 then
browser="IE 4.01"
else
browser="其它"
end if
end function
'检测在线访客的系统
function system(info)
    if Instr(info,"NT 5.1")>0 then
        system=system+"Windows XP"
    elseif Instr(info,"Tel")>0 then
        system=system+"Telport"
	elseif Instr(info,"webzip")>0 then
        system=system+"webzip"
	elseif Instr(info,"flashget")>0 then
        system=system+"flashget"
	elseif Instr(info,"offline")>0 then
        system=system+"offline"
    elseif Instr(info,"NT 5.2")>0 then
        system=system+"Windows 2003"
    elseif Instr(info,"NT 5")>0 then
        system=system+"Windows 2000"
    elseif Instr(info,"NT 4")>0 then
        system=system+"Windows NT4"
    elseif Instr(info,"98")>0 then
        system=system+"Windows 98"
    elseif Instr(info,"95")>0 then
        system=system+"Windows 95"
	elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
	    system=system+"类Unix"
    elseif instr(thesoft,"Mac") then
	    system=system+"Mac"
    else
        system=system+"其它"
    end if
end function
'┏━━━━━━━━━━━┓
'┃取出未通过的数据个数  ┃
'┗━━━━━━━━━━━┛
function nopasstable(tab)
sql="select * from ["&tab&"] where pass=0 order by id DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
YC(rs.recordcount)
rs.close
set rs=nothing
end function
'┏━━(YCMS代码讲解)━━━━━┓
'┃过程名：alltype             ┃
'┃功  能：后台分类显示        ┃
'┗━━━━━━━[野草制作]━━┛
sub alltype(lmname,cnname)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname&" where class=0"
rs.open sql,conn,1,3
response.Write "<table width='100%' align='center' border='0' cellpadding='0' cellspacing='0' rules='none' class='3d'>"
response.Write "<tr><td height=22  class=title colspan=2><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;"&cnname&"分类管理</b></td></tr>"
if not rs.bof and not rs.eof then
do while not rs.eof
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from "&lmname&" where class="&rs("id")&""
rs1.open sql1,conn,1,3
response.Write "<tr><td class='hr' colspan='2'></td></tr><tr class=bg><td height=25><font color=blue>"
response.Write "&nbsp;<b>√</b>&nbsp;"&rs("classname")&"&nbsp;[编号ID:"&rs("id")&"]&nbsp;[<a href=?action=addtype2&id="&rs("id")&"><font color=blue>新建子分类</font></a>]</font></td>"
response.Write "<td height=24 align='center'><a href=?action=edittype&id="&rs("id")&"><font color=blue>修改</font></a>&nbsp;&nbsp;<a href=?action=deltype&id="&rs("id")&" onclick=mybox('你确定要删除，删除后不能恢复！！');return document.del;><font color=blue>删除</font></a></td></tr><tr><td class='hr' colspan='2'></td></tr>"
if not rs1.bof and not rs1.eof then
do while not rs1.eof
response.Write "<tr class=bg><td height=25>"
response.Write "&nbsp;<b>√</b>&nbsp;"
response.Write rs1("classname")
response.Write "&nbsp;[编号ID:"&rs1("id")&"]</td><td height=24 align=center><a href=?action=edittype&id="&rs1("id")&">修改</a>&nbsp;&nbsp;<a href='?action=deltype&id="&rs1("id")&"'>删除<a></td></tr>"
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
rs.movenext
loop
else
response.Write "<tr class=bg><td height=24 colspan=2 align=center>没有任何分类！</td></tr>"
end if
response.Write "</table>"
rs.close
set rs=nothing
end sub
'┏━━(YCMS代码讲解)━━━━━┓
'┃过程名：deltype             ┃
'┃功  能：后台删除分类        ┃
'┗━━━━━━━[野草制作]━━┛
sub deltype(lmname,lmid)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname&" where id="&lmid
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname&" where class="&lmid
rs.open sql,conn,1,3
do while not rs.eof
rs.delete
rs.movenext
loop
rs.close
set rs=nothing
response.Write "<script>alert('分类删除成功！');this.location.href='?action=type';</script>"
end sub
'┏━━(YCMS代码讲解)━━━━━┓
'┃过程名：edittype            ┃
'┃功  能：后台修改分类        ┃
'┗━━━━━━━[野草制作]━━┛ 
sub edittype(lmname,typeid)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname&" where id="&typeid
rs.open sql,conn,1,3%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr>
<td height=22 class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;修改分类名称</b></td>
</tr><tr></tr><form method=get name=formtype id=formtype>
<tr><td class=bg align=center><br>分类名称：<input name=classname type=text id=classname value='<%=rs("classname")%>' size=30 class=yecao>&nbsp;<input type=hidden name=id value="<%=typeid%>"><input type=hidden name=action value=edittypename>
<br><br><input name=Submittype type=submit id=Submittype value="修 改" class="adminbutton">
<input  type=reset value="清 空" class="adminbutton"></form><br><br></td><br></tr></table>
<%rs.close
set rs=nothing
end sub
sub submittype(lmname,typeid,lmnamevalue)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname&" where id="&typeid
rs.open sql,conn,1,3
rs("classname")=lmnamevalue
rs.update
rs.close
set rs=nothing
response.Write "<script>alert('分类名称修改成功！');this.location.href='?action=type';</script>"
end sub
'┏━━(YCMS代码讲解)━━━━━┓
'┃过程名：addtype             ┃
'┃功  能：后台添加分类        ┃
'┗━━━━━━━[野草制作]━━┛
sub addtype()%>
<form method=get name=formtype id=formtype>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr><td height=22 class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;添加分类</b></td></tr>
<tr height=30 class=bg><td align=center>
&nbsp;分类名称：<input name=classname type=text id=classname size=20 class=yecao>
&nbsp;&nbsp;
<input type=hidden name=action value=addtypeok>
<input name=Submitaddtype type=submit value="添 加" class=adminbutton>
<input  type=reset value="清 空" class="adminbutton"></td></tr></table>
</form>
<%end sub
'┏━━(YCMS代码讲解)━━━━━┓
'┃过程名：addtype2            ┃
'┃功  能：后台添加子分类      ┃
'┗━━━━━━━[野草制作]━━┛
sub addtype2(typeid)%>
<form method=get name=formtype id=formtype>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr>
<td height=22 class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;添加子分类</b></td></tr>
<tr class=bg align=center>
<td height=25><br>&nbsp;子分类名称：<input name=classname type=text id=classname class=yecao size=30>
<input type=hidden name=id value='<%=typeid%>'><input type=hidden name=action value=addtype2ok> 
&nbsp;&nbsp;
<input name=Submitaddtype type=submit value="添 加" class="adminbutton">
<input  type=reset value="清 空" class="adminbutton"><br><br>
</td></tr>
</table>
</form>
<%end sub
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
'后台添加分类处理调用过程
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：addtypeok               ┃
'┃功  能：后台处理添加分类        ┃
'┗━━━━━━━[野草制作]━━━━┛
sub addtypeok(lmname,lmnamevalue)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname
rs.open sql,conn,1,3
rs.addnew
rs("classname")=lmnamevalue
rs.update
rs.close
set rs=nothing
response.Write "<script>alert('分类添加成功！');this.location.href='?action=type';</script>"
end sub
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：addtype2ok              ┃
'┃功  能：后台处理添加子分类      ┃
'┗━━━━━━━[野草制作]━━━━┛
sub addtype2ok(lmname,lmnamevalue,typeid)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&lmname
rs.open sql,conn,1,3
rs.addnew
rs("class")=typeid
rs("classname")=lmnamevalue
rs.update
rs.close
set rs=nothing
response.Write "<script>alert('子分类添加成功！');this.location.href='?action=type';</script>"
end sub
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：newclass                ┃
'┃功  能：后台添加时显示分类      ┃
'┗━━━━━━━[野草制作]━━━━┛
sub newclass(lmname)
response.Write "<select name='class' style=""width:200px;"">"
Set rslm = Server.CreateObject("ADODB.Recordset")
sqllm = "SELECT * FROM "&lmname&" where class=0"
rslm.open sqllm,conn,1,3
if not rslm.bof and not rslm.eof then
do while not rslm.eof
YC("<optgroup label="""&rslm("classname")&""" style=""color:#ff0000;"">")
set rslm2=server.CreateObject("adodb.recordset")
sqllm2 = "SELECT * FROM "&lmname&" where class="&rslm("id")
rslm2.open sqllm2,conn,1,3
if not rslm2.bof and not rslm2.eof then
do while not rslm2.eof
YC("<option value='"&rslm2("id")&"' style=""color:#000000;"">├ "&rslm2("classname")&"</option>")
rslm2.movenext
loop
end if
rslm2.close
set rslm2=nothing
rslm.movenext
loop
else
response.Write"<option>请先添加分类</option>"
response.write"<script>alert('请先添加大小分类!');location.href='?action=addtype';</script>"
response.end
end if
rslm.close
set rslm=nothing
response.Write "</select>"
end sub
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：editclass               ┃
'┃功  能：后台修改时显示分类      ┃
'┗━━━━━━━[野草制作]━━━━┛
sub editclass(lmname,lmid)
response.Write "<select name='class' style=""width:200px"">"
Set rslm = Server.CreateObject("ADODB.Recordset")
sqllm = "SELECT * FROM "&lmname&" where class=0"
rslm.open sqllm,conn,1,3
if not rslm.bof and not rslm.eof then
do while not rslm.eof
YC("<optgroup label="""&rslm("classname")&""" style=""color:#ff0000;"">")
set rslm2=server.CreateObject("adodb.recordset")
sqllm2 = "SELECT * FROM "&lmname&" where class="&rslm("id")
rslm2.open sqllm2,conn,1,3
if not rslm2.bof and not rslm2.eof then
do while not rslm2.eof
YC("<option  style=""color:#000000;"" value='"&rslm2("id")&"'")
if rslm2("id")=lmid then response.Write "selected" end if
YC(">├ "&rslm2("classname")&"</option>")
rslm2.movenext
loop
end if
rslm2.close
set rslm2=nothing
rslm.movenext
loop
end if
rslm.close
set rslm=nothing
response.Write "</select>"
end sub
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：adminpl                 ┃
'┃功  能：后台评论显示            ┃
'┗━━━━━━━[野草制作]━━━━┛
function adminpl(pltype,plid)
set rspl=server.CreateObject("adodb.recordset")
sqlpl="select * from [YC_pl] where pltype='"&pltype&"' and plid="&plid&""
rspl.open sqlpl,conn,1,1
if not rspl.bof and not rspl.eof then
adminpl="<a href='?action=pllist&plid="&plid&"'>评论</a>"
else
pltest="<font color=#999999>没有评论</font>"
end if
rspl.close
set rspl=nothing
end function
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：checkadmin              ┃
'┃功  能：检查管理员权限          ┃
'┗━━━━━━━(yecao.cn)━━━━┛
sub checkadmin(admin)
if superlogin<>yecaocookies then
YCGO("error.asp?action=error&text=您还没有登陆!")
response.end
elseif supername="" then
YCGO("error.asp?action=error&text=您已经超时！退出后请从新登陆!")
response.end
end if
if superadmin<>"" then
admindata=split(superadmin,",")
for i=0 to ubound(admindata)
if trim(admindata(i))=trim(admin) then
adminadmin="yes"
exit for
end if
next
end if
if supertype<>1 then
if adminadmin<>"yes" then
YCGO("error.asp?action=error&text=您的权限不足！请联系管理员！")
response.end
end if
end if
end sub
'┏━━(YCMS代码讲解)━━━━━━━┓
'┃过程名：showclass               ┃
'┃功  能：选择显示方式            ┃
'┗━━━━━━━[野草制作]━━━━┛
function showclass(tab,name,url)
YC("<form name=""form3"" method=""post"" action="""" ><select style=""margin:-1px"" name=""go"" onChange=""window.location=form.go.options[form.go.selectedIndex].value"">")
YC("<option>选择显示方式</option>")
YC("<option value="""&url&"?action=list"">显示所有"&name&"</option>")
YC("<option value="""&url&"?action=list&nopass="&tab&""">未审核的"&name&"</option>")
sqlbig="select * from ["&tab&"] where class=0"
set rsbig=server.createobject("adodb.recordset")
rsbig.open sqlbig,conn,1,1
do while not rsbig.eof
YC("<option value="""&url&"?action=list&bigclass="&rsbig("id")&""">&nbsp;"&rsbig("classname")&"</option>")
sqlsmall="select * from ["&tab&"] where class="&rsbig("id")
set rssmall=server.createobject("adodb.recordset")
rssmall.open sqlsmall,conn,1,1
do while not rssmall.eof
YC("<option value="""&url&"?action=list&class="&rssmall("id")&""">&nbsp;└&nbsp;"&rssmall("classname")&"</option>")
rssmall.movenext
loop
rssmall.close
set rssmall=nothing
rsbig.movenext
loop
if rsbig.bof and rsbig.eof then
YC("<option>当前没有分类</option>")
end if
rsbig.close
set rsbig=nothing
YC("</select></form>")
end function
%>