upload_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 61 行

<!--#include file="conn.asp"-->
<!--#include file="uploadrequest.asp"-->
<%
Call OpenDataConn
'下面是测试码
Dim ourRequest
set ourRequest = new UploadRequest
ourRequest.AllowedFilesList = "gif|png|jpg|"
ourRequest.DeniedFilesList = ""
ourRequest.MaxFileSize = 80*1000
ourRequest.TotalMaxFileSize = 400*1000 '400k
on error resume next
ourRequest.Upload
if err.number <> 0 then
 response.write err.description
 response.end
end if
on error goto 0 '关闭on error resume next
Dim desFolder:desFolder=server.mappath("../pic")
Dim rs,filename,ext,imgname,imgname2,Y,M,D,Shuoming
ext = right(ourRequest.File(0).FileName, len(ourRequest.File(0).FileName)-instrrev(ourRequest.File(0).FileName, "."))
if Trim(ourRequest.Form("filename"))="" then
Y=Year(Now)
M=Month(Now)
D=Day(Now)
imgname=Y*100000000+M*1000000+D*10000+1
Set rs=server.CreateObject("ADODB.Recordset")
 rs.open"select top 1 * from pic where left(imgname,8)='"&left(imgname,8)&"' order by imgname desc",conn,1,1
 if Not (rs.Eof And rs.Bof) Then
  imgname2=CCur(rs("imgname"))+1
 Else
  imgname2=imgname
 End If
 filename=imgname2&"."&ext
Else
 filename=Trim(ourRequest.Form("filename"))
End If
Call ourRequest.File(0).SaveAs(desFolder, filename)
%>
<%
'清理资源，别忘了啊
If Trim(ourRequest.Form("filename"))="" Then
 conn.Execute "insert into pic(imgname,imgext) values ("&imgname2&",'"&ext&"')"
End If
Call CloseDataConn
%>
<%
 If Trim(ourRequest.Form("action"))="add" Then
  Response.Write"<script language=""javascript"">"
  Response.Write"window.opener.document.all("""&Trim(ourRequest.Form("textField"))&""").innerHTML=window.opener.document.all("""&Trim(ourRequest.Form("textField"))&""").innerHTML+""<a href=# onclick=javascript:window.open('../inc/upload_modi.asp?textField="&Trim(ourRequest.Form("textField"))&"&filename="&imgname2&"','_blank','width=310,height=105,top=300,left=300');>"&filename&"</a>,<br>"";"
  Response.Write"window.close();"
  Response.Write"</script>"
 ElseIf Trim(ourRequest.Form("action"))="modi" Then
  Response.Write"<script language=""javascript"">"
  Response.Write"window.opener.document.all("""&Trim(ourRequest.Form("textField"))&""").innerHTML=""<a href=# onclick=javascript:window.open('../inc/upload_modi.asp?textField="&Trim(ourRequest.Form("textField"))&"&filename="&imgname2&"','_blank','width=310,height=105,top=300,left=300');"">"&filename&"</a>,"";"
  Response.Write"window.close();"
  Response.Write"</script>"
 End If
 Set ourRequest = Nothing
%>