海河游览

<% Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("ly.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}" Conn.Open connstr %> 海河游览

关于海河

姓名：

单位：

地址：

邮编：

电话：

传真：

Email：

留言内容：

<% if request("action")="" then response.end username=request("username") danwei=request("danwei") dizhi=request("dizhi") youbian=request("youbian") dianhua=request("dianhua") chuanzhen=request("chuanzhen") email=request("email") ly=request("ly") conn.execute "insert into ly (姓名,单位,地址,邮编,电话,传真,email,留言) values ('"&username&"','"&danwei&"','"&dizhi&"','"&youbian&"','"&dianhua&"','"&chuanzhen&"','"&email&"','"&ly&"')" response.redirect "lyok.asp" %>