<%
Dim ChannelID,Cha_Name,Cha_Content
ChannelID=Trim(Request("ChannelID"))
if channelID="" then
channelID=1
end if
If IsNumeric(ChannelID) = False Then
GoError "频道ID参数错误，请不要试图破坏此系统。"
End If
If ChannelID="" Then
FoundErr=True
ErrMsg=ErrMsg & "
无此频道信息或已被删除！
"
End If
sSql="Select ClassName,Content,ChannelType,ckey1,ckey2,ckey3 From OtherChannel Where ClassID="&ChannelID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
If oRs("ChannelType")=0 Then
Cha_Name=oRs("ClassName")
Cha_Content=oRs("Content")
Else
FoundErr=True
ErrMsg=ErrMsg & "
无此频道信息或已被删除！
"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "
无此频道信息或已被删除！
"
End If
ckey1=ors("ckey1")
ckey2=ors("ckey2")
ckey3=ors("ckey3")
oRs.Close
if FoundErr=True then
WriteErrMsg()
Response.End
End If
WebTitle=Cha_Name
%>
<%
web_sort="联系我们"
web_site="首页 >> "&web_sort
web_info="联系我们"
%>
Products-Royal Ruby Co., Ltd
