日期:2014-05-16  浏览次数:20640 次

又是一个XJAX值问题,我这里怎么不能自动保存在数据库,少了一个自动触发的货?
3_upload_update.asp
<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<body>
<%
dim upload,file,formName,formPath,iCount,filesize,czz
set upload=new upload_5xsoft ''建立上传对象
czz=upload.form("czz")
formpath="../ajax/picture/"
for each formName in upload.objFile ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
next

    file.FileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)'重命名
     file.fileext=".bmp"
  file.SaveAs Server.mappath(formPath&file.FileName&file.Fileext)   ''保存文件
                response.write ("<a href='del_lofar.asp?pic="&File.FileName&file.filEext&"&czz="&czz&"'>删除图片</a>")
   response.write "<script language=javascript>parent.document.getElementById('"&czz&"').value='../picture/"&File.FileName&file.filEext&"'</script>"这里的值传到plan2.asp时能看得到,但是不保存,是怎么一情况?是modify_ajax_yc.js文件写得不对?还是缺少一个触发?
%>
</body>
</html>
plan2.asp

<!-- #include file="adoconn.asp" -->

<%
'=========================================
'功能:ajax实现无刷新对数据库的操作
'有添加、删除、修改、分页
'使用的是jquery框架
'作者:wangsdong
'来源:www.aspprogram.cn
'友情下载:脚本之家(http://www.jb51.net)
'文章为作者原创,转载请注明文章出处、保留作
'者信息,谢谢支持!
'=========================================

'此为后台文件
Response.CacheControl = "no-cache"
response.addheader"content-type","text/html;charset=gb2312"
id=request("id")
set rs=server.CreateObject("adodb.recordset")
   act=request("act")   
   if act="" or act="add" then
     call add()
   elseif act="list" then
      call manage()
   elseif act="del" then
      call del()
   elseif act="modify" then
      call modify()
   ElseIf act="edit" Then
      Call edit()
   end If
sub del() '删除

   page=request("page")
   sql="delete from shuisheng where object_id="&id
   conn.execute(sql)   
   Call manage()   
end sub
   
sub add() '添加
ph = VbsUnEscape(request("ph"))
    imagee = request("imagee")

qita = request("qita")
sql="select * from shuisheng where object_id=null"
rs.open sql,conn,1,3
rs.addnew
rs("ph")=ph
rs("imagee")=imagee

rs.update
rs.close 
Call manage()
end sub   
sub manage()  '分页   
%>
<%
sql="select object_id,ph,imagee from shuisheng order by object_id desc"
rs.open sql,conn,1,1
k=