<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="inc/Page_cls.asp"-->
<!--#include file="../include/config.inc"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_qq.asp
'* 最后更新 2012-06-26 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",8.4,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_qq.inc"
CurrentId = 5
CurrentUrl = "admin_qq.asp"
LB_Head()
LB_Menu()
action = request("action")
%>
<div class="tabmenu mainwidth">
	  <ul>
		<li <%If action = "" Then Response.Write("class=""current""") End If%>><a href="admin_qq.asp"><span><%=Lang_QQ(43)%></span></a></li>
		<li <%If action = "user_add" Then Response.Write("class=""current""") End If%>><a href="?action=user_add"><span><%=Lang_QQ(38)%></span></a></li>
		<li <%If action = "soft" Then Response.Write("class=""current""") End If%>><a href="?action=soft"><span><%=Lang_QQ(47)%></span></a></li>
		<li <%If action = "group" Then Response.Write("class=""current""") End If%>><a href="?action=group"><span><%=Lang_QQ(42)%></span></a></li>
		<li <%If action = "config" Then Response.Write("class=""current""") End If%>><a href="?action=config"><span><%=Lang_QQ(14)%></span></a></li>
	  </ul>
</div>
<%
Response.Write("<div class=""tab-mainbody"">")
Response.Write("<div class=""tab-mainbody2"">")
If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
        adminflag()
Else
		If OutSubmit = 1 Then CheckOutSubmit()
        s_id=CheckNum(request.QueryString("id"),0)
        q_id=CheckNum(request.QueryString("q_id"),0)
        select case action
		Case "config" : config()
		Case "config_ok" : config_ok()
	    Case "group" group()
	    Case "group_add" group_add()
	    Case "group_edit" group_edit()
	    Case "group_del" group_del()
		Case "user_add" user_add()
		Case "user_add_ok" user_add_ok()
	    Case "user_edit" user_edit()
	    Case "user_edit_ok" user_edit_ok()
		Case "user_update" user_update()
		Case "user_del" user_del()
	    Case "soft" soft()
	    Case "soft_add" soft_add()
	    Case "soft_edit" soft_edit()
	    Case "soft_edit_ok" soft_edit_ok()
	    Case "soft_update" soft_update()
	    Case "soft_del" soft_del()
        Case Else
	             main()
        End Select
End If
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub group_add()
        If OnlyRead = 1 Then OnlyReadMessage()
		if trim(request("q_s_name"))="" Then
				response.write"<SCRIPT language=JavaScript>alert('"& Lang_QQ(1) &"');javascript:history.go(-1)</SCRIPT>"
				response.End
		Else
				set rs=server.CreateObject("adodb.recordset")
				rs.Open "select * from [Lebi_qq_sort]", conn, 1, 3
				rs.AddNew
				rs("q_s_name")=safereplace(request("q_s_name"))
				rs("q_s_paixu")=CheckNum(request("q_s_paixu"),0)
				rs("ShowLang")=Replace(safereplace(request("ShowLang"))," ","")
				rs.Update
				rs.Close:set rs=Nothing
				If Config_Lebi_Eshop(17)="1" Then
						Application.Contents.RemoveAll
				Else
						NewEvent "0"
				End If
				ManageLog Lang_QQ(2) &" ["&safereplace(trim(request("q_s_name")))&"]"
				Call Up_mes(Lang_sys(45),"·"& Lang_sys(44),0,"?action=group",0,0,2,1)
		End If
End Sub

Sub soft_add()
        If OnlyRead = 1 Then OnlyReadMessage()
		t_name = safereplace(request("t_name"))
		t_order = CheckNum(request("t_order"),0)
		t_online = CheckNum(request("t_online"),0)
		t_code = safereplace(request("t_code"))
		t_text = safereplace(request("t_text"))
		t_face = safereplace(request("t_face"))
		t_url = safereplace(request("t_url"))
		set rs=server.CreateObject("adodb.recordset")
		rs.Open "select * from [Lebi_qq_type]", conn, 1, 3
		rs.AddNew
		rs("t_name")=t_name
		rs("t_order")=t_order
		rs("t_code")=t_code
		rs("t_face")=t_face
		rs("t_text")=t_text
		rs("t_url")=t_url
		rs("t_online")=t_online
		rs.Update
		rs.Close:set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(55) &" ["&safereplace(trim(request("t_name")))&"]"
		Call Up_mes(Lang_sys(45),"·"& Lang_sys(44),0,"?action=soft",0,0,2,1)
End Sub

Sub soft_edit_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
		id = CheckNum(request("id"),0)
		t_name = safereplace(request("t_name"))
		t_order = CheckNum(request("t_order"),0)
		t_online = CheckNum(request("t_online"),0)
		t_code = safereplace(request("t_code"))
		t_text = safereplace(request("t_text"))
		t_face = safereplace(request("t_face"))
		t_url = safereplace(request("t_url"))
		set rs=server.CreateObject("adodb.recordset")
		rs.Open "select * from [Lebi_qq_type] where t_id = "& id &"", conn, 1, 3
		rs("t_name")=t_name
		rs("t_order")=t_order
		rs("t_code")=t_code
		rs("t_face")=t_face
		rs("t_text")=t_text
		rs("t_url")=t_url
		rs("t_online")=t_online
		rs.Update
		rs.Close:set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(62) &" ["&safereplace(trim(request("t_name")))&"]"
		Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?action=soft",0,0,2,1)
End Sub

Sub soft_update()
        If OnlyRead = 1 Then OnlyReadMessage()
		q_s_id = Replace(Safereplace(trim(request("q_s_id")))," ","")
		q_s_paixu = Replace(Safereplace(trim(request("q_s_paixu")))," ","")
		If UBound (Split(q_s_id,",")) = 0 Then
                set rs=server.CreateObject("adodb.recordset")
                rs.open "select * from [Lebi_qq_type] where t_id=" & q_s_id, conn, 1, 3
				rs("t_order") = q_s_paixu
                rs.update
                rs.close:set rs=Nothing
		Else
		        For edit_i = 0 To UBound (Split(q_s_id,","))
                        set rs=server.CreateObject("adodb.recordset")
                        rs.open "select * from [Lebi_qq_type] where t_id=" & Split(q_s_id,",")(edit_i), conn, 1, 3
                        rs("t_order") = Checknum(Split(q_s_paixu,",")(edit_i),0)
                        rs.update
                        rs.close:set rs=Nothing
                Next
		End If
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(6)
        Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?action=soft&pagenum="& request("pagenum") &"&page="& request("page") &"",0,0,2,1)
End Sub

Sub soft_del()
        If OnlyRead = 1 Then OnlyReadMessage()
        del_id= Replace(safereplace(Trim(request("id"))),"，",",")
		If Right(del_id,1) = "," Then del_id = Left(del_id,Len(del_id)-1)
        if del_id="" then
                response.write"<SCRIPT language=JavaScript>alert('"& Lang_sys(41) &"');javascript:history.go(-1)</SCRIPT>"
                response.end
        end if
        If InStr(del_id,",") > 0 Then 
				arr_del_id = split(del_id,",")
				For i = 0 To UBound(arr_del_id)
				conn.execute "delete from [Lebi_qq_type] where t_id="& arr_del_id(i)
				conn.execute "delete from [Lebi_qq] where t_id="& arr_del_id(i)
				Next 
		Else
				conn.execute "delete from [Lebi_qq_type] where t_id="& del_id
				conn.execute "delete from [Lebi_qq] where t_id="& del_id
		End If 
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(66) &" ["&del_id&"]"
        Call Up_mes(Lang_sys(43),"·"& Lang_sys(42),0,"?action=soft&pagenum="& request("pagenum") &"&page="& request("page") &"",0,0,2,1)
