该页面为BBS的一部分,点击"所有跟贴"将以以下内容显示所有对该贴的回复: 跟贴人:
跟贴时间:
跟贴内容:
DataList控件的ItemTemplate模板如下:
<ItemTemplate>
跟贴人:<%#Container.DataItem("跟贴人")%><br>
跟贴时间:<%#Container.DataItem("跟贴时间")%><br>
跟贴内容:<%#Container.DataItem("跟贴内容")%><br>
<br>
</ItemTemplate>Page_Load代码如下:Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
conn.Open()
cmd.CommandText = "select b.userid,posttime,title,content from info as a,member as b where a.titleid=" & CInt(Request("titleid")) & "and a.userid = b.userid"
Dim obj As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader
While obj.Read
LblName.Text = obj.GetValue(0)
LblDate.Text = obj.GetValue(1)
TxtSubject.Text = obj.GetValue(2)
TxtContent.Text = obj.GetValue(3)
End While
conn.Close()
Dim sql As String
sql = "select * from where responseid='" + Request("titleid") + "'"
Dim DtAdpter As New System.Data.OleDb.OleDbDataAdapter(sql, conn)
Dim DS As New DataSet
DtAdpter.Fill(DS, "info")
DataList1.DataSource = DS
DataList1.DataBind()
conn.Close()
End Sub但运行后报错,停在 DtAdpter.Fill(DS, "info"),说from子句语法错误,我检查了好久,找不到错误,各位帮我找找啊
跟贴时间:
跟贴内容:
DataList控件的ItemTemplate模板如下:
<ItemTemplate>
跟贴人:<%#Container.DataItem("跟贴人")%><br>
跟贴时间:<%#Container.DataItem("跟贴时间")%><br>
跟贴内容:<%#Container.DataItem("跟贴内容")%><br>
<br>
</ItemTemplate>Page_Load代码如下:Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
conn.Open()
cmd.CommandText = "select b.userid,posttime,title,content from info as a,member as b where a.titleid=" & CInt(Request("titleid")) & "and a.userid = b.userid"
Dim obj As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader
While obj.Read
LblName.Text = obj.GetValue(0)
LblDate.Text = obj.GetValue(1)
TxtSubject.Text = obj.GetValue(2)
TxtContent.Text = obj.GetValue(3)
End While
conn.Close()
Dim sql As String
sql = "select * from where responseid='" + Request("titleid") + "'"
Dim DtAdpter As New System.Data.OleDb.OleDbDataAdapter(sql, conn)
Dim DS As New DataSet
DtAdpter.Fill(DS, "info")
DataList1.DataSource = DS
DataList1.DataBind()
conn.Close()
End Sub但运行后报错,停在 DtAdpter.Fill(DS, "info"),说from子句语法错误,我检查了好久,找不到错误,各位帮我找找啊
有错误
如果responseid在数据库中是int的话那么就不要单引号了
select * from where responseid=" + Request("titleid") + ""