index.asp

php 语言写的c2c商城网站程序

    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#f1f1f1>" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=center height=35>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条新闻" &  vbCrLf)
    Response.Write(" 转到" & "<INPUT TYEP=TEXT CLASS=wenbenkuang NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
      </td>
    </tr>
  </table>
</div>
<TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0 ALIGN="CENTER"> 
<TR> <TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=6 HEIGHT=1></TD><TD> 
<IMG SRC="image/main_image/images/Spacer.gif" WIDTH=164 HEIGHT=1></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=8 HEIGHT=1></TD><TD> 
<IMG SRC="image/main_image/images/Spacer.gif" WIDTH=82 HEIGHT=1></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=92 HEIGHT=1></TD><TD> 
<IMG SRC="image/main_image/images/Spacer.gif" WIDTH=12 HEIGHT=1></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=124 HEIGHT=1></TD><TD> 
<IMG SRC="image/main_image/images/Spacer.gif" WIDTH=261 HEIGHT=1></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=11 HEIGHT=1></TD><TD></TD></TR> 
<TR> <TD ROWSPAN=11> <IMG SRC="image/main_image/images/main_01.gif" WIDTH=6 HEIGHT=1350></TD><TD COLSPAN=8> 
<IMG SRC="image/main_image/images/main_02.gif" WIDTH=754 HEIGHT=5></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=1 HEIGHT=5></TD></TR> 
<TR> <TD COLSPAN=4 ROWSPAN=2 HEIGHT="205" BACKGROUND="image/main_image/images/main_03.gif" ALIGN="CENTER" VALIGN="MIDDLE"><SCRIPT LANGUAGE=JavaScript>
<!--
var scrollerwidth=344
var scrollerheight=204
var scrollerbgcolor='#ffffff'
var num = 20
var staytime='3000'
var slidespeed='100'
var slides=new Array() 
if (slides.length>1)
i=2
else
i=0 

function move1(whichlayer){  
tlayer=eval(whichlayer)  
if (tlayer.top>0&&tlayer.top<=num){  
tlayer.top=0  
setTimeout("move1(tlayer)",staytime)  
setTimeout("move2(document.main.document.second)",staytime)  
return  
}  

if (tlayer.top>=tlayer.document.height*-1){  
tlayer.top-=num
setTimeout("move1(tlayer)",slidespeed)  
}  
else{  
tlayer.top=scrollerheight  
tlayer.document.write(slides[i])  
tlayer.document.close()  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move2(whichlayer){  
tlayer2=eval(whichlayer)  
if (tlayer2.top>0&&tlayer2.top<=num){  
tlayer2.top=0  
setTimeout("move2(tlayer2)",staytime)  
setTimeout("move1(document.main.document.first)",staytime)  
return  
}  
if (tlayer2.top>=tlayer2.document.height*-1){  
tlayer2.top-=num
setTimeout("move2(tlayer2)",slidespeed)  
}  
else{  
tlayer2.top=scrollerheight  
tlayer2.document.write(slides[i])  
tlayer2.document.close()  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move3(whichdiv){  
tdiv=eval(whichdiv)
if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop<=num){  
tdiv.style.pixelTop=0  
setTimeout("move3(tdiv)",staytime)  
setTimeout("move4(second2)",staytime)  
return  
}  
if (tdiv.style.pixelTop>=tdiv.offsetHeight*-1){  
tdiv.style.pixelTop-=num
setTimeout("move3(tdiv)",slidespeed)  
}  
else{  
tdiv.style.pixelTop=scrollerheight  
tdiv.innerHTML=slides[i]  
if (i==slides.length-1)  
i=0  
else  
i++  
}  
}  
  
function move4(whichdiv){  
tdiv2=eval(whichdiv)  
if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop<=num){  
tdiv2.style.pixelTop=0  
setTimeout("move4(tdiv2)",staytime)  
setTimeout("move3(first2)",staytime)  
return  
}

if (tdiv2.style.pixelTop>=tdiv2.offsetHeight*-1){  
tdiv2.style.pixelTop-=num  
setTimeout("move4(second2)",slidespeed)  
}  
else{  
tdiv2.style.pixelTop=scrollerheight  
tdiv2.innerHTML=slides[i]  
if (i==slides.length-1)  
i=0  
else  
i++  
}}  
  
function startscroll(){  
if (document.all){ 
move3(first2)  
second2.style.top=scrollerheight  
second2.style.visibility='visible'  
}  
else if (document.layers){  
document.main.visibility='show'  
move1(document.main.document.first)  
document.main.document.second.top=scrollerheight+num  
document.main.document.second.visibility='show'  
}}

window.onload=startscroll
//-->
</SCRIPT> <SCRIPT LANGUAGE=JavaScript>
<!--
slides[0]='<a href=<%=piao1url%> target="_blank"><img src=<%=piao1%> border="0" width=346 height="205"></a>'
slides[1]='<a href=<%=piao2url%> target="_blank"><img src=<%=piao2%> border="0" width=346 height="205"></a>'
slides[2]='<a href=<%=piao3url%> target="_blank"><img src=<%=piao3%> border="0" width=346 height="205"></a>'
//-->
</SCRIPT> <SCRIPT LANGUAGE=JavaScript>
<!--
if (document.all){
document.writeln('<span id="main2" style="position:relative;width:'+scrollerwidth+';height:'+scrollerheight+';overflow:hiden;background-color:'+scrollerbgcolor+')">')
document.writeln('<div style="position:absolute;width:'+scrollerwidth+';height:'+scrollerheight+';clip:rect(0 '+scrollerwidth+' '+scrollerheight+' 0);left:0;top:0">')
document.writeln('<div id="first2" style="position:absolute;width:'+scrollerwidth+';left:0;top:1;">')
document.write(slides[1])
document.writeln('</div>') 
document.writeln('<div id="second2" style="position:absolute;width:'+scrollerwidth+';left:0;top:0;visibility:hidden">')
document.write(slides[2])
document.writeln('</div></div></span>')
}
//-->
</SCRIPT> </TD><TD ROWSPAN=10> <IMG SRC="image/main_image/images/main_04.gif" WIDTH=12 HEIGHT=1345></TD><TD> 
<IMG SRC="image/main_image/images/main_05.gif" WIDTH=124 HEIGHT=40></TD><TD COLSPAN=2 HEIGHT="40" BACKGROUND="image/main_image/images/main_06.gif"><TABLE WIDTH="98%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="RIGHT"><TR><TD WIDTH="62%"><A 
            HREF="/class.asp?lx=big&anid=34" 
            TARGET=_blank>电脑</A>&nbsp;<A 
            HREF="/class.asp?lx=big&anid=36" 
            TARGET=_blank>数码</A>&nbsp;<A 
            HREF="/class.asp?lx=big&anid=39" 
            TARGET=_blank>花卉</A>&nbsp;<A 
            HREF="/class.asp?lx=big&anid=35" 
            TARGET=_blank>美容</A>&nbsp;<A 
            HREF="/class.asp?lx=big&anid=50" 
            TARGET=_blank>宠物</A>&nbsp;<A 
            HREF="/class.asp?lx=big&anid=32" 
            TARGET=_blank>手机</A><A 
            HREF="/class.asp?lx=big&anid=38" 
            TARGET=_blank> MP3</A>&nbsp;<A 
            HREF="/class.asp?lx=big&anid=52" 
            TARGET=_blank>成人</A></TD></TR></TABLE></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=1 HEIGHT=40></TD></TR> 
<TR> <TD COLSPAN=2 ROWSPAN=2 HEIGHT="339" BACKGROUND="image/main_image/images/main_07.gif" VALIGN="TOP"><TABLE CLASS=main CELLSPACING=0 CELLPADDING=2 WIDTH=98% ALIGN=center 
      BORDER=0> <TBODY> <TR> <TD COLSPAN="4" ALIGN=middle VALIGN=center> <!--#include file="shangping_j.asp"--> 
</TD></TR> </TBODY> </TABLE></TD><TD ROWSPAN=9> <IMG SRC="image/main_image/images/main_08.gif" WIDTH=11 HEIGHT=1305></TD><TD> 
<IMG SRC="image/main_image/images/Spacer.gif" WIDTH=1 HEIGHT=165></TD></TR> <TR> 
    <TD COLSPAN=3 HEIGHT="174" BACKGROUND="image/main_image/images/main_09.gif">&nbsp; </TD>
    <TD> <IMG SRC="image/main_image/images/main_10.gif" WIDTH=92 HEIGHT=174 USEMAP="#Map3" BORDER="0"></TD>
    <TD> 
<IMG SRC="image/main_image/images/Spacer.gif" WIDTH=1 HEIGHT=174></TD></TR> <TR> 
<TD> <IMG SRC="image/main_image/images/main_11.gif" WIDTH=164 HEIGHT=42></TD><TD COLSPAN=2> 
<IMG SRC="image/main_image/images/main_12.gif" WIDTH=90 HEIGHT=42></TD><TD> <IMG SRC="image/main_image/images/main_13.gif" WIDTH=92 HEIGHT=42></TD><TD COLSPAN=2> 
<IMG SRC="image/main_image/images/main_14.gif" WIDTH=385 HEIGHT=42></TD><TD> <IMG SRC="image/main_image/images/Spacer.gif" WIDTH=1 HEIGHT=42></TD></TR> 
<TR> <TD COLSPAN=4 ROWSPAN=2 HEIGHT="410" BACKGROUND="image/main_image/images/main_15.gif"><TABLE CELLSPACING=0 CELLPADDING=0 WIDTH="334" ALIGN=center 
BORDER=0> <TBODY> <TR> <TD WIDTH="50%" HEIGHT=45><IMG HEIGHT=10 
                  SRC="images/icon_1.gif" WIDTH=15><A CLASS=big 
                  HREF="class.asp?lx=big&anid=34">电脑/网络/软件</A> <TABLE CELLSPACING=0 CELLPADDING=0 WIDTH="90%" BORDER=0> 
<TBODY> <TR> <TD WIDTH="100%" BACKGROUND=images/dian.gif 
                      HEIGHT=2></TD></TR> <TR> <TD HEIGHT=2></TD></TR> </TBODY> 
</TABLE><IMG HEIGHT=3 
                  SRC="" WIDTH=16><A 
                  HREF="class.asp?lx=small&anid=34&nid=273">台式</A>| <A 
                  HREF="class.asp?lx=small&anid=34&nid=313">便携</A>| <A 
                  HREF="class.asp?lx=small&anid=34&nid=316">服务器</A><BR> <IMG 
                  HEIGHT=3 SRC="" WIDTH=16><A