<!--#include file = "../inc/dbconn.asp"-->
<!--#include file = "CheckLogin.asp"-->
<!--#include file = "../inc/cache.asp"-->
<!--#include file = "../inc/function.asp"-->
<% LOADING_ADMIN_HEAD %>
<% call dbconn %>
<%
select case gqv("do")
	case "created_Class":created_Class
	case "created_livejs":created_livejs
	case else 	
end select
  LINE "<table width=""99%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tbl"" id=tbl>"
  LINE "<tr>"
  LINE "<td align=""center""><B>JS生成管理面板</B></td>"
  LINE "</tr>"
  LINE "<tr>"
  LINE "<td class=""tbl_head""><a href=""?"">JS生成</a> | <a href=""?do=created_Class"">创建分类js</a> | <a href=""?do=created_livejs"">创建网友正在点击</a></td>"
  LINE "</tr>"
  LINE "</table>"



sub created_Class
     on error resume next
    if not Check_Popedom("H202") then call alertbox("你没有权限操作",2)
	dim aa,list,tempstr
	set aa = new classlist
		aa.id = "id"
		aa.parentid = "parent"
		aa.table = "DH654_class"
		aa.name = "cname"
	list = aa.arrylist()
	tempstr="document.writeln(""<select name='parent'>"
	tempstr=tempstr&"<option value='0'>-=请选择分类=-</option>"
	dim o
	for o = 0 to ubound(list,2)-1
	    tempstr=tempstr& "<option value='"& list(0,o)&"'"
	    if list(0,o) - gqv("parent") = 0 then 
		   tempstr=tempstr&" selected"
		end if  
		tempstr=tempstr&">"&insertchr(list(2,o))&list(1,o)&"</option>"
	next
	tempstr=tempstr&"</select>"")"
	
	dim fso,fout
	Set fso = Server.CreateObject(G_654_FSO)
    Set fout = fso.Createtextfile(server.mappath("../css/lb.js"),true)
    fout.writeline tempstr
    fout.close  
    response.write "创建成功！！"
end sub

sub created_livejs
    if not Check_Popedom("H202") then call alertbox("你没有权限操作",2)
    Call Creatlivejs()
    response.write "创建成功！！"
end sub
%>
