index.asp

Good chats the software code

                <p>&nbsp; </p>
                <div align="center"> 
                  <table width="600" border="0" cellspacing="0" cellpadding="1" height="86" bordercolordark="#FF66fF" bordercolorlight="#FF33FF" bordercolor="#FF99FF">
                    <%
       do while not (rs.eof or err)
	   %>
                    <tr> 
                      <td width="21">&nbsp;</td>
                      <td colspan="3" bordercolor="#FFCCFF">&nbsp;</td>
                      <td width="1" >&nbsp; </td>
                    </tr>
                    <tr> 
                      <td width="21"><img src="IMAGES/heart.gif" width="20" height="20"></td>
                      <td colspan="3" bordercolor="#FF33FF"><font size="2" color="#3399FF">来自</font><font size="2"><%=rs("dizhi")%><font color="#3399FF">的</font><%=rs("xingming")%><font color="#3399FF">对来自</font><%=rs("name")%><font color="#3399FF">的</font><%=rs("wangyou")%><font color="#3399FF">说：</font></font></td>
                      <td width="1" align="right"> 
                        <div align="left"></div>
                      </td>
                    </tr>
                    <tr> 
                      <td width="21"><img src="IMAGES/book.gif" width="20" height="16"></td>
                      <td colspan="3"> 
                        <div align="left"><font size="2"><%=rs("wangyou")%><font color="#000000">：</font><%=rs("content")%></font></div>
                      </td>
                      <td width="1" align="right"> 
                        <div align="left"></div>
                      </td>
                    </tr>
                    <tr> 
                      <td width="21" height="24">&nbsp; </td>
                      <td colspan="3" height="24"> 
                        <div align="right"><font>                          <font>&nbsp;</font>                          <a href="answer.asp?T=<%=rs("title")%>&i=<%=rs("id")%>"><img src="IMAGES/tm.gif" width="16" height="16" border="0"></a>
                          <%if rs("answer")<>"" then %>
                          <%else%>
                          <%end if%>
                          </font><font size="2"><font size="1"><%=rs("time")%></font></font><font size="2"> 
                          &nbsp;</font></div>
                      </td>
                      <td width="1" align="right" height="24"> <font>&nbsp; </font> 
                      </td>
                    </tr>
                    <tr> 
                      <td width="21" height="10">&nbsp;</td>
                      <td colspan="4" height="10"> 
                        <hr class="unnamed1" noshade>
                      </td>
                    </tr>
                    <tr> 
                      <td width="21" height="2">&nbsp;</td>
                      <td colspan="4" height="2">&nbsp; </td>
                    </tr>
                    <%if rs("answer")<>"" then%>
                    <tr> 
                      <td width="21">&nbsp;</td>
                      <td colspan="4">&nbsp; </td>
                    </tr>
                    <%end if%>
                    <tr> 
                      <% i=i+1 
	      if i>=MaxPerPage then exit do 
	      rs.movenext 
	   loop 
		  %>
                    </tr>
                  </table>
                  <% 
   end sub  
 
 sub showpages() 
          dim n 
	   if (totalPut mod MaxPerPage)=0 then 
	      n= totalPut \ MaxPerPage 
	   else 
	      n= totalPut \ MaxPerPage + 1 
	   end if 
	   if n=1 then  
        response.write "<div align='left'> 共"&totalPut&"条记录" 
	     response.write "</div>" 
        exit sub 
       end if 
 
	   dim k 
	   response.write "<div align='left'><font size='2'> 留言分页 " 
	   for k=1 to n 
	       if k=currentPage then 
	          response.write "[<b>"+Cstr(k)+"</b>] " 
		   else 
		      response.write "[<b>"+"<a href='index.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] " 
		   end if 
	   next 
      response.write " 共"&totalPut&"条记录" 
	   response.write "</font></div>" 
   end sub 
 
  
%>
                  <br>
                  <hr class="unnamed1" noshade>
                  <font color="#FF00FF">&copy;版权所有：265265.cn 2004-2008 情人留言机</font> <a href="http://www.baihen.cn" target="_blank">感谢百恒数据提供免费空间</a> </div>
              </td>
            </tr>
          </table>
          <!--|飞舞的蝴蝶|127|此处为特效配置参数，删除或修改此行内容将导致特效运行不正常！删除或修改此行以下特效代码，！-->
          <script language="JavaScript1.2">
<!-- Begin
var Ymax=8;
var Xmax=8;
var Tmax=10000;
var floatimages=new Array();
floatimages[0]='butterfly.gif';
floatimages[1]='butterfly.gif';
var NS4 = (navigator.appName.indexOf("Netscape")>=0 && parseFloat(navigator.appVersion) >= 4 && parseFloat(navigator.appVersion) < 5)? true : false;
var IE4 = (document.all)? true : false;
var NS6 = (parseFloat(navigator.appVersion) >= 5 && navigator.appName.indexOf("Netscape")>=0 )? true: false;
var wind_w, wind_h, t='', IDs=new Array();
for(i=0; i<floatimages.length; i++){
t+=(NS4)?'<layer name="pic'+i+'" visibility="hide" width="10" height="10"><a href="javascript:hidebutterfly()">' : '<div id="pic'+i+'" style="position:absolute; visibility:hidden;width:10px; height:10px"><a href="javascript:hidebutterfly()">';
t+='<img src="'+floatimages[i]+'" name="p'+i+'" border="0">';
t+=(NS4)? '</a></layer>':'</a></div>';
}
document.write(t);

