📄 makelist.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<title>生成专项商机分类</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<%
data_path="../../../" 'ACC连接数据库路径，对SQL无效
dir="no"
numid="no"
%>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../../../inc/classcount.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select vipinfo_index1 from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
If rs.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs.Eof Then
pencat=rs("vipinfo_index1")
rs.Close
Set rs=Nothing
End If
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
If Request("page2")<>"" Then
If Cint(Request("page2"))<1 Then
currentPage2=1
Else
currentPage2=Cint(Request("page2"))
End If
Else
currentPage2=1
End If
MaxPerPage=1
If Request("all")="all" Then
if Request("other")="SendTo" then
Sql2="Where typeid="&Trim(Request("TypeID"))&""
Sql="select * from Websen_vipinfo_Class "&Sql2&" order by typeID desc"
Else
Sql="select * from Websen_vipinfo_Class order by typeID desc"
End if
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open Sql,conn,1,1
If Not rs.Eof Then
rs.Pagesize=MaxPerPage
mpage=rs.Pagecount '得到总页数
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("typeID")
ttname=rs("type")
End If
End If
rs.Close
End If
If ttid="" Then
ttid=0
End If
Response.Write "<b>已生成/要生成的二级分类:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
If mpage<currentPage Then
Response.Write "，完成时间"&Now()&"</b> "
Else
msg_per_page=10
If Request("all")="all" Then
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select vipinfo_id,viptype,vipshowname,vipperiod,vippricetems,country,dateandtime from Websen_vipinfo where viptype="&Cint(ttid)&" order by vipinfo_ID desc"),conn,1,1
End If
If Not rs.Eof Then
totalrec=RS.RecordCount'总记录条数
rs.Pagesize=msg_per_page '每页数
mpage2=rs.Pagecount '得到总页数
rowcount=msg_per_page
rs.Move (currentPage2-1)*MaxPerPage
If mpage2>=currentPage2 Then
tttid=currentPage2
End If
End If
%>
<!--#include file="../../../inc/headpage_html.asp"-->
<%
If rs.Eof Then
HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无专项商机信息</div><br>"&vbCrlf
Else
Do While Not rs.Eof And rowcount > 0
HOPE_body=HOPE_body&"<TABLE width=""100%"" height=65 border=0 align=""center"" cellPadding=0 cellSpacing=1>"&vbCrlf
HOPE_body=HOPE_body&"<TR"
If icolor=0 Then
HOPE_body=HOPE_body&" bgColor=#ffffff"
Else
HOPE_body=HOPE_body&" bgColor=#f6f6f6"
End If
HOPE_body=HOPE_body&" onMouseOver=""this.style.backgroundColor='#FFF8F4'"""
HOPE_body=HOPE_body&" onMouseOut=""this.style.backgroundColor='"
If icolor=0 Then
HOPE_body=HOPE_body&"#ffffff'"">"&vbCrlf
Else
HOPE_body=HOPE_body&"#f6f6f6'"">"&vbCrlf
End If
HOPE_body=HOPE_body&"<TD width=""40%"" class=m style='word-break:break-all'> <A class=M href="""&HOPE_InstallDir&"vipinfo/offerdetail/"&ttid&"-"&rs("vipinfo_id")&".html"" target=_blank><SPAN class=lh15>["&ttname&"]"&rs("vipshowname")&"</SPAN></a><BR>"&vbCrlf
HOPE_body=HOPE_body&"<FONT color=#666666> "&rs("dateandtime")&"</FONT></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD width=""15%"" class=cate><div align=""center"">"&rs("vipperiod")&"</div></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle width='15%' class=cate><div align=""center"">"&rs("vippricetems")&"</div></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD class=s align=center style='word-break:break-all' width='20%'>"&rs("country")&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR></TABLE>"&vbCrlf
icolor=icolor+1
If icolor>1 Then icolor=0
rowcount=rowcount-1
rs.MoveNext
Loop
End If
HOPE_body=HOPE_body&"<br>"&vbCrlf
HOPE_body=HOPE_body&"<TABLE width='100%' border=0 align=center cellPadding=1 cellSpacing=0 style='BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid'>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD>"&vbCrlf
HOPE_body=HOPE_body&"<TABLE cellSpacing=0 cellPadding=4 width=100% border=0>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD class=M noWrap align=middle>"&vbCrlf
If Not (rs.Eof And rs.bof) Then
gopage=currentpage2
totalpage=mpage2
blockPage=Int((gopage-1)/10)*10+1
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
lenstrTemp=len(strTemp)+1
If instr(left(linkfile,lenstrTemp),"?")>0 Then
If blockPage = 1 Then
HOPE_body=HOPE_body&"<span disabled>【←前10页</span> "
Else
HOPE_body=HOPE_body&"<span disabled>【</span><a href="&ttid&"-p"&blockPage-10&".html>←前10页</a> "
End If
i=1
Do Until i > 10 or blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
Else
HOPE_body=HOPE_body&" <a href="&ttid&"-p"&blockPage&".html>["&blockPage&"]</a> "
End If
blockPage=blockPage+1
i = i + 1
Loop
If blockPage > totalpage Then
HOPE_body=HOPE_body&" <span disabled>后10页→】"
Else
HOPE_body=HOPE_body&" <a href="&ttid&"-p"&blockPage&".html>后10页→</a><span disabled>】"
End If
HOPE_body=HOPE_body&" 直接到第 "
HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
HOPE_body=HOPE_body&"<option value="&ttid&"-p" & i & ".html"
If i=gopage Then HOPE_body=HOPE_body&" selected"
HOPE_body=HOPE_body&">"&i&"</option>"
Next
HOPE_body=HOPE_body&"</select>"
HOPE_body=HOPE_body&" 页<Br><Br>"
Else
If blockPage = 1 Then
HOPE_body=HOPE_body&"<span disabled>【←前10页</span> "
Else
HOPE_body=HOPE_body&"<span disabled>【</span><a href="&ttid&"-p"&blockPage-10&".html>←前10页</a> "
End If
i=1
Do Until i > 10 or blockPage > mpage2
If blockPage=int(gopage) Then
HOPE_body=HOPE_body&"<font color=#FF0000>[<b>"&blockPage&"</b>]</font>"
Else
HOPE_body=HOPE_body&" <a href="&ttid&"-p"&blockPage&".html>["&blockPage&"]</a> "
End If
blockPage=blockPage+1
i = i + 1
Loop
If blockPage > totalpage Then
HOPE_body=HOPE_body&" <span disabled>后10页→】"
Else
HOPE_body=HOPE_body&" <a href="&ttid&"-p"&blockPage&".html>后10页→</a><span disabled>】"
End If
HOPE_body=HOPE_body&" 直接到第 "
HOPE_body=HOPE_body&"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for i=1 to totalpage
HOPE_body=HOPE_body&"<option value="&ttid&"-p" & i & ".html"
If i=gopage Then HOPE_body=HOPE_body&" selected"
HOPE_body=HOPE_body&">"&i&"</option>"
Next
HOPE_body=HOPE_body&"</select>"
HOPE_body=HOPE_body&" 页<Br><Br>"
End If
Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
If Endinfo>totalrec Then Endinfo=totalrec
HOPE_body=HOPE_body&" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&mpage2&" 页"
End If
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
'专项商机类别大栏目显示^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_dh=HOPE_dh&"<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""downborder"">"&vbCrlf
HOPE_dh=HOPE_dh&"<tr>"&vbCrlf
Set rsdh=Server.CreateObject("adodb.recordSet")
dhsql="select * from Websen_vipinfo_Class order by typeID desc"
rsdh.Open dhsql,conn,1,1
If Not rsdh.Eof Then
Do While Not rsdh.Eof
HOPE_dh=HOPE_dh&"<td width=""97"" onMouseOver=""this.style.cursor='hand';"" OnClick=""location.href='"&rsdh("typeid")&".html' ""><img src="""&HOPE_InstallDir&"images/icon_black_45down.gif"" border=0 align=absmiddle width=20 height=20><span class=head>"&rsdh("type")&"</span></td>"&vbCrlf
rsdh.MoveNext
Loop
rsdh.Close
End If
HOPE_dh=HOPE_dh&"<td width=""3"" > </td>"&vbCrlf
HOPE_dh=HOPE_dh&"<td > </td>"&vbCrlf
HOPE_dh=HOPE_dh&"</tr>"&vbCrlf
HOPE_dh=HOPE_dh&"</table>"&vbCrlf
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Title=ttname '网页标题头
HOPE_VipInfoAll="("&zxshangji_all&")" '专项商机总数
HOPE_SortDate=listcount_vipinfo_tade_html '此类今日更新数
HOPE_TotalRec=listcount_vipinfo_html '此类专项商机数
pencat=Hope_HtmlResult(pencat)
Set fso = YXFSO
If mpage2>1 Then
If Cint(Request("page2"))<1 Then
Set fout = fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"vipinfo/"&ttid&".html") )
fout.Write pencat
fout.Close
End If
Set fout = fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"vipinfo/"&ttid&"-p"&tttid&".html"))
fout.Write pencat
fout.Close
Else
Set sort_save = fso.CreateTextFile(Server.MapPath(HOPE_InstallDir&"vipinfo/"&ttid&".html"))
sort_save.Write pencat
sort_save.Close
End If
Set fso = Nothing
If currentPage2<mpage2 Then
Response.Write "<br>已生成*页/此类共*页:<font color=#FF0000>"¤tPage2&"</font>/共<font color=#FF0000><b>"&mpage2&"</b></font>页，"
Response.Write "<meta http-equiv=Refresh content='0; URL=makelist.asp?all="&Request("all")&"&page="¤tPage&"&page2="&Cint(currentPage2+1)&"&TypeID="&Trim(Request("TypeID"))&"&other="&Trim(Request("other"))&"'>"
Else
Response.Write "<meta http-equiv=Refresh content='0; URL=makelist.asp?all="&Request("all")&"&page="¤tPage+1&"&TypeID="&Trim(Request("TypeID"))&"&other="&Trim(Request("other"))&"'>"
End If
End If
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -