<!-- #Include File="Include/AMH_Onlogin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

del_user_true=true
del_upload_true=true
Index_Url="Ok"
PageUrl = PageUrl&"ChannelIDs="&iChannelIDs&"&"
Call AMH_Master(1,2)
Call AMH_Header(1)
select case AsaiMHMod
case "isgood"
  ntit="推荐"
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=1 and isgood=1 and Expired>now()"
case "sh"
  ntit="待审核"
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=0"
case "Expired"
  ntit="过期"
  sql_add="ChannelIDs="&iChannelIDs&" and Expired<"&s_tim&" and Solves=0"
Case "istop"
  ntit="固顶"&tit_fir
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=1 and istop=1 and Expired>"&s_tim
case "Solves"
  ntit="已解决"
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=1 and Solves=1"
case "NSolves"
  ntit="未解决"
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=1 and replys=0 and Expired>"&s_tim&" and Solves=0"
case "ZSolves"
  ntit="解决中"
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=1 and replys>0 and Expired>"&s_tim&" and Solves=0"
case else
  AsaiMHMod=""
  ntit=tit_fir&"列表"
  sql_add="ChannelIDs="&iChannelIDs&" and hidden=1 and Expired>"&s_tim
end select
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
   <td><a href='?ChannelIDs=<%=iChannelIDs%>'><%Response.Write tit_fir%>列表</a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=Expired&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="Expired" then response.write " class=red"%>>过期<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=sh&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="sh" then response.write " class=red"%>>待审核<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=isgood&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="isgood" then response.write " class=red"%>>推荐<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=istop&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="istop" then Response.Write " class=red"%>>固顶<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=NSolves&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="NSolves" then response.write " class=red"%>>未解决<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=ZSolves&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="ZSolves" then response.write " class=red"%>>解决中<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?AsaiMHMod=Solves&ChannelIDs=<%=iChannelIDs%>'<%if AsaiMHMod="Solves" then response.write " class=red"%>>已解决<%Response.Write tit_fir%></a></td>
  
  
  <td width=10></td>
  <td><a href='?Action=Add&ChannelIDs=<%=iChannelIDs%>&ClassID=<%Response.Write ClassID%>'<%if action="add" then Response.Write " class=red"%>>添加<%Response.Write tit_fir%></a></td>
  
 </tr>
  </table>
  </td></tr>
  <tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
 <%call AsaiMHIs_Nsort_Review()%>
  </tr>
  </table>
</td></tr>
<tr><td colspan=2 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='?' method=get>
  <input type=hidden name=ChannelIDs value='<%Response.Write iChannelIDs%>'>
  <input type=hidden name=AsaiMHMod value='<%Response.Write AsaiMHMod%>'>
  <input type=hidden name=ClassID value='<%Response.Write ClassID%>'>
  <tr>
  <td>搜索（<%Response.Write ntit%>） 关键字：</td>
  <td><input type=text name=keyword value='<%Response.Write Cls.Code_Query("keyword")%>' size=15 maxlength=20></td>
  <td><select name=sea_type size=1><option value='name'>按标题</option><option value='username'>按发布人</option></select></td>
  <td><select name=sea_term size=1><option value='all'>满足所有条件</option><option value='only'>满足一个条件</option></seelct></td>
  <td><input type=submit value='搜索' class=btn></td>
  </tr>
  </form>
  </table>
</td></tr>
</table>
<%
Call AMH_Table(1)
If Action="handle" Then call AsaiMHGo_Handle()
Select Case LCase(Action)
case "clear"
  Call AsaiMHGo_Clear()
case "replys"
  Call AsaiMHIaks_replys()
case "add"
  Call AsaiMHIaks_Add()
case "edit"
  Call AsaiMHIaks_Edit()
case "del"
  Call AsaiMHIaks_del()
case else
  Call AsaiMHIaks_Main()
end select
Call AMH_Ender(tit_fir)

