📄 mobileup2.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include FILE="upload.inc"-->
<!--#include FILE="conn.asp"-->
<!--#include FILE="char.asp"-->
<%
sq1="select * from upset where id=1"
Set Rs1 = Server.CreateObject("Adodb.Recordset")
rs1.open sq1,conn,1,2
rsformPath=rs1("formPath") '上传路径
rsnamekind=rs1("namekind") '命名方式
rsfilesize=rs1("filesize") '文件大小
rsallowedfile=rs1("allowedfile") '文件类型
rsforceup=rs1("forceup") '上传开关
rs1.close
Set rs1=Nothing
If Right(rsformPath,1)<>"\" Then rsformPath=rsformPath&"\"
%>
<%
dim upload,file,formName,formPath,iCount
Dim sjs,fname,i,l,newfilelist,uploaddir,filename,ii
''--------------------------
Server.ScriptTimeOut=999999
set upload=new upload_5xsoft
''---------------------------获得变量值
fullpath=Server.Mappath("\")&"\"
addip=request.serverVariables("remote_host")
title=upload.form("title")
content=upload.form("content")
writer=session("admin")
If title="" Then response.Redirect"err.asp?id=1"
''--------------------------保存路径
formPath=rsformPath
fullpath=fullpath&rsformPath
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(fullpath)
If err<>0 Then response.Redirect"err.asp?id=6"
''--------------------------
iCount=0
for each formName in upload.objFile ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
size=file.filesize
''-------------------------限制文件大小
If size>rsfilesize*1024 Then response.Redirect"err.asp?id=3"
If size=0 Then response.Redirect"err.asp?id=5"
''-------------------------获得文件类型
filetype=file.filename
i=InStrRev(filetype,".")
l=Len(filetype)
If i>0 Then
filetype=Right(filetype,l-i+1)
End If
''-------------------------限制文件类型
filetype=LCase(filetype)
filetype=Replace(filetype,".","")
filetype=CStr(filetype)
If InStr(rsallowedfile,filetype)=0 Then response.Redirect"err.asp?id=2"
''----------------取得新文件名
If rsnamekind=1 Then
fname=file.filename
Else
RANDOMIZE
sjs=INT((99-00+1)*RND+00)
fname=year(date)&month(date)&day(date)&hour(time())&minute(time())&second(time())&sjs
fname=fname&"."&filetype
End if
''-------------------------检验文件是否存在
If rsforceup="F" then
sq1="select * from article where filesize='"&size&"'"
Set Rs1 = Server.CreateObject("Adodb.Recordset")
rs1.open sq1,conn,1,2
If Not rs1.bof Or Not rs1.eof Then response.Redirect"err.asp?id=4&size="&size&""
Else
sq1="select * from article where filesize='"&size&"'"
Set Rs1 = Server.CreateObject("Adodb.Recordset")
rs1.open sq1,conn,1,2
End If
''--------------------------
if file.filesize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs fullpath&fname ''保存文件
iCount=iCount+1
msg="文件上传成功！"
End If
datadir=formPath&fname
dateandtime=date()
rs1.addnew
rs1("dataname")=fname
rs1("title")=title
rs1("datadir")=datadir
rs1("dateandtime")=dateandtime
rs1("filesize")=size
rs1("classid")=upload.form("classid")
rs1("nclassid")=upload.form("nclassid")
rs1("content")=upload.form("content")
rs1("writer")=upload.form("writer")
rs1("shouji")=upload.form("shouji")
rs1("articleon")=upload.form("articleon")
rs1.update
rs1.close
set file=nothing
next
set upload=nothing '删除此对象
%>
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card title="上传成功">
<%
size=CStr(size)
sq2="select * from article where filesize='"&size&"' order by articleid desc"
Set Rs2 = Server.CreateObject("Adodb.Recordset")
rs2.open sq2,conn,1,2
id=rs2("articleid")
title=rs2("title")
classid=rs2("classid")
nclassid=rs2("nclassid")
content=rs2("content")
size=rs2("filesize")
writer=rs2("writer")
dateandtime=rs2("dateandtime")
rs2.close
Set rs2=nothing
%>
<p>
文件上传成功！<br/>
-------------<br/>
ID:<%=id%><br/>
名称:<%=title%><br/>
描述:<%=content%><br/>
大小:<%size=Round(size/1024,2)
If Left(size,1)="." Then size="0"&size
%>
<%=size%>KB<br/>
上传人:<%=writer%><br/>
上传时间:<%=dateandtime%><br/>
<a href='softdown.asp?id=<%=id%>&aid=<%=classid%>&bid=<%=nclassid%>'>到下载页面</a><br/>
-------------<br/>
<a href='mobileup.asp?aid=<%=classid%>&bid=<%=nclassid%>'>继续上传</a><br/>
<a href='main.asp'>管理首页</a>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -