我最近写了一个基于数年据共享的系统,不过在调试过程中遇到了一个问题一直没有解决,大哥哥们帮我看一下好吗?谢谢,点击此下载代码
以下是index_zbb.asp的代码
<% if isempty(session("flag")) then
Response.Redirect "."
end if %>
<% Response.Buffer=True %>
北 美 佛 吉 亚 零 部 件 物 流 跟 踪 表
<% dim key
key=trim(request("key"))
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
sql="select * from download where id like '%"&key&"%' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
"
response.write " 对不起，没有符合要求的记录！"
response.write "
点此返回"
response.end
end if
rs.PageSize=20
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
dim i
i=0 %>
以下是change-zb.asp的代码
<% dim goods_number(),lq(),jhscl(),sjscl(),slkcl(),ID()
goods_number(i)=request.form("goods_number_"&i)
if i<=20 then
for i=1 to 20
lq(i)=request.form("lq_"&i)
jhscl(i)=request.form("jhscl_"&i)
sjscl(i)=request.form("sjscl_"&i)
slkcl(i)=request.form("slkcl_"&i)
id(i)=request("ID_"&i)
set rs=server.createobject("adodb.recordset")
sql="select * from download where id=""&goods_number(i)&"
rs.open sql,conn,3,3
rs("lq")=lq(i)
rs("jhscl")=jhscl(i)
rs("sjscl")=sjscl(i)
rs("slkcl")=slkcl(i)
rs("datezb")=datezb(i)
rs.update
next
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "index_zbb.asp?page=1&key="%>