sub AsaiMHIaks_del()
Dim sel_id,hdim,hnum,hid,hi,r_id
r_id=Cls.Code_ID("r_id")
    sel_id=trim(request.form("sel_id"))
    sel_id=replace(sel_id," ","")
    hdim=split(sel_id,",")
    hnum=ubound(hdim)
    for hi=0 to hnum
      hid=hdim(hi)
      if isnumeric(hid) then call Cls.exec("delete from AsaiMHOk_reply where id="&hid,0)
    next
	 call Cls.exec("update "&Data_Name&" set replys=replys-"&(hnum+1)&" where id="&r_id,0)
     call AMH_msg("已成功删除了"&(hnum+1)&"个回答","?action=replys&ChannelIDs="&iChannelIDs&"&r_id="&r_id,1)
end sub

sub AsaiMHIaks_Add()
  dim name,keyes,Solves,jieuser,replys,username,tim,counter,istop,hidden,word,Reward,tcolor,Expired,isgood,Isfocus,oSpecialID,pic,ispic
  call AMH_td("添加"&tit_fir)
  if chk() then
    name=CLs.Code_Admin("name",1,50)
    word=CLs.Code_Remark("word")
	csid=CLs.Code_Form("ClassID")
	Expired=CLs.Code_Admin("Expired",1,20)
    tcolor=CLs.Code_Form("tcolor")
    if len(tcolor)<>6 then tcolor=""
    if cs_nd(csid)=false then
      call AMH_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    End If
    if name="" or word="" or Expired="" then
      call AMH_error(tit_fir&"标题 和 "&tit_fir&"内容、过期时间 不能为空！")
      exit sub
    End If
	counter=CLs.Code_Int("counter",0)
    Reward=trim(request.form("Reward"))
	Reward=CLs.Code_Admin("Reward",1,50)
	keyes=CLs.Code_Admin("keyes",1,20)
    username=CLs.Code_Admin("username",1,20)
    if ChkName(username)=false then username=login_username
    tim=CLs.Code_Admin("tim",1,20)
    tim=CLs.time_type(tim,1)
    if tim="" then tim=CLs.now_time
    pic=CLs.Code_Admin("pic",1,100)
    ispic=true
    if pic="" then ispic=false
    counter=CLs.Code_Int("counter",0)
    isgood=false
    if CLs.Code_Form("isgood")="yes" then isgood=true
	 istop=0
    if CLs.Code_Form("istop")="yes" then istop=1
	Isfocus=false
    if CLs.Code_Form("Isfocus")="yes" then Isfocus=true
    hidden=true
    if CLs.Code_Form("hidden")="yes" then hidden=false
    oSpecialID=CLs.Code_Int("SpecialID",0)
	Solves=0
    replys=0
    Call Chk_Cid()
    sql="select * from "&Data_Name
    call CLs.exec(sql,-1)
    rs.open sql,conn,1,3
    rs.addnew
    rs("ChannelIDs")=iChannelIDs
    rs("SpecialID")=oSpecialID
    rs("ClassID")=cid
    rs("name")=name
    rs("Solves")=Solves
    rs("jieuser")=jieuser
    rs("word")=word
    'rs("Reward")=Reward
    rs("replys")=replys
    rs("tcolor")=tcolor
    rs("Expired")=Expired
    rs("username")=username
    rs("tim")=tim
    rs("counter")=counter
    rs("istop")=istop
	rs("Isfocus")=Isfocus
    rs.update
    rs.close
	  SQL="update AsaiMHUserData set ok_counter=ok_counter+1 where username='"&login_username&"'"
    Call CLs.exec(SQL,0)
    call AMH_msg("已成功添加了一篇"&tit_fir&"！","?AsaiMHmod="&AsaiMHmod&"&ClassID="&cid&"&ChannelIDs="&iChannelIDs,0)
    exit sub
  end if
  call form_first()
