lcdzl_save.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 150 行

<%
if session("useradmin")=""  then
Response.Write("<script>alert(""您没有登录，不能使用此功能，请返回首页登录或注册..."");location.href=""../index.asp"";</script>")
response.end
end if
dbdns="../"
%><!--#include file="../inc/conn.asp"--><%
Server.ScriptTimeout=999
%>
<!--#include file="UpLoadClass.asp"-->
<%
dim request2
dim ypxxone_id,ypxxtwo_id,addone_id,addtwo_id,addone_id_,addtwo_id_,coname,cojc,coy

'建立上传对象
set request2=New UpLoadClass
request2.TotalSize= 2097152
	'单文件最大1M
	request2.MaxSize  =524288
	'允许上传格式文件
	request2.FileType = "jpg/gif/bmp/png"
	'上传路径
	request2.SavePath= "../uploadpic/logo/"
	request2.open
%>
<%ypxxone_id=request2.Form("ypxxone_id")
ypxxtwo_id=request2.Form("ypxxtwo_id")
addone_id=request2.Form("addone_id")
addtwo_id=request2.Form("addtwo_id")
oldpic=request2.Form("oldpic")
oldbz=request2.Form("oldbz")

ypxxone_id_=request2.Form("ypxxone_id_")
ypxxtwo_id_=request2.Form("ypxxtwo_id_")
addone_id_=request2.Form("addone_id_")
addtwo_id_=request2.Form("addtwo_id_")

if ypxxone_id="" then
ypxxone_id=ypxxone_id_
ypxxtwo_id=ypxxtwo_id_
end if
if addone_id="" then
addone_id=addone_id_
addtwo_id=addtwo_id_
end if

coname=request2.Form("coname")
cojc=request2.Form("cojc")
if cojc="" then cojc=null
coy=request2.Form("coy")
coweb=request2.Form("coweb")
codate=request2.Form("codate")
if codate="" then codate=null
cofr=request2.Form("cofr")
coms=request2.Form("coms")
cojy=request2.Form("cojy")
coyw=request2.Form("coyw")
comy=request2.Form("comy")
cokh=request2.Form("cokh")
if cokh="" then cokh=null
coxz=request2.Form("coxz")
logo=request2.SavePath&request2.Form("logo")
logo=replace(logo,"../","")
if InStr(logo,".jpg")<=0 and InStr(logo,".gif")<=0 and InStr(logo,".bmp")<=0 and InStr(logo,".png")<=0 then
logo=""
end if
pic=request2.SavePath&request2.Form("pic")
pic=replace(pic,"../","")
if InStr(pic,".jpg")<=0 and InStr(pic,".gif")<=0 and InStr(pic,".bmp")<=0 and InStr(pic,".png")<=0 then
pic=""
end if

if coweb="" then
coweb=null
else
if left(coweb,7)<>"http://" or len(coweb)<12 then
errstyle="·请填写正确的企业网址！"
scripterr
end if
end if
'***************************判断上传
	if request2.Error=4 then
response.write"<SCRIPT language=JavaScript>alert('图片大小超过限制，上传失败！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
	end if
	if request2.Error=2 then
response.write"<SCRIPT language=JavaScript>alert('类型有误！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request2.Error<>2 and request2.Error<>1 and request2.Error<>3 and request2.Error<>4 then


set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from SMT_yp where SMT_id="&session("id")
rs.open sql,conn,1,3

if pic<>"" then
if oldpic<>"" then
Dim fso1
			
			set fso1 = CreateObject("Scripting.FileSystemObject")
			fso1.DeleteFile Server.MapPath(oldpic)
			set fso1 = nothing
			end if
rs("SMT_pic")=pic
end if
if logo<>"" then
if oldbz<>"" then
Dim fso
			
			set fso = CreateObject("Scripting.FileSystemObject")
			fso.DeleteFile Server.MapPath(oldbz)
			set fso = nothing
			end if
rs("SMT_logo")=logo
end if
rs("SMT_coname")=coname
rs("SMT_cojc")=cojc
rs("SMT_coy")=coy
rs("SMT_coweb")=coweb
rs("SMT_codate")=codate
rs("SMT_cofr")=cofr
rs("SMT_coms")=coms
rs("SMT_cojy")=cojy
rs("SMT_coyw")=coyw
rs("SMT_comy")=comy
rs("SMT_cokh")=cokh
rs("SMT_coxz")=coxz
rs("SMT_ypxxone_id")=ypxxone_id
rs("SMT_ypxxtwo_id")=ypxxtwo_id
rs("SMT_addone_id")=addone_id
rs("SMT_addtwo_id")=addtwo_id

rs("SMT_key")=cityypkey
rs.update
rs.close
set rs=nothing

session("coname")=""

if cityypkey=1 then
response.redirect"ok.asp?url=lcdzl.asp"
elseif cityypkey=0 then
response.redirect"ok.asp?url=lcdzl.asp&key=yes"
end if
else
response.write"<SCRIPT language=JavaScript>alert('发生错误，并未发布！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
%>