求将pwqzc的asp.net梅花树改成vb的

我不熟悉c#.求改成vbleft.aspx代码如下: <script language="JavaScript" src="MzTreeView10.js"></script> 
<link href="menutree/menu.css" type="text/css" rel="stylesheet"> 
<style> A.MzTreeview { PADDING-LEFT: 3px; FONT-SIZE: 12px } </style> 
</HEAD> 
<body leftmargin="0" topmargin="2"> 
<SCRIPT LANGUAGE="JavaScript"> 
window.tree = new MzTreeView("tree"); 
tree.setIconPath("menutree/"); //可用相对路径 
<%=str%> //这里的str是在后台定义的一个string,他包含了从数据库取出来的所有节点信息,只能够写这里
//tree.setURL("Catalog.asp"); 
//tree.setTarget("MzMain"); 
document.write(tree.toString()); //亦可用 obj.innerHTML = tree.toString(); 
tree.focus(111); //让id是111的节点获得焦点,同时也展开了这个节点上的父节点!
//--> 
</SCRIPT> 
</body>
现在是后台cs文件:using System; 
using System.Collections; 
using System.ComponentModel; 
using System.Data; 
using System.Drawing; 
using System.Web; 
using System.Web.SessionState; 
using System.Web.UI; 
using System.Web.UI.WebControls; 
using System.Web.UI.HtmlControls; namespace hualong.bbs 
{ 
/// <summary> 
/// left 的摘要说明。 
/// </summary> 
public class left : System.Web.UI.Page 
{ public string str; 
private void Page_Load(object sender, System.EventArgs e) 
{ 
// 在此处放置用户代码以初始化页面 
string connectstring = System.Configuration.ConfigurationSettings.AppSettings["connStr1"].ToString(); 
System.Data.SqlClient.SqlConnection conn = new System.Data.SqlClient.SqlConnection(connectstring); 
System.Data.SqlClient.SqlDataAdapter adapter = new System.Data.SqlClient.SqlDataAdapter("select_treeview_pwqzc",conn); 
try 
{ 
System.Text.StringBuilder node = new System.Text.StringBuilder(); 
conn.Open(); 
System.Data.DataSet dataset = new System.Data.DataSet(); 
dataset.Tables.Add("treeview"); 
adapter.Fill(dataset,"treeview"); 
foreach(System.Data.DataRow row in dataset.Tables[0].Rows) 
{ 
node.Append("\r\n tree.nodes[\""+ row["parentId"].ToString() + "_" + row["id"] + "\"] = \""); 
node.Append("text:" + row["text"].ToString().Replace("\0xE",";") + ";"); 
node.Append(row["hint"] != DBNull.Value && row["hint"].ToString() != string.Empty ? "hint:" + row["hint"].ToString().Replace("\0xE",";") + ";" : string.Empty); 
node.Append(row["icon"] != DBNull.Value && row["icon"].ToString() != string.Empty ? "icon:" + row["icon"].ToString().Replace("\0xE",";") + ";" : string.Empty); 
node.Append(row["data"] != DBNull.Value && row["data"].ToString() != string.Empty ? "data:" + row["data"].ToString().Replace("\0xE",";") +Server.UrlEncode(row["text"].ToString())+ ";" : string.Empty); 
node.Append(row["url"] != DBNull.Value && row["url"].ToString() != string.Empty ? "url:" + row["url"].ToString().Replace("\0xE",";") + ";" : string.Empty); 
node.Append(row["target"] != DBNull.Value && row["target"].ToString() != string.Empty ? "target:" + row["target"].ToString().Replace("\0xE",";") + ";" : string.Empty); 
node.Append(row["method"] != DBNull.Value && row["method"].ToString() != string.Empty ? "method:" + row["method"].ToString().Replace("\0xE",";") + ";" : string.Empty); 
node.Append("\""); } str = node.ToString(); 
dataset.Dispose(); 
} 
finally 
{ 
conn.Close(); } 
} #region Web 窗体设计器生成的代码 
override protected void OnInit(EventArgs e) 
{ 
// 
// CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。 
// 
InitializeComponent(); 
base.OnInit(e); 
} /// <summary> 
/// 设计器支持所需的方法 - 不要使用代码编辑器修改 
/// 此方法的内容。 
/// </summary> 
private void InitializeComponent() 
{ 
this.Load += new System.EventHandler(this.Page_Load); } 
#endregion 
} 
}