Imports System.Data Imports System.Data.SqlClient Partial Class indexClass index Inherits System.Web.UI.Page Dim myid AsInteger ProtectedSub Page_Load()Sub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load IfNot Page.IsPostBack ThenDim myQuestion AsNew quest Dim myreader As SqlDataReader myreader = myQuestion.RetriveReader If myreader.Read Then lbshow.Text = myreader("QuestionContent") myid = myreader("QuestionId") llId.Text = myid.ToString EndIf Dim myanswer AsNew answer myanswer.QuestionId = myid RadioButtonList1.DataSource = myanswer.RetriveDs RadioButtonList1.DataTextField ="AnswerContent" RadioButtonList1.DataValueField ="AnswerId" RadioButtonList1.DataBind() 'RadioButtonList1.SelectedIndex = 0 EndIf End Sub ProtectedSub Button1_Click()Sub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click Dim myanswer AsNew answer(CInt(RadioButtonList1.SelectedValue)) With myanswer .DianJi = .DianJi +1 .update() EndWith End Sub End Class
quest.vb
Imports System.Web Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.Data Imports System.Data.SqlClient PublicClass questClass quest Private _QuestionId AsInteger Private _QuestionContent AsString Private _CheckIf AsBoolean Private _connstr AsString Sub New()SubNew() getconnstr() End Sub PublicProperty QuestionId()Property QuestionId() AsInteger Get Return _QuestionId EndGet Set(ByVal value AsInteger) _QuestionId = value EndSet End Property PublicProperty QuestionContent()Property QuestionContent() AsString Get Return _QuestionContent EndGet Set(ByVal value AsString) _QuestionContent = value EndSet End Property PublicProperty connstr()Property connstr() AsString Get Return _connstr EndGet Set(ByVal value AsString) _connstr = value EndSet End Property PublicProperty CheckIf()Property CheckIf() AsBoolean Get Return _CheckIf EndGet Set(ByVal value AsBoolean) _CheckIf = value EndSet End Property Sub New()SubNew(ByVal QuestionId AsInteger) getconnstr() '得到数据库的连接串 Dim sqlstr AsString="select * from my_question where QuestionId="+ QuestionId.ToString Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim Com AsNew SqlCommand(sqlstr, Conn) Dim myreader As SqlDataReader myreader = Com.ExecuteReader If myreader.Read Then _QuestionId = QuestionId _QuestionContent = myreader("QuestionContent") EndIf myreader.Close() End Sub PublicFunction RetriveReader()Function RetriveReader() As SqlDataReader Dim strSqlstr AsString="select * from my_question where CheckIf=1" '连接数据库 Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim Com AsNew SqlCommand(strSqlstr, Conn) '验证 Return Com.ExecuteReader(CommandBehavior.CloseConnection) End Function PublicFunction retrive()Function retrive() As DataSet getconnstr() '得到数据库的连接串 Dim sqlstr AsString sqlstr ="select * from my_question " Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim da AsNew SqlDataAdapter(sqlstr, Conn) Dim ds AsNew DataSet da.Fill(ds) da.Dispose() Conn.Close() Return ds End Function PublicSub getconnstr()Sub getconnstr() _connstr = ConfigurationManager.AppSettings("connStr") End Sub End Class
answer.vb
Imports System.Web Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.Data Imports System.Data.SqlClient PublicClass answerClass answer Private _AnswerId AsInteger Private _AnswerContent AsString Private _QuestionId AsInteger Private _connstr AsString Private _DianJi AsInteger Sub New()SubNew() getconnstr() End Sub Sub New()SubNew(ByVal AnswerId AsInteger) getconnstr() '得到数据库的连接串 Dim sqlstr AsString="select * from my_answer where AnswerId="+ AnswerId.ToString Dim conn AsNew SqlConnection(_connstr) conn.Open() Dim com AsNew SqlCommand(sqlstr, conn) Dim myreader As SqlDataReader myreader = com.ExecuteReader If myreader.Read Then _AnswerId = AnswerId _AnswerContent = myreader("AnswerContent") _DianJi = myreader("DianJi") _QuestionId = myreader("QuestionId") EndIf myreader.Close() End Sub PublicProperty AnswerId()Property AnswerId() AsInteger Get Return _AnswerId EndGet Set(ByVal value AsInteger) _AnswerId = value EndSet End Property PublicProperty AnswerContent()Property AnswerContent() AsString Get Return _AnswerContent EndGet Set(ByVal value AsString) _AnswerContent = value EndSet End Property PublicProperty QuestionId()Property QuestionId() AsInteger Get Return _QuestionId EndGet Set(ByVal value AsInteger) _QuestionId = value EndSet End Property PublicProperty DianJi()Property DianJi() AsInteger Get Return _DianJi EndGet Set(ByVal value AsInteger) _DianJi = value EndSet End Property PublicSub update()Sub update() Dim sqlstr AsString="Update my_answer set AnswerContent='"+ _AnswerContent +"',DianJi="+ _DianJi.ToString +",QuestionId="+ _QuestionId.ToString +"where AnswerId="+ _AnswerId.ToString Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim Com AsNew SqlCommand(sqlstr, Conn) Com.ExecuteNonQuery() Conn.Close() End Sub PublicSub getconnstr()Sub getconnstr() _connstr = ConfigurationManager.AppSettings("connStr") End Sub PublicFunction checklogin()Function checklogin() AsInteger '对密码加密 '到数据库验证 'dim strSqlstr as String="select * from Portal_User where UserName='' and userPassword=''" '' Dim strJiaMi As String = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(myuserpassword, "sha1") Dim strsqlstr AsString="select * from my_answer where AnswerContent='"+ _AnswerContent +"'" Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim Com AsNew SqlCommand(strsqlstr, Conn) '验证 Dim myreader As SqlDataReader = Com.ExecuteReader() If myreader.Read Then myreader.Close() Conn.Close() Return1 Else myreader.Close() Conn.Close() Return0 EndIf ' myreader.Close() End Function PublicFunction RetriveReader()Function RetriveReader() As SqlDataReader Dim strSqlstr AsString="select * from my_answer where QuestionId="+ _QuestionId.ToString '连接数据库 Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim Com AsNew SqlCommand(strSqlstr, Conn) '验证 Return Com.ExecuteReader(CommandBehavior.CloseConnection) End Function PublicFunction RetriveDs()Function RetriveDs() As DataSet Dim strSqlstr AsString="select * from my_answer where QuestionId="+ _QuestionId.ToString '连接数据库 Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim da AsNew SqlDataAdapter(strSqlstr, Conn) Dim ds AsNew DataSet da.Fill(ds) da.Dispose() Conn.Close() Return ds End Function PublicSub Create()Sub Create() Dim sqlstr AsString Dim Conn AsNew SqlConnection(_connstr) Conn.Open() sqlstr ="insert into my_answer(AnswerContent,QuestionId) values('"+ _AnswerContent +"',"+ _QuestionId.ToString +")" '需要增加 Dim Com AsNew SqlCommand(sqlstr, Conn) Com.CommandText = sqlstr Com.Connection = Conn Com.ExecuteNonQuery() Conn.Close() End Sub PublicSub delete()Sub delete() Dim sqlstr AsString="delete from my_answer where AnswerId="& _AnswerId.ToString Dim Conn AsNew SqlConnection(_connstr) Conn.Open() Dim Com AsNew SqlCommand(sqlstr, Conn) Com.ExecuteNonQuery() Conn.Close() End Sub End Class
posted on
2006-12-27 13:03liaolei
阅读(492)
评论(0)
编辑收藏举报