问题描述:
英语翻译
Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")
Dim mysql As String
Dim mycmd As Data.OleDb.OleDbCommand
Protected Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs)
myconn.Open()
mysql = "update 1 set piaoshu= piaoshu + 1 where name='" + RadioButtonList1.SelectedItem.Text + "'"
mycmd = New Data.OleDb.OleDbCommand(mysql,myconn)
mycmd.ExecuteNonQuery()
myconn.Close()
ClientScript.RegisterClientScriptBlock(System.Type.GetType("System.String"),"_error","window.open('html/tp.aspx')")
Response.Redirect("2.aspx")
End Sub
Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")
Dim mysql As String
Dim mycmd As Data.OleDb.OleDbCommand
Protected Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs)
myconn.Open()
mysql = "update 1 set piaoshu= piaoshu + 1 where name='" + RadioButtonList1.SelectedItem.Text + "'"
mycmd = New Data.OleDb.OleDbCommand(mysql,myconn)
mycmd.ExecuteNonQuery()
myconn.Close()
ClientScript.RegisterClientScriptBlock(System.Type.GetType("System.String"),"_error","window.open('html/tp.aspx')")
Response.Redirect("2.aspx")
End Sub
问题解答:
我来补答展开全文阅读