当前位置：首页 → 问答吧 → 为什么动态生成的链接无法访问

为什么动态生成的链接无法访问

时间：2010-08-06

来源：互联网

http://micccn.web-54.com/为什么无法象
http://www.uscoachbag.com/一样，
点击左侧的链接就可以链接到相应的栏目页呢？
当然这些栏目页是不存在的，是动态生成的，左侧链接的文本是从一个文件生成的，
但我就是找不到动态生成页面的源代码文件，
它是怎么实现的呢？奇怪！

作者: cjq001 发布时间: 2010-08-06

你怎么判断出它的栏目页是动态生成呢？？
我觉得那就是个静态页

作者: WebAdvocate 发布时间: 2010-08-06

但是网站根目录根本就没有这些文件名的html文件啊！

作者: cjq001 发布时间: 2010-08-06

不懂了。。。
会不会是在什么服务端生成的啊

作者: WebAdvocate 发布时间: 2010-08-06

两个网站代码基本一模一样，怀疑http://www.uscoachbag.com/部署网站的时候是不是多做了什么设置。

作者: cjq001 发布时间: 2010-08-06

可能是有服务端生成那个东西

作者: WebAdvocate 发布时间: 2010-08-06

服务端生成？不明白。\wwwroot\就那些代码，服务端就在这里面吗？

作者: cjq001 发布时间: 2010-08-06

哈哈只是猜测我没做过asp 不大懂的

作者: WebAdvocate 发布时间: 2010-08-06

网站根目录的httpd.ini代码：

[ISAPI_Rewrite]

RepeatLimit 32

# Block external access to the httpd.ini and httpd.parse.errors files
RewriteRule /httpd(?:\.ini|\.parse\.errors).* / [F,I,O]

RewriteRule ^/infos_.+_(\d+)\.html /info.asp\?infoid=$1
RewriteRule ^/product\.(\d+)\.html /product.asp\?id=$1
RewriteRule ^/sorts\.(\d+)\.html /sorts.asp\?sortid=$1
RewriteRule ^/sorts\.(\d+)_(\d+)\.html /sorts.asp\?sortid=$1&page=$2
RewriteRule ^/.+_p_(\d+)\.html /product.asp\?id=$1
RewriteRule ^/.+_(\d+)_(\d+)\.html /sorts.asp\?sortid=$1&page=$2
RewriteRule ^/.+_(\d+)\.html /sorts.asp\?sortid=$1
RewriteRule ^/infos\.html /info.asp
RewriteRule ^/accounts\.html /account.asp
RewriteRule ^/loginvs\.html /login.asp
RewriteRule ^/fkv\.html /feedback.asp
RewriteRule ^/regvs\.html /reg.asp
RewriteRule ^/NewArrival\.html /search.asp\?Kts=1
RewriteRule ^/HotSales\.html /search.asp\?Kts=2
RewriteRule ^/TopCommodity\.html /search.asp\?Kts=3
RewriteRule ^/carts\.html /cart.asp
RewriteRule ^/login_(\w+)\.html /login.asp\?action=$1
RewriteRule ^/help.(\d+)\.html /help.asp\?d=$1
'RewriteRule ^/helpn.(\w+)\.html /help.asp\?n=$1

作者: cjq001 发布时间: 2010-08-06

网站根目录的sorts.asp代码：

VBScript code


<!--#include file="common.asp"-->
<%dim st,OutPut_Content,Sort_page
st=timer()
Public OutPut_Script
Const Product_PageSize=40
Call Main

Sub Main()
Mod_Catalogue=1
Call Process_init()
KKS_Temp.SetFile "sorts","sort.html"
'换到Title替换后
'Call Process_term()
Dim SortsID,CurSortsID,Rs,Rs2,SQL,SQL1,SQL2,i,j
Dim SortArray,SortList,product_title,temp_Position
Dim Page_Title,Page_Keyword,Page_Description
dim Class_path,Get_Class_path
SortsID=Request.QueryString("sortid")
Dim Step,CA
Step=KKS.StrToNum(Request.QueryString("step"))
if Request.QueryString("action")="ca" Then
    CA=True
Else
    CA=False
End if
if CA then
    SortsID=cstr(step*100+1) & "-" & cstr(step*100+100)
End if
Sort_page=KKS.StrToNum(request("page"))
If Sort_page=0 Then
Sort_page=1
End if
SortsID=KKS.StrToNum(SortsID)
if SOrtsID>0 then
    SQL2=" Where ID = "&KKS.StrToNum(SortsID)
