gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/PPicSave.asp

    <!--#include file="conn.asp"-->
<%if session("bjxadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
'call usercheck(2)
'OpenDB()
dim action,id,i,strDetail
id=request("id")
action=request("action")
select case action
	case "edit"
	  set rs=server.CreateObject("adodb.recordset")
		rs.Open "select * from T_IndexPic where id="&id,conn,1,3
		rs("title")=request("title")
		rs("title1")=request("title1")
		rs("title2")=request("title2")
		rs("title3")=request("title3")
		rs("url")=request("url")
		rs("url1")=request("url1")
		rs("url2")=request("url2")
		rs("url3")=request("url3")
	    rs("url4")=request("url4")
		rs("url5")=request("url5")
		rs("url6")=request("url6")
		rs("url7")=request("url7")
		rs("url8")=request("url8")
		rs("url9")=request("url9")
		rs("url10")=request("url10")
		rs("Pic")=request("Pic")
		rs("Pic1")=request("Pic1")
		rs("Pic2")=request("Pic2")
		rs("Pic3")=request("Pic3")
		rs("Pic4")=request("Pic4")
	    rs("Pic5")=request("Pic5")
		rs("Pic6")=request("Pic6")
		rs("Pic7")=request("Pic7")
		rs("Pic8")=request("Pic8")
		rs("Pic9")=request("Pic9")
		rs("Pic10")=request("Pic10")
		rs.Update
		rs.close
		set rs=nothing
		response.Write "<script language=javascript>"&vbcrlf
		response.Write "alert('修改成功！')" &vbcrlf
		response.write "location.href='pic1.asp?id="&id&"'" &vbcrlf
		response.Write("</script>")
		response.End
	
end select
%>