<% 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 * 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 %> 深圳私人建网站-深圳私人做网站-深圳个人做网站-最便宜网站建设套餐
    南山个人做网站联系