JS焦点图代码（asp动态）
<style type="text/css">
.container, .container *{margin:0; padding:0;}
.container{width:325px; height:287px; overflow:hidden;position:relative; margin-left:5px; margin-top:6px;}
.slider{position:absolute;}
.slider li{ list-style:none;display:inline;}
.slider img{ width:325px; height:287px; display:block;}
.slider2{width:2000px;}
.slider2 li{float:left;}
#idTransformView ul li a:hover{
position:relative;
left:0px;
top:0px;}
.num{ position:absolute; right:5px; bottom:5px;}
.num li{
float: left;
color: #D94B01;
text-align: center;
line-height: 16px;
width: 16px;
height: 16px;
font-family: Arial;
font-size: 12px;
cursor: pointer;
overflow: hidden;
margin: 3px 1px;
border: 1px solid #F37700;
background-color: #FFF3E2;
}
.num li.on{
color: #fff;
line-height: 18px;
width: 18px;
height: 18px;
font-size: 14px;
margin: 0 1px;
border: 0;
background:url(img/jiaodianbg.jpg) repeat-x;
font-weight: bold;
}
</style>
<div class="container" id="idTransformView" style="z-index:1;">
<ul class="slider" id="idSlider">
<%set rs=server.CreateObject("Adodb.recordset")
sql="select top 10 * from product where Elite=true and defaultPicurl <> 'img/nopic.jpg' order by ArticleID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write"暂无新闻图片"
else
fcznum=0
do while not rs.eof
fcznum=fcznum+1%>
<li><a href="Articleshow.asp?ArticleID=<%=rs("ArticleID")%>"><img src="<%=rs("DefaultPicUrl")%>" border="0"/></a></li>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
</ul>
<ul class="num" id="idNum">
<%for fczi=1 to fcznum%>
<li><%
相关文档：
<%
Option Explicit
'数据库结构：
'location
'表1 loaction 所在的市 表
' 字段
' loactionid （主键）
' loactionname 名字
'表2 district 所在的县 表
' 字段
' locationid （主键）
' districtid
'&n ......
<%
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
en ......
2、纯ASP代码生成图表函数——柱图
<%
dim total(12,2)
total(1,1)=56
total(2,1)=7
total(3,1)=-7
total(4,1)=0
total(5,1)=16
total(6,1)=10
total(7,1)=14
total(8,1)=7
total(9,1)=9
total(10,1)=7
total(11,1)=11
total(12,1)=14
total(1,2)="地理"
total(2,2)="化学"
total(3,2)="历史 ......
5、纯ASP代码生成图表函数——立体饼图
<%dim total(7,1)
total(1,0)="中国经营报"
total(2,0)="招聘网"
total(3,0)="51Job"
total(4,0)="新民晚报"
total(5,0)="新闻晚报"
total(6,0)="南方周末"
total(7,0)="羊城晚报"
total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5, ......
<%'开始分页
Const MaxPerPage=25
dim totalPut
dim CurrentPage
dim TotalPages
dim j
......
