谁能帮我查出来错误,再给100分

cluber2001 2003-03-04 02:24:59
<!--#include file="conn.asp"-->
<%
v1=request.form("p_name")
v2=request.form("oldprice")
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product where Product_Name='"&v1&"'"
rs.open sqltext,conn,3,3




rs("P_OldPrice")=request.form("oldprice")

rs.update
rs.close
conn.close
%>


conn:
<%
dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("../market_database/supermarket_data.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>
...全文
25 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
cluber2001 2003-03-04
  • 打赏
  • 举报
回复
谢谢大家了,成功了,我再帮朋友弄网站,可不懂ASP只有现学现卖了,多谢大家,还会有问题的,大家先收分吧
cpls 2003-03-04
  • 打赏
  • 举报
回复
1.你的连接是否是可写模式?
2。可以直接用Update YourTable Set YourFlied=YourValue Where ...来更新表
cluber2001 2003-03-04
  • 打赏
  • 举报
回复
不知道错误信息怎么看啊,我很菜
oldsky 2003-03-04
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"-->
<%
v1=request.form("p_name")
v2=request.form("oldprice")
sqltext="update Product set P_OldPrice="&v2&" where Product_Name='"&v1&"'"
conn.execute sqltext
conn.close
%>

conn:
<%
dim conn
dim connstr

on error resume next
connstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../market_database/supermarket_data.asp")
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
response.write err.description
response.end
else
conn.open connstr
if err.number<>0 then
response.write err.description
response.end
end if
end if
%>


conn:
<%
dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("../market_database/supermarket_data.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>
possible_Y 2003-03-04
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"-->
<%
v1=request.form("p_name")
v2=request.form("oldprice")
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product where Product_Name='"&v1&"'"
rs.open sqltext,conn,3,3
if not rs.EOF then
rs("P_OldPrice")=request.form("oldprice")
rs.update
end if
rs.close
conn.close
%>
genuis 2003-03-04
  • 打赏
  • 举报
回复
on error resume next

去掉这行,看看是什么错误提示!
allforly 2003-03-04
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"-->
<%
on error resume next
v1=request.form("p_name")
v2=request.form("oldprice")
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product where Product_Name='"&v1&"'"
rs.open sqltext,conn,3,3
if err.number<>0 then
response.write err.description
response.end
end if

rs("P_OldPrice")=request.form("oldprice")

rs.update
if err.number<>0 then
response.write err.description
response.end
end if
rs.close
conn.close
%>


conn:
<%
dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("../market_database/supermarket_data.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
response.write err.description
response.end
else
conn.open connstr
if err.number<>0 then
response.write err.description
response.end
end if
end if
%>
denghan 2003-03-04
  • 打赏
  • 举报
回复
1.你的数据库路径("../market_database/supermarket_data.asp)到底对不对啊?
2.你的当前文件和conn.asp到底是不是在同一层目录下?如果不是,会出错。
coffee_cn 2003-03-04
  • 打赏
  • 举报
回复
错误信息。。。。。。。。。。。。
eafin 2003-03-04
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"-->
<%
dim v1,v2,sql,rs
v1=request.form("p_name")
v2=request.form("oldprice")
set rs=server.createobject("adodb.recordset")
sql="select * from Product where Product_Name='"&v1&"'"
rs.open sql,conn,1,3

rs("P_OldPrice") = v2
rs.update
rs.close
set rs=nothing
%>

<!--conn.asp-->
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
db="../market_database/supermarket_data.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

以上仅代表本人观点...
浙江云 2003-03-04
  • 打赏
  • 举报
回复
出错提示贴上来?
<!--#include file="conn.asp"-->
<%
dim v1,v2,sql,rs
v1=request.form("p_name")
v2=request.form("oldprice")
set rs=server.createobject("adodb.recordset")
sql="select * from Product where Product_Name='"&v1&"'"
response.write sql
rs.open sql,conn,1,3

rs("P_OldPrice") = v2
rs.update
rs.close
conn.close
%>

eafin 2003-03-04
  • 打赏
  • 举报
回复
错误提示是?
cluber2001 2003-03-04
  • 打赏
  • 举报
回复
还是不行啊!
eafin 2003-03-04
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"-->
<%
dim v1,v2,sql,rs
v1=request.form("p_name")
v2=request.form("oldprice")
set rs=server.createobject("adodb.recordset")
sql="select * from Product where Product_Name='"&v1&"'"
rs.open sql,conn,1,3

rs("P_OldPrice") = v2
rs.update
rs.close
conn.close
%>

以上仅代表本人观点...

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