Else
    SQL2=""
End if

'if KKS.IsValidText(SortsID) then
'
'    SortsID=Split(SortsID,"-")
'    if ubound(SortsID)=1 then
'        SQL2=" Where ID Between "&KKS.StrToNum(SortsID(0))&" and "&KKS.StrToNum(SortsID(1))&""
'    Else
'        SQL2=" Where ID = "&KKS.StrToNum(SortsID(0))
'    End If
'Else
'    Response.write "not file be assigned<br>"
'    Exit Sub
'    SQL2=""
'End If
KKS_CLT.id="id"
KKS_CLT.classname="title"
KKS_CLT.pid="p_id"
KKS_CLT.db_name="Sorts"
KKS_Temp.SetBlock "sorts","SubSortB","SubSortBs"
KKS_Temp.SetBlock "sorts","PROLIST","PROLISTs"
KKS_Temp.SetBlock "sorts","PROLIST1","PROLIST1s"
KKS_Temp.SetBlock "sorts","PROLIST2","PROLIST2s"
KKS_Temp.SetBlock "sorts","SUBSORT","SUBSORTs"
KKS_Temp.SetBlock "sorts","PRODUCTS","PRODUCTSs"
if SortsID>0 then
    SQL="Select id,title,p_id,recom,picurl,ruleid,content,productscount,webtitle,webkeyword,webdescription,[path] From [Sorts]"&SQL2
    Set Rs=KKS_DB.ExecuteCmd(SQL)
    If not Rs.eof then
        Do Until Rs.eof
            SortArray=GetSortList(Rs(0))
            SortList=""
            OutPut_Script=""
            Class_path=Split(Rs(11),",")
            if Isarray(Class_path) Then
            For i=1 To Ubound(Class_path)-1
            Get_Class_path=KKS.Join_Str(Get_Class_path,"setOnOff("&Class_path(i)&",'on',1);"&vbCrLf,"")
            Next
            End If
            Page_Title=Rs("webtitle")
            Page_Keyword=Rs("webkeyword")
            Page_Description=Rs("webdescription")
            if KKS.IsValidText(Page_Title) then    KKS_Temp.SetVar "WebTitle",Page_Title
            if KKS.IsValidText(Page_Keyword) then    KKS_Temp.SetVar "WebKeywords",Page_Keyword
            if KKS.IsValidText(Page_Description) then    KKS_Temp.SetVar "WebDescription",Page_Description
            KKS_Temp.SetVar "Sort_Title1",Rs(1)&""
            KKS_Temp.SetVar "Get_Class_path",Get_Class_path&""
            KKS_Temp.SetVar "Sort_Content",Rs(6)&""
            temp_Position=Position
            For i=0 to ubound(SortArray)
                SortList=KKS.Join_Str(SortList,"<a href="""&webpage_url(Array(0,SortArray(i)(0),SortArray(i)(1)))&""" class=headerNavigation>"&SortArray(i)(1)&"</a>"," » ")
    '            OutPut_Script=KKS.Join_Str(OutPut_Script,KKS.Insert_Str("&nbsp;",i) & "<div id=""sorts_"&Rs(0)&"""><a href="""&sorts_page_name&Rs(0)&suffix_name&"""><strong>"&Rs(1)&"</strong></a>("&KKS.StrToNum(Rs(7))&")</div>","<br />")
            Next
                if sortsid>0 then
                    Position=temp_Position & " » " & SortList
                'OutPut_Script="<Script language=""javascript"">"& chr(13) & chr(10) & "$('sorts_" & SortArray(0)(0) & "').innerHTML+='" &KKS.js_Filter(GetSubSorts(SortArray,1)) & "';" & chr(13) & chr(10) & "$('sorts_a_" & SortArray(0)(0) & "').innerHTML='<b>' + $('sorts_a_" & SortArray(0)(0) & "').innerHTML + '</b>';" & chr(13) & chr(10) &"</"&"Script>"
                else
                    Position=temp_Position & " » Products"
                end if
    '            Response.write SortList
        Position=Position&""
            Call Process_term()
            if KKS_Clt.Is_LastClass(Rs(0)) then
            '===================
            '最后一级-显示所有产品列表 &nbsp;
            '===================
                KKS_Temp.SetVar "SUBSORT",""
                    Call ShowProducts(Rs(0),1,Rs(1))
            '===================
            '最后一级-显示所有产品列表 &nbsp;
            '===================
            Else
            '===================
            '显示下级分类 &nbsp;
            '===================
                Set Rs2=KKS_DB.ExecuteCmd("Select id,title,picurl,content From [Sorts] where p_id=" & Rs(0))
                i=0
                dim bg_i:bg_i=false
                    Do Until Rs2.eof
                    i=i+1
                        KKS_Temp.SetVar "Sub_Url",webpage_url(Array(0,Rs2(0),Rs2(1)))
                        KKS_Temp.SetVar "Sub_Title",Rs2(1)&""
                        KKS_Temp.SetVar "Sub_Img",Rs2(2)&""
                        KKS_Temp.SetVar "Sub_Content",Rs2(3)&""
                    if i mod 4 = 0 then
                            KKS_Temp.SetVar "tr_background","background:#fffaee;"
                        Else
                            KKS_Temp.SetVar "tr_background",""
                        End if
                        if i mod 4 = 0 then
                            KKS_Temp.SetVar "tr_line","</tr><tr align=left>"
                            bg_i=False
                        Else
                            bg_i=True
                            KKS_Temp.SetVar "tr_line",""
                        End if
                        KKS_Temp.Parse "SubSortBs","SubSortB",True
                    Rs2.MoveNext
                    Loop
                    Set Rs2=Nothing
                '显示产品
                    Call ShowProducts(Rs(0),2,Rs(1))
            '===================
            '显示下级分类 &nbsp;
            '===================
            End if
        Rs.MoveNext
        Loop
    End If
Else
    Page_Title=KKS_Settings.webtitle
    Page_Keyword=KKS_Settings.webkeywords
    Page_Description=KKS_Settings.webdescription
position=Position&" » Products"
    Call Process_term()
    Call ShowProducts(0,0,"AllSorts")
End if
if CA then
    Response.write "<br /><a href="""&KKS_Url.ReQueryString("step",step+1)&""">Next Step[200 Records]</a>"
End if
End Sub

Sub ShowProducts(Sortid,iType,SortTitle)
Dim Rs2,i,j,tPageUrl,Prolistl_1Block,Prolistl_2Block,Prolistl_3Block
'#iType=1 this sortId,=2 this SortId & subSort ID,=0 all Products
    KKS_Temp.SetVar "PRODUCTSs",""
    KKS_Temp.Parse "PRODUCTSs","PRODUCTS",False
    '    KKS_DB.GetSQL="Select A.id,A.previewpic,B.ProName,B.Content,A.memberprice From [Product] As A Left Join (Select Proid,ProName,Content From [ProName] Where LanguageCode='"&CLangs&"') As B On A.ID=B.ProID Where A.sortid="&sortsid&" and A.id<>"&sortsid&" Order By A.ID Desc"
Select Case iType
Case 1
    KKS_DB.GetSQL="Select A.id,A.previewpic,B.ProName,B.Content,A.memberprice,A.ItemNo,A.marketprice,A.sortid,A.itemno,A.updatetime  From [Product] As A Left Join (Select Proid,ProName,Content From [ProName]) As B On A.ID=B.ProID Where A.sortid=" & Sortid & " and A.delproperty=0 Order By A.ID Desc"
Case 0
    KKS_DB.GetSQL="Select A.id,A.previewpic,B.ProName,B.Content,A.memberprice,A.ItemNo,A.marketprice,A.sortid,A.itemno,A.updatetime  From [Product] As A Left Join (Select Proid,ProName,Content From [ProName]) As B On A.ID=B.ProID Where A.delproperty=0 Order By A.ID Desc"
Case 2
    KKS_DB.GetSQL="Select A.id,A.previewpic,B.ProName,B.Content,A.memberprice,A.ItemNo,A.marketprice,A.sortid,A.itemno,A.updatetime  From (Select * From [Product] As D Left Join (Select Proid,ProName,Content From [ProName]) As B On D.ID=B.ProID) As A left join [sorts] As C On C.id=A.sortid where C.path like '%," & Sortid & ",%' and A.delproperty=0 Order By A.ID Desc"
End Select
dim k,l,m
Prolistl_1Block=" display:none;"
Prolistl_2Block=" display:none;"
Prolistl_3Block=" display:none;"
'    Set Rs_Sub=KKS_DB.ExecuteCmd("Select Top 8 A.id,A.previewpic,A.ProName,A.Content,A.memberprice,A.ItemNo From (Select * From [Product] As D Left Join (Select Proid,ProName,Content From [ProName]) As B On D.ID=B.ProID) As A left join [sorts] As C On C.id=A.sortid where C.path like '%," & Rs(0) & ",%' Order By A.ID Desc")
    KKS_DB.PageSize=Product_PageSize
    '    KKS_DB.NumBtnStyle="textform2"
    Set Rs2=KKS_DB.GetRS
    if not Rs2.eof then
        i=1:j=0:k=0:l=0:m=0
KKS_Temp.SetVar "Prolistl_1Block",Prolistl_1Block&""
KKS_Temp.SetVar "Prolistl_2Block",Prolistl_2Block&""
KKS_Temp.SetVar "Prolistl_3Block",Prolistl_3Block&""
        Do Until Rs2.eof
        If i>0 and i<14 Then
        Prolistl_1Block=" display:block;"
            If k=0 Then    
            KKS_Temp.SetVar "Prolistl_1Block",Prolistl_1Block&""
                KKS_Temp.SetVar "Prolistk_ID",Rs2(0)&""
                KKS_Temp.SetVar "Prolistk_Pic",FixPicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolistks_Pic",FixPrePicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolistk_Name",Rs2(2)&""
                KKS_Temp.SetVar "Prolistk_Content",Rs2(3)&""
                KKS_Temp.SetVar "Prolistk_Member_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(4))*Currency_scale,2))&""
                KKS_Temp.SetVar "Prolistk_ItemNo",Rs2(5)&""
                KKS_Temp.SetVar "Prolistk_Market_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(6))*Currency_scale,2))&""
                KKS_Temp.SetVar "Prolistk_URl",webpage_url(Array(1,Rs2(0),Rs2(2)))&""
            Else
                KKS_Temp.SetVar "Prolist_ID",Rs2(0)&""
                KKS_Temp.SetVar "Prolist_No",Rs2("itemno")&""
                KKS_Temp.SetVar "Prolist_Name",Rs2(2)&""
                KKS_Temp.SetVar "Prolist_Img",FixPicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolist_PreImg",FixPrePicUrl(Rs2(1))&""
            '        KKS_Temp.SetVar "Prolist_Name_Short",
        '        KKS_Temp.SetVar "Prolist_Name_UrlCode",
        '        KKS_Temp.SetVar "Prolist_Sort_ID",
        '        KKS_Temp.SetVar "Prolist_Sort_Name",
        '        KKS_Temp.SetVar "Prolist_Sort_Name_Short",
        '        KKS_Temp.SetVar "Prolist_Sort_Name_UrlCode",
        '        KKS_Temp.SetVar "Prolist_Sort_Title_Url",
                KKS_Temp.SetVar "Prolist_Content",Rs2(3)&""
        '        KKS_Temp.SetVar "Prolist_Content_Short",
                If datediff("d",Rs2(9),now())<30 Then
                KKS_Temp.SetVar "Prolist_Time",FormatDateTime(Rs2(9),2)&"<img src=""kimages/new.gif"" hspace=""5"" border=""0"" align=""absmiddle"" />"
                Else
                KKS_Temp.SetVar "Prolist_Time",FormatDateTime(Rs2(9),2)&""
                End If

下面还有

作者: cjq001 发布时间: 2010-08-06

VBScript code


                KKS_Temp.SetVar "Prolist_Market_Price",round(KKS.StrToDbl(Rs2(6))*Currency_scale,2)&""
                KKS_Temp.SetVar "Prolist_Member_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(4))*Currency_scale,2))&""
                if KKS.StrToDbl(Rs2(4))<>0 and KKS.StrToDbl(Rs2(6))<>0 then
                    KKS_Temp.SetVar "Prolist_Saveoff",round((1-(KKS.StrToDbl(Rs2(4)))/KKS.StrToDbl(Rs2(6)))*100,2)&""
                Else
                    KKS_Temp.SetVar "Prolist_Saveoff","0"
                End if
                KKS_Temp.SetVar "Prolist_Url",webpage_url(Array(1,Rs2(0),Rs2(2)))
                if k mod 4 = 0 then
                    KKS_Temp.SetVar "TRLine","</tr><tr>"
                Else
                    KKS_Temp.SetVar "TRLine",""
                End if
                KKS_Temp.Parse "PROLISTs","PROLIST",True
            End If
            K=k+1
        ElseIf i<27 and i>13 Then
        Prolistl_2Block=" display:block;"
            If l=0 Then    
                KKS_Temp.SetVar "Prolistl_2Block",Prolistl_2Block&""
                KKS_Temp.SetVar "Prolistl_ID",Rs2(0)&""
                KKS_Temp.SetVar "Prolistl_Pic",FixPicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolistls_Pic",FixPrePicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolistl_Name",Rs2(2)&""
                KKS_Temp.SetVar "Prolistl_Content",Rs2(3)&""
                KKS_Temp.SetVar "Prolistl_Member_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(4))*Currency_scale,2))&""
                KKS_Temp.SetVar "Prolistl_ItemNo",Rs2(5)&""
                KKS_Temp.SetVar "Prolistl_Market_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(6))*Currency_scale,2))&""
                KKS_Temp.SetVar "Prolistl_URl",webpage_url(Array(1,Rs2(0),Rs2(2)))&""
            Else
            KKS_Temp.SetVar "Prolist1_ID",Rs2(0)&""
            KKS_Temp.SetVar "Prolist1_No",Rs2("itemno")&""
            KKS_Temp.SetVar "Prolist1_Name",Rs2(2)&""
        '        KKS_Temp.SetVar "Prolist1_Name_Short",
    '        KKS_Temp.SetVar "Prolist1_Name_UrlCode",
    '        KKS_Temp.SetVar "Prolist1_Sort_ID",
    '        KKS_Temp.SetVar "Prolist1_Sort_Name",
    '        KKS_Temp.SetVar "Prolist1_Sort_Name_Short",
    '        KKS_Temp.SetVar "Prolist1_Sort_Name_UrlCode",
    '        KKS_Temp.SetVar "Prolist1_Sort_Title_Url",
            KKS_Temp.SetVar "Prolist1_Content",Rs2(3)&""
    '        KKS_Temp.SetVar "Prolist1_Content_Short",
            If datediff("d",Rs2(9),now())<30 Then
            KKS_Temp.SetVar "Prolist1_Time",FormatDateTime(Rs2(9),2)&"<img src=""kimages/new.gif"" hspace=""5"" border=""0"" align=""absmiddle"" />"
            Else
            KKS_Temp.SetVar "Prolist1_Time",FormatDateTime(Rs2(9),2)&""
            End If
            KKS_Temp.SetVar "Prolist1_Market_Price",round(KKS.StrToDbl(Rs2(6))*Currency_scale,2)&""
            KKS_Temp.SetVar "Prolist1_Member_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(4))*Currency_scale,2))&""
            if KKS.StrToDbl(Rs2(4))<>0 and KKS.StrToDbl(Rs2(6))<>0 then
                KKS_Temp.SetVar "Prolist1_Saveoff",round((1-(KKS.StrToDbl(Rs2(4)))/KKS.StrToDbl(Rs2(6)))*100,2)&""
            Else
                KKS_Temp.SetVar "Prolist1_Saveoff","0"
            End if
            KKS_Temp.SetVar "Prolist1_Img",FixPicUrl(Rs2(1))&""
    '        KKS_Temp.SetVar "Prolist1_Img_Width",
    '        KKS_Temp.SetVar "Prolist1_Img_Height",
            KKS_Temp.SetVar "Prolist1_PreImg",FixPrePicUrl(Rs2(1))&""
    '        KKS_Temp.SetVar "Prolist1_Num",
    '        KKS_Temp.SetVar "Prolist1_Stock",
    '        KKS_Temp.SetVar "Prolist1_Addtime",
    '        KKS_Temp.SetVar "Prolist1_Click",
    '        KKS_Temp.SetVar "Prolist1_Remark",
    '        KKS_Temp.SetVar "Prolist1_Remark_HTMLEncode",
            KKS_Temp.SetVar "Prolist1_Url",webpage_url(Array(1,Rs2(0),Rs2(2)))
        if l mod 4 = 0 then
            KKS_Temp.SetVar "TR1Line","</tr><tr>"
        Else
            KKS_Temp.SetVar "TR1Line",""
        End if
            KKS_Temp.Parse "PROLIST1s","PROLIST1",True
        End If
        l=l+1
        ElseIf i>23 and i<40 Then
        Prolistl_3Block=" display:block;"
            If m=0 Then    
                KKS_Temp.SetVar "Prolistl_3Block",Prolistl_3Block&""
                KKS_Temp.SetVar "Prolistm_ID",Rs2(0)&""
                KKS_Temp.SetVar "Prolistm_Pic",FixPicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolistms_Pic",FixPrePicUrl(Rs2(1))&""
                KKS_Temp.SetVar "Prolistm_Name",Rs2(2)&""
                KKS_Temp.SetVar "Prolistm_Content",Rs2(3)&""
                KKS_Temp.SetVar "Prolistm_Member_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(4))*Currency_scale,2))&""
                KKS_Temp.SetVar "Prolistm_ItemNo",Rs2(5)&""
                KKS_Temp.SetVar "Prolistm_Market_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(6))*Currency_scale,2))&""
                KKS_Temp.SetVar "Prolistm_URl",webpage_url(Array(1,Rs2(0),Rs2(2)))&""
            Else
            KKS_Temp.SetVar "Prolist2_ID",Rs2(0)&""
            KKS_Temp.SetVar "Prolist2_No",Rs2("itemno")&""
            KKS_Temp.SetVar "Prolist2_Name",Rs2(2)&""
        '        KKS_Temp.SetVar "Prolist2_Name_Short",
    '        KKS_Temp.SetVar "Prolist2_Name_UrlCode",
    '        KKS_Temp.SetVar "Prolist2_Sort_ID",
    '        KKS_Temp.SetVar "Prolist2_Sort_Name",
    '        KKS_Temp.SetVar "Prolist2_Sort_Name_Short",
    '        KKS_Temp.SetVar "Prolist2_Sort_Name_UrlCode",
    '        KKS_Temp.SetVar "Prolist2_Sort_Title_Url",
            KKS_Temp.SetVar "Prolist2_Content",Rs2(3)&""
    '        KKS_Temp.SetVar "Prolist2_Content_Short",
            If datediff("d",Rs2(9),now())<30 Then
            KKS_Temp.SetVar "Prolist2_Time",FormatDateTime(Rs2(9),2)&"<img src=""kimages/new.gif"" hspace=""5"" border=""0"" align=""absmiddle"" />"
            Else
            KKS_Temp.SetVar "Prolist2_Time",FormatDateTime(Rs2(9),2)&""
            End If
            KKS_Temp.SetVar "Prolist2_Market_Price",round(KKS.StrToDbl(Rs2(6))*Currency_scale,2)&""
            KKS_Temp.SetVar "Prolist2_Member_Price",KKS.Format_enum(round(KKS.StrToDbl(Rs2(4))*Currency_scale,2))&""
            if KKS.StrToDbl(Rs2(4))<>0 and KKS.StrToDbl(Rs2(6))<>0 then
                KKS_Temp.SetVar "Prolist2_Saveoff",round((1-(KKS.StrToDbl(Rs2(4)))/KKS.StrToDbl(Rs2(6)))*100,2)&""
            Else
                KKS_Temp.SetVar "Prolist2_Saveoff","0"
            End if
            KKS_Temp.SetVar "Prolist2_Img",FixPicUrl(Rs2(1))&""
    '        KKS_Temp.SetVar "Prolist2_Img_Width",
    '        KKS_Temp.SetVar "Prolist2_Img_Height",
            KKS_Temp.SetVar "Prolist2_PreImg",FixPrePicUrl(Rs2(1))&""
    '        KKS_Temp.SetVar "Prolist2_Num",
    '        KKS_Temp.SetVar "Prolist2_Stock",
    '        KKS_Temp.SetVar "Prolist2_Addtime",
    '        KKS_Temp.SetVar "Prolist2_Click",
    '        KKS_Temp.SetVar "Prolist2_Remark",
    '        KKS_Temp.SetVar "Prolist2_Remark_HTMLEncode",
            KKS_Temp.SetVar "Prolist2_Url",webpage_url(Array(1,Rs2(0),Rs2(2)))
        if m mod 4 = 0 then
            KKS_Temp.SetVar "TR2Line","</tr><tr>"
        Else
            KKS_Temp.SetVar "TR2Line",""
        End if
            KKS_Temp.Parse "PROLIST2s","PROLIST2",True
        End If
        m=m+1
        End If
        i=i+1
        Rs2.MoveNext
        if (i mod KKS_DB.PageSize = 0) or Rs2.eof then
            j=j+1
            if RewriteUrl>0 then
            tPageUrl=WebPage_Url(Array(0,Sortid,SortTitle,"95021106"))
            tPageUrl=KKS.Rplace(tPageUrl,"95021106","")
            if Sortid>0 then
            KKS_DB.PageUrls=kks.rplace(sorts_page_name,"$name$","sorts") & Sortid & "_"
            else
            KKS_DB.PageUrls=kks.rplace(sorts_page_name,"$name$","sorts")&"0_"
            end if
            KKS_DB.PageUrls=KKS.GetPath(tPageUrl,2)&KKS.GetFileMain(KKS.GetPath(tPageUrl,0))
            KKS_DB.PageUrle="."&KKS.GetFileExt(KKS.GetPath(tPageUrl,0))
            end if
            kks_DB.NumBtnStyle="select2"    'select:选择框,textform:输入框,text:全部页码,其它:短列表
            KKS_DB.Btn_First="<img src=""k_i_m_a_g_e_s/up.jpg"" align=""absmiddle"" style=""margin-top:3px;""/>"
            KKS_DB.Btn_Prev="Previous"
            KKS_DB.Btn_Next="Next"
            KKS_DB.Btn_Last="<img src=""k_i_m_a_g_e_s/down.jpg"" align=""absmiddle"" style=""margin-top:3px;"" />"
            KKS_Temp.SetVar "Nav_Page",KKS_DB.ShowPageStr
            KKS_DB.Btn_First="First"
            KKS_DB.Btn_Prev="---Previous"
            KKS_DB.Btn_Next="Next---"
            KKS_DB.Btn_Last="Last"
            KKS_Temp.SetVar "Nav_Page1",KKS_DB.ShowPageStr1
            KKS_Temp.SetVar "Nav_Page_Sortid",Sortid&""
            KKS_Temp.SetVar "Nav_Page_Sort_page",Sort_page&""
            KKS_Temp.Parse "PRODUCTSs","PRODUCTS",False
            KKS_Temp.Parse "main","sorts",False
            OutPut_Content=KKS_TEMP.GetVariable("main")
            Call gPage(OutPut_Content)
            Select Case Request.QueryString("action")
            Case "view"
                Response.write OutPut_Content&OutPut_Script
                Response.end
                Exit Sub
            Case "create","ca"
                if j=1 then Call CreateFile(webpage_url(Array(0,Rs(0),Rs(1))),OutPut_Content&OutPut_Script)
                Call CreateFile(sorts_page_name&Rs(0)&"_"&j&suffix_name,OutPut_Content&OutPut_Script)
            Case Else
                'Call CreateFile(sorts_page_name&Rs(0)&suffix_name,OutPut_Content&OutPut_Script)
                Response.write OutPut_Content&OutPut_Script
                Response.end
            End Select
            KKS_Temp.SetVar "PROLISTs",""
        end if
        Loop
    Else
KKS_Temp.SetVar "Prolistl_1Block",Prolistl_1Block&""
KKS_Temp.SetVar "Prolistl_2Block",Prolistl_2Block&""
KKS_Temp.SetVar "Prolistl_3Block",Prolistl_3Block&""
        i=1:j=1
'        KKS_DB.PageUrls=kks.rplace(sorts_page_name,"$name$",fTitle(Rs(1)))&Rs(0)&"_"
'        KKS_DB.PageUrle=suffix_name
        KKS_Temp.SetVar "Nav_Page",""
        KKS_Temp.Parse "PRODUCTSs","PRODUCTS",False
        KKS_Temp.Parse "main","sorts",False
        OutPut_Content=KKS_TEMP.GetVariable("main")
        Call gPage(OutPut_Content)
        Select Case Request.QueryString("action")
            Case "view"
                Response.write OutPut_Content&OutPut_Script
                Response.end
                Exit Sub
            Case "create","ca"
                if j=1 then Call CreateFile(sorts_page_name&Rs(0)&suffix_name,OutPut_Content&OutPut_Script)
                Call CreateFile(sorts_page_name&Rs(0)&"_"&j&suffix_name,OutPut_Content&OutPut_Script)
            Case Else
                Response.write OutPut_Content&OutPut_Script
                'Call CreateFile(sorts_page_name&Rs(0)&suffix_name,OutPut_Content&OutPut_Script)
                Response.end
        End Select
    End if
End Sub

Call CLCLS
%>

作者: cjq001 发布时间: 2010-08-06

为什么动态生成的链接无法访问

热门阅读

热门下载