admin.asp

露珠网站是一个以文章类、下载类、图片类、动画类、视频类为主的综合网站。我们的目标：麻雀虽小(223kb)

luzhuba_cn("<td height=20><a href=""?luzhuba=sjthxs"" target=""main"">批量替换</a></td>")
luzhuba_cn("</tr>")
luzhuba_cn("<tr><td height=20><a href=""?luzhuba=toupiaoxs"" target=""main"">投票管理</a></td>")
luzhuba_cn("<td height=20><a href=""?luzhuba=toupiaoadd"" target=""main"">添加投票</a></td>")
luzhuba_cn("</tr>")
luzhuba_cn("<tr><td height=20><a href=""?luzhuba=hyxs"" target=""main"">会员管理</a></td>")
luzhuba_cn("<td height=20><a href=""?luzhuba=ljxs"" target=""main"">链接管理</a></td>")
luzhuba_cn("</tr>")
luzhuba_cn("</table></div></td></tr></table>")
luzhuba_cn("<table cellpadding=0 cellspacing=0 width=158 align=center>")
luzhuba_cn("<tr> ")
luzhuba_cn("<td width=""134"" height=25 valign=""middle"" background=""adminimages/bg.GIF"" class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; > ")
luzhuba_cn("<span>版权信息说明</span> </td>")
luzhuba_cn("<td width=""25""><img src=""adminimages/quit.GIF"" width=""25"" height=""25""></td>")
luzhuba_cn("</tr><tr> <td colspan=""2"">")
luzhuba_cn("<div class=sec_menu style=""width:158"">")
luzhuba_cn("<table cellpadding=0 cellspacing=0 align=center width=135>")
luzhuba_cn("<tr><td height=20 >注册情况:")
sql="select * from admin where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs("zcmjm")<>"" then
dd=luzhubajm(rs("zcmjm"))
else
dd="luzhuba_cn"
end if
if (not isdate(rs("ks"))) then
ks="2009-3-21"
else
ks=rs("ks")
end if
if dd=md5(Request.ServerVariables("SERVER_NAME"),16) then
luzhuba_cn("<font color=""#FF0000"">正版用户</font><br><a href=""?luzhuba=luzhubalxxx"" target=""main"">详细技术联系</a>")
else
if datevalue(ks)>datevalue(dateadd("d",-30,date())) then
luzhuba_cn("<font color=""#FF0000"">免费用户</font><br><a href=""?luzhuba=zcadd"" target=""main"">请您与我们联系注册</a>")
else
luzhuba_cn("<font color=""#FF0000"">非法用户</font><br><a href=""?luzhuba=zcadd"" target=""main"">请您与我们联系注册</a>")
end if
end if
luzhuba_cn("<a href=""?luzhuba=zcadd"" ></a>")
luzhuba_cn("</td></tr>")
luzhuba_cn("<tr><td height=20 >版权所有：")
luzhuba_cn("<a href=""http://www.luzhuba.cn"" target=""_blank"">露珠网站</a>")
luzhuba_cn("QQ:93065410<br>")
luzhuba_cn("tel:[phone]<br>")
luzhuba_cn("Email:[e-mail]<br>")
luzhuba_cn("<br><BR></td></tr></table></div><BR>")
rs.close
end sub
Public Sub  zhong
luzhuba_cn("<div align=""center"">") 
luzhuba_cn("<table width=""748""border=""1""  style=""BORDER: #FFF0BC 1px solid;border-collapse: collapse"" >")
luzhuba_cn("<tr> ")
luzhuba_cn("<td width=""744"" colspan=""4"" height=""29"" bgcolor=""#799AE1"">")
luzhuba_cn("<p align=""center""><b><font color=""#FF0000"">欢迎您使用"&wzxx("wzm")&"后台管理</font></b></td>")
luzhuba_cn("</tr>")
luzhuba_cn("<tr><td width=""139"" height=""29"">&nbsp;服务器名：</td>")
luzhuba_cn("<td width=""603"" height=""29"">&nbsp; ")
luzhuba_cn(""&Request.ServerVariables("SERVER_NAME")&"</td></tr>")
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;服务器IP：</td> ")
luzhuba_cn("<td height=""29"" width=""603"">&nbsp; ")
luzhuba_cn(""&Request.ServerVariables("LOCAL_ADDR")&"</td></tr> ")
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;服务器端口：</td> ")
luzhuba_cn("<td height=""29"" width=""603"">&nbsp; ")
luzhuba_cn(""&Request.ServerVariables("SERVER_PORT")&"</td></tr>") 
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;服务器时间：</td>") 
luzhuba_cn("<td height=""29"" width=""603"">&nbsp;") 
luzhuba_cn(""&now&"</td></tr> ")
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;IIS版本：</td> ")
luzhuba_cn("<td height=""29"" width=""603"">&nbsp; ")
luzhuba_cn(""&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr> ")
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;脚本超时时间：</td> ")
luzhuba_cn("<td height=""29"" width=""603"">&nbsp; ")
luzhuba_cn(""&Server.ScriptTimeout&"秒</td></tr> ")
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;站点物理路径：</td> ")
luzhuba_cn("<td height=""29"" width=""603"">&nbsp; ")
luzhuba_cn(""&request.ServerVariables("APPL_PHYSICAL_PATH")&"</td></tr> ")
luzhuba_cn("<tr><td height=""29"" width=""139"">&nbsp;服务器解译引擎：</td> ")
luzhuba_cn("<td height=""29"" width=""603"">&nbsp; ")
luzhuba_cn(""&ScriptEngine&"/"&ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion&" ")
luzhuba_cn("</td></tr></table></div>")
luzhuba_cn("<script language=""javascript"" type=""text/javascript"" src=""http://www.fljsq.cn/lztj/lztj.asp?lztj=1220""></script>")
end sub

Public Sub wzxs
luzhuba_cn("<table align='center' border='1' width='100%' height='159' class=biaoti>")
luzhuba_cn("<tr><td width='100%' colspan='6' height='29' align='center' id=bjys>文章管理</td></tr>")
luzhuba_cn("<tr><td width='100%' colspan='6' height='54' align='center'>")
luzhuba_cn("<table border='0' width='100%'>")
luzhuba_cn("<tr><td width='6%' rowspan='2'><a href='?zfl="&request("zfl")&"&luzhuba=wzxs' style='text-decoration: underline; color: #0000FF'>全部</a>显示选项</td>")
luzhuba_cn("<td width='94%'>")
luzhuba_cn("<form method='POST' action=''>")
luzhuba_cn("<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">")
luzhuba_cn("<option value='?zfl="&request("zfl")&"&qtxx="&request("qtxx")&"&luzhuba=wzxs' id=selectcolor>全部分类文章</option>")
Set rs2=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,zfl,fl,flmz,flzs,flkg,flbh from fl where zfl="&request("zfl")&" Order By flzs"
rs2.Open sql,conn,1,1
Do while not rs2.eof
luzhuba_cn("<option value='?zfl="&request("zfl")&"&wzfl="&rs2("flbh")&"&qtxx="&request("qtxx")&"&luzhuba=wzxs'") 
if request("wzfl")<>"" then
if rs2("flbh")=request.querystring("wzfl") then 
luzhuba_cn(" id=selectcolor selected")
end if
end if
luzhuba_cn(">") 
For i=1 to rs2("flkg")
luzhuba_cn("&nbsp;")
Next
luzhuba_cn("├"&rs2("flmz")&"</option>")
rs2.movenext
loop
rs2.close
luzhuba_cn("</select>")
xxhs "标题字体",2,"btzt","d_id","wz","wzfl",request.querystring("zfl")
xxhs "选择专题",6,"sszt","d_id","wz","wzfl",request.querystring("zfl")
xxhs "选择来源",5,"wzly","lbmz","wz","wzfl",request.querystring("zfl")
xxhs "关键字",3,"wzgjz","lbmz","wz","wzfl",request.querystring("zfl")
luzhuba_cn("</td></tr><tr><td width='94%'>")
xxhs "话题",1,"wzhd","d_id","wz","wzfl",request.querystring("zfl")
xxhs "选择作者",4,"wzzz","lbmz","wz","wzfl",request.querystring("zfl")
ljhs "sytj",1,"首推|","wz","wzfl"
ljhs "fytj",1,"分推|","wz","wzfl"
ljhs "syrm",1,"首热|","wz","wzfl"
ljhs "fyrm",1,"分热|","wz","wzfl"
ljhs "syzd",1,"首顶|","wz","wzfl"
ljhs "fyzd",1,"分顶|","wz","wzfl"
ljhs "syhd",1,"首幻灯|","wz","wzfl"
ljhs "fyhd",1,"分幻灯|","wz","wzfl"
ljhs "syxs",1,"首图|","wz","wzfl"
ljhs "fyxs",1,"分图|","wz","wzfl"
ljhs "wzdt","wzdt","导读|","wz","wzfl"
luzhuba_cn("</td></tr></table></td></tr></form>")
if request("wzfl")="" then
if request("qtxx")="" then
sql="select * from wz where zfl="&request("zfl")&" Order By d_id DESC"
else
qtxxxs=Split(request("qtxx"), "|")
lb=qtxxxs(0)
if not IsValidChar(qtxxxs(1)) then
lr=qtxxxs(1)
if lr<>"wzdt" then
sql="select * from wz where  zfl="&request("zfl")&"  and "&lb&"='"&lr&"' Order By d_id DESC"
else
sql="select * from wz where  zfl="&request("zfl")&"  and "&lb&"<>'' Order By d_id DESC"
end if
else
lr=cint(qtxxxs(1))
if lr=0 then 
sql="select * from wz where  zfl="&request("zfl")&"  and "&lb&"<>"&lr&" Order By d_id DESC"
else
sql="select * from wz where  zfl="&request("zfl")&"  and "&lb&"="&lr&" Order By d_id DESC"
end if
end if
end if
else
if request("qtxx")="" then
sql="select * from wz where zfl="&request("zfl")&" and wzfl in ("&request("wzfl")&") Order By d_id DESC"
else
qtxxxs=Split(request("qtxx"), "|")
lb=qtxxxs(0)
if not IsValidChar(qtxxxs(1)) then
lr=qtxxxs(1)
if lr<>"wzdt" then
sql="select * from wz where  (zfl="&request("zfl")&" and wzfl in ("&request("wzfl")&")) and "&lb&"='"&lr&"' Order By d_id DESC"
else
sql="select * from wz where  (zfl="&request("zfl")&" and wzfl in ("&request("wzfl")&")) and "&lb&"<>'' Order By d_id DESC"
end if
else
lr=cint(qtxxxs(1))
if lr=0 then 
sql="select * from wz where  (zfl="&request("zfl")&" and wzfl in ("&request("wzfl")&")) and "&lb&"<>"&lr&" Order By d_id DESC"
else
sql="select * from wz where  (zfl="&request("zfl")&" and wzfl in ("&request("wzfl")&")) and "&lb&"="&lr&" Order By d_id DESC"
end if
end if
end if
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
const MaxPerPage=15
rs.PageSize=15
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if rs.eof and rs.bof then
luzhuba_cn("<tr><td width='100%' height='16' colspan='6'>")
luzhuba_cn("<center><font color=red>还没有添加文章。</font></center>")
luzhuba_cn("</td></tr>")
else
totalPut=rs.recordcount
      		if currentpage<1 then
          		currentpage=1
      		end if
      		if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     			currentpage= totalPut \ MaxPerPage
	  		else
	      			currentpage= totalPut \ MaxPerPage + 1
	   		end if
      		end if
       		if currentPage=1 then
            		xianshi currentpage,17
                        luzhuba_cn("<tr><td width='100%' height='16' colspan='6'>")
            		showpage totalput,MaxPerPage,currentpage,"?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&""
       		         luzhuba_cn("</td></tr>")
                         else
          		if (currentPage-1)*MaxPerPage<totalPut then
            			rs.move  (currentPage-1)*MaxPerPage
            			dim bookmark
            			bookmark=rs.bookmark
           			xianshi currentpage,17
            		luzhuba_cn("<tr><td width='100%' height='16' colspan='6'>")
            		showpage totalput,MaxPerPage,currentpage,"?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&""
       		        luzhuba_cn("</td></tr>")
                                   else
	        		currentPage=1
                    	xianshi currentpage,17
                      luzhuba_cn("<tr><td width='100%' height='16' colspan='6'>")
            		showpage totalput,MaxPerPage,currentpage,"?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&""
       		         luzhuba_cn("</td></tr>")
            		end if
		end if
   	end if 
luzhuba_cn("</table>")
end sub
function xianshi(max,shu2) 
if Request("page")="" then
cpage=1
else
cPage=Request("page")
end if
luzhuba_cn("<form action='?d_id="&rs("d_id")&"&luzhuba=wzplczxx&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&"&cpage="&cpage&"' method='post' enctype='application/x-www-form-urlencoded'>")
luzhuba_cn("<tr>")
luzhuba_cn("<td width='66%' height='29' colspan='2' align='center' >文章标题</td>")
luzhuba_cn("<td width='9%' height='29' align='center'>作者</td>")
luzhuba_cn("<td width='13%' height='29' align='center'>日期</td>")
luzhuba_cn("<td width='6%' height='29' align='center'>编辑</td>")
luzhuba_cn("<td width='6%' height='29' align='center'>删除</td>")
luzhuba_cn("</tr>")
for i=1 to rs.PageSize
if  Rs.Eof  then 
exit for
end if 
luzhuba_cn("<tr>")
luzhuba_cn("<td width='3%' height='26'><input type='checkbox' name='chkxx'  value="&rs("d_id")&" ></td>")                             
luzhuba_cn("<td width='63%' height='26'><a href='?d_id="&rs("d_id")&"&luzhuba=wzmodify&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&"&cpage="&cpage&"'  style='"&qtxx(rs("btzt"),1)&" color:"&rs("btys")&"'>"&qtxx(rs("wzhd"),2)&""&rs("wzbt")&""&xsxm("首推",rs("sytj"))&""&xsxm("分推",rs("fytj"))&""&xsxm("首热",rs("syrm"))&""&xsxm("分热",rs("fyrm"))&""&xsxm("首顶",rs("syzd"))&""&xsxm("分顶",rs("fyzd"))&""&xsxm("首幻",rs("syhd"))&""&xsxm("分幻",rs("fyhd"))&""&xsxm("首图",rs("syxs"))&""&xsxm("分图",rs("fyxs"))&"</a></td>")
luzhuba_cn("<td width='9%' height='26' align='center'><a href='?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx=wzzz|"&rs("wzzz")&"'>"&rs("wzzz")&"</a></td>")
luzhuba_cn("<td width='13%' height='26' align='center'><a href='?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx=wzsj|"&rs("wzsj")&"'>"&rs("wzsj")&"</a></td>")
luzhuba_cn("<td width='6%' height='26' align='center'><a href='?d_id="&rs("d_id")&"&luzhuba=wzmodify&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&"&cpage="&cpage&"'>编辑</a></td>")
luzhuba_cn("<td width='6%' height='26' align='center'><a href='?d_id="&rs("d_id")&"&luzhuba=wzdel&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&qtxx="&request("qtxx")&"&cpage="&cpage&"&max="&max&"' onClick='return Del()'>删除</a></td>")
luzhuba_cn("</tr>")
rs.movenext
next
luzhuba_cn("<tr><td width='100%' height='16' colspan='6'>")
luzhuba_cn("<table border='0' width='100%'>")
luzhuba_cn("<tr> <td width='50%'><input class=Button type='button' name='chkall' value='全选' onClick='CheckAll(this.form)'>")
luzhuba_cn("<input class=Button type='button' name='chksel' value='反选' onClick='ContraSel(this.form)'></td>")
luzhuba_cn("<td width='50%'>")
luzhuba_cn("<select name='wzplczxx' onChange='javascript:submit()' >")
luzhuba_cn("<option value='0'>请选择操作选项</option>")
luzhuba_cn("<option value='wzpldel' >批量删除</option>")
luzhuba_cn("<option value='wzplsytj'>是否首推</option>")