%>
<form name=add_frm action='<%Response.Write PageUrl%>Action=add' method=post onsubmit="return checkPost(9)">
<input type=hidden name=chk value='yes'>
<tr>
<td><%Response.Write tit_fir%>标题：</td>
<td><input type=text name=name size=60 maxlength=100><%Response.Write redx%>&nbsp;&nbsp;<%Response.write ShowColor("tcolor","")%></td>
</tr>
<tr>
<td><%Response.Write ShowClassSel(iChannelIDs,ClassID,Cls.ClassDepth)%> </td>
</tr>
<tr>
<td> </td>
<td><span><img src='../images/Ok/tips.gif' width="16" height="16"></span>请您选择正确的分类，以使您的问题尽快得到解答。</td>
</tr>
<tr>
<td>悬赏分：</td>
<td><%Response.Write redx%>
<select name="Reward">
<option value=0>0</option><option value=1>1</option><option value=2>2</option><option value=3>3</option><option value=4>4</option><option value=5>5</option><option value=6>6</option><option value=7>7</option><option value=8>8</option><option value=9>9</option><option value=10>10</option></select>&nbsp;&nbsp;&nbsp;&nbsp;<%Response.Write redx%>过期时间:<input type=text name=Expired value='<%=date+15%>' size=15 maxlength=20>&nbsp;&nbsp;<input type=button name=st_btn value='选择' onclick='javascript:select_time(Expired);return false;' class=Ok_btn></td>
</tr>
<tr>
<td> </td>
<td><span><img src='../images/Ok/tips.gif' width="16" height="16"></span>悬赏分越高，您的问题会越受关注，从而得到更佳答案。</td>
</tr>
<tr>
<td><%response.write tit_fir%>发布人：</td>
<td><input type=text name=username value='<%Response.Write login_username%>' size=20 maxlength=20>&nbsp;&nbsp;</td>
</tr>
<tr>
<td>发布时间：</td>
<td><input type=text name=tim value='<%Response.Write CLs.now_time%>' size=20 maxlength=20>&nbsp;&nbsp;浏览&nbsp;<input type=text name=counter value='0' size=6 maxlength=10>&nbsp;人次&nbsp;&nbsp;推荐：<input type=checkbox name=istop value='yes'>&nbsp;&nbsp;&nbsp;&nbsp;隐藏/审核：<input type=checkbox name=hidden value='yes'></td>
</tr>
<tr>
<td valign=top>问题详细说明：</td>
<td>
<table border=0><tr>
<td><textarea name=word rows=10 cols=82></textarea></td>
</tr></table>
</td>
</tr>
<tr>
<td> </td>
<td><span><img src="../images/Ok/tips.gif" width="16" height="16"></span>问题说明越详细，回答也会越准确！</td>
</tr>
<tr>
<td>上传图片：</td>
<td>
<iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='<%=Cls.Web_Dir%>Include/upload.asp?ID=<%=iChannelIDs%>&Type=9&Obj=Url&TObj=TempUploadFiles'></iframe>
</td>
</tr>
<%
  Response.Write ShowSpecialSel(iChannelIDs,0)
  Response.Write ShowPutInfo(Login_username,Cls.Now_time)
  Response.Write ShowRelateInfo("",Istop,"",1,0)
  Response.Write ShowLimit("",1,0)
  Response.Write ShowMoreItem(0,0)
	Call Submit_Add()
End Sub


