< ! - - this is file of a homepage- ->
<html>
<head>
<meta Http-equiv= "Content-Type" Content= "text/html; Charset=gb2312" />
</title of <title> slide news>
</head>
<body>
< ! - - #Include File= "diaoyong.ASP "- ->
</body>
</html>
< ! - -
Should call only below this file is OK
This is name of a file is: The file of Diaoyong.aspFlash file is in accord with inside
- ->
<%
' slide news
Db= " . . / Webjx_Data/webjx_Data.Asp "
Set Conn = Server.CreateObject("ADODB.Connection" )
Connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&Server.MapPath(db)
Conn.Open Connstr' Order By IswNumsID Desc of advertisement of rotate of Sql= "select Top 5 * From [Music_List_Tupian_System] Where IswNumsSex=' "Set Rs=server.createobject("adodb.recordset" )Rs.open Sql, conn, 1, 1If Not Rs.eof ThenK=1
Num_total=rs.recordcountFor I=1 To 5If I>Num_total Then Exit ForIf I=1 ThenImgUrl11= "Img/" &rs("IswNumsPhoto" )If Len(rs("IswNumsUser" ))>=18 ThenImgtext11= Left(rs("IswNumsUser" ) , 18)&". . . .. ElseImgtext11=rs("IswNumsUser" )End IfImgLink11=rs("IswNumsClass" )End IfIf I=2 ThenImgUrl22= "Img/" &rs("IswNumsPhoto" )If Len(rs("IswNumsUser" ))>=18 ThenImgtext22= Left(rs("IswNumsUser" ) , 18)&". . . .. ElseImgtext22=rs("IswNumsUser" )End IfImgLink22=rs("IswNumsClass" )End IfIf I=3 ThenImgUrl33= "Img/" &rs("IswNumsPhoto" )If Len(rs("IswNumsUser" ))>=18 ThenImgtext33= Left(rs("IswNumsUser" ) , 18)&". . . .. ElseImgtext33=rs("IswNumsUser" )End IfImgLink33=rs("IswNumsClass" )End IfIf I=4 ThenImgUrl44= "Img/" &rs("IswNumsPhoto" )If Len(rs("IswNumsUser" ))>=18 ThenImgtext44= Left(rs("IswNumsUser" ) , 18)&". . . .. ElseImgtext44=rs("IswNumsUser" )End IfImgLink44=rs("IswNumsClass" )End IfIf I=5 ThenImgUrl55= "Img/" &rs("IswNumsPhoto" )If Len(rs("IswNumsUser" ))>=18 ThenImgtext55= Left(rs("IswNumsUser" ) , 18)&". . . .. ElseImgtext55=rs("IswNumsUser" )End IfImgLink55=rs("IswNumsClass" )End IfRs.movenextK=k 1NextElseResponse.write " does not have data temporarily! Response.write " does not have data temporarily!! End If
%>
<a Target=_self Href= "JavaScript:gOUrl() "><span Class= "f14b ">
<script Type= "text/Javascript ">ImgUrl1= "<%=imgUrl11%>" ;Imgtext1= "<%=imgtext11%> "ImgLink1=escape("<%=imgLink11%>" );ImgUrl2= "<%=imgUrl22%>" ;Imgtext2= "<%=imgtext22%> "ImgLink2=escape("<%=imgLink22%>" );ImgUrl3= "<%=imgUrl33%>" ;Imgtext3= "<%=imgtext33%> "ImgLink3=escape("<%=imgLink33%>" );ImgUrl4= "<%=imgUrl44%>" ;Imgtext4= "<%=imgtext44%> "ImgLink4=escape("<%=imgLink44%>" );ImgUrl5= "<%=imgUrl55%>" ;Imgtext5= "<%=imgtext55%> "ImgLink5=escape("<%=imgLink55%>" );Var Focus_width=200Var Focus_height=160Var Text_height=18Var Swf_height = Focus_height text_height
Previous12 Next
Hot Tags: