帮我改一下代码!!

Question

用这个试试：
http://www.aspalliance.com/aldotnet/examples/translate.aspx

Answer 1

Response.Write(ds.Tables(0).Rows(i)(""))

Answer 2

太简单了我帮你
<% 
// 处理留言信息程序
dim CurPage,CurPageSize,allRecordCount as integer
CurPage = ctype(lblCurPage.Text,integer)
CurPageSize = ctype(lblPageSize.Text,integer)
allRecordCount = ctype(lblCurRecord.Text,integer)
if (allRecordCount = 0)
Response.Write("<TABLE class='tableBORDER' width='96%' align='center'><tr><td align=center>当前你还没有留言</td></tr></TABLE>")

else
dim connStr as string = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="+Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings("数据库").ToString())
dim SQLStr as string = "SELECT * FROM [admin] ORDER BY [时间]DESC" ' // 当改为多用户时，在这里设置 WHERE 条件即可
dim  conn as System.Data.OleDb.OleDbConnection = new System.Data.OleDb.OleDbConnection(connStr)
dim da as System.Data.OleDb.OleDbDataAdapter = new System.Data.OleDb.OleDbDataAdapter(SQLStr,conn)
dim ds as System.Data.DataSet = new System.Data.DataSet()
conn.Open()
da.Fill(ds,(CurPage-1)*CurPageSize,CurPageSize,"admin")
conn.Close()
conn.Dispose()
da.Dispose()
dim i as integer
for i = 0 to i< ds.Tables(0).Rows.Count - 1 %>
<B><% Response.Write(ds.Tables(0).Rows(i)("呢称")) net for
end if
%></B>

Answer 3

dim CurPage,CurPageSize,allRecordCount as integer
CurPage = ctype(lblCurPage.Text,integer)
CurPageSize = ctype(lblPageSize.Text,integer)
allRecordCount = ctype(lblCurRecord.Text,integer)
  .
  .
  .
for (int i=0 ; i< ds.Tables(0).Rows.Count ; i++){
%>
<B><% Response.Write(ds.Tables(0).Rows(i)("呢称")); %></B>

Answer 4

我也这样试过,不过在aspx页面里用<%....%>,就是不能调试里面的代码,,看大家都是这样做,我再试一次了,,

Answer 5

<% 
// 处理留言信息程序
dim CurPage,CurPageSize,allRecordCount as integer
CurPage = ctype(lblCurPage.Text,integer)
CurPageSize = ctype(lblPageSize.Text,integer)
allRecordCount = ctype(lblCurRecord.Text,integer)
if (allRecordCount = 0)
Response.Write("<TABLE class='tableBORDER' width='96%' align='center'><tr><td align=center>当前你还没有留言</td></tr></TABLE>")

else
dim connStr as string = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="+Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings("数据库").ToString())
dim SQLStr as string = "SELECT * FROM [admin] ORDER BY [时间]DESC" ' // 当改为多用户时，在这里设置 WHERE 条件即可
dim  conn as System.Data.OleDb.OleDbConnection = new System.Data.OleDb.OleDbConnection(connStr)
dim da as System.Data.OleDb.OleDbDataAdapter = new System.Data.OleDb.OleDbDataAdapter(SQLStr,conn)
dim ds as System.Data.DataSet = new System.Data.DataSet()
conn.Open()
da.Fill(ds,(CurPage-1)*CurPageSize,CurPageSize,"admin")
conn.Close()
conn.Dispose()
da.Dispose()
dim i as integer
for i = 0 to i< ds.Tables(0).Rows.Count - 1 %>
<B><% Response.Write(ds.Tables(0).Rows(i)("呢称")) net for
end if
%></B>

Answer 6

http://www.aspalliance.com/aldotnet/examples/translate.aspx
c#-->vb.net