易截截图软件、单文件、免安装、纯绿色、仅160KB

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><%


相关文档:

ASP连接MySQL数据库的方法

ASP连接MySQL数据库的方法
 
 
 
ASP等语言连接mysql数据库,可以通过安装mysql的ODBC驱动,通过配置ODBC数据源,连接并操作数据库。
mysql odbc 3.51版
下载地址:
http://dev.mysql.com/downloads/connector/odbc/3.51.html
<%
'测试读取MySql数据库的内容
strconnection="driver={mysql odb ......

ASP中MD5加密代码

<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBi ......

5、纯ASP代码生成图表函数——立体饼图

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, ......

asp分页代码

 <%'开始分页
    Const MaxPerPage=25
       dim totalPut  
       dim CurrentPage
       dim TotalPages
       dim j
     ......

ASP编程中20个非常有用的例子

ASP编程中20个非常有用的例子  
 
 
1.如何用Asp判断你的网站的虚拟物理路径
答:使用Mappath方法
<%= Server.MapPath("\")%>
2.我如何知道使用者所用的浏览器?
答:使用the Request object方法
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") & ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号