上传asp文件上传源代码

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

<html>

<head>

<!--

.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">

<br>

<trbgcolor="#CCCCCC">

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

</tr>

{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>需要上传的个数

</li>

</td>

</tr>

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

</td>

</tr>

</td>

</tr>

</table>

</form>

</body>

</html>

</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()%>

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

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

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

</select>

<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>

<TD >

</tr>

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

<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>

</form>

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

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

<trclass="a1">

<td>

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>  "

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>  "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&"> "response.write"<input class=buttonface type='submit' value='Go' name='cndok'style='b ackground-co lor:#FF FFFF'></span>  "

</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