add_saveplpic.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：[e-mail]
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
  dim id,x,sqldel
  if Request.QueryString("Action")="Add_Pic" then 
  id=split(request.form("id"),",")
  DesktopName=split(request.form("name"),", ")
  DesktopDx=split(request.form("dx"),", ")
  deskck=split(request.form("ck"),", ")
  DesktopJJ=split(request.form("jj"),", ")
  DesktopHot=split(request.form("hot"),", ")
  DesktopPic=split(request.form("pic"),", ")
  for i=0  to ubound(id)
  set rs = Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from [desktop] where DesktopId="&Cint(DesktopId)
  rs.open sqlstr,conn,1,3
  rs.AddNew 
  rs("DesktopName")=DesktopName(i)
  rs("ClassID")=request("nclass")
  rs("TypeID")=request("mclass")
  rs("DesktopDx")=DesktopDx(i)
  rs("deskck")=deskck(i)
  rs("DesktopJj")=DesktopJj(i)
  rs("Desktoppic")=DesktopPic(i)
  rs("DesktopUrl")=DesktopPic(i)
  rs("Desktopminipic")=DesktopPic(i)
  rs("DesktopHot")=DesktopHot(i)
  rs("Desktoptime")=now()
  rs.Update
  next  
  rs.close
  Set rs=Nothing
 
  for i=0  to ubound(id)
  set rs1 = Server.CreateObject("ADODB.Recordset")
  sqlstr1="select * from [iXs_UpFiles] where F_ID="&Cint(id(i))
  rs1.open sqlstr1,conn,1,3
  rs1("name")=1
  rs1.Update
  next
  rs1.close
  conn.close
  Set rs1=Nothing
  Set conn=Nothing
  Response.Write"数据转存完成！"
  Response.Write"审核完成"
  response.redirect "Admin_plpic.asp"
  end if
%>