📄 upfile.asp

📁 一般的,简单的的的的的的的的饿的饿恶毒一般的,简单的的的的的的的的饿的饿恶毒一般的,简单的的的的饿的饿恶毒

💻 ASP

字号:

<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #000000;
}
body {
	background-color: #FFFFFF;
	margin-left: 3px;
	margin-top: 6px;
	margin-right: 3px;
	margin-bottom: 3px;
	background-image: url(#F5F5F5);
}
a {
	font-size: 12px;
	font-weight: 100;
	color: #FF0000;
	text-decoration: none;
}
-->
</style></head>
<body>

<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象
formPath=upload.form("filepath")''''''获得上传目录
iCount=0
for each formName in upload.objFile ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 and file.FileSize<2097152 then         ''如果 FileSize > 0 说明有文件数据
    file.SaveAs Server.mappath(formPath&file.FileName)   ''保存文件
    response.write "文件已经上传成功!您的金钱数被减掉10  [<a href='http://picicn.com"&formPath&File.FileName&"' target='_blank'>打开文件</a>][<a href=upfile1.asp>继续上传</a>]"
	dim Path2,Name2,Size2
	Path2=formPath
	Name2=File.FileName
	Size2=File.FileSize
	
	dim FileClass
	FileClass = mid(File.FileName,InStrRev(File.FileName, ".")+1)
	if FileClass ="jpg" or FileClass ="gif" then
	response.write "<script>parent.Newtopic.bodys.value += '\n[LYL_IMG]http://picicn.com"&formPath&File.FileName&"[LYL_/IMG]';</script>"
	elseif FileClass="rar" or FileClass="zip" then
	response.write "<script>parent.Newtopic.bodys.value += '\n[LYL_URL]http://picicn.com"&formPath&File.FileName&"[LYL_NAME]点击下载文件："&File.FileName&"[LYL_/URL]';</script>"
	else
	response.Redirect("upfile1.asp")
	end if
  iCount=iCount+1
  else
  response.redirect"upfile1.asp"
 end if
 set file=nothing
next
dim conn,sqlstr,DBPath,connstr
DBPath = Server.MapPath("../date/picicn.mdb")
connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Connstr
	dim sql,rs
	sql="select * from users where username='"&session("username")&"'"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,3
	rs.update
	rs("Money")=rs("Money")-10
	rs.update
	rs.close
sql="select * from Upfile"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,2,3
	rs.addnew
	rs("Username")=session("username")
	rs("Time")=Now()
	rs("FileUrl")="http://picicn.com/"&Path2&Name2&""
	rs("FileName")=Name2
	rs("FileSize")=Size2
	rs("FileClass")=FileClass
	rs.update
	rs.close
	
set upload=nothing  ''删除此对象
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -