上传asp文件上传源代码

asp 文件上传  时间:2021-02-09  阅读:()

<html>

<head>

<t it l e>化境上传</t it le>

<META http-equiv=Co ntent-Type content="text/html; chars et=gb 2312"><LIN Khref="inc/adminstyle.css"type=text/css rel=StyleSheet>

<META content="Micros o ft F rontP age 6.0"name=GENERATOR>

<style typ e="text/cs s">

<!--

.p9{font-s ize:9pt;fo nt-family:宋体}td{fo nt-s ize:9p t}

.tx{he ight: 16px;width:30px;border-color:b lack black#000000;border-top-width:0p x;border-right-width:0p x;bo rder-botto m-width: 1 px;b order-le ft-width:0p x;fo nt-s ize:9 pt;background-color:#eeeeee;color:#0000FF}

.tx2{he ight: 16px;border-top-width:0 px;b order-right-width:0 px;b order-botto m-width: 1 px;border-le ft-width:0px;font-size:9pt; color:#0000FF;border-le ft-color:#000000;bo rder-right-colo r:#000000;bord er-top-color:#000000;border-botto m-color:#000000}

.bt {border-left:1px solid#C0C0C0;border-top:1px solid#C 0C0C0;font-size:9pt;border-right-width: 1;border-botto m-width: 1;he ight:22 px;width:80px;bac kground-color:#EEEEEE;cursor:hand;border-right-style:so lid;b order-botto m-style:s o lid}.tx1 {width:400;height:20px;font-size:9pt;border: 1 px so lid;b order-color:b lackblack#000000;color:#0000FF}

-->

</style>

</head>

<bodybgcolor="#FFFFFF" text="#000000">

<form name="form1"method="p ost"action="up file_dtk.asp"enctyp e="multipart/form-d ata">

<input type="hidden"name="act"value="up load">

<br>

<tab le width="100%"border="1"c ellsp ac ing="0"cellp adding="5"align="c enter"borderco lordark="#C CCCCC"bo rdercolorlight="#000000">

<trbgcolor="#CCCCCC">

<td he ight="30"align="le ft"valign="middle"b gco lo r="#C CCCCC">

<p a lign="c ente r">&nb sp;相关文件上传</td>

</tr>

<tr align="left"valign="middle"bgcolor="#eeeeee">

<td bgcolor="#eeeeee"height="28">

<script language="javascript">function setid()

{str='<br>';if(!wind ow.fo rm1.upcount.value)

window.form1.upcount.value=1;fo r(i=1;i<=windo w.fo rm1.upco unt.value;i++)str+='文件'+i+' :<inp ut typ e="file"name="file'+i+'" style="wi dth:400"class="tx1"><br><br>';windo w.up id.inn erHTML=str+'<br>';

}

</script>

<li>需要上传的个数

<input typ e="text"name="upcount"class="tx"value="1">

<input typ e="butto n"name="Button"class="bt"onC lick="setid();"value="·设定·">

</li>

</td>

</tr>

<tr align="c e nter"va lig n="mi dd le">

<td a lign="le ft" id="up id"he ight="25">文件1 :

<input type="file"name="file1" style="width:400"class="tx1"value="">

</td>

</tr>

<tr align="c enter"valign="middle"bgco lor="#eeeeee">

<td bgcolor="#eeeeee"height="30">

<inp ut type="s ub mit"nam e="S ub mit"va lu e="·提交·"c las s="bt">

<input type="reset"name="Submit2"value="·重置·"clas s="bt">

</td>

</tr>

</table>

</form>

</body>

</html>

<script language="javascript">setid();

</script>

<%set rs=s erver.createobj ect("adodb.recordset")na me=tr im(re que s t("na me"))bo_Class=request("Class")if name="" then

sqltext="select*from FileInfo order by ID desc"elsesqltext="select*from FileInfo"if bo_class="按文件名"thensqltext=sqltext&"where FileN ame like'%"&name&"%'o rder by time"elseif bo_class="按上传时间" thensqltext=sqltext&"where time like'%"&name&"%'order by time"end ifend ifrs.o pen s qlte xt,conn,1,1

'-------------定义每页显示记录数dim MaxPerPage

MaxPerPage=20

'-

------------------------------

'假如没有数据时

If rs.eof and rs.bof thencall showpagesresponse.write"<p align='center'><font color='#ff0000'>还没任何学生信息</font></p>"response.end

End if

'取得页数,并判断用户输入的是否数字类型的数据如不是将以第一页显示dim te xt,c he ckpagete xt="0123456789"

Rs.P ageS ize=MaxPerP agefor i=1 to len(request("page"))checkp age=ins tr(1,te xt,mid(request("page"),i,1))if checkpage=0 thenexit forend ifne xt

If checkpage<>0 then

IfNOT IsEmpty(request("page"))Then

Curre ntPa ge=Cint(request("page"))

If CurrentPage<1 Then CurrentPage=1

If CurrentPage>Rs.PageCount Then CurrentPage=Rs.PageCount

Else

CurrentPage=1

End If

If not Rs.eof Then Rs.AbsolutePage=CurrentPage end if

Else

CurrentPage=1

End if

'callshowpagescall list

If Rs.recordcount>MaxPerP age thencallshowpagesend if

'显示帖子的子程序

Sub list()%>

<form method='POST'action='filesup_dtk.asp'>

<tab le ce llpadding="2"ce llspac ing="1"bo rder="0"width=100%cellp adding="4"align=center c lass="a3">

<TB ODY>

<tr class="a1"> <TD height="18">

<font color="#FF0000">【相关文件信息下载查看】 </fo nt>&nb sp;

&nb sp;&nb sp;&nb sp;&nb s p;&nb sp;&nb sp;&nb sp;信息检索

<select name='Clas s' size='1' tab index='0' style="font-size:9pt">

<option value='按文件名'>按文件名</option>

<option value='按上传时间'>按上传时间</option>

</select>

<input type='text'name='Name' s ize='11' onMouseO ver="this.style.backgroundCo lor='#F5F0FF'"onMous eOut="this.style.backgroundColo r=''"style="font-family:新细明体,宋体,Arial;font-size:9pt;he ight: 18;background-c olor:#f3 f3 f3;width:215;border: 1 solid black">

<inp ut typ e='s ubmit'va lue='查询'nam e='Submit' style="fo nt-fami ly:新细明体,宋体,Arial;font-s ize:9pt;height:20px;background-color:#D4D0C 8;"onMous e Over="this.style.backgroundCo lor='#FFC864'"onMouseOut

="this.style.b ackgroundC o lor='#D4D0C 8'">

</TD></TR>

<TR vAlign=top>

<TD >

<tab le ce llpadding="3"ce llspac ing="1"b order="0"width=100%cellpadding="4"align=center c lass="a2">

<tr alig n="c e nter" c las s="a4">

<td width="2%">序号</td>

<td width="6%">上传时间</td>

<td width="5%">上传地址</td>

<td width="3%">文件大小</td>

<td width="18%">下载查看</td>

<td wi dth="2%">删除</td>

</tr>

<%if not rs.eof theni=0do while not rs.eo f

%>

<tr clas s="a3"align="c enter"height=20>

<td><%=r s("i d")%></td>

<td ><%=r s("t ime")%></td>

<td><%=r s("ip")%></td>

<td><%=rs("fi le size")%> </td>

<td align='le ft'> <%=rs("F ileName")%><ahre f="<%=rs("F ile we bPath")%>"><img border="0" src="img/addpic.gif"a lt="下载查看"></a> </td>

<td va lign='midd le'> <A

HREF="<%=serverpath&"d eldb file_dtk.asp?filename="&rs("F ileName")%>">删除</A> </td>

<%i=i+1if i>=MaxPerpage then exit dors.mo venextloopend if

%>

</tab le>

</TD></TR>

</TBO DY></TABLE><br>

<%

End subrs.closeconn.close

%> </c enter>

</d iv>

<div a lign="ce nter">

<c enter>

</form>

<%

'显示翻页的子程序sub showpages()%>

<tab le cellp adding="2" cellspac ing="1"border="0"width=100%ce llpadding="4"align=center c lass="a3">

<tr><td>

<%resp onse.write "<form method=Post action='filesup_dtk.asp'>"

%>

<table c ellpadding="2" cellspacing="1"border="0"width=100%cellpadding="4"align=cente r c la ss="a2">

<trclass="a1">

<td>

<font color="#000000">

<p align="le ft">

<%

Response.write "<font color='#000000'>分页-</font>"

If currentpage>1 Thenrespo ns e.write "<a hre f='fi les up_dtk.asp?&page="+cs tr(1)+"'><fontcolor='#000000'>首页</font></a><font color='#000000'><b>-

</b></fo nt>"

Respo nse.write "<a hre f='filesup_dtk.asp?page="+C s tr(currentpage-

1)+"&name="&name&"&class="&bo_class&"'><font color='#000000'>前页

</font></a><font color='#000000'><b>-</b></font>"

Else

Response.write "<font color='#000000'>首页-</font>"

Response.write "<font color='#000000'>前页-</font>"

End if

If currentpage<Rs.PageCount Then

Res ponse.writ e "<ahre f='filesup_dtk.a sp?page="+C str(currentPage+1)+"&name="&name&"&c las s="&b o_class&"'><font color='#000000'>后页</font></a><font color='#000000'><b>-

</b></fo nt>"

Re sp onse.wr ite

"<a href='file sup_dtk.asp?page="+Cstr(Rs.PageCount)+"&name="&name&"&class="&bo_class&"'><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"

Else

Response.write "<font color='#000000'>后页-</font>"

Response.write "<font color='#000000'>尾页

</fo nt>&nb sp;&nb s p;"

End if

Response.write "<font color='#000000'>页次:</font>"&"<font color=#FF0000>"&Cstr(CurrentPage)&"</font>"&"<font co lo r='#000000'>/"&Cstr(rs.pagec ount)&"</fo nt>&nb s p;"

Response.write "<font c olor=#ff0000>"&Cstr(MaxPerPage)&"</font>"&"<font color='#000000'>条记录/页&nbsp"&"共</font>"&"<font color=#FF0000>"&Cstr(Rs.RecordCount)&"</font>"&"<font co lor='#000000'>条记录

</font>&nbsp;&nbsp;"resp onse.write "</td><td alig n='ri ght'>"response.write"<font c o lor='#ffffff' class=main 1>转到 </font><input type='text'name='page' size=4 maxlength=4 class=smallInputvalue="&Currentp age&">&nbsp;"response.write"<input class=buttonface type='submit' value='Go' name='cndok'style='b ackground-co lor:#FF FFFF'></span>&nbsp;&nbsp;"

%>

</font>

</td>

</tr>

</table>

</center>

</td></tr>

</tab le>

</form>

<%end sub%> </body>

</ht ml>

<%functio n GetF ileP ath(F ullPath,str)

If FullPath<>""Then

GetFileP ath=le ft(FullPath,InStrRe v(FullPath, s tr))

Else

Ge tF ile P ath=""

End If

End function

%>

Megalayer美国独立服务器配置及性能速度综合评测

Megalayer 商家在之前也有记录过,商家开始只有提供香港站群服务器和独立服务器,后来也有增加到美国独立服务器,以及前几天也有介绍到有增加香港VPS主机。对于香港服务器之前有过评测(Megalayer香港服务器配置一览及E3-1230 8GB服务器评测记录),这里申请到一台美国独立服务器,所以也准备简单的评测记录。目前市场上我们看到很多商家提供VPS或者云服务器基本上没有什么特别的,但是独立服...

新注册NameCheap账户几天后无法登录原因及解决办法

中午的时候有网友联系提到自己前几天看到Namecheap商家开学季促销活动期间有域名促销活动的,于是就信注册NC账户注册域名的。但是今天登录居然无法登录,这个问题比较困恼是不是商家跑路等问题。Namecheap商家跑路的可能性不大,前几天我还在他们家转移域名的。这里简单的记录我帮助他解决如何重新登录Namecheap商家的问题。1、检查邮件让他检查邮件是不是有官方的邮件提示。比如我们新注册账户是需...

Pacificrack:新增三款超级秒杀套餐/洛杉矶QN机房/1Gbps月流量1TB/年付仅7美刀

PacificRack最近促销上瘾了,活动频繁,接二连三的追加便宜VPS秒杀,PacificRack在 7月中下旬已经推出了五款秒杀VPS套餐,现在商家又新增了三款更便宜的特价套餐,年付低至7.2美元,这已经是本月第三波促销,带宽都是1Gbps。PacificRack 7月秒杀VPS整个系列都是PR-M,也就是魔方的后台管理。2G内存起步的支持Windows 7、10、Server 2003\20...

asp 文件上传为你推荐
印章制作word里如何制作公章?解压程序什么解压软件最好,速度最快最稳定外网和内网什么是外网和内网?吴晓波频道买粉五大知识付费平台有哪些?渗透测试网站渗透测试怎么做?天天酷跑刷金币天天酷跑怎么刷金币?bt封杀现在是全面封杀BT下载了吗?现在都找不到BT下载影片了宕机人们说的宕机是什么意思ios系统苹果手机的系统是什么?iphone6上市时间苹果6什么时候出?
上海虚拟主机 域名备案中心 美国翻墙 优key 地址大全 主机合租 卡巴斯基永久免费版 qingyun 谁的qq空间最好看 秒杀汇 安徽双线服务器 优酷黄金会员账号共享 空间登录首页 便宜空间 服务器维护 独立主机 广东主机托管 腾讯数据库 卡巴斯基试用版下载 七牛云存储 更多