第一次接触.NET，对于代码都看不懂，求代码注释。

[dreamfreedom]

可以说是第一次接触.NET,之前开过这门课程，但年少轻狂的我觉得会一门ASP就够用到死的。
结果出来找工作，碰了壁吧，才知道该付出些辛苦。浪子回头，大家该出手就出手，扶一把别人对自己没好处也没坏处。

——以上可以算做序，或引言，嘿嘿


问题是这样的，我接手一个.NET网站，大概看了看，基本上知道该改那里，复杂的操作就没有深入了。
很多代码，我看着就是不懂什么意思，虽然不影响整体效果，但是天天见面，却不知道她叫什么名字，太失礼了吧。所以，希望朋友们给我一份正式的开发档案代码，粘一页，比较正规的，让我学习的第一步，就很规范，谢谢。


我粘贴一部分代码，帮注释下，也十分感谢，在您悠闲无事的时候，温故而知新，对自己有益啊，呵呵。


Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Text
Imports System.IO
Imports System.Data.OleDb
Imports System.Security
Imports System.Text.RegularExpressions
Imports System.Configuration
Partial Class sjsws1
Inherits System.Web.UI.Page
Dim etgbdata = (ConfigurationSettings.AppSettings("etgbdata"))
Dim strdsn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(etgbdata)
Dim objconn As OleDbConnection
'页面载入事件
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack() Then
topgd()
topdhgsjj()
topdhxwzx()
topdhsjsw()
topdhtsjm()
topurl()

sjswsdh()
sjswsbody()
probody()

End If
End Sub
Sub topgd()
objconn = New OleDbConnection(strdsn)
Dim strsql As String = "select * from wz where id=13"
Dim rs As New OleDbDataAdapter(strsql, objconn)
Dim ds As New DataSet
rs.Fill(ds, 0)
topgds.DataSource = ds.Tables(0).DefaultView
topgds.DataBind()
End Sub
Public Sub sjswsdhs_ItemCreated(ByVal sender As Object, ByVal e As RepeaterItemEventArgs)
If e.Item.DataItem IsNot Nothing Then
Dim iid As Integer
If Request("sx_id") <> "" Then
iid = Request("sx_id")
Else
iid = 1
End If
If e.Item.DataItem.Row("sx_id") <> iid Then
e.Item.FindControl("rowIMGLink1").Visible = False
e.Item.FindControl("rowWordLink1").Visible = True
Else
e.Item.FindControl("rowIMGLink1").Visible = True
e.Item.FindControl("rowWordLink1").Visible = False
End If
End If
End Sub

[flashlove2008]

VB。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

[crackpot2007]

我经过一番冥思苦想终有所获——代码应该是用VB写的。

[Haoze]

LZ，你去用中文编程吧，比较适合你。

既然是第一次接触，去看点儿书先吧。受不了了。

[闲游四疯]

发现VB跟C#蛮相似的。看得个七七八八。。不过不敢注释。怕错了，等下误人子弟
topgd()
topdhgsjj()
topdhxwzx()
topdhsjsw()
topdhtsjm()
topurl()

sjswsdh()
sjswsbody()
probody()
这些是什么意思？下面的方法吗？应该不是系统自带的方法吧

[Bogard]

asp转ASP.NET的....当年我也是这样,因为VBSCRIPT 自然而然的就选了VB.NET,
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Text
Imports System.IO
Imports System.Data.OleDb
Imports System.Security
Imports System.Text.RegularExpressions
Imports System.Configuration
//上面的是页面所需类的定义
Partial Class sjsws1
Inherits System.Web.UI.Page
Dim etgbdata = (ConfigurationSettings.AppSettings("etgbdata")) //取出web.config当中的预设值
Dim strdsn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(etgbdata) //取得数据库连接字段.
Dim objconn As OleDbConnection //定义一个数据库连接对象
'页面载入事件
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load //page_load为这个页面加载时运行
If Not Page.IsPostBack() Then //ispostback 网页第一次打开.
topgd()
topdhgsjj()
topdhxwzx()
topdhsjsw()
topdhtsjm()
topurl()

sjswsdh()
sjswsbody()
probody()
//以上为自定义函数.这就要问你了.自己找找
End If
End Sub
Sub topgd()
objconn = New OleDbConnection(strdsn)
Dim strsql As String = "select * from wz where id=13"
Dim rs As New OleDbDataAdapter(strsql, objconn)
Dim ds As New DataSet
rs.Fill(ds, 0)
topgds.DataSource = ds.Tables(0).DefaultView
topgds.DataBind() //这个函数是topgds这个控件的数据绑定.应该是gridview的.
End Sub

Public Sub sjswsdhs_ItemCreated(ByVal sender As Object, ByVal e As RepeaterItemEventArgs)
If e.Item.DataItem IsNot Nothing Then
Dim iid As Integer
If Request("sx_id") <> "" Then
iid = Request("sx_id")
Else
iid = 1
End If
If e.Item.DataItem.Row("sx_id") <> iid Then
e.Item.FindControl("rowIMGLink1").Visible = False
e.Item.FindControl("rowWordLink1").Visible = True
Else
e.Item.FindControl("rowIMGLink1").Visible = True
e.Item.FindControl("rowWordLink1").Visible = False
End If
End If
End Sub

