<%
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
%>
,<%=W_WebSiteKeyword%>">
"" then%><%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>">
韩国V欧美V亚洲V日本V,99好久被狂躁A片视频无码,爽爽精品dvd蜜桃成熟时电影院
