生成HTML 分类列表页的时候，三级目录怎样是该分类的拼音,该怎么解决
日期：2014-05-17 浏览次数：20993 次
生成HTML 分类列表页的时候，三级目录怎样是该分类的拼音
http://localhost/flash_fl/1_1.htm
这个 1_1 的意思是分类休闲的第一页
我想要生成的时候变成 http://localhost/flash_fl/xiuxian_1.htm
把 1_1 变成 xiuxian_1
下面是生成页的代码：
http://localhost/flash_fl/1_1.htm
这个 1_1 的意思是分类休闲的第一页
我想要生成的时候变成 http://localhost/flash_fl/xiuxian_1.htm
把 1_1 变成 xiuxian_1
下面是生成页的代码：
- VBScript code
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv='Content-Type' content="text/html; charset=gb2312">
<title>生成分类HTM页</title>
<LINK href="images/style.css" type=text/css rel=stylesheet>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#7EA9DE">
<tr>
<td bgcolor="BDDFFE"><strong>生成HTML 分类列表页 </strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%
if request("type")<>"" then
if request("page")<>"" then
page=cint(request("page"))
D=request("D")
else
page=1
D=timer()
end if
mpage=1
mpage1=1
MaxPerPage=20
classid=request("classid")
set rs=server.createobject("adodb.recordset")
if request("type")="all" then
rs.open ("select id from class order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=1
mpage1=rs.pagecount
rs.move (page-1)*1
do while not rs.eof
i=i+1
classid=rs("id")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
elseif request("type")="class" then
rs.open ("select id from class where id="&request("classid")&" order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=1
mpage1=rs.pagecount
rs.move (page-1)*1
do while not rs.eof
i=i+1
classid=rs("id")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
end if
if classid<>"" then
sql="select * from class where id = '"&classid&"'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
classid=rs("id")
rs.MoveNext
loop
end if
rs.close
rs.open ("select * from flash where classid in("&classid&")"),conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage
mpage=rs.pagecount
else
mpage=1
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.write"<font color=""#FF0000"">"&page&"</font>/<font color=""#FF0000"">"&mpage1&"</font> 正在生成分类Html页....<span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
for ii=1 to mpage
m=m+1
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('make_htmlclass.asp?MaxPerPage="&MaxPerPage&"&classid="&classid&"&page="&ii&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='make_htmlclassall.asp?type="&request("type")&"&classid="&request("classid")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">"
else
response.write"<meta http-equ
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
