send.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 15 行

<%@ Import Namespace="System.Data" %> 
<%@ Import Namespace="System.Data.OleDb" %> 
<script language=vb runat=server> 
Sub Page_Load(Source As Object, E As EventArgs) 
Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("data.mdb")) 
Dim myInsertQuery As String = "insert into guest (标题, 署名, 内容) values ('" & request("title") & "', '" & request("name") & "', '" & request("body") & "')" 
Dim myOleDbCommand As New OleDbCommand(myInsertQuery) 
myOleDbCommand.Connection = myConn 
myConn.Open() 
myOleDbCommand.ExecuteNonQuery() 
myOleDbCommand.Connection.Close() 
response.redirect("guest.aspx") 
end sub 
</script>