建议你到网上找找相关的视频学习下ASP.NET ...ASP.NET与ASP还是有很大的不同的.
也建议你用c#来开发.我想你的编程思想还在,学起来不难.

[jian_xiaowei]

[Quote=引用 2 楼 crackpot2007 的回复:]
我经过一番冥思苦想终有所获——代码应该是用VB写的。
[/Quote]

[tinglei123]

还是先看看这方面的书吧,只这样是不会学好的

[dreamfreedom]

这方面的书多如牛毛，但是不知道哪本适合自己，都很厚很贵，兜里就是money不多。呵呵。这方面的书我会看的，有时候学一件东西，动力不一样，效果也不一样。谢谢以上各位楼主赐教。请一下楼主了解我此时简单朴素的心意。

现在我想要各位不要吝啬，粘贴自己程序中精华基础的一页代码，供我辈后辈者瞻仰，谢谢。

[cfreez]

看代码就知道，要么网站不大，要么也是菜鸟写的

[core77]

基础的gridview绑定代码

[caibird1984]

#region 引用命名空间
Imports System 
Imports System.Collections 
Imports System.ComponentModel 
Imports System.Data 
Imports System.Drawing 
Imports System.Web 
Imports System.Web.SessionState 
Imports System.Web.UI 
Imports System.Web.UI.WebControls 
Imports System.Web.UI.HtmlControls 
Imports System.Text 
Imports System.IO 
Imports System.Data.OleDb 
Imports System.Security 
Imports System.Text.RegularExpressions 
Imports System.Configuration 
#endregion

Partial Class sjsws1 Inherits System.Web.UI.Page 

    #region 变量定义
    Dim etgbdata = (ConfigurationSettings.AppSettings("etgbdata")) 
    Dim strdsn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(etgbdata) 
    Dim objconn As OleDbConnection 
    #endregion

    #region 页面载入
    '页面载入事件 
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
        //如果是第一次加载，则执行下列代码
        If Not Page.IsPostBack() Then 
            topgd() 
            topdhgsjj() 
            topdhxwzx() 
            topdhsjsw() 
            topdhtsjm() 
            topurl() 

            sjswsdh() 
            sjswsbody() 
            probody()  
        End If 
    End Sub 
    #endregion

    #region 自定义函数
    /// <summary>
    /// 获取数据及数据绑定
    /// </summary>
    Sub topgd() 
        objconn = New OleDbConnection(strdsn)   //初始化数据库连接对象
        Dim strsql As String = "select * from wz where id=13"  //SQL语句
        Dim rs As New OleDbDataAdapter(strsql, objconn)   //实例化一数据适配器对象
        Dim ds As New DataSet   //实例化一数据集
        rs.Fill(ds, 0)    //使用数据适配器根据SQL语句填充数据集
        topgds.DataSource = ds.Tables(0).DefaultView   //指定topgds的数据源为数据集的第1张表
        topgds.DataBind() //topgds数据绑定
    End Sub 
    #endregion

    #region 事件
    Public Sub sjswsdhs_ItemCreated(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) 
        //如果当前的DataItem不为空则执行
        If e.Item.DataItem IsNot Nothing Then 
            Dim iid As Integer  //变量定义
            If Request("sx_id")  <> "" Then  //如果能从URL中获取到sx_id则执行
                iid = Request("sx_id")   //将获取到的sx_id的值赋予iid
            Else 
                iid = 1 //设iid=1
            End If 
            //如果当前行的sx_id列的值不等于iid，则隐藏rowIMGLink1控件，显示rowWordLink1控件
            If e.Item.DataItem.Row("sx_id")  <> iid Then  
                e.Item.FindControl("rowIMGLink1").Visible = False 
                e.Item.FindControl("rowWordLink1").Visible = True 
            //如果当前行的sx_id列的值不等于iid，则显示rowIMGLink1控件，隐藏rowWordLink1控件
            Else 
                e.Item.FindControl("rowIMGLink1").Visible = True 
                e.Item.FindControl("rowWordLink1").Visible = False 
            End If 
        End If 
    End Sub 
    #endregion

有一些东西需要结合上下文判断，不过大概也就这样了吧

[dreamfreedom]

5楼 11楼，拿分 ，谢谢。

这个确实是一个小网站，也确实是一个刚刚自学.NET的菜鸟给我的。

NB人很多，但是往往更加吝啬。

另外，我开贴，从来不皆大欢喜。谁的语言分两重，谁就该得到属于他的东西。结贴。

[dreamfreedom]

我还有一篇帖子，是关于“ISAPI Rewrite 虚拟主机 软件过期问题”

欢迎各位指教。

http://topic.csdn.net/u/20080521/17/22d41e89-5eec-4c29-9a87-2c72fca1c089.html