用ASP/ASP.NET实现网络空间管理(2)
点击次数：23 次 发布日期：2008-11-26 14:09:44 作者：源代码网
|
源代码网推荐 源代码网推荐 dim objconn as oledbconnection = new oledbconnection(objconnstr) 源代码网推荐 dim sql1 as string="select * from userlist where xh=""+xh1+"" and kl=""+kl1+""" 源代码网推荐 dim objrscc as oledbcommand= new oledbcommand(sql1,objconn) 源代码网推荐 objconn.open() 源代码网推荐 dim objrs as oledbdatareader = objrscc.executereader() 源代码网推荐 dim ix as integer=0 源代码网推荐 dim maxs as long 源代码网推荐 dim nows as long 源代码网推荐 while ix=0 源代码网推荐 if objrs.read() then 源代码网推荐 if objrs.item("xh")=xh1 then 源代码网推荐 if objrs.item("kl")=kl1 then 源代码网推荐 if objrs.item("checkx")=1 then 源代码网推荐 ix=ix+1 源代码网推荐 maxs=objrs.item("maxspace") 源代码网推荐 nows=objrs.item("nowspace") 源代码网推荐 end if 源代码网推荐 end if 源代码网推荐 end if 源代码网推荐 else 源代码网推荐 ix=-1 源代码网推荐 end if 源代码网推荐 end while 源代码网推荐 源代码网推荐 *** 以上判定帐号与口令是否合法 源代码网推荐 源代码网推荐 if ix<=0 then 源代码网推荐 errors.text="帐号口令错！或用户尚未通过认证，请等待管理员认证！" 源代码网推荐 else 源代码网推荐 源代码网推荐 if fileup.postedfile.contentlength>maxs-nows then 源代码网推荐 if fileup.postedfile.contentlength>=maxs then 源代码网推荐 errors.text="文件长度大于赋予空间大小，不能上传！" 源代码网推荐 else 源代码网推荐 errors.text="可用空间不足，请删除旧文件！" 源代码网推荐 end if 源代码网推荐 源代码网推荐 *** 以上判定用户空间的可用性 源代码网推荐 else 源代码网推荐 dim obj4str as string="provider=microsoft.jet.oledb.4.0; 源代码网推荐 data source=" & server.mappath("filelist.mdb") 源代码网推荐 源代码网推荐 *** 以上两行在源码中为同一语句 源代码网推荐 dim obj4 as oledbconnection = new oledbconnection(obj4str) 源代码网推荐 dim sql10 as string="select * from files" 源代码网推荐 dim objrc1 as oledbcommand= new oledbcommand(sql10,obj4) 源代码网推荐 obj4.open() 源代码网推荐 dim objrsx as oledbdatareader = objrc1.executereader() 源代码网推荐 dim fn11 as long =0 源代码网推荐 while objrsx.read() 源代码网推荐 fn11=objrsx("filename") 源代码网推荐 end while 源代码网推荐 dim fn1 as string 源代码网推荐 fn1=cstr(fn11+1) 源代码网推荐 源代码网推荐 *** 以上为用户上传文件起一个唯一的主文件名 源代码网推荐 dim objc1str as string="provider=microsoft.jet.oledb.4.0; 源代码网推荐 data source=" & server.mappath("filelist.mdb") 源代码网推荐 源代码网推荐 *** 以上两行在源码中为同一语句 源代码网推荐 dim objc1 as oledbconnection = new oledbconnection(objc1str) 源代码网推荐 dim sql3 as string="insert into files(filename,fsize, xh,filescript,upday) 源代码网推荐 values("+cstr(fn1)+","+cstr(fileup.postedfile.contentlength)+","" 源代码网推荐 +xh1+"",""+fileup.postedfile.filename+"",""+cstr(now())+"")" 源代码网推荐 源代码网推荐 *** 以上三行在源码中为同一语句 源代码网推荐 objc1.open() 源代码网推荐 dim objrs1 as oledbcommand=new oledbcommand(sql3,objc1) 源代码网推荐 dim fn2 as string 源代码网推荐 fn2="d:/netspace/spacenet/myspace/"&cstr(fn1)&".zip" 源代码网推荐 源代码网推荐 *** 给出用户上传文件的绝对路径及完整文件名 源代码网推荐 fsize.text=cstr(fileup.postedfile.contentlength) 源代码网推荐 ftype.text=fileup.postedfile.contenttype 源代码网推荐 fname.text=fileup.postedfile.filename 源代码网推荐 username.text=user1.value 源代码网推荐 fileup.postedfile.saveas(fn2) 源代码网推荐 objrs1.ExecuteNonQuery() 源代码网推荐 objrs.close 源代码网推荐 dim sql5 as string="update userlist set nowspace ="+cstr(nows+fileup.postedfile.contentlength)+ 源代码网推荐 ",lastaccessday=""+cstr(now())+"" where xh=""+xh1+""" 源代码网推荐 源代码网推荐 *** 以上两行在源码中为同一语句 源代码网推荐 源代码网推荐 dim objrnc as oledbcommand= new oledbcommand(sql5,objconn) 源代码网推荐 objrnc.executenonquery() 源代码网推荐 respace.text=cstr(maxs-nows-fileup.postedfile.contentlength)&"字节." 源代码网推荐 nowspace.text=cstr(nows+fileup.postedfile.contentlength)&"字节." 源代码网推荐 源代码网推荐 *** 以上作上传动作，并计算用户的已用总空间及剩余总空间 源代码网推荐 end if 源代码网推荐 end if 源代码网推荐 end sub 源代码网推荐 </script> 源代码网推荐 <body> 源代码网推荐 <form enctype="multipart/form-data" runat="server"> 源代码网推荐 <table> 源代码网推荐 <tr><td>帐号:</td><td><input id="user1" runat="server"></td></tr> 源代码网推荐 <tr><td>口令:</td><td><input type="password" id="pass1" runat="server"></td></tr> 源代码网推荐 <tr><td>文件:</td><td><input type="file" id="fileup" runat="server"></td></tr> 源代码网推荐 <tr><td></td><td><asp:button id="upload" onclick="uploadfile" text="上传" 源代码网推荐 runat="server"/></td></tr> 源代码网推荐 </table> 源代码网推荐 </form><hr> 源代码网推荐 <div id="fileinfo" visible="false" runat="server"> 源代码网推荐 原文件名:<asp:label id="fname" runat="server"/><br> 源代码网推荐 字节大小:<asp:label id="fsize" runat="server"/><br> 源代码网推荐 文件类型:<asp:label id="ftype" runat="server"/><br> 源代码网推荐 用户帐号:<asp:label id="username" runat="server"/><br> 源代码网推荐 剩余空间:<asp:label id="respace" runat="server"/><br> 源代码网推荐 已用空间:<asp:label id="nowspace" runat="server"/><br> 源代码网推荐 上传状态:<asp:label id="errors" runat="server"/> 源代码网推荐 </div> 源代码网推荐 *** 以上在浏览器中告诉用户文件上传前后的相关信息 源代码网推荐 </body> 源代码网推荐 </html> 源代码网推荐 源代码网推荐 结束语 源代码网推荐 源代码网推荐 本文所述的方法基于无组件技术，在文件的安全性及个人隐私方面考虑的比较多，最适合在windows server 2003配合IIS6.0平台上使用，方法简单安全，稍加扩展，如在userlist里添加用户号、组号，在files里添加组号，即可对文件的权限进行设定，可方便实现文件的网络提交、验证、共享。配合磁盘阵列，则在数据安全方面将有质的提升。 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
