[求助]用Insert添加记录．找不到代码错在哪． - ASP技术论坛

第 11 楼

得分:0

就是这样的..
可以读.但是不能删除.真郁闷..找不到原因..

第 12 楼

得分:0

把你显示数据的代码也贴上来看看

http://www./

第 13 楼

得分:0

link_dongtai.asp文件如下
<%
Dim db_dongtai
Set db_dongtai=Server.CreateObject("ADODB.Connection")
db_dongtai.Open "link_dongtai"
Dim strSql_dongtai,rs_dongtai
strSql_dongtai="Select * From dongtai Order By id DESC"
Set rs_dongtai=db_dongtai.Execute(strSql_dongtai)
%>
显示页面ASP部分如下.

<%
response.write"<table width='600' border='1' cellspacing='0' cellpadding='0'>"
response.write "<tr><td colspan='5' align=center>动态信息编辑</td>"
response.write "</tr>"
response.write " <tr> <td width=20><div align='center'>ID</div></td>"
response.write "<td width=460><div align='center'>标题</div></td>"
response.write "<td width=40> </td>"
response.write "<td width=40> </td>"
response.write "<td width=40> </td>"
response.Write"</tr>"
dim page_size
dim page_total
dim page_no
page_size=6
rs_dongtai.pagesize=page_size
dim i
i=page_size
do while not rs_dongtai.eof and i>0
i=i-1
response.write "<tr>"
response.write "<td width=20 align=center>"&rs_dongtai("id")&"</td>"
response.write "<td width=460 align=left>"&rs_dongtai("Headline")&"</td>"
response.write "<td width=40 align=center>"&"<a href='add_form.asp'>"&"添加"&"</a></td>"
response.write "<td width=40 align=center>"&"修改"&"</td>"
response.write "<td width=40 align=center>" & "<a href=delete.asp?id="&rs_dongtai("id")&">" &"删除"&"</a></td>"
response.write "</tr>"
rs_dongtai.Movenext
loop
response.write "</table>"
rs_dongtai.close
set rs_dongtai=nothing
db_dongtai.close
set db_dongtai=nothing
%>

太感谢了..

第 14 楼

得分:0

以下是引用guitar230在2006-5-10 10:53:00的发言：
错误代码如下．请帮我改正．．
<% Option Explicit %>
<%
if request.form("biaoti") <> "" and request.form("text") <> "" then
dim db
set db=Server.CreateObject("ADODB.Connection")
db.Open "link_new"
Dim strSql,sqla,sqlb, var_headline, var_text, var_time
var_headline=request.form("biaoti")
var_text=request.form("text")
var_time=request.form("time")
sqla="Insert Into news(headline,text"
sqlb=" values('" & var_headline & "','" & var_text &"' ,'" & var_time &"'" 上次看错了，这个应该是不要的，在下面有
if var_time<>"" then
sqla=sqla & ",time"
sqlb=sqlb & ",'" & var_time & "'"
end if
strSql=sqla & ")" & sqlb & ")"
db.Execute(strSql)
response.redirect "index_edit.htm"
else
response.write "请将所有信息填写完整，"
response.write "<a href='add_form.asp'>重新添加</a>"
end if
%>

http://www./