userlogout.asp

来自「一个企业管理ASP源码.增加了一些新的功能.」· ASP 代码 · 共 46 行

<%if request("base")="based" then %>
<!--#include FILE="inc/based6.asp"-->
<script>
parent.document.myform.Submit.disabled=false;
parent.document.myform.Submit2.disabled=false;
</script>
<% 
response.write "<FONT color=red>"&upNum&"</font>"
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft 

 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 


for each formName in upload.file 
 set file=upload.file(formName)  
 

 randomize
 ranNum=int(90000*rnd)+10000
 filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt
 
 
 if file.FileSize>0 then         
  file.SaveAs Server.mappath(FileName)   
 end if
 set file=nothing
next
set upload=nothing  

Htmend FileName

sub HtmEnd(Msg)
 set upload=nothing
 response.write "路径：<input type=""text"" size=""45"" value="""&Msg&""">"
 response.end
end sub
%>
<%end if%>

<%
	session("UserName")=""	
	Response.Redirect "index.asp"
%>