sub AsaiMHIaks_replys()
Dim obj_page,tmp1,R_username,tmp_more,username,id,Tim,Isdeal,Vote,r_id,Word,Uls,tmp_Isdeal
r_id=Cls.Code_ID("r_id")
%>
<form name=sel_form action='?AsaiMHmod=<%Response.Write AsaiMHmod%>&ChannelIDs=<%Response.Write iChannelIDs%>&action=del&r_id=<%Response.Write r_id%>' method=post>
<tr align=center>
<td class=td width='20%'>回答信息</td>
<td class=td width='65%'>回答内容</td>
<td class=td width='10%'>相关操作</td>
<td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr>
<%
set obj_page=New Cls_PageCute
    obj_page.nummer=5
    obj_page.pageurl=pageurl&"action=replys&r_id="&r_id&"&"
    obj_page.page_tit="回答"
    obj_page.page_unit="个"
    obj_page.v_id="id"									
	Call obj_page.p_init("id,UserName,Word,Tim,Uls,Isdeal,Vote,R_id","AsaiMHOk_reply","ChannelIDs="&iChannelIDs&" And R_id="&r_id&"","Isdeal des,id desc")
	SQL = obj_page.sql_count
	Set rs=Cls.Exec(SQL,1)
	obj_page.rssum=rs(0)
	Rs.Close
	Call obj_page.p_main("id,UserName,Word,Tim,Uls,Isdeal,Vote,R_id","AsaiMHOk_reply","ChannelIDs="&iChannelIDs&" And R_id="&r_id&"","Isdeal desc,id desc")
	For i=1 To obj_page.page_num
	id=rs("id")
	username=rs("username")
	Word=rs("Word")
	Tim=rs("Tim")
	Uls=rs("Uls")
	Isdeal=rs("Isdeal")
	Vote=rs("Vote")
	if  Isdeal=1 then
	  tmp_Isdeal=img_admin("ico_replys_0","已采纳为回答")
    else
	  tmp_Isdeal=img_admin("ico_replys_1","未采纳")
    end if
	%>
   <tr>
   <td valign=top align=middle width="20%"><table border=0 cellspacing=0 cellpadding=0 width="99%">
   <tr><td>回答用户：<%Response.Write username%></td></tr>
   <tr><td>回答时间：<%Response.Write Cls.time_type(tim,4)%></td></tr>
   <tr><td>投票数量：<%Response.Write Vote%></td></tr>
   </table></td>
   <td width="65%" valign="top">
   <table height="100%" cellspacing=2 cellpadding=0 width="99%" border=0>
   <tr>
   <td width="80%"><%Response.Write tmp_Isdeal%></td>
   </tr>
   <tr><td valign=top colspan=4 height="*">
   <table border=0 cellspacing=1 cellpadding=1 width="100%" class=tbl>
   <tr><td><font class=htd><%Response.Write Word%></font></td></tr>
   </table>
   </td></tr>
   <tr><td colspan=2 height=20><%Response.Write Uls%></td>
   </tr>
   </table>   </td>
   <td width="10%" align="center"><a href='<%response.write PageUrl&"Action=edit&id="&r_id%>'><%response.write img_admin("cache","返回问题")%></a></td>
    <td width="5%" align="center"><input type=checkbox name=sel_id value='<%Response.Write id%>'></td>
   </tr>
   <tr><td colspan=4></td></tr>
<%
		Rs.Movenext
	Next
	Rs.Close
	%>
<tr class=tr1>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=2>
  <tr class=tr1>
  <td><%Response.Write obj_page.page_var%></td>
  <td width=3></td>
  <td>分页：</td>
  <td><%Response.Write obj_page.page_cute%></td>
  </tr>
  </table>
</td>
<td colspan=2 align=center>
<select name=sel_type size=1>
<option value='删除'>删除</option>
</select>
  <input type=submit value='操作' onclick="return sel_click(this.form);" class=btn>
</td>
</tr>
</form>
  </table>
</td>
</tr>
<%
  set obj_page=nothing
end sub

