add_savepic.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"-->
<%
  if Request.QueryString("Action")="Add_Pic" then 
  set rs = Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from [desktop] where DesktopId="&Cint(DesktopId)
  rs.open sqlstr,conn,1,3
  rs.AddNew 
  rs("DesktopName")=request("name")
  rs("ClassID")=request("nclass")
  rs("TypeID")=request("mclass")
  rs("DesktopDx")=request("dx")  
  rs("DesktopHot")=request("hot")
  rs("DesktopLx")=0
  rs("Desktoppic")=request("pic")
  rs("DesktopUrl")=request("pic")
  rs("DesktopJj")=request("jj")
  rs("Desktoptime")=now()
if Request.Form("minipic")="" then
rs("Desktopminipic")=request("pic")
else
rs("Desktopminipic")=request("pic")
end if
  rs.Update
  rs.close
  conn.close
  Set rs=Nothing
  Set conn=Nothing
  response.redirect "Admin_PicAdd.Asp"
  end if
%>