admin.asp

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

end select
end sub
Public Sub wzpldel
conn.Execute ("delete from wz where  d_id in ("&request.Form("chkxx")&")")
www_luzhuba_cn_jsq("?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&page="&request("cpage")&"&qtxx="&request("qtxx")&"")  
luzhuba()
end sub
Public function wzpl(lr)
sql="select d_id,zfl,wzhd,wzbt,btys,btzt,wzgjz,wzzz,wzly,wzfy,sytj,fytj,syrm,fyrm,wzfl,sszt,syhd,fyhd,syxs,fyxs,wztp,btlj,wzdt,syzd,fyzd,wzlr,wzsj from wz where d_id in ("&request.Form("chkxx")&")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Do while not rs.eof
if rs(""&lr&"")=1 then
rs(""&lr&"")=0 
else
rs(""&lr&"")=1
end if
rs.Update 
rs.movenext
loop
rs.close
www_luzhuba_cn_jsq("?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&page="&request("cpage")&"&qtxx="&request("qtxx")&"")  
luzhuba()
end function
Public Sub wzmodify
sql="select d_id,zfl,wzhd,wzbt,btys,btzt,wzgjz,wzzz,wzly,wzfy,sytj,fytj,syrm,fyrm,wzfl,sszt,syhd,fyhd,syxs,fyxs,wztp,btlj,wzdt,syzd,fyzd,wzlr,wzsj,hydj,hyjf from wz where d_id="&request.querystring("d_id")&""
set rsxg=server.createobject("adodb.recordset")
rsxg.open sql,conn,1,3
luzhuba_cn("<form method='post' action='?luzhuba=wzmodifysave&zfl="&request.querystring("zfl")&"&wzfl="&request.querystring("wzfl")&"&d_id="&request.querystring("d_id")&"&cpage="&request("cpage")&"' name='form'>")
luzhuba_cn("<table align='center' width='100%' border='1'   class=biaoti>")  
luzhuba_cn("<tr><td colspan='3' width='100%'  height='29'  align='center' id=bjys>修改文章</td></tr>")  
luzhuba_cn("<tr><td width='12%'>文章标题:</td><td width='25%'>")
luzhuba_cn("<select  name='wzhd' style='width:130px'><option value='0'>选择话题</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=1"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value="&rs("d_id")&"") 
if rs("d_id")=rsxg("wzhd") then 
luzhuba_cn(" selected")
end if
luzhuba_cn(">") 
luzhuba_cn(""&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td> ")
luzhuba_cn("<td width='63%'><input type='text' id='input' name='wzbt' size='40' value='"&rsxg("wzbt")&"'></td>")
luzhuba_cn("</tr><tr><td width='12%'>标题显示:</td><td width='25%'>")
luzhuba_cn("<iframe width='260' id='colorPalette' height='165'  src='?luzhuba=ysxzxs' style='visibility:hidden; position: absolute;border:1px gray solid' frameborder='0' scrolling='no' ></iframe>")
luzhuba_cn("<input name='btys'   type='text' size='14' value='"&rsxg("btys")&"'>")
luzhuba_cn("<img src='adminimages/rectNoColor.gif' width='18' height='17' border=0 align='absmiddle' id='btysShow' style='cursor:pointer;background-color:;' title='选取颜色!' onClick='GetColor(document.getElementById(""btysShow""),""btys"");'>")
luzhuba_cn("</td> ")
luzhuba_cn("<td width='63%'><select name='btzt' style='width:130px'><option value='0'>选择字体</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=2"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value="&rs("d_id")&"") 
if rs("d_id")=rsxg("btzt") then 
luzhuba_cn(" selected")
end if
luzhuba_cn(">") 
luzhuba_cn(""&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td></tr>")
luzhuba_cn("<tr><td width='12%'>关 键 字:</td><td width='25%'>")
luzhuba_cn("<select style='width:130px' onChange='document.form.wzgjz.value=this.options[this.selectedIndex].text;'><option value='0'>选择关键</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=3"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value='"&rs("lbmz")&"'>"&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td> ")
luzhuba_cn("<td width='63%'><input id='input' type='text' name='wzgjz' size='40' value='"&rsxg("wzgjz")&"'></td></tr>")
luzhuba_cn("<tr><td width='12%'>文章作者:</td><td width='25%'>")
luzhuba_cn("<select style='width:130px'  onChange='document.form.wzzz.value=this.options[this.selectedIndex].text;'><option value='0'>选择作者</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=4"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value='"&rs("d_id")&"'>"&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td> ")
luzhuba_cn("<td width='63%'><input type='text' name='wzzz'  size='40' value='"&rsxg("wzzz")&"'></td></tr>")
luzhuba_cn("<tr><td width='12%'>文章来源:</td><td width='25%'>")
luzhuba_cn("<select style='width:130px'  onChange='document.form.wzly.value=this.options[this.selectedIndex].text;'><option value='0'>选择来源</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=5"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value='"&rs("d_id")&"'>"&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td> ")   
luzhuba_cn("<td width='63%'><input type='text' name='wzly' id='input' size='40' value='"&rsxg("wzly")&"'></td></tr>")
luzhuba_cn("<tr><td width='12%'>文章属性:</td><td width='25%'>")    
 luzhuba_cn("<select name='wzfy' style='width:130px' ><option value='0' >手动分页</option><option value='1' ")
if rsxg("wzfy")=1 then luzhuba_cn("selected")
luzhuba_cn(">自动分页</option></select>")
luzhuba_cn("<td width='63%'><input id='input' type='checkbox' value='1' name='sytj'")
if rsxg("sytj")=1 then  luzhuba_cn("checked")
luzhuba_cn(">首页推荐 <input id='input' type='checkbox' value='1'  name='fytj'")
if rsxg("fytj")=1 then  luzhuba_cn("checked")
luzhuba_cn(">分页推荐<input id='input' type='checkbox' value='1'  name='syrm'")
if rsxg("syrm")=1 then  luzhuba_cn("checked")
luzhuba_cn(">首页热门<input id='input' type='checkbox' value='1'  name='fyrm'")
if rsxg("fyrm")=1 then  luzhuba_cn("checked")
luzhuba_cn(">分页热门</td></tr>")  
luzhuba_cn("<tr><td width='12%'>所属分类:</td><td width='25%' >")
luzhuba_cn("<select style='width:130px' name='wzfl'>") 
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,zfl,fl,flmz,flzs,flkg,flbh from fl where zfl="&request.querystring("zfl")&" Order By flzs"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value="&rs("d_id")&"") 
if rs("d_id")=rsxg("wzfl") then 
luzhuba_cn(" selected")
end if
luzhuba_cn(">") 
For i=1 to rs("flkg")
luzhuba_cn("&nbsp;")
Next
luzhuba_cn("├"&rs("flmz")&"</option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td><td width='63%' >浏览用户:<select name='hydj' style='width:80px' ><option value=0 ")
if rsxg("hydj")=0 then  luzhuba_cn(" selected")
luzhuba_cn(">游客</option><option value=1 ")
if rsxg("hydj")=1 then  luzhuba_cn(" selected")
luzhuba_cn(">普通会员</option><option value=2")
if rsxg("hydj")=2 then luzhuba_cn(" selected")
luzhuba_cn(">高级会员</option><option value=3")
if rsxg("hydj")=3 then luzhuba_cn(" selected")
luzhuba_cn(">VIP会员</option></select> 会员积分: <input type='text' name='hyjf' value="&rsxg("hyjf")&" id='input' size='10'>分</td></tr> ") 
luzhuba_cn("<tr><td width='12%'>所属专题:</td><td width='88%' colspan='2'>")
luzhuba_cn("<select  name='sszt' style='width:130px'><option value='0'>选择专题</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=6 and lbqtsz="&request.querystring("zfl")&""
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value="&rs("d_id")&"") 
if rs("d_id")=rsxg("sszt") then 
luzhuba_cn(" selected")
end if
luzhuba_cn(">"&rs("lbmz")&"</option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td></tr> ") 
luzhuba_cn("<tr><td width='12%'>显示图片:</td><td width='25%'><input id='input' type='checkbox' value='1'  name='syhd'")
if rsxg("syhd")=1 then  luzhuba_cn("checked")
luzhuba_cn(">首幻<input id='input' type='checkbox' value='1'  name='fyhd'")
if rsxg("fyhd")=1 then  luzhuba_cn("checked")
luzhuba_cn(">分幻<input id='input' type='checkbox' value='1'  name='syxs'")
if rsxg("syxs")=1 then  luzhuba_cn("checked")
luzhuba_cn(">首显<input id='input' type='checkbox' value='1'  name='fyxs'")
if rsxg("fyxs")=1 then  luzhuba_cn("checked")
luzhuba_cn(">分显</td>")
luzhuba_cn("<td width='63%'><input  type='text' name='wztp' size='40' value='"&rsxg("wztp")&"'></td></tr>")
luzhuba_cn("<tr><td width='12%'>上传图片:</td><td width='88%' colspan='2'><iframe frameborder=0 width='100%' height=30 scrolling=no src='?luzhuba=wztp&zfl="&request.querystring("zfl")&"'></iframe></td></tr>")
luzhuba_cn("<tr><td width='12%'>其它性质:</td><td width='88%' colspan='2'><input  type='checkbox'  value='1' OnClick='showsubmenu(2);'>转向链接<input  type='checkbox'  value='1' OnClick='showsubmenu(1);'>文章导读<input type='checkbox' value='1'  name='syzd'")
if rsxg("syzd")=1 then  luzhuba_cn("checked")
luzhuba_cn(">首页置顶<input type='checkbox' value='1'  name='fyzd'")
if rsxg("fyzd")=1 then  luzhuba_cn("checked")
luzhuba_cn(">分页置顶</td></tr>")
luzhuba_cn("<tr style='display:none'  id='submenu2'><td width='12%'>转向链接:</td><td width='88%' colspan='2'>")
luzhuba_cn("<input type='text' name='btlj'  size='48' value='"&rsxg("btlj")&"'></td></tr>")
luzhuba_cn("<tr  style='display:none'  id='submenu1' ><td width='12%'>文章导读:</td><td width='88%' colspan='2'><textarea name='wzdt'  style='width:488' rows='5' >"&rsxg("wzdt")&"</textarea></td></tr>")
luzhuba_cn("<tr><td width='12%'>文章内容<p><input type='checkbox' name='ycbz' value='1' > 自动保存远程图片</td>  ")  
luzhuba_cn("<td width='88%' colspan='2'>") 
wzlr = server.HTMLEncode(rsxg(25))
editor(wzlr)
session("zfl")=""
session("zfl")=request.querystring("zfl")
luzhuba_cn("</td></tr> ")
luzhuba_cn(" <tr><td width='100%' colspan='3' align='center'><input type='submit' name='Submit' value='输入'>&nbsp;&nbsp; <input type='reset' name='Submit2' value='重输'> </td></tr>")
luzhuba_cn(" </table> </form>")
end sub
Public Sub luzhubahcqc
c=0
for each hclr in Application.Contents 
if instr(hclr,"luzhuba")>0 then
c=c+1
Response.Write(""&replace(hclr,"luzhuba","")&"<br/>")
Application.Contents.Remove(hclr) 
end if
next
Response.Write("总共清除"&c&"个缓存.<br/>")
end sub

'文章用结束
'软件用开始
Public Sub rjadd
luzhuba_cn("<form method='post' action='?luzhuba=rjsave&zfl="&request.querystring("zfl")&"&cpage=1' name='form'>")
luzhuba_cn("<table align='center' width='100%' border='1'   class=biaoti>")  
luzhuba_cn("<tr><td colspan='3' width='100%'  height='29'  align='center' id=bjys>添加软件</td></tr>")  
luzhuba_cn("<tr><td width='17%'>软件名字:</td><td width='88%' colspan='2'><input type='text' id='input' name='rjmz' size='25'>")
luzhuba_cn("软件版本:<input type='text' id='input' name='rjbb' size='10' value='1.0'></td>")
luzhuba_cn("</tr><tr><td width='17%'>名字显示:</td><td width='17%'>")
luzhuba_cn("<iframe width='260' id='colorPalette' height='165'  src='?luzhuba=ysxzxs' style='visibility:hidden; position: absolute;border:1px gray solid' frameborder='0' scrolling='no' ></iframe>")
luzhuba_cn("<input name='mzys'   type='text' size='9' value='003596'>")
luzhuba_cn("<img src='adminimages/rectNoColor.gif' width='18' height='17' border=0 align='absmiddle' id='btysShow' style='cursor:pointer;background-color:;' title='选取颜色!' onClick='GetColor(document.getElementById(""btysShow""),""mzys"");'>")
luzhuba_cn("</td> ")
luzhuba_cn("<td width='66%'><select name='mzzt' style='width:90px'><option value='0'>选择字体</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=2"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value='"&rs("d_id")&"'>"&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td></tr>")
luzhuba_cn("<tr><td width='17%'>软件作者:</td><td width='17%'>")
luzhuba_cn("<select style='width:90px'  onChange='document.form.rjzz.value=this.options[this.selectedIndex].text;'><option value='0'>选择作者</option>")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=4"
rs.Open sql,conn,1,1
Do while not rs.eof
luzhuba_cn("<option value='"&rs("d_id")&"'>"&rs("lbmz")&" </option>")
rs.movenext
loop
rs.close
luzhuba_cn("</select></td> ")
luzhuba_cn("<td width='66%'><input type='text' name='rjzz' value='未知' size='40'></td></tr>")
luzhuba_cn("<tr><td width='17%'>运行环境:</td><td width='17%'>")
luzhuba_cn("<select style='width:90px'  onChange='document.form.yxhj.value=document.form.yxhj.value+this.options[this.selectedIndex].text;'><option >选择环境</option>")
luzhuba_cn("<option value='asp+access'>asp+access</option>")
luzhuba_cn("<option value='asp+sql'>asp+sql</option>")
luzhuba_cn("<option value='asp+sql+access'>asp+sql+access</option>")
luzhuba_cn("<option value='Windows'>windows</option>")
luzhuba_cn("<option value='/Vista'>/Vista</option>")
luzhuba_cn("<option value='/Linux'>/Linux</option>")
luzhuba_cn("<option value='/Unix'>/Unix</option>")
luzhuba_cn("<option value='/Mac'>/Mac</option>")
luzhuba_cn("<option value='/Mac'>/Mac</option>")
luzhuba_cn("</select></td> ")   
luzhuba_cn("<td width='66%'><input type='text' name='yxhj' id='input' size='40' value='asp+access'></td></tr>")
luzhuba_cn("<tr><td width='17%'>软件类型:</td><td width='17%'>")
luzhuba_cn("<select style='width:90px'  onChange='document.form.rjlx.value=this.options[this.selectedIndex].text;'><option >选择类型</option>")
luzhuba_cn("<option value='国产软件'>国产软件</option>")
luzhuba_cn("<option value='国外软件'>国外软件</option>")
luzhuba_cn("<option value='汉化补丁'>汉化补丁</option>")
luzhuba_cn("<option value='源码程序'>源码程序</option>")
luzhuba_cn("</select></td> ")   
luzhuba_cn("<td width='66%'><input type='text' name='rjlx' id='input' size='40' value='国产软件'></td></tr>")
luzhuba_cn("<tr><td width='17%'>授权方式:</td><td width='17%'>")
luzhuba_cn("<select style='width:90px'  onChange='document.form.sqfs.value=this.options[this.selectedIndex].text;'><option >选择类型</option>")
luzhuba_cn("<option value='共享版'>共享版</option>")
luzhuba_cn("<option value='免费版'>免费版</option>")
luzhuba_cn("<option value='自由版'>自由版</option>")
luzhuba_cn("<option value='试用版'>试用版</option>")
luzhuba_cn("<option value='演示版'>演示版</option>")
luzhuba_cn("<option value='商业版'>商业版</option>")
luzhuba_cn("</select></td> ")  
luzhuba_cn("<td width='66%'><input type='text' name='sqfs' id='input' size='40' value='共享版'></td></tr>")
luzhuba_cn("<tr><td width='17%'>软件语言:</td><td width='17%'>")