<%
Dim ChannelID,Cha_Name,Cha_Content
ChannelID=Trim(Request("ChannelID"))
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
%>
<%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>">
<%if ckey1<>"" then%><%=ckey1%>-<%else%><%=WebTitle%>-<%end if%><%= W_WebSiteKeyword%>
