<%
Dim ChannelID,Cha_Name,Cha_Content
ChannelID=Trim(Request("ChannelID"))
If IsNumeric(ChannelID) = False Then
GoError "頻道ID參數(shù)錯誤，請不要試圖破壞此系統(tǒng)。"
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
%>
,<%=W_WebSiteKeyword%>">
"" then%><%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>">
精品福利视频一区二区三区,免费国产裸体美女视频全黄
