<%
Set conn = Server.CreateObject("ADODB.Connection")
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("guestbook/guestbook.mdb")
conn.open str
Set recset=conn.execute("SELECT * from youridea")
%>
建筑工程系
<%
name=Request.Form("name")
email=Request.Form("email")
tele=Request.Form("telenum")
mess=Request.Form("idea")
response.write name
response.write email
response.write tele
response.write mess
Set conn = Server.CreateObject("ADODB.Connection")
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("guestbook.mdb")
conn.open str
Set rs=conn.execute("insert into youridea(name,email,tele,mess) values ('"&name&"','"&email&"','"&tele&"','"&mess&"')")
%>