新人问题
Dim i,strstr=str & "<div style='margin:0'>"
For i=1 To rs.pagesize
str=str & rs("id") & ". <a href='" & rs("weburl") & "' rel='mediabox[600 400]' title='前往该网站' target='_blank'>" & rs("webname") &
"</a><br />"
rs.movenext
If rs.eof Then Exit For
Next
str=str & "</div><div style='margin-top:10px;line-height:30px;text-align:left;border-top:1px #999 solid'>"
str=str & "<a href='javascript:void(getweblist(1))'><<</a> "
For i=1 To rs.pagecount
If i=page Then
str=str & "<span style='font-weight:bold;color:red;font-size:16px;'>" & i & "</span> "
Else
str=str & "<a href=javascript:void(getweblist(" & i & "))>" & i & "</a> "
End If
Next
str=str & " <a href='javascript:void(getweblist(" & rs.pagecount & "))'>>></a>"
str=str & "</div>"
str=escape(str)
Response.Write(str)
[url=http://bbs.]http://bbs.[/url]
上面这段代码是这个例子里server.asp里的
上面这段代码黑色的是原来的,红色的是我加上去的,绿色的是我去掉的,我在index.html里加入了
<style type="text/css" media="screen">@import "css/mediabox.css";</style>
<script type="text/javascript" src="js/mootools.v1.11.js"></script>
<script type="text/javascript" src="js/mediabox72.js"></script>
可载入后href和title内容都传了,就是不知道红色的这些有没有传?因为要靠红色的代码启动mediabox可点后没效果,是不是因为红色的部分写的不正确,没传过去啊?
望高手赐教!!感激万分啊!