asp连接access数据库问题,望高手指点,急,谢谢!
添加部分代码如下:<%OptionExplicit%><%'如果上面的信息填全了,就添加记录,否则给出错误信息IfRequest.Form("content")<>""T...
添加部分代码如下:
<% Option Explicit %>
<%
'如果上面的信息填全了,就添加记录,否则给出错误信息
If Request.Form("content")<>"" Then
'以下连上数据库,建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("productsDB.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varData_id,varData_name,varData_Pinpai,varData_only
varData_id=Request.Form("id")
varData_name=Request.Form("data_name")
varData_Pinpai=Request.Form("data_Pinpai")
varData_only=Request.Form("data_only")
StrSql="Insert Into data(id,data_name,data_pinpai,data_only) Values('" & varData_id & "' ,'" & varData_name & "','" & varData_Pinpai & "','" & varData_only & "')"
db.Execute(strSql)
Response.Redirect "index.asp"
Else
Response.Write "请将所有信息填写完整,"
Response.Write "<a href='add_form.asp'>重新添加</a>"
End If
%>
然后 输入新内容后主页能显示,但为空,不知道如何解决,望赐教! 展开
<% Option Explicit %>
<%
'如果上面的信息填全了,就添加记录,否则给出错误信息
If Request.Form("content")<>"" Then
'以下连上数据库,建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("productsDB.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varData_id,varData_name,varData_Pinpai,varData_only
varData_id=Request.Form("id")
varData_name=Request.Form("data_name")
varData_Pinpai=Request.Form("data_Pinpai")
varData_only=Request.Form("data_only")
StrSql="Insert Into data(id,data_name,data_pinpai,data_only) Values('" & varData_id & "' ,'" & varData_name & "','" & varData_Pinpai & "','" & varData_only & "')"
db.Execute(strSql)
Response.Redirect "index.asp"
Else
Response.Write "请将所有信息填写完整,"
Response.Write "<a href='add_form.asp'>重新添加</a>"
End If
%>
然后 输入新内容后主页能显示,但为空,不知道如何解决,望赐教! 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询