<!--#include file="conn.asp"-->
<!--#include file="inc/cook2.asp"-->
<!--#include file="inc/dimflag.asp"-->

<%
tid = int(Request("tid"))

canshu1="tid="&tid&""
canshu3=""
canshu2=""&canshu3&""

set rs=server.CreateObject("adodb.recordset")
select case action
case "inputedit"
 attrKey = split(Trim(Request("id")), "$")(0) 
 index = split(Trim(Request("id")), "$")(1) 
 set rs=server.CreateObject("adodb.recordset")
 sql="select * from com_china where id="&index
 rs.open sql,conn,1,3
 rs(""&attrKey&"")=Trim(Request("value"))
 rs.update
 rs.close
 set rs=nothing
 Response.Write(Trim(Request("value"))) 
 Response.end()  
end select

%>
<!--#include file="top.asp"-->
<div id="container">
<div class="top_but">
 <li class="left">&nbsp;</li>
 <li><img src="images/but_8.gif" alt="刷新" onClick="window.location.reload(true);"></li>
 <li><img src="images/but_9.gif" alt="打印" onClick="window.print() "/></li>
</div>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from com_china where parentid=0 order by id asc",conn,1,1
i=rs.recordcount
set shengname=rs("name")
set sh1=rs("sh1")
set sh2=rs("sh2")
set sh3=rs("sh3")
set sh4=rs("sh4")
set id=rs("id")
%>
<form name="form1" id="form1" method="post" action="?<%=canshu1%>">
<div class="tableAll titlebgcolor">
 <li style="width:30px;">&nbsp;</li>
 <li style="width:40px"><input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form);" ></li>
 <li style="width:120px">省份/地区</li>
<%
set rszf=server.CreateObject("adodb.recordset")
rszf.open "select * from com_songhuo where type=0 order by pid asc",conn,1,1
set subject=rszf("subject")
do while not rszf.eof
%>
<li style="width:120px"><%=subject%></li>
<%
rszf.movenext
loop
rszf.close
set rszf=nothing
%>
</div>
<%
do while not rs.eof
%>
<div class="tableAll trbgcolor">
 <li style="width:30px;">&nbsp;</li>
 <li style="width:40px;"><input type="checkbox" name="id"  value="<%=id%>"></li>
 <li style="width:120px"><span id="shengname$<%=id%>" class="edit"><%=shengname%></span></li>
<%
set rszf=server.CreateObject("adodb.recordset")
rszf.open "select * from com_songhuo where type=0 order by pid asc",conn,1,1
set subject=rszf("subject")
set zfid=rszf("id")
do while not rszf.eof
%>
<li style="width:120px"><span id="sh<%=zfid%>$<%=id%>" class="edit"><%=rs("sh"&zfid)%></span></span></li>
<%
rszf.movenext
loop
rszf.close
set rszf=nothing
%>
</div>
<%
rs.movenext
loop
%>
</form>

<%
rs.close
set rs=nothing
%>
    
</div>
<script language="JavaScript" type="text/JavaScript" src="js/jquery.latest.js"></script> 
<!--#include file="footer.asp"-->