ASP教程之a(chǎn)sp制作常見flash新聞圖片輪換代碼_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：如何用asp程序處理數(shù)據(jù)庫被掛馬的問題
數(shù)據(jù)庫被掛馬后很多人不知怎么處理，或處理的不完全，導(dǎo)致網(wǎng)頁打開后仍有木馬，本文介紹一種比較好的處理辦法，供大家參考。第一步：為現(xiàn)有數(shù)據(jù)庫做好備份。第二步：執(zhí)行如下ASP文件，就可以去掉數(shù)據(jù)庫當(dāng)中的JS木馬。（注：conn.asp從略） ’這里放入JS木

這是一個(gè)正常的網(wǎng)頁文件

html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>新聞圖片輪換</title>
</head>
<body>

</body>
</html>

任何網(wǎng)頁只要調(diào)用下面這個(gè)文件（diaoyong.asp）就可以了，所用flash文件在附件里面。

<%
’新聞圖片輪換
Db="../Data/Data.Asp"
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
sql="select top 5 * from [Music_List_Tupian_System] where IswNumsSex=’輪換圖片’ order by IswNumsID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
k=1
Num_total=rs.recordcount
for i=1 to 5
if i>Num_total then exit for
if i=1 then
imgUrl11="Img/"&rs("IswNumsPhoto")
if len(rs("IswNumsUser"))>=18 then
imgtext11= left(rs("IswNumsUser"),18)&"..."
else
imgtext11=rs("IswNumsUser")
end if
imgLink11=rs("IswNumsClass")
end if
if i=2 then
imgUrl22="Img/"&rs("IswNumsPhoto")
if len(rs("IswNumsUser"))>=18 then
imgtext22= left(rs("IswNumsUser"),18)&"..."
else
imgtext22=rs("IswNumsUser")
end if
imgLink22=rs("IswNumsClass")
end if
if i=3 then
imgUrl33="Img/"&rs("IswNumsPhoto")
if len(rs("IswNumsUser"))>=18 then
imgtext33= left(rs("IswNumsUser"),18)&"..."
else
imgtext33=rs("IswNumsUser")
end if
imgLink33=rs("IswNumsClass")
end if
if i=4 then
imgUrl44="Img/"&rs("IswNumsPhoto")
if len(rs("IswNumsUser"))>=18 then
imgtext44= left(rs("IswNumsUser"),18)&"..."
else
imgtext44=rs("IswNumsUser")
end if
imgLink44=rs("IswNumsClass")
end if
if i=5 then
imgUrl55="Img/"&rs("IswNumsPhoto")
if len(rs("IswNumsUser"))>=18 then
imgtext55= left(rs("IswNumsUser"),18)&"..."
else
imgtext55=rs("IswNumsUser")
end if
imgLink55=rs("IswNumsClass")
end if
rs.movenext
k=k+1
next
else
response.write "暫時(shí)沒有數(shù)據(jù)！"
end if
%>

分享：詳解asp之FileSystemObject對象
指定的驅(qū)動(dòng)器存在嗎？本例演示如何使用DriveExists方法來探測某個(gè)驅(qū)動(dòng)器是否存在。代碼如下： html body % Setfs=Server.CreateObject(Scripting.FileSystemObject) iffs.driveexists(c:)=truethen Response.Write(驅(qū)動(dòng)器c:存在。) Else Response.Wr