<!--#include file="conn.asp"-->
<!--#include file="sql.asp"-->
<% if request("ddid")<>"" and session("ddiduse")="" then
session("ddiduse")=nnoo(request("ddid"))
end if 
 set rs=server.createobject("adodb.recordset")
	  sql="SELECT kai,host,logo,gongsi,shopover2,shoprecord,bbskai,fakai,xshangzong,paimaikai,bbskainame,guang1,guang11,paimainame,yinkai,gengduo,xdizhi,xdizhi2,xjie,shopover  from home "
	 rs.open sql,conn,1,3
	  vvhost=rs("host")
	  vshopover=rs("shopover2")
	  vbbskai=rs("bbskai")
	  vpaimaikai=rs("paimaikai")
	  vbbskainame=rs("bbskainame")
	  vguang1=rs("guang1")
	  vguang11=rs("guang11")
	  vpaimainame=rs("paimainame")
	  vvvyinkai=rs("yinkai")
	  vvvgengduo=rs("gengduo")
		vvvhost=rs("host")
		vvvxdizhi2=rs("xdizhi2")
		vvvxdizhi=rs("xdizhi")
		vvvshoprecord=rs("shoprecord")
		vvvxjie=rs("xjie")
		vvvxshangzong=rs("xshangzong")
		vvvkai=rs("kai")
		vvvfakai=rs("fakai")
		vlogo=rs("logo")
		vvgongsi=rs("gongsi")
	 if rs("shopover")=1 then
	  Response.Write "<script Language=Javascript>alert(' 对不起！影院正在维护中请稍候访问......');location.href = 'xxx.asp';</script>"
      response.end
	  end if
	  rs.close
	 %>

<% if vvvkai<>1 then
Response.Write "<script Language=Javascript>alert(' 对不起！本站暂停上传功能......');location.href = 'yxplay.asp?id=80779 and 1=1';</script>"
      Response.end
	   end if %>


<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<% server.scripttimeout=1900 %>
<%
UpFilePath="tupian/"
fileweb=""
nameset =1
pathset =0
dim i
i=1
%>
<% 
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  makefilename=fname
end function 
%>
<!--#include FILE="upload_5xsoft.inc"-->
        <%
dim upload,file,formName,iCount
dim url,url1
set upload=new upload_5xSoft ''建立上传对象

iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  fname = makefilename(now()) & iCount & "." & GetExtendName(file.FileName)
  file.SaveAs Server.mappath(UpFilePath&fname)   ''保存文件
  iCount=iCount+1
  response.write"<font size=""2"">图片"&i&"</font>&nbsp;<input type=""text"" name="""&i&""" size=""55"" style=""border-style: solid; border-width: 1"" value="""&fileweb&UpFilePath&fname&"""><br>"
  i=i+1
 set file=nothing
end if
next
set upload=nothing  ''删除此对象

sub HtmEnd(Msg)
 set upload=nothing
end sub
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function

        %>