admin.asp

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

luzhuba_cn("<option value='wzplfytj'>是否分推</option>")
luzhuba_cn("<option value='wzplsyrm'>是否首热</option>")
luzhuba_cn("<option value='wzplfyrm'>是否分热</option>")
luzhuba_cn("<option value='wzplsyzd'>是否首顶</option>")
luzhuba_cn("<option value='wzplfyzd'>是否分顶</option>")
luzhuba_cn("<option value='wzplsyhd'>是否首幻</option>")
luzhuba_cn("<option value='wzplfyhd'>是否分幻</option>")
luzhuba_cn("<option value='wzplsyxs'>是否首图</option>")
luzhuba_cn("<option value='wzplfyxs'>是否分图</option>")
luzhuba_cn("</select> ")
luzhuba_cn("</td></tr></table></td></tr></form>")
end function
Public Sub wzadd
luzhuba_cn("<form method='post' action='?luzhuba=wzaddsave&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='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")&"'>"&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'></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='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""),""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")&"'>"&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'></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'  value='管理员' size='40'></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' value='本站' id='input' size='40'></td></tr>")
luzhuba_cn("<tr><td width='12%'>文章属性:</td><td width='25%'>")    
luzhuba_cn("<select name='wzfy' style='width:130px' ><option value='1'>手动分页</option><option value='0'>自动分页</option></select>")
luzhuba_cn("<td width='63%'><input id='input' type='checkbox' value='1'  name='sytj'>首页推荐 <input id='input' type='checkbox' value='1'  name='fytj'>分页推荐<input id='input' type='checkbox' value='1'  name='syrm'>首页热门<input id='input' type='checkbox' value='1'  name='fyrm'>分页热门</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")=cint(Session("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>游客</option><option value=1>普通会员</option><option value=2>高级会员</option><option value=3>VIP会员</option></select> 会员积分: <input type='text' name='hyjf' value=0 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")&"'>"&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'>首幻<input id='input' type='checkbox' value='1'  name='fyhd'>分幻<input id='input' type='checkbox' value='1'  name='syxs'>首显<input id='input' type='checkbox' value='1'  name='fyxs'>分显</td>")
luzhuba_cn("<td width='63%'><input id='input' type='text' name='wztp' size='40'></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'>首页置顶<input type='checkbox' value='1'  name='fyzd'>分页置顶</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'></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'></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'>") 
editor("")
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 wzaddsave
call wzaddsavesx
call wzsave
end sub
Public Sub wzmodifysave
call wzmodifysavesx
call wzsave
end sub
Public Sub wzaddsavesx
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"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.AddNew
Session("wzfl")=request.form("wzfl")
end sub
Public Sub wzmodifysavesx
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 rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
end sub
Public Sub wzsave
if ChkFormStr(request.form("wzbt"))="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,标题为空呢！');history.go(-1);</script>")
end if 
if request.form("wzzz")="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,作者为空呢！');history.go(-1);</script>")
end if
if request.form("wzly")="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,来源为空呢！');history.go(-1);</script>")
end if
if request.form("body")="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,内容为空呢！');history.go(-1);</script>")
end if
If luzhubaerr = True Then Exit Sub
dim wzlr,wzlr2
wzlr2=request.form("body")
if request.form("ycbz")=1 then
wzlr=myreplace(wzlr2)
else
wzlr=request.form("body")
end if
rs("zfl")=request.querystring("zfl")
rs("wzhd")=request.form("wzhd") 
rs("wzbt")=ChkFormStr(request.form("wzbt"))                               
rs("btys")=ChkFormStr(request.form("btys")) 
rs("btzt")=request.form("btzt") 
rs("wzgjz")=ChkKeyWord(request.form("wzgjz")) 
rs("wzzz")=ChkFormStr(request.form("wzzz")) 
rs("wzly")=ChkFormStr(request.form("wzly")) 
rs("wzfy")=request.form("wzfy") 
if request.form("sytj")=1 then
rs("sytj")=1 
else
rs("sytj")=0
end if
if request.form("fytj")=1 then
rs("fytj")=1 
else
rs("fytj")=0
end if
if request.form("syrm")=1 then
rs("syrm")=1 
else
rs("syrm")=0
end if
if request.form("fyrm")=1 then
rs("fyrm")=1 
else
rs("fyrm")=0
end if
rs("wzfl")=request.form("wzfl") 
rs("sszt")=request.form("sszt") 
if request.form("syhd")=1 then
rs("syhd")=1 
else
rs("syhd")=0
end if
if request.form("fyhd")=1 then
rs("fyhd")=1 
else
rs("fyhd")=0
end if
if request.form("syxs")=1 then
rs("syxs")=1 
else
rs("syxs")=0
end if
if request.form("fyxs")=1 then
rs("fyxs")=1 
else
rs("fyxs")=0
end if
rs("wztp")=request.form("wztp") 
rs("btlj")=request.form("btlj") 
 
if request.form("syzd")=1 then
rs("syzd")=1 
else
rs("syzd")=0
end if
if request.form("fyzd")=1 then
rs("fyzd")=1 
else
rs("fyzd")=0
end if
rs("wzdt")=request.form("wzdt") 
rs("wzsj")=datelws(date())
rs("wzlr")=wzlr 
rs("hydj")=request.form("hydj") 
rs("hyjf")=request.form("hyjf") 
rs.Update 
www_luzhuba_cn_jsq("?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&page="&request("cpage")&"&qtxx="&request("qtxx")&"")  
luzhuba()
end sub
Public Sub wzdel
sql="delete from wz where d_id="&request.querystring("d_id")                                
conn.execute sql 
www_luzhuba_cn_jsq("?luzhuba=wzxs&zfl="&request("zfl")&"&wzfl="&request("wzfl")&"&page="&request("cpage")&"&qtxx="&request("qtxx")&"")  
luzhuba()
end sub
Public Sub wzplczxx
select case request.Form("wzplczxx")
case "":wzxs()
case "wzpldel":wzpldel()
case "wzplsytj":wzpl("sytj")
case "wzplfytj":wzpl("fytj")
case "wzplsyrm":wzpl("syrm")
case "wzplfyrm":wzpl("fyrm")
case "wzplsyzd":wzpl("syzd")
case "wzplfyzd":wzpl("fyzd")
case "wzplsyhd":wzpl("syhd")
case "wzplfyhd":wzpl("fyhd")
case "wzplsyxs":wzpl("syxs")
case "wzplfyxs":wzpl("fyxs")
Case Else:Login()