response.write 和request经常报错,提示response不是“”的成员,为什么
例子:
Public Sub index_news(ByVal top As Object, ByVal where As Object, ByVal order As Object, ByVal title_sum As Object, ByVal style As Object)
Me.table_view(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("select top ", top), " n_id,n_type,n_color,n_title from [news] "), where), " order by "), order), " desc"))
Do While Me.rs_view.Read
Me.Response.Write(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("<font color=#FF6600>" & ChrW(183) & "</font><a href=""news_sub.aspx?id=", Me.rs_view.Item("n_id")), "&type="), Me.rs_view.Item("n_type")), """ target=_blank class="), style), "><font color="), Me.rs_view.Item("n_color")), ">"), Me.NetLooLeft(RuntimeHelpers.GetObjectValue(Me.rs_view.Item("n_title")), RuntimeHelpers.GetObjectValue(title_sum))), "</font></a><br>"))
Loop
Me.conn.Close()
End Sub
例子:
Public Sub index_news(ByVal top As Object, ByVal where As Object, ByVal order As Object, ByVal title_sum As Object, ByVal style As Object)
Me.table_view(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("select top ", top), " n_id,n_type,n_color,n_title from [news] "), where), " order by "), order), " desc"))
Do While Me.rs_view.Read
Me.Response.Write(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("<font color=#FF6600>" & ChrW(183) & "</font><a href=""news_sub.aspx?id=", Me.rs_view.Item("n_id")), "&type="), Me.rs_view.Item("n_type")), """ target=_blank class="), style), "><font color="), Me.rs_view.Item("n_color")), ">"), Me.NetLooLeft(RuntimeHelpers.GetObjectValue(Me.rs_view.Item("n_title")), RuntimeHelpers.GetObjectValue(title_sum))), "</font></a><br>"))
Loop
Me.conn.Close()
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货