End Sub

Sub user_add_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
        q_name=safereplace(request("q_name"))
		q_num=safereplace(request("q_num"))
		ShowLang=Replace(safereplace(request("ShowLang"))," ","")
		q_paixu=CheckNum(request("q_paixu"),0)
		q_s_id=CheckNum(request("q_s_id"),0)
		t_id=CheckNum(request("t_id"),0)
		set rs=server.CreateObject("adodb.recordset")
		rs.Open "select * from [Lebi_qq]", conn, 1, 3
		rs.AddNew
		rs("q_name")=q_name
		rs("q_num")=q_num
		rs("q_paixu")=q_paixu
		rs("q_s_id")=q_s_id
		rs("t_id")=t_id
		rs("ShowLang")=ShowLang
		rs.Update
		rs.Close:set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(5) &" ["&safereplace(trim(request("q_name")))&"]"
		Call Up_mes(Lang_sys(45),"·"& Lang_sys(44),0,"?",0,0,2,1)
End Sub

Sub user_edit_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
		id = CheckNum(request("id"),0)
        q_name=safereplace(request("q_name"))
		q_num=safereplace(request("q_num"))
		ShowLang=Replace(safereplace(request("ShowLang"))," ","")
		q_paixu=CheckNum(request("q_paixu"),0)
		q_s_id=CheckNum(request("q_s_id"),0)
		t_id=CheckNum(request("t_id"),0)
		set rs=server.CreateObject("adodb.recordset")
		rs.Open "select * from [Lebi_qq] where q_id = "& id &"", conn, 1, 3
		rs("q_name")=q_name
		rs("q_num")=q_num
		rs("q_paixu")=q_paixu
		rs("q_s_id")=q_s_id
		rs("t_id")=t_id
		rs("ShowLang")=ShowLang
		rs.Update
		rs.Close:set rs=Nothing
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(7) &" ["& q_name &"]"
		Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?",0,0,2,1)
End Sub

Sub user_update()
        If OnlyRead = 1 Then OnlyReadMessage()
		q_id = Replace(Safereplace(trim(request("q_id")))," ","")
        q_name = Replace(Safereplace(trim(request("q_name")))," ","")
		q_num = Replace(Safereplace(trim(request("q_num")))," ","")
		q_paixu = Replace(Safereplace(trim(request("q_paixu")))," ","")
		If UBound (Split(q_id,",")) = 0 Then
                set rs=server.CreateObject("adodb.recordset")
                rs.open "select * from [Lebi_qq] where q_id=" & q_id, conn, 1, 3
				rs("q_name") = q_name
				rs("q_num") = q_num
				rs("q_paixu") = q_paixu
				rs("ShowLang") = Replace(safereplace(request("ShowLang_"& q_id))," ","")
                rs.update
                rs.close:set rs=Nothing
		Else
		        For edit_i = 0 To UBound (Split(q_id,","))
                        set rs=server.CreateObject("adodb.recordset")
                        rs.open "select * from [Lebi_qq] where q_id=" & Split(q_id,",")(edit_i), conn, 1, 3
                        rs("q_name") = Split(q_name,",")(edit_i)
                        rs("q_num") = Split(q_num,",")(edit_i)
						rs("q_paixu") = Checknum(Split(q_paixu,",")(edit_i),0)
						rs("ShowLang") = Replace(safereplace(request("ShowLang_"& Split(q_id,",")(edit_i)))," ","")
                        rs.update
                        rs.close:set rs=Nothing
                Next
		End If
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(7)
        Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?q_s_id="& request("q_s_id") &"&t_id="& request("t_id") &"&q_showlang="& request("q_showlang") &"&keyword="& request("keyword") &"&pagenum="& request("pagenum") &"&page="& request("page") &"",0,0,2,1)
End Sub

Sub user_del()
        If OnlyRead = 1 Then OnlyReadMessage()
        del_id= Replace(safereplace(Trim(request("id"))),"，",",")
		If Right(del_id,1) = "," Then del_id = Left(del_id,Len(del_id)-1)
        if del_id="" then
                response.write"<SCRIPT language=JavaScript>alert('"& Lang_sys(41) &"');javascript:history.go(-1)</SCRIPT>"
                response.end
        end if
        If InStr(del_id,",") > 0 Then 
				arr_del_id = split(del_id,",")
				For i = 0 To UBound(arr_del_id)
				conn.execute "delete from [Lebi_qq] where q_id="& arr_del_id(i)
				Next 
		Else
				conn.execute "delete from [Lebi_qq] where q_id="& del_id
		End If 
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(9) &" ["&del_id&"]"
        Call Up_mes(Lang_sys(43),"·"& Lang_sys(42),0,"?q_s_id="& request("q_s_id") &"&t_id="& request("t_id") &"&q_showlang="& request("q_showlang") &"&keyword="& request("keyword") &"&pagenum="& request("pagenum") &"&page="& request("page") &"",0,0,2,1)
End Sub

Sub group_edit()
        If OnlyRead = 1 Then OnlyReadMessage()
		q_s_id = Replace(Safereplace(trim(request("q_s_id")))," ","")
        q_s_name = Replace(Safereplace(trim(request("q_s_name")))," ","")
		q_s_paixu = Replace(Safereplace(trim(request("q_s_paixu")))," ","")
		If UBound (Split(q_s_id,",")) = 0 Then
                set rs=server.CreateObject("adodb.recordset")
                rs.open "select * from [Lebi_qq_sort] where q_s_id=" & q_s_id, conn, 1, 3
				rs("q_s_name") = q_s_name
				rs("q_s_paixu") = q_s_paixu
				rs("ShowLang") = Replace(safereplace(request("ShowLang_"& q_s_id))," ","")
                rs.update
                rs.close:set rs=Nothing
		Else
		        For edit_i = 0 To UBound (Split(q_s_id,","))
                        set rs=server.CreateObject("adodb.recordset")
                        rs.open "select * from [Lebi_qq_sort] where q_s_id=" & Split(q_s_id,",")(edit_i), conn, 1, 3
                        rs("q_s_name") = Split(q_s_name,",")(edit_i)
                        rs("q_s_paixu") = Checknum(Split(q_s_paixu,",")(edit_i),0)
						rs("ShowLang") = Replace(safereplace(request("ShowLang_"& Split(q_s_id,",")(edit_i)))," ","")
                        rs.update
                        rs.close:set rs=Nothing
                Next
		End If
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(6)
        Call Up_mes(Lang_sys(48),"·"& Lang_sys(47),0,"?action=group&pagenum="& request("pagenum") &"&page="& request("page") &"",0,0,2,1)
End Sub

Sub group_del()
        If OnlyRead = 1 Then OnlyReadMessage()
        del_id= Replace(safereplace(Trim(request("id"))),"，",",")
		If Right(del_id,1) = "," Then del_id = Left(del_id,Len(del_id)-1)
        if del_id="" then
                response.write"<SCRIPT language=JavaScript>alert('"& Lang_sys(41) &"');javascript:history.go(-1)</SCRIPT>"
                response.end
        end if
        If InStr(del_id,",") > 0 Then 
				arr_del_id = split(del_id,",")
				For i = 0 To UBound(arr_del_id)
				conn.execute "delete from [Lebi_qq_sort] where q_s_id="& arr_del_id(i)
				conn.execute "delete from [Lebi_qq] where q_s_id="& arr_del_id(i)
				Next 
		Else
				conn.execute "delete from [Lebi_qq_sort] where q_s_id="& del_id
				conn.execute "delete from [Lebi_qq] where q_s_id="& del_id
		End If 
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(8) &" ["&del_id&"]"
        Call Up_mes(Lang_sys(43),"·"& Lang_sys(42),0,"?action=group&pagenum="& request("pagenum") &"&page="& request("page") &"",0,0,2,1)
