asp.net聊天室源代码， Sub page_load(ByVal sender As Object, ByVal e As EventArgs) liuyan.Text = "" If Request.QueryString("action") = "del" And Not Request.QueryString("id") = "" Then strSql = "delete from siliao where id=" + Request.QueryString("id") conn
Session("UserName")=Trim(Request("UserName")) //设定一个会话状态，保证提交试卷后不能重新测试，只能查询成绩 IF Session("Exam")=1 Then Response.Write "对不起,你已经测试过了,查看以前的考试成绩!" Response.Write "查看考试成绩" Response.End Sql="Select * From [Grade]"//从成绩表中获取成绩 Set Rs=DB.GetRs(Sql) Rs.AddNe
asp net连接Access数据库 Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand sub page load sender as Object e as EventArgs "1 连接数据库 dim dbname as string dbname server mappath "authors mdb" myConnection New OleDbConnection &
