password = Request.Form("password")

comdstr = "select * from news_admin where (username='" & username & "') and (password='" & password & "')"

comd = New SqlClient.SqlCommand(comdstr, objconn)

‘第三空

‘第四空 newsrd = comd.ExecuteReader

If Not ‘第五空

Response.Write("<script LANGUAGE='javascript'>alert('对不起，登陆失败！请输入正确的用户名和密码');history.go(-1);</script>") Else

Session("username") = username Session("password") = password Session.Timeout = 30

Response.Redirect("main.aspx") End If End If

二、用2个label控件、1个textbox控件、1个button控件制作一个简单网页，实现提交后，页面显示：欢迎XXX(考生姓名)！成功就是如此简单，赶快行动吧

各控件的属性名称及属性值

写出按钮事件代码：(P3)

2、声明一个全局变量，并在子程序或函数中声明同名的局部变量，并赋值。 3、用if语句和for语句计算10以内的奇数累加和，写出代码和操作。(P7) 4、完成与SQL Server系统自带的数据库northwind进行连接 (p20) 5、使用DataGrid控件显示Sample数据库的Stu_info表的前十条。以完成如下操作：

添加数据库Sample，编制好模块文件modul1.vb

Function CreateDataDs(ByVal strsql As String, ByVal filename As String, ByVal tablename As String) As System.Data.DataSet Dim objConn As New OleDbConnection() '建立与数据库的连接

objConn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename objConn.Open()

'建立DataAdapter对象，指定SQL语句

Dim objda1 As New OleDbDataAdapter(strsql, objConn) Dim DS As New DataSet() '将结果设置给dataset对象 objda1.Fill(DS, tablename) CreateDataDs = DS objConn.Close()

End Function

向页面添加DataGrid控件，请考生完成page_load事件 6、在Web.config文件中 ⑴定义数据库连接字符串

⑵描述在其他程序文件中如何获取

三、1、在窗体中添加1个按钮、1个文本框和1个标签框。用if语句完成：年龄小于30岁工资为2000元、年龄大于等于30小于40岁工资为3000元、年龄大于等于40小于50岁工资为4000元、其他为5000元。

写出按钮事件代码：(P7)

2、声明一个全局变量，并在子程序或函数中改写该全局变量的值，并赋值。 3、用if语句和do while语句计算10以内的累加和，写出代码和操作。 4、有1个sample.mdb数据库，请完成与该数据库的连接。(p20)