boot.asp

院校使用的一套心理在线咨询系统(免验证细节美化版) v2.6

<% 
set rs=nothing
Set rs=server.createobject("ADODB.RECORDSET")
   rs.open "Select * From option1",Conn,3,3
   rs("count")=rs("count")+1
   rs.update
%>
<TABLE cellSpacing=0 cellPadding=10 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD align=middle>
      <P align=center>宁波职业技术学院-=-心理咨询平台(<font color="#008000">演示样例.V2.6免验证注册版</font>)<br>访问：<%=rs("count")%>次<br>Powered by
		<a href="mailto:[e-mail]?subject=心理咨询平台">
		<span style="text-decoration: none">陈峰</span></a>&nbsp;&nbsp; ·<a target="_blank" href="http://www.nbptweb.net/webs/sqb/liuyan/index.asp">对此系统的意见</a>·</P>
		<P align=center><script src=http://11.1tong.com.cn/link/count.php?id=3391></script></P></TD></TR></TBODY></TABLE>
          <script language="">
<!-- Beginning of JavaScript Applet -------------------
function scrollit_r2l(seed)
{ var m1  = "<%=rs11("lygg")%>" ;
 var m2  = "" ;
       var msg=m1+m2;
       var out = " "; 
       var c = 1; 
 var speed  = 120;
if (seed > 100)
{                seed-=2;
                var cmd="scrollit_r2l(" + seed + ")";   
             timerTwo=window.setTimeout(cmd,speed);}     
    else if (seed <= 100 && seed > 0)
     {                for (c=0 ; c < seed ; c++)
                      {       out+=" ";}   
       out+=msg;         seed-=2;      
   var cmd="scrollit_r2l(" + seed + ")";      
   window.status=out;         
 timerTwo=window.setTimeout(cmd,speed); }        
      else if (seed <= 0) 
{                if (-seed < msg.length) 
                  { 
                       out+=msg.substring(-seed,msg.length);        
                       seed-=2;                        
                       var cmd="scrollit_r2l(" + seed + ")";         
                       window.status=out;                     
       timerTwo=window.setTimeout(cmd,speed);}
       else {               window.status=" ";       
                 timerTwo=window.setTimeout("scrollit_r2l(100)",speed);
}
}
}
scrollit_r2l(100);
// -- End of JavaScript code -->
</script>

       <%
rs11.close
set rs11=nothing
rs.close
set rs=nothing
set rs1=nothing
set rs2=nothing
conn.close
set conn=nothing
%>