新英语口语900句:ASP,,写,读的时候都会出来, 操作必须使用一个可更新的查询。

来源:百度文库 编辑:神马品牌网 时间:2024/05/07 07:52:56
<html>
<head>
<title>lyb</title>
<meta http-equiv="refresh" content="1;url=index3.html">
</head>
<body>
<p align=center>信息正在传送中……………………</p>
<% set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn=zlsj;"
if Request("task")="insert" then
name = Request("name")
qq = Request("qq")
email = Request("email")
tel = Request("tel")
jiaadd = Request("jiaadd")
netname = Request("netname")
school = Request("school")
sj = Date()
sj = sj & " " & Hour(Time()) & ":" & Minute(Time())
ly=Request("ly")
sql = "insert into ziyuan (bh,name,sj,ly,email,qq,tel,netname,jiaadd,school) Values('" & bh &"','" & name &"', '"&sj&"','"& ly &"','"& email &"','"& qq &"','"& tel &"','"& netname &"','"& jiaadd &"','"& school &"')"
conn.execute sql
end if
sql="Select * from lyb order by sj DESC"
set rs = conn.Execute(sql)
%>

</body>
</html>