asp网站程序首页可以运行，其他链接点击了。链接会变，页面却还停留在首页的页面？请问这是怎么了？
<%if false then%><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><%end if%><%root="http://"&Request.ServerVariables("server_name")&"/"
function replace_fuhao(str0)
str=replace(str0," ","-")
str=replace(str,"/","-")
str=replace(str,"'","-")
str=replace(str,"::","/")
str=replace(str,"?","-")
str=replace(str,"""","-")
str=replace(str,"#","-")
str=htmlweb&str&"/"
replace_fuhao=str
end function
function formatname(str0,id)
str=replace_fuhao(str0&"-"&id)
formatname=str
end function
function companyname(id,str1323)
companyname=replace_fuhao(id&"-c-"&str1323)
end function
function newsname(str000)
newsname=replace_fuhao(str000)
end function
function getvalue(valible)
str=web0'Ĭ
denghao="="
fenhao=vbCrLf
str_temp0=fenhao&str&fenhao
valible_temp0=fenhao&valible&denghao
valuenum=instr(str_temp0,valible_temp0)
if valuenum=0 then
getvalue=""
else
getvalue1=mid(str_temp0,valuenum+len(valible_temp0))
valuenum2=instr(getvalue1,fenhao)
getvalue=left(getvalue1,valuenum2-1)
end if
end function%>
<%currurl00=Request.ServerVariables("QUERY_STRING")
if right(Request.ServerVariables("server_name"),3)="biz" then
currurl00=split(replace(currurl00,"html","")&".biz:80/",".biz:80/")(1)
elseif right(Request.ServerVariables("server_name"),3)="com" then
currurl00=split(replace(currurl00,"html","")&".com:80/",".com:80/")(1)
elseif right(Request.ServerVariables("server_name"),3)="net" then
currurl00=split(replace(currurl00,"html","")&".net:80/",".net:80/")(1)
elseif right(Request.ServerVariables("server_name"),2)="us" then
currurl00=split(replace(currurl00,"html","")&".us:80/",".us:80/")(1)
elseif right(Request.ServerVariables("server_name"),2)="us" then
currurl00=split(replace(currurl00,"html","")&".cc:80/",".cc:80/")(1)
elseif right(Request.ServerVariables("server_name"),2)="cn" then
currurl00=split(replace(currurl00,"html","")&".cn:80/",".cn:80/")(1)
end if
CurrURLarr=split("-"&currurl00&"-","-")
CurrURL=split(CurrURLarr(ubound(CurrURLarr)-1)&".",".")(0)
CurrURLarr=split(currurl00&"/","/")
if CurrURLarr(0)="search" then
request_searchtext=replace(unescape(CurrURLarr(1)),"-"," ")
request_page=CurrURLarr(2)
elseif CurrURLarr(0)="New-Arrivals" or CurrURLarr(0)="All-Products" or CurrURLarr(0)="Bestselling" or CurrURLarr(0)="Super" then
request_searchtext2=replace(unescape(CurrURLarr(0)),"-"," ")
request_page=CurrURLarr(1)
elseif CurrURLarr(0)="allNews" or CurrURLarr(0)="Blogs" then
temp_newsjj=CurrURLarr(0)
request_page=CurrURLarr(1)
elseif ubound(CurrURLarr)=2 then
if split(CurrURLarr(0),"-")(1)="c" then
temp_companyid=split(CurrURLarr(0),"-")(0)
else
if instr(replace(CurrURL,"/",""),"p")<>0 then
temp_newsid=split(replace(CurrURL,"/",""),"p")(1)
temp_newsjj="allNews"
elseif instr(replace(CurrURL,"/",""),"b")<>0 then
temp_newsid=split(replace(CurrURL,"/",""),"b")(1)
temp_newsjj="Blogs"
elseif isnumeric(replace(CurrURL,"/","")) then
request_hw_id=replace(CurrURL,"/","")
else
if split(CurrURL,"/")(1)<>"" then
request_id=split(CurrURL,"/")(0)
else
request_id=replace(CurrURL,"/","")
end if
end if
end if
request_page=CurrURLarr(1)
end if
if temp_companyid="" then temp_companyid="---"
if request_id="" then request_id="---"
if request_hw_id="" then request_hw_id="---"
if temp_newsid="" then temp_newsid="---"%>
<%sub searchbox()%>
<form name="search1" method="post" action="<%=root%>products.asp" style="margin:0" onsubmit="if(searchtext.value==''&&searchtext2.value==''){alert('Please input the key word!');return false;}">
<img src="<%=root%>images/products.gif" align="absmiddle"/>
<select name="searchcate">
<option value="">All Categories</option>
</select>
<input name="searchtext" type="text" id="searchtext" size="16" maxlength="50" /> <input type="submit" value="Search" name="sbt" />
ID: <input name="searchtext2" type="text" id="searchtext2" size="16" maxlength="50" /> <input type="submit" value="Search" name="sbt" />
</form>
<%end sub%>
<%function getparentname(sqlaaa1)
set aaa1=server.CreateObject("adodb.recordset")
aaa1.open sqlaaa1,conn,1,1
if not aaa1.eof then
temaaa1=""
do while not aaa1.eof
if temaaa1<>"" then temaaa1=temaaa1&"|"
temaaa1=temaaa1&aaa1(0)
aaa1.movenext
loop
else
temaaa1= "---"
end if
aaa1.close
set aaa1=nothing
getparentname=temaaa1
end function%>
<%
function getprice(price_num,pricestr0)
pricestr=trim(replace(pricestr0,"",","))
if pricestr="" then
getprice02="0"
elseif instr(pricestr,"=")=0 then
getprice02=pricestr
else
pricearr=split(pricestr,",")
for price_i=ubound(pricearr) to 0 step -1
price2=split(pricearr(price_i),"=")
if int(price_num)>=int(price2(0)) then
getprice02=price2(1)
exit for
elseif price_i=0 then
getprice02=price2(1)
exit for
end if
next
end if
if not isnumeric(getprice02) then
getprice="0"
else
getprice=getprice02
end if
end function
function getpriceminnum(pricenum_num,pricenumstr0)
pricenumstr=trim(replace(pricenumstr0,"",","))
if pricenumstr="" then
getpricenum02="1"
elseif instr(pricenumstr,"=")=0 then
getpricenum02="1"
else
getpricenum02= split(pricenumstr,"=")(0)
if not isnumeric(getpricenum02) then getpricenum02="1"
end if
getpriceminnum=getpricenum02
end function
realclassid="0"
function showGuaid2009(typeid,realid,typeid0,showlink)
fuhao09=" » "
Set rsGuaid= Server.CreateObject("ADODB.RecordSet")
if typeid="n" then
sql="Select * from nsort where nsort_id="&realid
rsGuaid.open sql,conn,1,1
if not rsGuaid.eof or not rsGuaid.bof then
temparr=showGuaid2009("s",cstr(rsGuaid("sort_id")),typeid0,showlink)
if not showlink and typeid=typeid0 then
temparr(0)=temparr(0)&fuhao09&"<script>nfirst='"&realid&"';</script><b>"&rsGuaid("nsort_name")&"</b>"
else
temparr(0)=temparr(0)&fuhao09&"<script>nfirst='"&realid&"';</script><a href="""&root&formatname(rsGuaid("nsort_name"),"n"&realid)&""">"&rsGuaid("nsort_name")&"</a>"
end if
if typeid=typeid0 then
temparr(0)=temparr(0)
end if
temparr(1)=rsguaid("nsort_name")&", "&temparr(1)
temparr(2)=rsguaid("nsort_name")&", "&temparr(2)
temparr(3)=rsguaid("nsort_name")&", "&temparr(3)
if ""&rsguaid("title1")<>"" then temparr(1)=""&rsguaid("title1")
if ""&rsguaid("keyword1")<>"" then temparr(2)=""&rsguaid("keyword1")
if ""&rsguaid("discription1")<>"" then temparr(3)=""&rsguaid("discription1")
temparr(4)=""&rsguaid("nsort_name")
temparr(5)="<a href="""&root&formatname(rsGuaid("nsort_name"),"n"&realid)&""">"
showGuaid2009=temparr
end if
rsGuaid.close
set rsGuaid=nothing
elseif typeid="s" then
sql="Select * from sort where sort_id="&realid
rsGuaid.open sql,conn,1,1
if not rsGuaid.eof or not rsGuaid.bof then
temparr=showGuaid2009("c",cstr(rsGuaid("class_id")),typeid0,showlink)
if not showlink and typeid=typeid0 then
temparr(0)=temparr(0)&fuhao09&"<script>sfirst='"&realid&"';</script><b>"&rsGuaid("sort_name")&"</b>"
else
temparr(0)=temparr(0)&fuhao09&"<script>sfirst='"&realid&"';</script><a href="""&root&formatname(rsGuaid("sort_name"),"s"&realid)&""">"&rsGuaid("sort_name")&"</a>"
end if
if typeid=typeid0 then
temparr(0)=temparr(0)
end if
temparr(1)=rsguaid("sort_name")&", "&temparr(1)
temparr(2)=rsguaid("sort_name")&", "&temparr(2)
temparr(3)=rsguaid("sort_name")&", "&temparr(3)
if ""&rsguaid("title1")<>"" then temparr(1)=""&rsguaid("title1")
if ""&rsguaid("keyword1")<>"" then temparr(2)=""&rsguaid("keyword1")
if ""&rsguaid("discription1")<>"" then temparr(3)=""&rsguaid("discription1")
temparr(4)=""&rsguaid("sort_name")
temparr(5)="<a href="""&root&formatname(rsGuaid("sort_name"),"s"&realid)&""">"
showGuaid2009=temparr
end if
rsGuaid.close
set rsGuaid=nothing
elseif typeid="c" then
realclassid=""&realid
sql="Select * from class where class_id="&realid
rsGuaid.open sql,conn,1,1
if not rsGuaid.eof or not rsGuaid.bof then
dim temparr(10)'һԪص
if not showlink and typeid=typeid0 then
temparr(0)="<script>bfirst='"&realid&"';</script><a href='"&root&"'>Home</a> » <b>"&rsGuaid("class_name")&"</b>"
else
temparr(0)="<script>bfirst='"&realid&"';</script><a href='"&root&"'>Home</a> » <a href="""&root&formatname(rsGuaid("class_name"),"c"&realid)&""">"&rsGuaid("class_name")&"</a>"
end if
if typeid=typeid0 then
temparr(0)=temparr(0)
end if
temparr(1)=rsguaid("class_name")&", Wholesale "&rsguaid("class_name")&", China "&rsguaid("class_name")&",Discount "&rsguaid("class_name")&", Cheap "&rsguaid("class_name")&", Authentic "&rsguaid("class_name")&", Replica "&rsguaid("class_name")&", Youth "&rsguaid("class_name")&", Official "&rsguaid("class_name")&", Pro Bowl "&rsguaid("class_name")&", Super Bowl "&rsguaid("class_name")&""
temparr(2)=temparr(1)
temparr(3)=temparr(1)
if ""&rsguaid("title1")<>"" then temparr(1)=""&rsguaid("title1")
if ""&rsguaid("keyword1")<>"" then temparr(2)=""&rsguaid("keyword1")
if ""&rsguaid("discription1")<>"" then temparr(3)=""&rsguaid("discription1")
temparr(4)=""&rsguaid("class_name")'ǰ
temparr(5)="<a href="""&root&formatname(rsGuaid("class_name"),"c"&realid)&""">"'ǰ
showGuaid2009=temparr
end if
rsGuaid.close
set rsGuaid=nothing
end if
end function
%>
<%function lleft(content,lef)
for le=1 to len(content)
if asc(mid(content,le,1))<=1 then
lef=lef-2
else
lef=lef-1
end if
if lef<=0 then
str123=".."
exit for
end if
next
lleft=left(content,le)&str123
end function
%>
<%sub showhw1()%>
<div id=hw00><%call showhw10()%>
</div>
<%end sub%>
<%sub showhw10()%>
<div id=hw1>
<a href="<%=root%><%=formatname(rshw(1),rshw(0))%>">
<%if rshw(2)<>"" then
pic1=split(rshw(2),"|")(0)%>
<img src="<%=root%><%=pic1%>"/>
<%else%>
nopic
<%end if%></a></div>
<div id=hw2><b>ID: <%=rshw(0)%></b><br />
<a href="<%=root%><%=formatname(rshw(1),rshw(0))%>"><%=rshw(1)%></a>
<br /><b style="color:#f00;">Free Shipping</b><br /><span>Price: <%=tran(rshw(3))%></span><br>
<a href="<%=root%><%=formatname(rshw(1),rshw(0))%>"><img src="<%=root%>images/buy_now_button.gif" border="0" /></a>
</div>
<%end sub%>
<%function fromtohw2(from0,to0,currectid)
sql0002=" select top "&(to0-from0)&" hw_id,hw_name,hw_pic,hw_cash from hw where "&temp5&" hw_id>"&currectid&" order by hw_id"
sql000=" select top "&(to0-from0)&" hw_id,hw_name,hw_pic,hw_cash from hw where "&temp5&" hw_id<"&currectid&" order by hw_id desc"
set rshw=server.CreateObject("adodb.recordset")
rshw.open sql0002,conn,1,1
fromnum=-rshw.recordcount
tonum=getparentname("select count(*) from("&sql000&")")
if (tonum-fromnum)<=(to0-from0) then
fromnumreal=fromnum
tonumreal=tonum
elseif tonum>=to0 and fromnum<=from0 then
fromnumreal=from0
tonumreal=to0
elseif tonum<to0 then
fromnumreal=from0+(tonum-to0)
tonumreal=tonum
else
fromnumreal=fromnum
tonumreal=to0+(fromnum-from0)
end if
fi=-1
if not rshw.eof then tempresult="<a href=' "&root&formatname(rshw(1),rshw(0))&" '><img alt=Previous align=absmiddle src="&root&"images/button_Prev.gif border=0></a>"'=======================
do while not rshw.eof and fi>=fromnumreal
call showhw1()
rshw.movenext
fi=fi-1
loop
rshw.close
set rshw=server.CreateObject("adodb.recordset")
rshw.open sql000,conn,1,1
fi=1
if not rshw.eof then tempresult=tempresult&" <a href=' "&root&formatname(rshw(1),rshw(0))&" '><img alt=Next align=absmiddle src="&root&"images/button_Next.gif border=0></a>"'=======================
do while not rshw.eof and fi<=tonumreal'tonum
call showhw1()
rshw.movenext
fi=fi+1
loop
rshw.close
set rshw=nothing
fromtohw2=tempresult
end function
%>
<%sub pricetotable(str0034)%>
<div class="viewstabletitle">Qty Discounts New Price</div>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="viewstable">
<%str0035=str0034
if str0035="" then str0035="0"
if instr(str0035,"=")=0 then
str0035="1="&str0035
end if
str0035=replace(str0035,"",",")
str0035arr=split(str0035,",")
str0036=""
for sti=0 to ubound(str0035arr)
temparr_00001=split(str0035arr(sti)&"=","=")
btofnumber=temparr_00001(0)
priceofnumber=temparr_00001(1)
sti2=sti+1
if sti2<=ubound(str0035arr) then
temparr_00002=split(str0035arr(sti2)&"=","=")
if isnumeric(temparr_00002(0)) then
upofnumber=""&(int(temparr_00002(0))-1)
else
upofnumber="#err"
end if
else
upofnumber="100"
end if
str0036=str0036& "<tr><td>"&btofnumber&" - "&upofnumber&"</td><td>"&tran(priceofnumber)&"</tr>"
next
response.Write str0036
%>
</table>
<%end sub
function tran(money)
tran=tran3(session("moneytype"))&(int(eval(session("moneytype"))*money*100)/100)
end function
function tran3(moneytype3)
if moneytype3="USD" then
tran3="$"&" "
elseif moneytype3="$"&" " then
tran3="USD"
elseif moneytype3="RMB" then
tran3="￥"
elseif moneytype3="￥" then
tran3="RMB"
elseif moneytype3="EURO" then
tran3="€ "
elseif moneytype3="€" then
tran3="EURO"
elseif moneytype3="GBP" then
tran3="£ "
elseif moneytype3="£ " then
tran3="GBP"
elseif moneytype3="AUD" then
tran3="AU$ "
elseif moneytype3="AU$ " then
tran3="AUD"
elseif moneytype3="CAD" then
tran3="CA$ "
elseif moneytype3="CA$ " then
tran3="CAD"
end if
end function
function tran2(money)
if not isnumeric(money) then tran2=0
tran2=int(eval(session("moneytype"))*money*100)/100
end function%>
<%'======showpage===============
sub showpage(sqlpage)
if instr(sqlpage,"?") then
strpage="&page"
else
strpage="?page"
end if%>
<DIV style="float:left">Total<%=PAGETOTAL%>Pages,<%=""&totalcount&"Messages"%></DIV>
<a href="<%=sqlpage&strpage&"=1"%>">First</a> | <a href="<%=sqlpage&strpage&"="&(page-1)%>">Prev</a> | <a href="<%=sqlpage&strpage&"="&(page+1)%>"> Next</a></a> | <a href="<%=sqlpage&strpage&"="&pagetotal%>"> Last</a></a>
Trun to
<input name="page" value="<%=page%>" size="1" onchange="location='<%=sqlpage&strpage&"="%>'+this.value" style="height:10px;font-size:10px; line-height:10px;"/>
<%end sub
sub showpage2()%>
<script>function jump(numi){
var urls=window.location.href;
var num1=urls.lastIndexOf("_p");
if(num1!= -1)location=urls.substring(0,num1+2)+numi+".html";}
</script>
<a style="float:left">页次<font color="#FF0000"><%=page%></font>/<%=PAGETOTAL%>,共<%=totalcount%>条信息</a>
<%
pageno=page
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>pagetotal then
pageno=1
end if
%>
<%if cint(pageno)>1 then%>
<a href="javascript:jump(<%=pageno-1%>)"> « </a>
<%else%>
«
<%end if%>
<%
pp=cint(pageno)-3
if pp<1 then
pp=1
end if
for pno=pp to pagetotal
p=p+1
if pno=cint(pageno) then%><b style="color:#f50"><%=pno%></b>
<%else%>
<a href="javascript:jump(<%=pno%>)"><%=pno%></a>
<%end if%>
<%
if p>=7 then exit for
next%>
<%if cint(pageno)< pagetotal then%> <a href="javascript:jump(<%=pageno+1%>)"> » </a><%else%>
»
<%end if%>
<%end sub
sub showpage_(sqlpage)
if instr(sqlpage,"?") then
strpage="&page"
else
strpage="?page"
end if%>
<DIV style="float:left">All <%=PAGETOTAL%> pages <%=""&totalcount&" items"%></DIV> <a href="<%=sqlpage&strpage&"=1"%>"><img src="<%=root%>inc/First.gif" border="0"/></a> <a href="<%=sqlpage&strpage&"="&(page-1)%>"><img src="<%=root%>inc/prev.gif" border="0"/></a> <a href="<%=sqlpage&strpage&"="&(page+1)%>"> <img src="<%=root%>inc/next.gif" border="0"/></a></a> <a href="<%=sqlpage&strpage&"="&pagetotal%>"> <img src="<%=root%>inc/last.gif" border="0"/></a></a>
GO
<input name="page" value="<%=page%>" size="1" align="absmiddle" onchange="location='<%=sqlpage&strpage&"="%>'+this.value"/>
<%end sub
sub showpage2_()%>
<script>function jump(numi){numi2=numi;
if(numi2==1)numi2="1";
var urls=window.location.href;
urls=urls.substring(urls.indexOf("<%=lifeorcom%>")+5,urls.length);
var num1=urls.lastIndexOf("/");
if(num1!= -1)location=numi2;
else location=numi2;
}
</script>
No.<font color=red><%=page%></font>/<%=PAGETOTAL%>Page,Total <font color=red><%=totalcount%></font> item(s)
<%
pageno=page
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>pagetotal then
pageno=1
end if
%>
<%if cint(pageno)>1 then%>
<a style="border:0;background:url();" href="javascript:jump(<%=pageno-1%>)"> « </a>
<%else%>
<font color=gray> « </font>
<%end if%>
<%fromleftnum=5
if pagetotal-pageno<5 then fromleftnum=9-pagetotal+pageno
pp=cint(pageno)-fromleftnum
if pp<1 then
pp=1
end if
for pno=pp to pagetotal
p=p+1
if pno=cint(pageno) then%><a style="background:#ccc;"><%=pno%></a>
<%else%>
<a href="javascript:jump(<%=pno%>)"><%=pno%></a>
<%end if%>
<%
if p>=10 then exit for
next%>
<%if cint(pageno)< pagetotal then%> <a style="border:0;background:url();" href="javascript:jump(<%=pageno+1%>)"> » </a><%else%>
<font color=gray> » </font>
<%end if%> <select name="page" style="font-size:10px;" onchange="jump(this.value)">
<script>for (i=1;i<=<%=PAGETOTAL%>;i++)
{document.write("<option");
if(<%=pageno%>==i)document.write(" selected")
document.write(" value="+i+">PAGE "+i+"</option>");}
</script>
</select>
<%end sub%>
