- 博客(7)
- 资源 (1)
- 收藏
- 关注
原创 asp采集程序
<% Function getHTTPPage(url) On Error Resume Next dim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then e
2010-04-29 09:36:00 590
原创 详细页直接上翻下翻
<%set rst=server.CreateObject("Adodb.recordset") sqlt="select top 1 ArticleID from Product where bigclassname="&bigclassname&" and SmallClassName="&SmallClassName&" and ArticleID>"&ArticleID&" o
2010-04-27 08:34:00 582
原创 asp链接sql数据库 代码
dim conn,connstrSet conn = Server.CreateObject("ADODB.Connection")创建一个数据库链接对象conn,方便后面调用connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=111;User ID=sa;Password=1234;" 创建一个数据库的rec
2010-04-17 10:02:00 286
原创 文字向上无缝滚动
#xiangshangdemo1{height:auto;text-align:left;}#xiangshangdemo2{height:auto;text-align:left;}#xiangshangdemo1 li{list-style-type:none;height:auto;width:155px;text-align:left;}#xiangshangdemo2 li{
2010-03-09 13:46:00 1368
原创 下拉列表链接
- -友情链接- - sql="select * from links order by id desc" rs_link.open sql,conn,1,1 do while not rs_link.eof %> " > loop %> rs_link.close set rs_link=nothing %>
2010-03-09 13:44:00 320
原创 JS焦点图代码(asp动态)
.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
2010-03-09 11:16:00 1291
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人