mapsave.asp

Flash电子相册 v1.2 Build 1108完整版本下载

<!--#include file="conn.asp" -->
<%  dim rs,sql
	dim membername,chkin
	dim mapname,mapfl,shuoming,softwave
	chkin=false
	mapfl=request.form("mapfl")
	membername=session("inname")
	
	if request.form("mapname")="" then
	response.write "<br><center>你还没填写作品名称！</center>"
        response.write "<br><center> [<a href=upfile1.asp><<返回</a>]</center>"
	response.end
	else
	sql="select * from upmap where mapname='"&trim(request.form("mapname"))&"'"
	Set rs= Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	mapname=trim(request.form("mapname"))
	chkin=true
    else
	response.write "<br><center>你填写的作品名称["&trim(request.form("mapname"))&"]已经被别人使用啦，请重新填写！</center>"
        response.write "<br><center> [<a href=upfile1.asp><<返回</a>]</center>"
	response.end
	end if
	rs.close
	set rs=nothing
	end if
	if request.form("shuoming")="" then
	shuoming="这家伙很懒！没有文件说明！"
	else
	shuoming=request.form("shuoming")
	end if
	if request.form("softwave")="" then
	softwave="没有其它资料"
	else
	softwave=request.form("softwave")
	end if
	if chkin=true then
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select * from upmap where (mapid is null)"
	rs.open sql,conn,1,3
	rs.addnew
	rs("mapname")=mapname
	rs("mapurl")=session("mapurl")
	rs("username")=membername
	rs("mapfl")=request.form("mapfl")
	rs("shuoming")=shuoming
	rs("softwave")=softwave
	rs.update
	rs.close
	sql="select upnum from [user] where nickname='"&membername&"'"
	rs.open sql,conn,1,3
	rs("upnum")=rs("upnum")+1
	rs.update
	set rs=nothing
	session("mapurl")=""
	response.write "<center>谢谢你的支持！你已经顺利完成文件上传！"
response.write "<br><br> 【<a href=""MAKEFILE.ASP"">再上传文件</a>】【<a href=""editmyfile.ASP"">管理存储文档</a>】【<a href=""login.ASP"">退出系统</a>】</center>"
	end if

conn.close
set conn=nothing

%>