<%
Dim ChannelID,Cha_Name,Cha_Content
ChannelID=Trim(Request("ChannelID"))
If IsNumeric(ChannelID) = False Then
GoError "頻道ID參數(shù)錯(cuò)誤，請(qǐng)不要試圖破壞此系統(tǒng)。"
End If
If ChannelID="" Then
FoundErr=True
ErrMsg=ErrMsg & "
無(wú)此頻道信息或已被刪除！
"
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 & "
無(wú)此頻道信息或已被刪除！
"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "
無(wú)此頻道信息或已被刪除！
"
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
%>
,<%=W_WebSiteKeyword%>">
"" then%><%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>">
久久香蕉国产线看观看精品yw,精品少妇人妻AV免费久久洗澡,大肉大捧一进一出好爽视频MBA