sub AsaiMHIaks_Edit()
 dim name,keyes,Solves,jieuser,replys,username,tim,counter,istop,hidden,word,Reward,tcolor,Expired,pic,ispic,isgood,Isfocus,oSpecialID
  call AMH_td("编辑"&tit_fir)
  sql="select top 1 * from "&Data_Name&" where id="&id
  Call Cls.Exe_Conn(Rs,SQL,3)
  if rs.eof then
    rs.close
    call AMH_msg(tit_fir&"ID（"&id&"）不存在！","?",1)
    exit sub
  End If
  if chk() then
    tcolor=Cls.Code_Form("tcolor")
    name=Cls.Code_Admin("name",1,50)
    word=Cls.Code_Remark("word")
    csid=Cls.Code_Form("ClassID")
    if len(tcolor)<>6 then tcolor=""
    if cs_nd(csid)=false then
      rs.close
      call AMH_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    End If
    if name="" or word="" then
      rs.close
      call AMH_error(tit_fir&"标题 和 "&tit_fir&"内容 不能为空！")
      exit sub
    End If
	keyes=Cls.Code_Admin("keyes",1,20)
    replys=trim(request.form("replys"))
	Reward=Cls.Code_Int("Reward",1)
	Solves=0
    if trim(request.form("Solves"))="yes" then Solves=1
    username=Cls.Code_Admin("username",1,20)
    if ChkName(username)=false then username=login_username
    tim=Cls.Code_Admin("tim",1,20)
    tim=Cls.time_type(tim,1)
    if tim="" then tim=Cls.now_time
    Expired=Cls.Code_Admin("Expired",1,20)
    Expired=Cls.time_type(Expired,4)
    pic=Cls.Code_Admin("pic",1,100)
	ispic=true
    if pic="" then ispic=false
    counter=Cls.Code_Int("counter",1)
    isgood=false
    if Cls.Code_Form("isgood")="yes" then isgood=true
	istop=0
    if Cls.Code_Form("istop")="yes" then istop=1
	Isfocus=false
    if Cls.Code_Form("Isfocus")="yes" then Isfocus=true
    hidden=true
    if Cls.Code_Form("hidden")="yes" then hidden=false
    oSpecialID=Cls.Code_Int("SpecialID",0)
    Call Chk_Cid()
    rs("ChannelIDs")=iChannelIDs
    rs("SpecialID")=oSpecialID
    rs("ClassID")=cid
    rs("name")=name
    rs("Solves")=Solves
    rs("jieuser")=jieuser
    rs("Expired")=Expired
	rs("Reward")=Reward
    rs("replys")=replys
    rs("username")=username
    rs("tim")=tim
    rs("counter")=counter
	rs("Isfocus")=Isfocus
    rs("hidden")=hidden
    'rs("keyes")=keyes
    'rs("pic")=pic
	'rs("ispic")=ispic
    rs("word")=word
    rs("isgood")=isgood
    rs("Istop")=Istop
    'rs("cod")=cod_type()
    rs("tcolor")=tcolor
    rs.update
    rs.close
    call AMH_msg("已成功编辑了一篇"&tit_fir&"！","?AsaiMHmod="&AsaiMHmod&"&ClassID="&cid&"&ChannelIDs="&iChannelIDs,0)
    exit sub
  end if
  call form_first()
  iChannelIDs=rs("ChannelIDs")
  oSpecialID=rs("SpecialID")
  if ispic="" then ispic=Cls.Rand_File(Index_Url)
%>
<form name=add_frm action='?AsaiMHmod=<%Response.Write AsaiMHmod%>&ChannelIDs=<%=iChannelIDs%>&ClassID=<%Response.Write ClassID%>&action=edit&id=<%Response.Write id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td><%Response.Write tit_fir%>标题：</td>
<td><input type=text name=name value='<%Response.Write rs("name")%>' size=60 maxlength=40><%Response.Write redx%>&nbsp;&nbsp;<%= ShowColor("tcolor",rs("tcolor"))%></td>
</tr>
<%
  Response.Write ShowClassSel(iChannelIDs,rs("ClassID"),Cls.ClassDepth)
  Response.Write ShowSpecialSel(iChannelIDs,rs("SpecialID"))
  'Response.Write ShowKeyWord("",preset(0))
  Response.Write Ok_Home(rs("Reward"),rs("Solves"),rs("Replys"),rs("Expired"))
  Response.Write ShowPutInfo(rs("username"),rs("tim"))
  Response.Write ShowRelateInfo(rs("isgood"),rs("istop"),rs("Isfocus"),rs("hidden"),rs("counter"))
  Response.Write ShowEditor(iChannelIDs,1,"add_frm","word","内容","TempUploadFiles",Cls.code_word(rs("word")))
  Response.Write ShowUploadList()
  Response.Write ShowMoreItem(0,0)
  Call Submit_Add()
  rs.close
end sub

sub AsaiMHIaks_Main()
  dim name,pageurl2,tcolor,Solves,jies,Expired,obj_page,replys,v_id
  pageurl2=pageurl
	Call SQL_ClassID(sql_add)
	Call format_search("name","name,username",2,1)
  Call AMH_Td(tit_fir&"列表")
%>
<tr valign=top align=center>
<td width='20%'>
  <table class=table2>
  <tr><td height=5></td></tr>
  <tr><td class=htd><%Call Left_Channel_Class(pageurl2,iChannelIDs)%></td></tr>
  </table>
</td>
<td width='80%'>
  <table cellspacing=1 cellpadding=3 class=table0>
