大侠们帮我看看两个文件代码

Question

第一个:是添加功能<%
if (Session("userAuthenticated")="F") then
Response.Redirect ("index.asp")
end if
%><%
dim asp1,asp2,asp3 asp2 = request("b_name")
asp3 = request("b_sort")


Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath mysql = "insert into b_item(b_name,b_sort) values('" & asp2 & "'," & asp3 & " )
Response.Redirect ("item.asp?msg=栏目增加成功!")

%>但是页面总是没有更新我新添加得到,弹出的msg都说添加成功了.第二个:修改功能<%
if (Session("userAuthenticated")="F") then
Response.Redirect ("index.asp")
end if
%><%
dim asp1,asp2
asp1 = request.form("b_name")
asp2 = request.form("b_sort")
Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath
mysql = "update b_item set "
mysql = mysql + "b_name='" & asp1 &"',"
mysql = mysql + "b_sort=" & asp2 &"," Response.Redirect ("item.asp?msg=主栏目修改成功!")

%>  和上面一样,我把新的内容写完之后,点修改,msg弹出窗口成功,但是页面确还是老的内容.
以上2个问题我估计都是处在同一个问题上,希望大侠们指点一下.

Answer 1

Response.Redirect ("item.asp?msg=栏目增加成功!")　前头加上下面的代码
dim rs1
set rs1=conn.execute(mysql)
set rs1=nothing

Answer 2

兄弟，你根本没执行插入和修改语句，怎么能更新数据库呢？mysql = "insert into b_item(b_name,b_sort) values('" & asp2 & "'," & asp3 & " )con.execute sql  '执行sqlResponse.Redirect ("item.asp?msg=栏目增加成功!")

Answer 3

mysql = "insert into b_item(b_name,b_sort) values('" & asp2 & "'," & asp3 & " )con.execute mysql '执行sqlResponse.Redirect ("item.asp?msg=栏目增加成功!")

Answer 4

to cncxz(虫虫) :加了也不行,能不能在帮我看看jianyi0115(随意):那我应该怎么改,能讲详细点吗?

Answer 5

第一个:是添加功能<%
'if (Session("userAuthenticated")="F") then '这几句代码先注释掉，不要影响下面的调试
'Response.Redirect ("index.asp")
'end if
%><%
dim asp1,asp2,asp3asp2 = request("b_name")
asp3 = request("b_sort")Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPathmysql = "insert into b_item(b_name,b_sort) values('" & asp2 & "'," & asp3 & " )
con.execute mysql  '执行sql
Con.Close
'Response.Redirect ("item.asp?msg=栏目增加成功!") '先不要重定向，看有无错误信息%>
最后直接看一下数据库，有无添加成功。

Answer 6

to jianyi0115(随意);添加功能好了,谢谢.
能不能在讲讲第二个.

Answer 7

你怎么还用<%%>这种形式写代码啊？这和ASP写代码有什么分别啊？

Answer 8

编程要学会举一反三啊！第二个:修改功能<%
'if (Session("userAuthenticated")="F") then
'Response.Redirect ("index.asp")
'end if
%><%
dim asp1,asp2
asp1 = request.form("b_name")
asp2 = request.form("b_sort")
Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath
mysql = "update b_item set "
mysql = mysql + "b_name='" & asp1 &"',"
mysql = mysql + "b_sort='" & asp2 &"'"Con.execute mysql
Conn.close'Response.Redirect ("item.asp?msg=主栏目修改成功!")%>

Answer 9

TO: hbzy123(GS)搂主的根本就是ａｓｐ嘛～

Answer 10

o? asp里连接字符串应该用&,还有问题把错误信息显示出来
第二个:修改功能<%
'if (Session("userAuthenticated")="F") then
'Response.Redirect ("index.asp")
'end if
%><%
dim asp1,asp2
asp1 = request.form("b_name")
asp2 = request.form("b_sort")
Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath
mysql = "update b_item set "
mysql = mysql & "b_name='" & asp1 &"',"
mysql = mysql & "b_sort='" & asp2 &"'"Con.execute mysql
Conn.close'Response.Redirect ("item.asp?msg=主栏目修改成功!")%>

Answer 11

无法显示网页 
试图访问的网页出现问题，无法显示。 --------------------------------------------------------------------------------请尝试执行下列操作：单击刷新按钮，或稍后重试。打开 10.0.0.2 主页，然后查找与所需信息相关的链接。 
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务--------------------------------------------------------------------------------技术信息（用于支持人员）错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Conn'
/admin/b_itemmodi2.asp, 第 19 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 网页：
POST 26 ??? /admin/b_itemmodi2.aspPOST Data:
b_name=%CE%D212&b_sort=121 时间：
2006年2月25日, 0:12:55 
详细信息：
Microsoft 支持 
 

Answer 12

不好意思：第二个:修改功能<%
'if (Session("userAuthenticated")="F") then
'Response.Redirect ("index.asp")
'end if
%><%
dim asp1,asp2
asp1 = request.form("b_name")
asp2 = request.form("b_sort")
Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath
mysql = "update b_item set "
mysql = mysql & "b_name='" & asp1 &"',"
mysql = mysql & "b_sort='" & asp2 &"'"Con.execute mysql
Con.close　'这句前面错了'Response.Redirect ("item.asp?msg=主栏目修改成功!")%>

Answer 13

是啊，你的代码update更本就没加限制条件，自然是update所有数据le第二个:修改功能<%
'if (Session("userAuthenticated")="F") then
'Response.Redirect ("index.asp")
'end if
%><%
dim asp1,asp2，idid = request("id") '传入要修改的数据行的ID,asp1 = request.form("b_name")
asp2 = request.form("b_sort")
Set Con=Server.CreateObject("ADODB.Connection")
DbPath = SERVER.MapPath("../")+"\database\"+application("mdb")
Con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DbPath
mysql = "update b_item set "
mysql = mysql & "b_name='" & asp1 &"',"
mysql = mysql & "b_sort='" & asp2 &"'"
'加入修改条件
mysql = mysql & " where id='" &id &"'"  '假设表主键为IDCon.execute mysql
Con.close　'这句前面错了'Response.Redirect ("item.asp?msg=主栏目修改成功!")%>