End Sub

Sub config_ok()
        If OnlyRead = 1 Then OnlyReadMessage()
        tmp_oicq_x=safereplace(request("oicq_x"))
        tmp_oicq_Y=safereplace(request("oicq_Y"))
        tmp_oicq_skin=safereplace(request("oicq_skin"))
        tmp_oicq_skin=Replace(tmp_oicq_skin,"../images/qq_skin/","")
        tmp_oicq_skin=Replace(tmp_oicq_skin,"_1.gif","")
        tmp_oicq_zt=safereplace(request("oicq_zt"))
        tmp_qq_zt=safereplace(request("qq_zt"))
        tmp_qq_wz=safereplace(request("qq_wz"))
        tmp_qq_ys=safereplace(request("qq_ys"))
		tmp_qq_show=Replace(safereplace(request("qq_show"))," ","")
        set rs=server.CreateObject("adodb.recordset")
        sql="select sys_oicq from [Lebi_system]"
        rs.open sql, conn, 1, 3
        rs("sys_oicq") = tmp_oicq_x&"$$"&tmp_oicq_Y&"$$"&tmp_oicq_skin&"$$"&tmp_oicq_zt&"$$"&Split(rs("sys_oicq"),"$$")(4)&"$$"&tmp_qq_zt&"$$"&tmp_qq_wz&"$$"&tmp_qq_ys&"$$"&tmp_qq_show&"$$"
        rs.update
        rs.close : Set rs = Nothing
		CreateConfig()
		If Config_Lebi_Eshop(17)="1" Then
				Application.Contents.RemoveAll
		Else
				NewEvent "0"
		End If
		ManageLog Lang_QQ(10)
		SaveJs()
		Call Up_mes(Lang_sys(69),"·"& Lang_sys(68) &"<br />·"& Lang_QQ(11) & 0,0,m_u,0,0,3,1)
End Sub

Sub main()
		page = CheckNum(request("page"),1)
		pagenum = CheckNum(request("pagenum"),15)
		keyword = Safereplace(request("keyword"))
		q_showlang = safereplace(request("q_showlang"))
		q_q_s_id = safereplace(request("q_q_s_id"))
		q_t_id = safereplace(request("q_t_id"))
		Dim ors
		Set ors=new Cls_vbsPage
		Set ors.Conn=conn
		With ors
		.PageSize=pagenum
		.PageName="Page"
		If IsSqlDataBase = 0 Then
				.DbType="AC"
		Else
				.DbType="MSSQL"
		End If
		.RecType=-1
		.Pkey="q.q_id"
		.Field="q.q_id,q.q_name,q.q_paixu,q.ShowLang,q.q_num,t.t_name,s.q_s_name"
		.Table="[Lebi_qq] as q,[Lebi_qq_type] as t,[Lebi_qq_sort] as s"
		sql = "q.t_id = t.t_id and q.q_s_id = s.q_s_id"
		If keyword<>"" Then sql=sql + " and (q.q_name like '%"& keyword &"%' or q.q_num like '%"& keyword &"%')"
		If IsSqlDataBase = 1 And q_showlang<>"" Then sql = sql&" and charindex('"& q_showlang &"',q.showlang)>0"
		If IsSqlDataBase = 0 And q_showlang<>"" Then sql = sql&" and instr(q.showlang,'"& q_showlang &"')>0"
		If q_q_s_id<>"" Then sql=sql + " and q.q_s_id = "& q_q_s_id
		If q_t_id<>"" Then sql=sql + " and q.t_id = "& q_t_id
		.Condition=sql
		.OrderBy="t.t_order desc,q.q_paixu desc"
		End With
		DataCount=ors.RecCount()
		DataList=ors.ResultSet()