function moveimage(num){
if(getidleft(num)+IDs[num].W+IDs[num].Xstep >= wind_w+getscrollx())IDs[num].Xdir=false;
if(getidleft(num)-IDs[num].Xstep<=getscrollx())IDs[num].Xdir=true;
if(getidtop(num)+IDs[num].H+IDs[num].Ystep >= wind_h+getscrolly())IDs[num].Ydir=false;
if(getidtop(num)-IDs[num].Ystep<=getscrolly())IDs[num].Ydir=true;
moveidby(num, (IDs[num].Xdir)? IDs[num].Xstep :  -IDs[num].Xstep , (IDs[num].Ydir)?  IDs[num].Ystep:  -IDs[num].Ystep);
}

function getnewprops(num){
IDs[num].Ydir=Math.floor(Math.random()*2)>0;
IDs[num].Xdir=Math.floor(Math.random()*2)>0;
IDs[num].Ystep=Math.ceil(Math.random()*Ymax);
IDs[num].Xstep=Math.ceil(Math.random()*Xmax)
setTimeout('getnewprops('+num+')', Math.floor(Math.random()*Tmax));
}

function getscrollx(){
if(NS4 || NS6)return window.pageXOffset;
if(IE4)return document.body.scrollLeft;
}

function getscrolly(){
if(NS4 || NS6)return window.pageYOffset;
if(IE4)return document.body.scrollTop;
}

function getid(name){
if(NS4)return document.layers[name];
if(IE4)return document.all[name];
if(NS6)return document.getElementById(name);
}

function moveidto(num,x,y){
if(NS4)IDs[num].moveTo(x,y);
if(IE4 || NS6){
IDs[num].style.left=x+'px';
IDs[num].style.top=y+'px';
}}

function getidleft(num){
if(NS4)return IDs[num].left;
if(IE4 || NS6)return parseInt(IDs[num].style.left);
}

function getidtop(num){
if(NS4)return IDs[num].top;
if(IE4 || NS6)return parseInt(IDs[num].style.top);
}

function moveidby(num,dx,dy){
if(NS4)IDs[num].moveBy(dx, dy);
if(IE4 || NS6){
IDs[num].style.left=(getidleft(num)+dx)+'px';
IDs[num].style.top=(getidtop(num)+dy)+'px';
}}

function getwindowwidth(){
if(NS4 || NS6)return window.innerWidth;
if(IE4)return document.body.clientWidth;
}

function getwindowheight(){
if(NS4 || NS6)return window.innerHeight;
if(IE4)return document.body.clientHeight;

}

function init(){
wind_w=getwindowwidth();
wind_h=getwindowheight();
for(i=0; i<floatimages.length; i++){
IDs[i]=getid('pic'+i);
if(NS4){
IDs[i].W=IDs[i].document.images["p"+i].width;
IDs[i].H=IDs[i].document.images["p"+i].height;
}
if(NS6 || IE4){
IDs[i].W=document.images["p"+i].width;
IDs[i].H=document.images["p"+i].height;
}
getnewprops(i);
moveidto(i , Math.floor(Math.random()*(wind_w-IDs[i].W)), Math.floor(Math.random()*(wind_h-IDs[i].H)));
if(NS4)IDs[i].visibility = "show";
if(IE4 || NS6)IDs[i].style.visibility = "visible";
startfly=setInterval('moveimage('+i+')',Math.floor(Math.random()*100)+100);
}}

function hidebutterfly(){
for(i=0; i<floatimages.length; i++){
if (IE4)
eval("document.all.pic"+i+".style.visibility='hidden'")
else if (NS6)
document.getElementById("pic"+i).style.visibility='hidden'
else if (NS4)
eval("document.pic"+i+".visibility='hide'")
clearInterval(startfly)
}
}
if (NS4||NS6||IE4){
window.onload=init;
window.onresize=function(){ wind_w=getwindowwidth(); wind_h=getwindowheight(); }
}
//  End -->
</script>
          <server>
<!--|拉幕文字|36|此处为特效配置参数-->
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var phrase = "愿天下有情人∞终成眷属！";
var lenPhrase = phrase.length;
var phraseOut = "";
var pause = 100;
var i=0;
var j=0;
function explode() {
    i++;
    phraseOut = "";
    for (j=1; j<=(lenPhrase/2)-i; j++) {
      phraseOut += "  ";
    } 
    for (j=1; j<=i; j++) {
      phraseOut += phrase.charAt(j-1);
    }
    for (j=i; j>=1; j--) {
      phraseOut += phrase.charAt(lenPhrase-j);
    }
    for (j=1; j<=(lenPhrase/2)-i; j++) {
      phraseOut += "  ";
    }
    window.status = phraseOut;

    if (i<lenPhrase/2) {
        setTimeout("explode()",pause);
    }
}
explode()
//  End -->
</SCRIPT>
</server>
        </div>
      </div>
    </td>
  </tr>
  </tbody> 
</table>
<table width=100 border=0 align="center" cellpadding=0 cellspacing=0 class=font>
  <tbody> 
  <tr> 
    <td><img height=103 src="love2.files/index_10.jpg" 
width=772></td>
  </tr>
  </tbody> 
</table>
</body>
</html>