add_savepicedit.asp

来自「这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你」· ASP 代码 · 共 48 行

<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
Dim DesktopId
DesktopId=request.QueryString("NumID")
If DesktopId="" or not IsNumeric(DesktopId) Then
	Response.Write ("访问错误!")
	Response.End
End If
%>
<%
  if Request.QueryString("Action")="Edit_Pic" Then
  name=Request.Form("name")
  nclass=Request.Form("nclass")
  mclass=Request.Form("mclass")
  dx=Request.Form("dx")
  jj=Request.Form("jj")
  hot=Request.Form("hot")
  minipic=Request.Form("pic")
  pic=Request.Form("pic")
  url=Request.Form("pic")
  lx=0
  set rs=server.createobject("adodb.recordset")
  sql="select * from [desktop] where DesktopID="&Cint(DesktopID)
  rs.open sql,conn,1,3
  rs("DesktopName")=name
  rs("ClassID")=nclass
  rs("TypeID")=mclass
  rs("Desktopdx")=dx
  rs("DesktopJj")=jj
  rs("DesktopHot")=hot
  rs("DesktopPic")=pic
  rs("DesktopUrl")=url
  rs("DesktopLx")=lx
  rs("Desktoptime")=now()
if Request.Form("minipic")="" then
rs("Desktopminipic")="pic"
else
rs("Desktopminipic")=Request.Form("pic")
end if
  rs.Update
  rs.close
  conn.close
  Set rs=Nothing
  Set conn=Nothing
  response.redirect "Admin_All.Asp"
  end if
%>