<form name=sel_form action='<%Response.Write PageUrl%>ClassID=<%Response.Write cid%>&Action=handle' method=post>
<tr align=center>
<td class=td width='7%'>序号</td>
<td class=td width='50%'><%Response.Write tit_fir%>标题及整理时间<%if keyword<>"" then Response.Write "（搜索结果："&keyword&"）"%></td>
<td class=td width='10%'>相关回答</td>
<td class=td width='25%'>相关属性</td>
<td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr>
<%
 set obj_page=New Cls_pageCute
  obj_page.nummer=nummer
  obj_page.pageurl=pageurl
  obj_page.page_tit=tit_fir
  obj_page.page_unit="条"
  obj_page.v_id="id"
  call obj_page.p_init("id,Name,tim,Expired,istop,Solves,hidden,cod,tcolor,Isfocus,isgood,replys",Data_Name,sql_add,"id desc")
  sql=obj_page.sql_count
  set rs=Cls.exec(sql,1)
  obj_page.rssum=rs(0)
  rs.close
  call obj_page.p_main("id,Name,tim,Expired,istop,Solves,hidden,cod,tcolor,Isfocus,isgood,replys",Data_Name,sql_add,"id desc")
  for i=1 to obj_page.page_num
    id=rs("id")
    name=rs("Name")
	Name=Cls.code_html(Name,1,(18+tnum))
    tcolor=rs("tcolor")
    if Cls.Is_Null(tcolor)<>"" then
      name="<font color=#"&tcolor&">"&name&"</font>"
    End If
    Solves=rs("Solves")
    Expired=rs("Expired")
	replys=rs("replys")
	v_id=id
  if replys>0 and Expired>now() and Solves=0 then
    jies="<img src='Images/ico_Solves1.gIf' border=0 align=absmiddle alt='解决中的问题'>"
  end if
  if replys=0 and Expired>now() and Solves=0 then
    jies="<img src='Images/ico_Solves0.gIf' border=0 align=absmiddle alt='未解决的问题'>"
  end if
  if Solves=1 then
    jies="<img src='Images/ico_Solves2.gIf' border=0 align=absmiddle alt='已解决的问题'>"
  end if
  if Solves=0 and Expired < now then
    jies="<img src='Images/ico_Expired.gIf' border=0 align=absmiddle alt='已过期的问题'>"
  end if
%>
<tr align=center>
<td class=tims><%Response.Write obj_page.page_now+i%></td>
<td>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr>
  <td><%response.write jies%> <a href='<%Response.Write Cls.Web_Dir%><%Response.Write Index_Url%>/view.asp?id=<%response.write id%>' target=_blank><%response.write name%></a></td>
  <td align=right><font class=tims><%response.write Cls.time_type(rs("tim"),4)%></font></td>
  </tr>
  </table>
</td>
<td>
<%response.write replys%>&nbsp;&nbsp;
<%if replys=0 then%>
<%response.write img_admin("s_imp","无可浏览的回答")%>
<%else%>
<a href='?action=replys&ChannelIDs=<%Response.Write iChannelIDs%>&r_id=<%response.write id%>'><%response.write img_admin("s_imp","浏览相关回答")%></a>
<%end if%>
</td>
<td align=left><%Response.Write pro_edit(PageUrl&"Action=edit&id="&id,"编辑该"&tit_fir) &"&nbsp;"& pro_hidden(rs("hidden"),1) &"&nbsp;"& pro_cod(rs("cod")) &"&nbsp;"& pro_isgood(rs("isgood")) &"&nbsp;"& pro_Isfocus(rs("Isfocus")) &"&nbsp;"& pro_istop(rs("istop")) &"&nbsp;"& pro_ispic(false)%></td>
<td><input type=checkbox name=sel_id value='<%response.write id%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=tr1>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=2>
  <tr class=tr1>
  <td><%Response.Write obj_page.page_var%></td>
  <td width=3></td>
  <td>分页：</td>
  <td><%Response.Write obj_page.page_cute%></td>
  </tr>
  </table>
</td>
<td colspan=3 align=center>
执行
<select name=sel_type size=1>
<option value='推荐'>推荐</option>
<option value='取消推荐'>取消推荐</option>
<option value='固顶'>固顶</option>
<option value='取消固顶'>取消固顶</option>
<option value='审核'>审核</option>
<option value='待审核'>待审核</option>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);" class=btn>
</td>
</tr>
</form>
  </table>
</td>
</tr>
<%
  set obj_page=nothing
End Sub
%>
