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

'call DoWebHead(0,0)
Call Channel_Load(0)
Select Case LCase(Action)
Case "Ok_edit"
	Ok_Edit()
Case Else
	ok_reply_Edit()
End Select
Call Channel_End(0)

'Call DoWebEnd()
'----------------------------中间 开始----------------------------
Sub ok_reply_Edit()
Dim id
id=Cls.Code_ID("id")
sql="select top 1 * from AsaiMHOk_reply where id="&id
  call Cls.exec("",-1)
  rs.open sql,conn,1,3
If Cls.Chk() Then
  Call Channel_Reply_Edit_Chk()
Else
  Call Channel_Reply_Edit()
'  Call Web_Copy()
End If
'rs.close
End Sub

Sub Ok_Edit()
Dim id
id=Cls.Code_ID("id")
sql="select top 1 * from "&Cls.ChannelTable&" where id="&id
  call Cls.exec("",-1)
  rs.open sql,conn,1,3
If Cls.Chk() Then
  Call Channel_Put_Edit()
Else
  Call Channel_Edit()
'  Call Web_Copy()
End If
'rs.close
End Sub
'----------------------------中间 结束----------------------------
%>
