asp ÎÄ×ÖÑ»·¹ö¶¯£¨up£©
<div id="storyScroller" style="width:100%;height:140px;line-height:28px;overflow:hidden;">
<div id="storyScrollMid">
<ul id="storyScrollUl" style=" list-style-type:circle; list-style-position: outside; margin-left:18px; margin-right:0px">
<li>item01</li>
<li>item02</li>
<li>item03</li>
<li>item04</li>
<li>item05</li>
<li>item06</li>
<li>item07</li>
<li>item08</li>
</ul>
</div>
</div>
<script type="text/javascript">
var scrollstory = document.getElementById('storyScroller');
var storycontainer = document.getElementById('storyScrollMid');
var storyliHeight;
var storylis = storycontainer.getElementsByTagName('li');
var isstory_stop = 0;
scrollstory.onmouseover = function() { isstory_stop = 1; }
scrollstory.onmouseout = function() { isstory_stop = 0; }
function story_scroller(){
var story_step = 1;
var timer1 = setInterval(function(){
if(isstory_stop) return false;
storyliHeight = storylis[0].offsetHeight;
var timer2 = setInterval(function(){
scrollstory.scrollTop += story_step;
if(scrollstory.scrollTop >= storyliHeight){
clearInterval(timer2);
storylis[0].parentNode.appendChild(storylis[0]);
scrollstory.scrollTop = 0;
}
},10);
},5000);
}
story_scroller();
</script>
Ïà¹ØÎĵµ£º
ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ã棬ҳÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......
Õª×Ô£ºhttp://shawangkun.woku.com/article/2723424.html
×î¼òµ¥µÄÓÃÒÔÏÂÓï¾ä:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
µ«ÕâÖÖ·½·¨¶Ô´úÀí·þÎñÆ÷ÉÏÍøµÄ¾Í²»×¼ÁË,¹Ê±È½ÏÈ«ÃæµÄÊÇÓÃÏÂÃæµÄ·½·¨:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......
'**************************************************
'º¯ÊýÃû£ºFSOFileRead
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþÄÚÈݵĺ¯Êý
'²Î Êý£ºfilename ----ÎļþÃû³Æ
'·µ»ØÖµ£ºÎļþÄÚÈÝ
'************** ......
aspÖеÄrs.openÓÚconn.executeµÄÇø±ð
rs.open sql,conn£ºÈç¹ûsqlÊÇdelete,update,insertÔò»á·µ»ØÒ»¸ö¹Ø±ÕµÄ¼Ç¼¼¯£¬ÔÚʹÓùý³ÌÖв»ÒªÀ´¸örs.closeÔÚÎļþ×îºóÔÙдrs.close
Öмä¿ÉÒÔÀ´¶à¸ö¼Ç¼¼¯rs1.open sql1,conn£¬×îºóÒ»¿é¹Ø±Õ¼Ç¼¼¯:rs.close rs1.close
con ......
<%@Language="VBScript" CodePage="65001"%>
<% option explicit%>
<% on error resume next %>
<% Session.CodePage="65001" %>
<% response.charset="utf-8" %>
<%
dim conn,connstr,sql,rs,rs2,rs3
connstr="dbq=" & server.MapPath("../data091003/data09 ......