煤炭烘干机 河南达嘉:insert into 那里有错.................

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 07:49:33
1文件名aaa.asp
<%
time=request("syears")&"-"&request("smonths")&"-"&request("sdays")

Conn.execute("insert into qqq(time)values('"&time&"')")
sql="select top 1 id from qqq"
set rs=Server.Createobject("adodb.Recordset")
rs.open sql, conn,1,1
id =rs("id")
rs.close
response.Write"<script>alert( '添加成功');</script>"
response.Write"<script>location.href='qq.asp'</script>"

%>
2文件名 qq.asp
<form name="form1" action="aaa.asp" method="post">
<tr><td height="25">开始时间:
<select size="1" name="syears">
<option value="<%=year(date())%>" selected><%=year(date())%></option>
<%for i=4 to 20
response.Write"<option value=200"&i&">200"&i&"</option>"
next
%>
</select>年
<select size="1" name="smonths">
<option value="<%=month(date())%>" selected><%=month(date())%></option>
<%for i=1 to 12
response.Write"<option value="&i&">"&i&"</option>"
next
%>
</select>月
<select size="1" name="sdays">
<option value="<%=day(date())%>" selected><%=day(date())%></option>
<%for i=1 to 31
response.Write"<option value="&i&">"&i&"</option>"
next
%>
</select>日
<input name="b1" type="submit" value=" 提 交 ">
</form>
帮忙看看啊,就是把两个下拉菜单里的内容添加到一个字段里???????

眼花`??