%>
<script language="JavaScript" type="text/JavaScript">
function todel()
{

   var i = 0;
   var chkArr = document.getElementsByName("id");
   var page = document.getElementById("page").value;
   var pagenum = document.getElementById("pagenum").value;
   var q_s_id = document.getElementById("q_s_id").value;
   var t_id = document.getElementById("t_id").value;
   var q_showlang = document.getElementById("q_showlang").value;
   var keyword = document.getElementById("keyword").value;
   var param = "";
   for (i=0;i<chkArr.length;i++)
   if (chkArr[i].checked)
   param+=chkArr[i].value +",";
   if (param.length == 0)
   {
       alert("<%=Lang_sys(41)%>");
   }else{
       if(window.confirm("<%=Lang_sys(64)%>")){
           location="?action=user_del&id="+param+"&q_s_id="+q_s_id+"&t_id="+t_id+"&q_showlang="+escape(q_showlang)+"&keyword="+escape(keyword)+"&pagenum="+pagenum+"&page="+page;
       }else return;
   }
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable-top">
<tr>
<form method="get" name="forms" action="?">
<td height="30" align="left" class="classhead">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<select name="q_showlang">
<option value="" selected>┌ <%=Lang_sys(67)%></option>
<%For LangT = 1 To TotalLang%>
<option value="<%= LanguageName(LangT) %>" <%=judge2(q_showlang,LanguageName(LangT))%>>├ <%= LanguageName(LangT) %></option>
<%Next%>
</select>
<select name="q_s_id">
<option value="" selected>┌ <%=Lang_QQ(32)%></option>
<%
Set rs=conn.execute("select q_s_id,q_s_name from [Lebi_qq_sort] order by q_s_paixu desc")
If Not rs.eof Then
Do While Not rs.eof
		response.write"<option value="&rs(0)&" "& judge2(q_s_id,rs(0)) &">├ "&rs(1)&"</option>"
rs.movenext
Loop
End If
rs.close:Set rs=Nothing
%></select>
<select name="t_id">
<option value="" selected>┌ <%=Lang_QQ(56)%></option>
<%
Set rs=conn.execute("select t_id,t_name from [Lebi_qq_type] order by t_order desc")
If Not rs.eof Then
Do While Not rs.eof
		response.write"<option value="&rs(0)&" "& judge2(t_id,rs(0)) &">├ "&rs(1)&"</option>"
rs.movenext
Loop
End If
rs.close:Set rs=Nothing
%></select>
</td>
<td style="padding-left:5px;">
<input name="keyword" type="text" class="form_query" size="15"><input name="Submit" type="submit" value="" title="<%=Lang_sys(25)%>" align="absmiddle" class="btn_query"><input type="hidden" name="pagenum" value="<%= pagenum %>">
</td>
</tr>
</table>
</td>
<td height="30" align="right" class="classhead">
<%=QuickMenu("Admin_vote.asp?action=add|"& Lang_Menu(144) &"","Admin_qq.asp?action=user_add|"& Lang_QQ(38) &"")%>
</td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="main" class="classtable2">
<form name="edit" method="post" action="?action=user_update">
<input type="hidden" name="page" id="page" value="<%= page %>">
<input type="hidden" name="pagenum" id="pagenum" value="<%= pagenum %>">
<input type="hidden" name="q_s_id" id="q_s_id" value="<%= q_q_s_id %>">
<input type="hidden" name="t_id" id="t_id" value="<%= q_t_id %>">
<input type="hidden" name="q_showlang" id="q_showlang" value="<%= q_showlang %>">
<input type="hidden" name="keyword" id="keyword" value="<%= keyword %>">
<tr>
  <td colspan="2" height="30" class="classhead">
     <input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> " align="absmiddle">
     <input type="image" title=" <%=Lang_sys(15)%> " onclick="location.href='javascript:todel();';return false;" src="lang/<%=LangFilePath%>/images/bt_delete.gif" align="absmiddle">
  </td>
  <td height="30" class="classhead" align="right" colspan="6"><%=ors.ShowPageHead(page)%></td>
 </tr>
<tr>
<td class="classtop" width="5%" height="30" title="<%=Lang_sys(4)%>" style="cursor:pointer;" onclick="javascript:selectallid('id');return false;"><%=Lang_sys(50)%></td>
<td class="classtop" width="15%"><%=Lang_QQ(64)%></td>
<td class="classtop" width="15%"><%=Lang_QQ(65)%></td>
<td class="classtop" width="10%"><%=Lang_QQ(56)%></td>
<td class="classtop" width="10%"><%=Lang_QQ(32)%></td>
<td class="classtop" width="20%"><%=Lang_QQ(44)%></td>
<td class="classtop" width="10%"><%=Lang_QQ(33)%></td>
<td class="classtop" width="6%"><%=Lang_QQ(60)%></td>
</tr>
<%
If DataCount >0 Then
		For i = 0 To Ubound(DataList,2)
%>
<tr class="classrow">
<td width="5%" height="30" class="classrow"><input name="id" id="id" type="checkbox" value="<%=DataList(0,i)%>"><input name="q_id" type="hidden" value="<%=DataList(0,i)%>"></td>
<td height="30" class="classrow"><input name="q_name" type="text" id="q_name" value="<%=Trim(DataList(1,i))%>" size="15" class="form"></td>
<td height="30" class="classrow"><input name="q_num" type="text" id="q_num" value="<%=Trim(DataList(4,i))%>" size="15" class="form"></td>
<td height="30" class="classrow"><%=Trim(DataList(5,i))%></td>
<td height="30" class="classrow"><%=Trim(DataList(6,i))%></td>
<td class="classrow">
<%
Set Lang = conn.execute("Select l_name from [Lebi_Language] where l_state = 1 order by l_default desc,l_order desc")
Do While Not Lang.eof
%>
<input type="checkbox" name="ShowLang_<%=DataList(0,i)%>" value="<%=Lang(0)%>" <%=judge(DataList(3,i),lang(0))%>><%=Lang(0)%>
<%
Lang.movenext
Loop
Lang.close : Set Lang = Nothing
%>
</td>
<td class="classrow"><input name="q_paixu" type="text" id="q_paixu" value=<%=Trim(DataList(2,i))%> size="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form"></td>
<td class="classrow"><input type="image" title="<%=Lang_sys(51)%>" onclick="location.href='?action=user_edit&id=<%=DataList(0,i)%>';return false;" src="images/icon_edit.gif" align="absmiddle"></td>
</tr>
<%
        Next
End If
%>
</form>
<tr>
	<td height="30" class="classfooter" colspan="2"><%=GetPageNum(15,pagenum)%></td>
	<td height="30" class="classfooter" align="right" colspan="6"><%=ors.ShowPageFoot(page)%></td>
</tr>
</tbody>
</table>
<script>tdshow("main");</script>
<%
End Sub

Sub config()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="config" class="classtable">
<form method="POST" action="?action=config_ok">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
	<td align="right" class="classhead">
	<%=QuickMenu("Admin_qq.asp?Action=group|"& Lang_QQ(42) &"","Admin_language.asp|"& Lang_menu(149) &"")%>
	</td>
 </tr>
  <tr>
     <td class="classtop" height="30" colspan="3"><%=Lang_QQ(14)%></td>
  </tr>
<%
sql="select top 1 sys_oicq from [Lebi_system]"
Set rs = conn.execute(sql)
arr_oicq = Split(rs("sys_oicq"),"$$")
%>
<tr class="classrow">
<td width="15%" class="classrow" height="30"><%=Lang_QQ(15)%></td>
<td width="85%" class="classrow" height="30">
X：<input type="text" name="oicq_x" size="3" style="width:40px;" value="<%=arr_oicq(0)%>" class="form">
Y：<input type="text" name="oicq_Y" size="3" style="width:40px;" value="<%=arr_oicq(1)%>" class="form">
</td>
</tr>
<tr class="classrow">
<td class="classrow" height="30"><%=Lang_QQ(16)%></td>
<td class="classrow" height="30">
<select name="oicq_skin"  onchange="document.images['skin_face'].src=options[selectedIndex].value;">
   <%
   response.write"<option value='../images/qq_skin/"&arr_oicq(2)&"_1.gif'>"&arr_oicq(2)&"</option>"
   For i=1 To 9
 response.write"<option value="
   If CInt(checknum(arr_oicq(2),0))=CInt(i) Then response.write "../images/qq_skin/"&i&"_1.gif" Else  response.write "../images/qq_skin/"&i&"_1.gif" End If
     response.write">"&i&"</option>"
     Next
   %>
   </select> <img src="../images/qq_skin/<%=arr_oicq(2)&"_1"%>.gif" id="skin_face" align="absmiddle">
</td>
</tr>
<tr class="classrow">
<td class="classrow" height="30"><%=Lang_QQ(18)%></td>
<td class="classrow" height="30">
<select name="qq_zt">
<option value="1" <%if arr_oicq(5)="1" then Response.Write"selected"%>><%=Lang_QQ(19)%></option>
<option value="0" <%if arr_oicq(5)="0" then Response.Write"selected"%>><%=Lang_QQ(20)%></option>
</select>

<!--<%=Lang_QQ(21)%>
<select name="oicq_zt">
<option value="1" <%if arr_oicq(3)="1" then Response.Write"selected"%>><%=Lang_QQ(22)%></option>
<option value="0" <%if arr_oicq(3)="0" then Response.Write"selected"%>><%=Lang_QQ(23)%></option>
</select>-->
</td>
</tr>
<tr class="classrow">
<td class="classrow" height="30"><%=Lang_QQ(24)%></td>
<td class="classrow" height="30">
<select name="qq_wz">
<option value="1" <%if arr_oicq(6)="1" then Response.Write"selected"%>><%=Lang_QQ(25)%></option>
<option value="0" <%if arr_oicq(6)="0" then Response.Write"selected"%>><%=Lang_QQ(26)%></option>
</select>
</td>
</tr>
<tr class="classrow">
<td class="classrow" height="30"><%=Lang_QQ(27)%></td>
<td class="classrow" height="30">
<select name="qq_ys">
<option value="1" <%if arr_oicq(7)="1" then Response.Write"selected"%>><%=Lang_QQ(28)%></option>
<option value="0" <%if arr_oicq(7)="0" then Response.Write"selected"%>><%=Lang_QQ(29)%></option>
</select>
<img src="images/help.gif" align="absmiddle" title="<%=Lang_QQ(30)%>">
</td>
</tr>
<!--
<tr>
<td class="classrow" height="30">显示位置：</td>
<td class="classrow" height="30">
首页<input type="checkbox" name="qq_show" value="1"<%If InStr(arr_oicq(8),",1,")>0 Then response.write" checked"%>>
商品分类页<input type="checkbox" name="qq_show" value="2"<%If InStr(arr_oicq(8),",2,")>0 Then response.write" checked"%>>
商品底层页<input type="checkbox" name="qq_show" value="3"<%If InStr(arr_oicq(8),",3,")>0 Then response.write" checked"%>>
新货上架页<input type="checkbox" name="qq_show" value="4"<%If InStr(arr_oicq(8),",4,")>0 Then response.write" checked"%>>
精品推荐页<input type="checkbox" name="qq_show" value="5"<%If InStr(arr_oicq(8),",5,")>0 Then response.write" checked"%>>
特价商品页<input type="checkbox" name="qq_show" value="6"<%If InStr(arr_oicq(8),",6,")>0 Then response.write" checked"%>>
</td>
</tr>
-->
<%
rs.close : Set rs = Nothing
%>
</form>
</table>
<script>tdshow("config");</script>
<%
End Sub 

Sub soft()
		page = CheckNum(request("page"),1)
		pagenum = CheckNum(request("pagenum"),15)
		Dim ors
		Set ors=new Cls_vbsPage
		Set ors.Conn=conn
		With ors
		.PageSize=pagenum
		.PageName="Page"
		If IsSqlDataBase = 0 Then
				.DbType="AC"
		Else
				.DbType="MSSQL"
		End If
		.RecType=-1
		.Pkey="t_id"
		.Field="t_id,t_name,t_url,t_text,t_order,t_online"
		.Table="[Lebi_qq_type]"
		sql = "1=1"
		.Condition=sql
		.OrderBy="t_order desc"
		End With
		DataCount=ors.RecCount()
		DataList=ors.ResultSet()
%>
<script language="JavaScript" type="text/JavaScript">
function CheckForm(theform)
{
	if (CheckEmpty('t_name')){ShowMessage('t_name','<%=Lang_QQ(12)%>');return false;}
}
function todel()
{

   var i = 0;
   var chkArr = document.getElementsByTagName("input");
   var page = document.getElementById("page").value;
   var pagenum = document.getElementById("pagenum").value;
   var param = "";
   for (i=0;i<chkArr.length;i++)
   if (chkArr[i].checked)
   param+=chkArr[i].value +",";
   if (param.length == 0)
   {
       alert("<%=Lang_sys(41)%>");
   }else{
       if(window.confirm("<%=Lang_sys(64)%>")){
           location="?action=soft_del&id="+param+"&pagenum="+pagenum+"&page="+page;
       }else return;
   }
}
</script>
<script language="javascript" type="text/javascript" src="Upfile/js/Upload_Other.js"></script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable" id="soft_add">
<form name="soft_add" method="post" action="?" onSubmit="return CheckForm(this);">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"><input type="hidden" name="action" value="soft_add"></td>
	<td class="classhead" align="right"><%=QuickMenu("Admin_qq.asp?action=user_add|"& Lang_QQ(38) &"","Admin_qq.asp?action=group|"& Lang_QQ(42) &"")%></td>
 </tr>
<tr>
   <td colspan="2" class="classtop" height="30"><%=Lang_QQ(48)%></td></tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(49)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_name" id="t_name" size="20" class="form"> <span id="mes_t_name"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(63)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_url" id="t_url" size="50" class="form"> <span id="mes_t_url"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(52)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_text" id="t_text" size="50" class="form"> <span id="mes_t_code"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(51)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_code" id="t_code" size="50" class="form"> <span id="mes_t_code"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(53)%></td>
<td class="classrow">
<input id="t_face" name="t_face" type="text" size="20" class="form"> <input type="button" id="Upload_t_face" name="Upload_t_face" value="<%=Lang_sys(52)%>" onclick="uploadpanel('soft_add','t_face','qq')" class="btn_upload">
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(21)%></td>
<td class="classrow">
<input name="t_online" type="checkbox" value="1"> <%=Lang_QQ(50)%>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(45)%></td>
<td class="classrow">
<input name="t_order" type="text" size="5" maxlength="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form">
</td>
</tr>
<tr class="classfooter">
  <td height="30" colspan="2" align="left" class="classfooter"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
 </tr>
</form>
</table>
<script>tdshow("soft_add");</script>
</div>
</div>
<div class="mainbody-block">
<div class="mainbody-block2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="classtable" class="classtable">
<form name="edit" method="post" action="?action=soft_update">
<input type="hidden" name="page" value="<%= page %>">
<input type="hidden" name="pagenum" value="<%= pagenum %>">
<tr>
  <td colspan="2" height="30" class="classhead">
     <input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> " align="absmiddle">
     <input type="image" title=" <%=Lang_sys(15)%> " onclick="location.href='javascript:todel();';return false;" src="lang/<%=LangFilePath%>/images/bt_delete.gif" align="absmiddle">
  </td>
  <td height="30" class="classhead" align="right" colspan="5"><%=ors.ShowPageHead(page)%></td>
 </tr>
<tr>
<td class="classtop" width="5%" height="30" title="<%=Lang_sys(4)%>" style="cursor:pointer;" onclick="location.href='javascript:selectall();';return false;"><%=Lang_sys(50)%></td>
<td class="classtop" width="10%"><%=Lang_QQ(56)%></td>
<td class="classtop" width="39%"><%=Lang_QQ(57)%></td>
<td class="classtop" width="20%"><%=Lang_QQ(58)%></td>
<td class="classtop" width="10%"><%=Lang_QQ(59)%></td>
<td class="classtop" width="10%"><%=Lang_QQ(33)%></td>
<td width="6%" class="classtop"><%=Lang_QQ(60)%></td>
</tr>
<%
If DataCount >0 Then
		For i = 0 To Ubound(DataList,2)
%>
<tr class="classrow">
<td width="5%" height="30" class="classrow"><input name="id" type="checkbox" value="<%=DataList(0,i)%>"><input name="q_s_id" type="hidden" value="<%=DataList(0,i)%>"></td>
<td class="classrow"><%=Trim(DataList(1,i))%></td>
<td class="classrow"><%=Trim(DataList(2,i))%></td>
<td class="classrow"><%=Trim(DataList(3,i))%></td>
<td class="classrow"><%Select Case DataList(5,i)
Case "0" Response.Write("&nbsp;")
Case "1" Response.Write(Lang_QQ(50))
End Select%></td>
<td class="classrow"><input name="q_s_paixu" type="text" id="q_s_paixu" value="<%=Trim(DataList(4,i))%>" size="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form"></td>
<td class="classrow">
<input type="image" title="<%=Lang_sys(51)%>" onclick="location.href='?action=soft_edit&id=<%=DataList(0,i)%>';return false;" src="images/icon_edit.gif" align="absmiddle">
</td>
</tr>
<%
        Next
End If
%>
</form>
<tr>
	<td height="30" class="classfooter" colspan="2"><%=GetPageNum(15,pagenum)%></td>
	<td height="30" class="classfooter" align="right" colspan="5"><%=ors.ShowPageFoot(page)%></td>
</tr>
</tbody>
</table>
<script>tdshow("classtable");</script>
<%
End Sub

Sub soft_Edit()
		id = CheckNum(request("id"),1)
		Set rs = conn.execute("select * from [lebi_qq_type] where t_id = "& id &"")
		If Not rs.eof Then
%>
<script language="JavaScript" type="text/JavaScript">
function CheckForm(theform)
{
	if (CheckEmpty('t_name')){ShowMessage('t_name','<%=Lang_QQ(12)%>');return false;}
}
</script>
<script language="javascript" type="text/javascript" src="Upfile/js/Upload_Other.js"></script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable" id="soft_edit">
<form name="soft_edit" method="post" action="?" onSubmit="return CheckForm(this);">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"><input type="hidden" name="action" value="soft_edit_ok"><input type="hidden" name="id" value="<%=id%>"></td>
	<td class="classhead" align="right"><%=QuickMenu("","")%></td>
 </tr>
<tr>
   <td colspan="2" class="classtop" height="30"><%=Lang_QQ(61)%></td></tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(49)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_name" id="t_name" value="<%=rs("t_name")%>" size="20" class="form"> <span id="mes_t_name"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(63)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_url" id="t_url" value="<%=rs("t_url")%>" size="50" class="form"> <span id="mes_t_url"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(52)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_text" id="t_text" value="<%=rs("t_text")%>" size="50" class="form"> <span id="mes_t_code"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(51)%></td>
<td width="85%" class="classrow">
<input type="text" name="t_code" id="t_code" value="<%=rs("t_code")%>" size="50" class="form"> <span id="mes_t_code"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(53)%></td>
<td class="classrow">
<input id="t_face" name="t_face" type="text" value="<%=rs("t_face")%>" size="20" class="form"> <input type="button" id="Upload_t_face" name="Upload_t_face" value="<%=Lang_sys(52)%>" onclick="uploadpanel('soft_edit','t_face','qq')" class="btn_upload">
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(21)%></td>
<td class="classrow">
<input name="t_online" type="checkbox" value="1" <%=judge(rs("t_online"),1)%>> <%=Lang_QQ(50)%>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(45)%></td>
<td class="classrow">
<input name="t_order" type="text" value="<%=rs("t_order")%>" size="5" maxlength="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form">
</td>
</tr>
<tr class="classfooter">
  <td height="30" colspan="2" align="left" class="classfooter"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
 </tr>
</form>
</table>
<script>tdshow("soft_edit");</script>
<%
		End If
		rs.close : Set rs = Nothing
End Sub

Sub group()
		page = CheckNum(request("page"),1)
		pagenum = CheckNum(request("pagenum"),15)
		Dim ors
		Set ors=new Cls_vbsPage
		Set ors.Conn=conn
		With ors
		.PageSize=pagenum
		.PageName="Page"
		If IsSqlDataBase = 0 Then
				.DbType="AC"
		Else
				.DbType="MSSQL"
		End If
		.RecType=-1
		.Pkey="q_s_id"
		.Field="q_s_id,q_s_name,q_s_paixu,ShowLang"
		.Table="[Lebi_qq_sort]"
		sql = "1=1"
		.Condition=sql
		.OrderBy="q_s_paixu desc"
		End With
		DataCount=ors.RecCount()
		DataList=ors.ResultSet()
%>
<script language="JavaScript" type="text/JavaScript">
function CheckForm(theform)
{
	if (CheckEmpty('q_s_name')){ShowMessage('q_s_name','<%=Lang_QQ(12)%>');return false;}
}
function todel()
{

   var i = 0;
   var chkArr = document.getElementsByName("id");
   var page = document.getElementById("page").value;
   var pagenum = document.getElementById("pagenum").value;
   var param = "";
   for (i=0;i<chkArr.length;i++)
   if (chkArr[i].checked)
   param+=chkArr[i].value +",";
   if (param.length == 0)
   {
       alert("<%=Lang_sys(41)%>");
   }else{
       if(window.confirm("<%=Lang_sys(64)%>")){
           location="?action=group_del&id="+param+"&pagenum="+pagenum+"&page="+page;
       }else return;
   }
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
<tbody>
<tr>
	<form name="add" method="post" action="?action=group_add" onSubmit="return CheckForm(this);">
	<td height="30" align="left" colspan="3" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
	<td height="30" align="right" class="classhead">
	<%=QuickMenu("Admin_qq.asp?action=soft|"& Lang_QQ(47) &"","Admin_qq.asp?action=config|"& Lang_QQ(14) &"")%>
	</td>
 </tr>
<tr>
<td class="classtop" width="5%" height="30">&nbsp;</td>
<td class="classtop" width="25%"><%=Lang_QQ(32)%></td>
<td class="classtop" width="50%"><%=Lang_QQ(44)%></td>
<td class="classtop" width="20%"><%=Lang_QQ(33)%></td>
</tr>
<tr>
<td width="5%" height="30" class="classrow">&nbsp;</td>
<td class="classrow">
<input name="q_s_name" type="text" id="q_s_name" size="20" class="form"> <span id="mes_q_s_name"></span>
</td>
<td class="classrow">
<%
Set Lang = conn.execute("Select l_name from [Lebi_Language] where l_state = 1 order by l_default desc,l_order desc")
Do While Not Lang.eof
%>
<input type="checkbox" name="ShowLang" value="<%=Lang(0)%>"><%=Lang(0)%>
<%
Lang.movenext
Loop
Lang.close : Set Lang = Nothing
%>
</td>
<td class="classrow">
<input name="q_s_paixu" type="text" id="q_s_paixu" size="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form">
</td>
</form>
</tr>
</tbody>
</table>
</div>
</div>
<div class="mainbody-block">
<div class="mainbody-block2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="classtable" class="classtable">
<form name="edit" method="post" action="?action=group_edit">
<input type="hidden" name="page" value="<%= page %>">
<input type="hidden" name="pagenum" value="<%= pagenum %>">
<tr>
  <td colspan="2" height="30" class="classhead">
     <input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_sys(1)%> " align="absmiddle">
     <input type="image" title=" <%=Lang_sys(15)%> " onclick="location.href='javascript:todel();';return false;" src="lang/<%=LangFilePath%>/images/bt_delete.gif" align="absmiddle">
  </td>
  <td height="30" class="classhead" align="right" colspan="5"><%=ors.ShowPageHead(page)%></td>
 </tr>
<tr>
<td class="classtop" width="5%" height="30" title="<%=Lang_sys(4)%>" style="cursor:pointer;" onclick="location.href='javascript:selectall();';return false;"><%=Lang_sys(50)%></td>
<td class="classtop" width="25%"><%=Lang_QQ(32)%></td>
<td class="classtop" width="50%"><%=Lang_QQ(44)%></td>
<td class="classtop" width="20%"><%=Lang_QQ(33)%></td>
</tr>
<%
If DataCount >0 Then
		For i = 0 To Ubound(DataList,2)
%>
<tr class="classrow">
<td width="5%" height="30" class="classrow"><input name="id" type="checkbox" value="<%=DataList(0,i)%>"><input name="q_s_id" type="hidden" value="<%=DataList(0,i)%>"></td>
<td height="30" class="classrow">
<input name="q_s_name" type="text" id="q_s_name" value="<%=Trim(DataList(1,i))%>" size="20" class="form">
</td>
<td class="classrow">
<%
Set Lang = conn.execute("Select l_name from [Lebi_Language] where l_state = 1 order by l_default desc,l_order desc")
Do While Not Lang.eof
%>
<input type="checkbox" name="ShowLang_<%=DataList(0,i)%>" value="<%=Lang(0)%>" <%=judge(DataList(3,i),lang(0))%>><%=Lang(0)%>
<%
Lang.movenext
Loop
Lang.close : Set Lang = Nothing
%>
</td>
<td class="classrow">
<input name="q_s_paixu" type="text" id="q_s_paixu" value=<%=Trim(DataList(2,i))%> size="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form">
</td>
</tr>
<%
        Next
End If
%>
</form>
<tr>
	<td height="30" class="classfooter" colspan="2"><%=GetPageNum(15,pagenum)%></td>
	<td height="30" class="classfooter" align="right" colspan="2"><%=ors.ShowPageFoot(page)%></td>
</tr>
</tbody>
</table>
<script>tdshow("classtable");</script>
<%
End Sub

Sub user_add()
%>
<script language="JavaScript" type="text/JavaScript">
function CheckForm(theform)
{
	if (CheckEmpty('q_name')){ShowMessage('q_name','<%=Lang_QQ(1)%>');return false;}
	if (CheckEmpty('q_num')){ShowMessage('q_num','<%=Lang_QQ(3)%>');return false;}
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable" id="user_add">
<form name="user_add" method="post" action="?" onSubmit="return CheckForm(this);">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"><input type="hidden" name="action" value="user_add_ok"></td>
	<td class="classhead" align="right"><%=QuickMenu("Admin_qq.asp|"& Lang_QQ(43) &"","Admin_qq.asp?action=soft|"& Lang_QQ(47) &"")%></td>
 </tr>
<tr>
   <td colspan="2" class="classtop" height="30"><%=Lang_QQ(41)%></td></tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(34)%></td>
<td width="85%" class="classrow">
<input type="text" name="q_name" id="q_name" size="20" class="form"> <span id="mes_q_name"></span>
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_QQ(49)%></td>
<td class="classrow">
<select name="t_id">
<%
Set RsSoft=conn.execute("select t_id,t_name from [Lebi_qq_type] order by t_order desc")
If Not RsSoft.eof Then
Do While Not RsSoft.eof
		response.write"<option value="&RsSoft(0)&">"&RsSoft(1)&"</option>"
RsSoft.movenext
Loop
End If
RsSoft.close:Set RsSoft=Nothing
%></select>
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_QQ(54)%></td>
<td class="classrow">
<input type="text" name="q_num" id="q_num" size="20" class="form"> <span id="mes_q_num"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(37)%></td>
<td class="classrow">
<select name="q_s_id">
<%Set rs=conn.execute("select q_s_id,q_s_name from [Lebi_qq_sort] order by q_s_paixu desc")
If Not rs.eof Then
Do While Not rs.eof
		response.write"<option value="&rs("q_s_id")&">"&rs("q_s_name")&"</option>"
rs.movenext
Loop
End If
rs.close:Set rs=Nothing
%></select>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(45)%></td>
<td class="classrow">
<input name="q_paixu" type="text" size="5" maxlength="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_QQ(46)%></td>
<td class="classrow">
<%
Set Lang = conn.execute("Select l_name from [Lebi_Language] where l_state = 1 order by l_default desc,l_order desc")
Do While Not Lang.eof
%>
<input type="checkbox" name="ShowLang" value="<%=Lang(0)%>"><%=Lang(0)%>
<%
Lang.movenext
Loop
Lang.close : Set Lang = Nothing
%>
</td>
</tr>
<tr class="classfooter">
  <td height="30" colspan="2" align="left" class="classfooter"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
 </tr>
</form>
</table>
<script>tdshow("user_add");</script>
<%
End Sub

Sub user_edit()
		id = CheckNum(request("id"),1)
		Set rs = conn.execute("select * from [lebi_qq] where q_id = "& id &"")
		If Not rs.eof Then
%>
<script language="JavaScript" type="text/JavaScript">
function CheckForm(theform)
{
	if (CheckEmpty('q_name')){ShowMessage('q_name','<%=Lang_QQ(1)%>');return false;}
	if (CheckEmpty('q_num')){ShowMessage('q_num','<%=Lang_QQ(3)%>');return false;}
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable" id="user_edit">
<form name="user_edit" method="post" action="?" onSubmit="return CheckForm(this);">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"><input type="hidden" name="action" value="user_edit_ok"><input type="hidden" name="id" value="<%=id%>"></td>
	<td class="classhead" align="right"><%=QuickMenu("","")%></td>
 </tr>
<tr>
   <td colspan="2" class="classtop" height="30"><%=Lang_QQ(41)%></td></tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(34)%></td>
<td width="85%" class="classrow">
<input type="text" name="q_name" id="q_name" value="<%=rs("q_name")%>" size="20" class="form"> <span id="mes_q_name"></span>
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_QQ(49)%></td>
<td class="classrow">
<select name="t_id">
<%
Set RsSoft=conn.execute("select t_id,t_name from [Lebi_qq_type] order by t_order desc")
If Not RsSoft.eof Then
Do While Not RsSoft.eof
		response.write"<option value="&RsSoft(0)&" "& judge2(rs("t_id"),RsSoft(0)) &">"&RsSoft(1)&"</option>"
RsSoft.movenext
Loop
End If
RsSoft.close:Set RsSoft=Nothing
%></select>
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_QQ(54)%></td>
<td class="classrow">
<input type="text" name="q_num" id="q_num" value="<%=rs("q_num")%>" size="20" class="form"> <span id="mes_q_num"></span>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(37)%></td>
<td class="classrow">
<select name="q_s_id">
<%Set RsSort=conn.execute("select q_s_id,q_s_name from [Lebi_qq_sort] order by q_s_paixu desc")
If Not RsSort.eof Then
Do While Not RsSort.eof
		response.write"<option value="&RsSort("q_s_id")&" "& judge2(rs("q_s_id"),RsSort(0)) &">"&RsSort("q_s_name")&"</option>"
RsSort.movenext
Loop
End If
RsSort.close:Set RsSort=Nothing
%></select>
</td>
</tr>
<tr class="classrow">
<td width="15%" height="30" class="classrow"><%=Lang_QQ(45)%></td>
<td class="classrow">
<input name="q_paixu" type="text" size="5" value="<%=rs("q_paixu")%>" maxlength="5" onkeyup="value=value.replace(/[^\d\.]/g,'');" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_QQ(46)%></td>
<td class="classrow">
<%
Set Lang = conn.execute("Select l_name from [Lebi_Language] where l_state = 1 order by l_default desc,l_order desc")
Do While Not Lang.eof
%>
<input type="checkbox" name="ShowLang" value="<%=Lang(0)%>" <%=judge(rs("showlang"),Lang(0))%>><%=Lang(0)%>
<%
Lang.movenext
Loop
Lang.close : Set Lang = Nothing
%>
</td>
</tr>
<tr class="classfooter">
  <td height="30" colspan="2" align="left" class="classfooter"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " align="absmiddle" title=" <%=Lang_sys(1)%> ">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
 </tr>
</form>
</table>
<script>tdshow("user_edit");</script>
<%
	End If 
	rs.close : Set rs = Nothing 
End Sub

Sub SaveJs()
        Dim temp
	    temp = ""
	    temp = temp &"var startX = document.body.clientWidth-"&cint(sys_oicq_x)&" //set x offset of bar in pixels"&vbcrlf
        if qq_wz=1 and qq_zt=1 Then
                temp = temp &"var startY = "&cint(sys_oicq_y)&";"&vbcrlf
        elseif qq_wz=0 and qq_zt=1 Then
				temp = temp &"var startY = "&cint(sys_oicq_y)&";"&vbcrlf
        end If
        If CLng(qq_wz)=1 And CLng(qq_zt)=1 Then
                temp = temp &"var verticalpos=""fromtop"""&vbcrlf
        ElseIf CLng(qq_wz)=0 And CLng(qq_zt)=1 Then
                temp = temp &"var verticalpos=""frombottom"""&vbcrlf
        end If
	    temp = temp &"var winWidth = 0;"&vbcrlf
	    temp = temp &"function iecompattest(){"&vbcrlf
	    temp = temp &"   return (document.compatMode && document.compatMode!=""BackCompat"")? document.documentElement : document.body"&vbcrlf
	    temp = temp &"}"&vbcrlf

	    temp = temp &"function staticbar(){"&vbcrlf
	    temp = temp &"	if (window.innerWidth)"&vbcrlf
	    temp = temp &"	winWidth = window.innerWidth;"&vbcrlf
	    temp = temp &"	else if ((document.body) && (document.body.clientWidth))"&vbcrlf
	    temp = temp &"	winWidth = document.body.clientWidth;"&vbcrlf
	    temp = temp &"	if (document.documentElement && document.documentElement.clientWidth){winWidth = document.documentElement.clientWidth;}"&vbcrlf
	    temp = temp &"	startX = winWidth-"&cint(sys_oicq_x)&";"&vbcrlf
	    temp = temp &"	barheight=document.getElementById(""divStayTopLeft"").offsetHeight"&vbcrlf
	    temp = temp &"	var ns = (navigator.appName.indexOf(""Netscape"") != -1) || window.opera;"&vbcrlf
	    temp = temp &"	var d = document;"&vbcrlf
	    temp = temp &"	function ml(id){"&vbcrlf
	    temp = temp &"		var el=d.getElementById(id);"&vbcrlf
	    temp = temp &"		el.style.visibility=""visible"""&vbcrlf
	    temp = temp &"		if(d.layers)el.style=el;"&vbcrlf
	    temp = temp &"		el.sP=function(x,y){this.style.left=x+""px"";this.style.top=y+""px"";};"&vbcrlf
	    temp = temp &"		el.x = startX;"&vbcrlf
	    temp = temp &"		if (verticalpos==""fromtop"")"&vbcrlf
	    temp = temp &"		el.y = startY;"&vbcrlf
	    temp = temp &"		else{"&vbcrlf
	    temp = temp &"		el.y = ns ? pageYOffset + innerHeight : iecompattest().scrollTop + iecompattest().clientHeight;"&vbcrlf
	    temp = temp &"		el.y -= startY;"&vbcrlf
	    temp = temp &"		}"&vbcrlf
	    temp = temp &"		return el;"&vbcrlf
	    temp = temp &"	}"&vbcrlf
	    temp = temp &"	window.stayTopLeft=function(){"&vbcrlf
	    temp = temp &"		if (verticalpos==""fromtop""){"&vbcrlf
	    temp = temp &"		var pY = ns ? pageYOffset : iecompattest().scrollTop;"&vbcrlf
	    temp = temp &"		ftlObj.y += (pY + startY - ftlObj.y)/8;"&vbcrlf
	    temp = temp &"		}"&vbcrlf
	    temp = temp &"		else{"&vbcrlf
	    temp = temp &"		var pY = ns ? pageYOffset + innerHeight - barheight: iecompattest().scrollTop + iecompattest().clientHeight - barheight;"&vbcrlf
	    temp = temp &"		ftlObj.y += (pY - startY - ftlObj.y)/8;"&vbcrlf
	    temp = temp &"		}"&vbcrlf
	    temp = temp &"		ftlObj.sP(ftlObj.x, ftlObj.y);"&vbcrlf
	    temp = temp &"		setTimeout(""stayTopLeft()"", 10);"&vbcrlf
	    temp = temp &"	}"&vbcrlf
	    temp = temp &"	ftlObj = ml(""divStayTopLeft"");"&vbcrlf
	    temp = temp &"	stayTopLeft();"&vbcrlf
	    temp = temp &"}"&vbcrlf
	    temp = temp &"if(typeof(HTMLElement)!=""undefined""){"&vbcrlf
	    temp = temp &"  HTMLElement.prototype.contains=function (obj)"&vbcrlf
	    temp = temp &"  {"&vbcrlf
	    temp = temp &"	  while(obj!=null&&typeof(obj.tagName)!=""undefind""){"&vbcrlf
	    temp = temp &"　 　 if(obj==this) return true;"&vbcrlf
	    temp = temp &"　　	　obj=obj.parentNode;"&vbcrlf
	    temp = temp &"　	  }"&vbcrlf
	    temp = temp &"	  return false;"&vbcrlf
	    temp = temp &"  }"&vbcrlf
	    temp = temp &"}"&vbcrlf
	    temp = temp &"if (window.addEventListener)"&vbcrlf
	    temp = temp &"window.addEventListener(""load"", staticbar, false)"&vbcrlf
	    temp = temp &"else if (window.attachEvent)"&vbcrlf
	    temp = temp &"window.attachEvent(""onload"", staticbar)"&vbcrlf
	    temp = temp &"else if (document.getElementById)"&vbcrlf
	    temp = temp &"window.onload=staticbar;"&vbcrlf
	    temp = temp &"window.onresize=staticbar;"&vbcrlf
	    temp = temp &"function SiteServiceOver(){"&vbcrlf
	    temp = temp &"   document.getElementById(""divMenu"").style.display = ""none"";"&vbcrlf
	    temp = temp &"   document.getElementById(""divOnline"").style.display = ""block"";"&vbcrlf
	    temp = temp &"   document.getElementById(""divStayTopLeft"").style.width = ""170px"";"&vbcrlf
	    temp = temp &"}"&vbcrlf
	    temp = temp &"function SiteServiceOut(){"&vbcrlf
	    temp = temp &"   document.getElementById(""divMenu"").style.display = ""block"";"&vbcrlf
	    temp = temp &"   document.getElementById(""divOnline"").style.display = ""none"";"&vbcrlf
	    temp = temp &"}"&vbcrlf
	    temp = temp &"if(typeof(HTMLElement)!=""undefined"") "&vbcrlf
	    temp = temp &"{"&vbcrlf   
	    temp = temp &"   HTMLElement.prototype.contains=function(obj)"&vbcrlf
	    temp = temp &"   {"&vbcrlf   
	    temp = temp &"       while(obj!=null&&typeof(obj.tagName)!=""undefind""){"&vbcrlf
	    temp = temp &"   　　　 if(obj==this) return true;"&vbcrlf   
	    temp = temp &"   　　　 obj=obj.parentNode;"&vbcrlf
	    temp = temp &"   　　}"&vbcrlf   
	    temp = temp &"          return false;"&vbcrlf   
	    temp = temp &"   };"&vbcrlf   
	    temp = temp &"}"&vbcrlf
	    temp = temp &"function ShowSiteService(theEvent){"&vbcrlf
	    temp = temp &"　 if (theEvent){"&vbcrlf
	    temp = temp &"　    var browser=navigator.userAgent;"&vbcrlf
	    temp = temp &"　	if (browser.indexOf(""Firefox"")>0){"&vbcrlf
	    temp = temp &"　　     if (document.getElementById('divOnline').contains(theEvent.relatedTarget)) {"&vbcrlf
	    temp = temp &"　　         return;"&vbcrlf
	    temp = temp &"         }"&vbcrlf
	    temp = temp &"      }"&vbcrlf
	    temp = temp &"	    if (browser.indexOf(""MSIE"")>0 || browser.indexOf(""Safari"")>0){ //IE Safari"&vbcrlf
	    temp = temp &"          if (document.getElementById('divOnline').contains(event.toElement)) {"&vbcrlf
	    temp = temp &"	          return;"&vbcrlf
	    temp = temp &"          }"&vbcrlf
	    temp = temp &"      }"&vbcrlf
	    temp = temp &"   }"&vbcrlf
	    temp = temp &"   document.getElementById(""divMenu"").style.display = ""block"";"&vbcrlf
	    temp = temp &"   document.getElementById(""divOnline"").style.display = ""none"";"&vbcrlf
	    temp = temp &"}"
		Savehtml "../include/Lebi_Html/SiteQQService.js",temp
End Sub
%>