适合初学者看的一段vb.net for asp.net的源代码，是本人写的，内容包括：命名空间导入、数据库操作、文本框输入控制,session使用等。

zhy741209 2003-08-22 05:32:44

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms

Public Class e_zjrck
Inherits System.Web.UI.Page
Protected WithEvents Image1 As System.Web.UI.WebControls.Image
Dim delok As Boolean

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim aa As String
aa = Session("zhanghao") + ""
If aa = "" Then
Response.Write("<script> alert('请首先登陆系统!');")
Response.Write("window.location = 'index.aspx'")
Response.Write("</script>")
End If
save1.Attributes.Add("onclick", "javascript:return confirm('即将保存数据! （是/否）？如果您还需修改数据，请取消保存！！')")
del1.Attributes.Add("onclick", "javascript:return confirm('即将删除数据! （是/否）？如果您还需修改数据，请取消删除！！')")
cancle1.Attributes.Add("onclick", "javascript:return confirm('即将取消对数据的编辑! （是/否）？如果您还需修改数据，请选择取消！！')")
If Session("sysid") = "1" Then
tt2.Visible = True
tt2.Enabled = True
b1.Enabled = True
Else
tt2.Visible = False
tt2.Enabled = False
b1.Enabled = False
End If
End Sub

Private Sub clearup()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
t7.Text = ""
t8.Text = ""
t9.Text = ""
t10.Text = ""

t2_1.Text = ""
t2_2.Text = ""
t2_3.Text = ""
t2_4.Text = ""
t2_5.Text = ""
End Sub

Private Sub SETON()
t3.Enabled = True
t4.Enabled = True
t5.Enabled = True
t6.Enabled = True
t7.Enabled = True
t8.Enabled = True
t9.Enabled = True
t10.Enabled = True

If Session("sysid") = "1" Then
tt2.Visible = True
tt2.Enabled = True
b1.Enabled = True
End If
End Sub

Private Sub SETOFF()
t1.Enabled = False
t2.Enabled = False
t3.Enabled = False
t4.Enabled = False
t5.Enabled = False
t6.Enabled = False
t7.Enabled = False
t8.Enabled = False
t9.Enabled = False
t10.Enabled = False

b1.Enabled = False
tt2.Enabled = False
End Sub

Public Function makedataok() As Boolean
makedataok = True
t3.Text = strtodate(t3.Text)
t7.Text = strtodate(t7.Text)
End Function

Private Sub getdata()
Dim sqlcn1 As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection()
Dim sqlcm1 As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()
Dim mysqlreader As SqlDataReader
Dim servername As String = Application("servername")
sqlcn1.ConnectionString = "data source=" + servername + ";initial catalog=人事档案;persist security info=False;user id=sa;workstation id=" + servername + ";packet size=4096"
sqlcn1.Open()
sqlcm1.CommandType = CommandType.Text
If Session("sysid") = "1" Then
sqlcm1.CommandText = "select 专家人才库.* from 专家人才库 where 专家人才库.身份证号='" + Trim(t0.Text) + "' "
Else
sqlcm1.CommandText = "select 专家人才库.* from 专家人才库 where 身份证号='" + Trim(t0.Text) + "' and 机构代码='" + Session("departID") + "' "
End If
sqlcm1.Connection = sqlcn1
mysqlreader = sqlcm1.ExecuteReader()
While mysqlreader.Read()
t1.Text = mysqlreader.Item(0) + ""
t2.Text = mysqlreader.Item(1) + ""
t3.Text = mysqlreader.Item(2) + ""
t4.Text = mysqlreader.Item(3)
t5.Text = mysqlreader.Item(4) + ""
t6.Text = mysqlreader.Item(5) + ""
t7.Text = mysqlreader.Item(6) + ""
t8.Text = mysqlreader.Item(7) + ""
t9.Text = mysqlreader.Item(8) + ""
t10.Text = mysqlreader.Item(9) + ""
End While
SETON()
del1.Enabled = True
save1.Enabled = True
cancle1.Enabled = True
If Trim(t1.Text) = "" Then
Response.Write("<script> alert('未找到该人员的相关数据！或者您输入了其它机构的人员身份证号！请重新输入查询条件！') </script>")
SETOFF()
clearup()
del1.Enabled = False
save1.Enabled = False
cancle1.Enabled = False
End If
mysqlreader.Close()
sqlcn1.Close()
End Sub

Private Sub get1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get1.Click
clearup()
getdata()
tt2.Text = t2.Text
If tt2.Text <> "" Then b1_Click(b1, e)
End Sub

Private Function strtodate(ByVal str As String) As String
Dim yy As String
Dim mm As String
Dim dd As String
Dim p As String
str = Trim(str)
p = Mid(str, 5, 1)
If (p <> "-") And (Len(str) = 8) Then
yy = Mid(str, 1, 4)
mm = Mid(str, 5, 2)
dd = Mid(str, 7, 2)
str = yy + "-" + mm + "-" + dd
End If
strtodate = str
End Function

Private Function clearchr(ByVal str As String) As String
Dim cc(2) As String '要从文本框中删除的字符
Dim dd(2) As String '用来替换cc()中的被删除的字符
Dim i As Integer, k As Integer
Dim strlen As Integer
Dim ms As String '用于单字符比较的中间字符
Dim strok As String '生成的规格化字符串
cc(1) = "'"
cc(2) = "~"
dd(1) = "`"
dd(2) = "～"
strok = ""
strlen = Len(str)
For i = 1 To strlen
For k = 1 To 2
ms = Mid(str, i, 1)
If ms = cc(k) Then
ms = dd(k)
k = 1000
End If
Next
strok = strok + ms
Next
clearchr = strok
End Function

...全文