admin.asp

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

luzhuba_cn("<select style='width:90px'  onChange='document.form.rjyy.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='rjyy' 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.cjqk.value=this.options[this.selectedIndex].text;'><option >选择插件</option>")
luzhuba_cn("<option value='无'>无</option>")
luzhuba_cn("<option value='有'>有</option>")
luzhuba_cn("</select></td> ") 
luzhuba_cn("<td width='66%'><input type='text' name='cjqk' id='input' size='40' value='无'></td></tr>")
luzhuba_cn("<tr><td width='17%'>应用领域:</td><td width='17%'>")
luzhuba_cn("<select  name='yyly' 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=7 "
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%'>主基调色:")
luzhuba_cn("<select  name='zjds' 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=8 "
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>&nbsp;&nbsp;后台功能:")
luzhuba_cn("<select  name='htgn' 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=9 "
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%'><input type='text' name='rjdx' id='input' size='11' value='0KB'></td><td width='66%'>")
luzhuba_cn("使用情况:<select  name='syqk' 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=10 "
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>&nbsp;&nbsp;综合评价:")
luzhuba_cn("<select  name='zhpj' 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=11 "
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%'>QQ<input type='text' name='qq' id='input'  size='8' value='0'></td><td width='66%'>Tel<input type='text' name='tel' id='input' size='9' value='0'>Email<input type='text' name='email' id='input' size='23' value='0'></td></tr>")
luzhuba_cn("<tr><td width='17%'>软件属性:</td><td width='88%' colspan='2'>") 
luzhuba_cn("<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'>分页热门<input id='input' type='checkbox' value='1'  name='syzd'>首置顶<input id='input' type='checkbox' value='1'  name='fyzd'>分置顶</td></tr>")  
luzhuba_cn("<tr><td width='17%'>转向链接:</td><td width='88%' colspan='2'><input id='input' type='text'   size='54' name='btlj'></td></tr>")
luzhuba_cn("<tr><td width='17%'>演示网址:</td><td width='88%' colspan='2'><input id='input' type='text' value='0'  size='54' name='yswz'></td></tr>")
luzhuba_cn("<tr><td width='17%'>作者网址:</td><td width='88%' colspan='2'><input id='input' type='text' value='0'  size='54' name='zzwz'></td></tr>")
luzhuba_cn("<tr><td width='17%'>软件缩图:</td><td width='17%'><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='66%'><input id='input' type='text' name='rjst' size='40'><iframe frameborder=0 width='100%' height=30 scrolling=no src='?luzhuba=rjst&zfl="&request.querystring("zfl")&"'></iframe></td></tr>")
luzhuba_cn("<tr><td width='17%'>下载数量:</td><td width='17%' ><input id='input' size='2' type='text' value='1'  name='xzsl'><input type='button' style='width:70px' name='Button'  onclick='setid();' value='增加下载数'></td><td width='66%'><iframe frameborder=0 width='100%' height=30 scrolling=no src='?luzhuba=rjsc&zfl="&request.querystring("zfl")&"'></iframe></td></tr>")
luzhuba_cn("<script language=""javascript"">")
luzhuba_cn("function setid() {")
luzhuba_cn(" str='';")
luzhuba_cn(" if(!window.form.xzsl.value)")
luzhuba_cn(" window.form.xzsl.value=1;")
luzhuba_cn(" for(i=2;i<=window.form.xzsl.value;i++)")
luzhuba_cn(" str+=''+'<input type=""text"" name=""xzmz'+i+'"" value=""下载地址'+i+'"" size=""12"">-<input type=""text"" name=""xzhttp'+i+'"" size=""40"" value=""""><br>';")
luzhuba_cn(" window.upid.innerHTML=str;")
luzhuba_cn(" /*if (i==1) {")
luzhuba_cn("	downsite.style.display='none';")
luzhuba_cn(" }else{")
luzhuba_cn("	downsite.style.display='';")
luzhuba_cn(" }*/")
luzhuba_cn(" }")
luzhuba_cn("</script>")
luzhuba_cn("<tr><td width='17%'>下载地址:</td><td width='83%' colspan='2'>")
luzhuba_cn("<input name=""xzmz1"" type=""text"" size=""12"" value=""下载地址1"">-")
luzhuba_cn( "<input name=""xzhttp1""  type=""text"" size=""40"">")
luzhuba_cn("<br>")
luzhuba_cn("<span id=""upid""></span>")
luzhuba_cn("</tr></td>")
luzhuba_cn("<tr><td width='17%'>所属分类:</td><td width='88%' colspan='2'>")
luzhuba_cn("<select  name='ssfl'>") 
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("ssfl")) 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>所属专题:<select  name='sszt' ><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>浏览用户:<select name='hydj' style='width:75px' ><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='3'></td></tr> ") 
luzhuba_cn("<tr   ><td width='17%'>概括简介:</td><td width='88%' colspan='2'><textarea name='kkjj'  style='width:488' rows='2' ></textarea></td></tr>")
luzhuba_cn("<tr><td width='17%'>软件介绍<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 rjsave
if request.form("rjmz")="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,软件名字为空呢！');history.go(-1);</script>")
end if
if request.form("kkjj")="" then
luzhubaErr = True
luzhuba_cn("<script language=javascript>alert('对不起,概括简介为空呢！');history.go(-1);</script>")
end if
if request.form("xzhttp1")="" 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
sql="select * from rj"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.AddNew
rs("zfl")=request.querystring("zfl")
rs("rjmz")=request.form("rjmz")
rs("rjbb")=request.form("rjbb")
rs("mzys")=request.form("mzys")
rs("mzzt")=request.form("mzzt")
rs("rjzz")=request.form("rjzz")
rs("yxhj")=request.form("yxhj")
rs("rjlx")=request.form("rjlx")
rs("sqfs")=request.form("sqfs")
rs("rjyy")=request.form("rjyy")
rs("cjqk")=request.form("cjqk")
rs("yyly")=request.form("yyly")
rs("zjds")=request.form("zjds")
rs("htgn")=request.form("htgn")
rs("rjdx")=request.form("rjdx")
rs("syqk")=request.form("syqk")
rs("zhpj")=request.form("zhpj")
rs("qq")=request.form("qq")
rs("tel")=request.form("tel")
rs("email")=request.form("email")
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
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("btlj")=request.form("btlj")
rs("yswz")=request.form("yswz")
rs("zzwz")=request.form("zzwz")
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("rjst")=request.form("rjst")
for i=1 to request.form("xzsl")
tt=tt&request.form("xzmz"&i&"")&"|"&request.form("xzhttp"&i&"")&";"
next
rs("xz")=tt
rs("ssfl")=request.form("ssfl")
rs("sszt")=request.form("sszt")
rs("kkjj")=request.form("kkjj")
rs("rjjs")=request.form("body")
rs("rjsj")=datelws(date())
rs("hydj")=request.form("hydj") 
rs("hyjf")=request.form("hyjf") 
rs.Update
Session("ssfl")=request.form("ssfl")
www_luzhuba_cn_jsq("?luzhuba=rjxs&zfl="&request("zfl")&"&ssfl="&request.form("ssfl")&"&page="&request("cpage")&"&qtxx="&request("qtxx")&"")  
luzhuba()
end sub
Public Sub rjmodify
sql="select * from rj where d_id="&request.querystring("d_id")&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
luzhuba_cn("<form method='post' action='?luzhuba=rjmodifysave&zfl="&request.querystring("zfl")&"&ssfl="&request.querystring("ssfl")&"&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='17%'>软件名字:</td><td width='88%' colspan='2'><input type='text' id='input' name='rjmz' size='25' value='"&rs("rjmz")&"'>")
luzhuba_cn("软件版本:<input type='text' id='input' name='rjbb' size='10' value='"&rs("rjbb")&"'></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='"&rs("mzys")&"'>")
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 rslb=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=2"
rslb.Open s