uppic2.asp

本文件为利用ASP开发的管理信息系统项目,文件名为校友录,按照说明"校友录系统_数据表创建方法"来进行数据表的创建.

<%@ Language=VBScript %>
<%if not session("user_session_id")=Session.SessionID then%>
<SCRIPT LANGUAGE=javascript>
 parent.window.location.href="default.asp"
</SCRIPT>
<!--#include file="inc/upload_5xsoft.inc"-->
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象
Dim shuoming
shuoming=Trim(upload.form("shuoming"))
if  shuoming="" Then
Response.write "<script>alert('上传照片产生错误:\n\n----你没有输入照片说明或者输入的是空格----\n');"
Response.write  "window.history.back();</script>"
Response.End()
End if
 formPath="upfile"
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
iCount=0
response.write "<br>"
for each formName in upload.objFile ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
 randomize
 Dim rannum,rndfile,myfilename,msg,oldfilename,totalsize
 rannum=int(1000*rnd)
 rndfile=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum
 myfilename=Right(file.FileName,Len(file.FileName)-InstrRev(file.FileName,".")+1)
  myfilename=rndfile&myfilename  
  file.SaveAs Server.mappath(formPath&Myfilename)   ''保存文件
  oldfilename=file.FilePath&file.FileName
  totalsize=file.FileSize
  iCount=iCount+1
 else 
 Response.write "<script>alert('上传照片产生错误:\n\n----此文件不存在！----\n');"
Response.write  "window.history.back();</script>"
Response.End()
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象
 Dim sql,rs
 sql="select top 1 * from photo order by picid desc"
 Set rs=Server.CreateObject("ADODB.Recordset")
 rs.open sql,cn,1,3
 Dim picid
 picid=rs("picid")+1
 rs.Addnew()
 	rs("picid")=picid
	rs("pic")=myfilename
	rs("subject")=shuoming
	rs("studentid")=Request.Cookies("ecid")
	rs("pubtime")=now()
	rs("liuyanshu")=0
	rs("dianji")=0
 rs.update
rs.close()
Set rs=nothing
myfilename=formPath&Myfilename
%>
<form action=uppic3.asp method="post" name="tt">
<input type=hidden value="<%=oldfilename%>" name="oldfilename">
<input type=hidden value="<%=totalsize%>" name="totalsize">
<input type=hidden value="<%=myfilename%>" name="myfilename">
<input type=hidden value="<%=shuoming%>" name="shuoming">

</form>
<script>
 document.tt.submit()
</script>