asp写入库问题

来源:百度知道 编辑:UC知道 时间:2024/07/05 07:27:42
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("starark.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

<!--#include file="articleconn.asp"-->
<form id="form1" name="form1" method="post" action="11.asp">
<label>
<input type="text" name="textname" id="textname" />
</label>
<p>
<input type="submit" value=" 添 加 "
name="cmdok" class="unnamed5" />
</p>
</form>

<!--#include file="articleconn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from admin &quo

你的表单没有用action值去判断在什么情况下去添加记录。我帮你稍做修改!

<!--#include file="articleconn.asp"-->
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("starark.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
action=request("action")

IF action="add" then
sqlstr="select * from admin "
rs.open sqlstr,conn,1,3
rs.addnew
rs("Username")=request.form("textname")
rs.update
response.Write "<script language=javascript>alert('send');window.location.href='1111111.asp';</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
else
%>

<