y_cl.asp 水族产品用品经营类企业网站asp源代码程序 - ASP源码程序

www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > ly_cl.asp

    <%
myname=request.Form("name")
if myname="" then response.Redirect("/error.asp?p=姓名不能为空！")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db_ly.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ly"
rs.open sql,conn,1,3
rs.addnew
rs("name")=myname
rs("unit")=request.Form("unit")
rs("phone")=request.Form("phone")
rs("fax")=request.Form("fax")
rs("email")=request.Form("email")
rs("web")=request.Form("web")
rs("text")=request.Form("text")
rs("time")=date
rs.update




%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>

<body>
留言成功。
</body>
</html>