📄 make.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="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select productshow_sort 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("productshow_sort")
rs.Close
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
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select * from Websen_class_1 order by sortID desc"),conn,1,1
End If
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总条数
If currentPage>mpage Then
Response.Write "<br><br><br> <b>生成完毕完成时间："&now()&"</b>"
Response.End
End If
rs.move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
sortid=rs("sortid")
sortname=rs("sort")
End If
End If
rs.Close
If sortid="" Then
sortid=0
End If
Response.Write "<b>已生成/要生成的1级分类:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If mpage<currentPage Then
Response.Write "，完成时间"&Now()&"</b> "
Else
'商品比较标签#HOPE_BJ(typeid)#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'参数：typeid----1 为横向分单元格显示；0--为纵向分行显示
Function HOPE_BJ(typeid)
If typeid<=0 Then
typeid=0
Else
typeid=1
End If
strs=""
strs=" <script type='text/javascript' src='"&HOPE_InstallDir&"compare.js'></script><script language='javascript' >function zhu(str){ if(str.checked){ document.getElementById('searchwordb').value= document.getElementById('searchwordb').value+str.value; }else{ document.getElementById('searchwordb').value=document.getElementById('searchwordb').value.replace(str.value,''); } } </script> <div> <input type='text' id='searchwordb' style='display:none' value=''/><input type='text' id='installurlb' style='display:none; width:12;height:1' value="&HOPE_InstallDir&" /> <input type='text' id='typeid' style='display:none; width:12;height:1' value="&typeid&" /> </div> <div id='search_resultb'></div>"
HOPE_BJ=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^查处属于第一类的所有二级分类^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_type=HOPE_type&"<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr' style='display:none; width:12;height:1' value="&HOPE_InstallDir&"autokind/trade_2.asp><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>"
HOPE_Type=HOPE_Type&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td colspan=5 height=25><font color=#001D4C><a href='"&HOPE_InstallDir&"index.html' class='la'>网站首页</a> > <a href='"&HOPE_InstallDir&"productshow/index.html' class='la'>产品信息</a> > "&sortname&"</font></td></tr><tr><td colspan=5 width='783' height='1' bgcolor='#c4c4c4'></td></tr><tr style=' padding: 10px 0px 10px 0px '><td><img src='#HOPE_InstallDir#images/indexpoint.gif' width='5' height='9' /><span style=' font-size: 12px; color:#000000; font-weight:bold'> 按类目选择</span></td></tr><tr>"
sqltype="select * from Websen_class_2 where sortid="&sortid&""
Set rstype=Server.CreateObject("adodb.recordSet")
rstype.Open sqltype,conn,1,1
If Not rstype.Eof Then
j=1
do while not rstype.Eof
'^^^^^^^^^^^^^^^^^^^^^^^^^ start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'查询出属于第一类的二级分类下的所含小分类的总数
secCount=0
Set sesers=Server.CreateObject("adodb.recordSet")
sesesql="select count(*) as totalse from Websen_Class_3 where typeid="&rstype("typeid")
sesers.Open sesesql,conn,1,1
If not sesers.Eof Then
If sesers("totalse")>0 Then
secCount="<font color=red>"&sesers("totalse")&"</font>"
Else
secCount=0
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^ end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_Type=HOPE_Type&"<TD valign=top height=10>"
HOPE_Type=HOPE_Type&" <A href='"&HOPE_InstallDir&"productshow/trade/"&sortid&"-"&rstype("typeid")&".html' onclick='AjaxSearchtr("&rstype("typeid")&")'><span style=' font-size:12px; color:#003278'>"&rstype("typename")&"</span></A> <font style='font-size:12px; color:#666666'>("&secCount&")</font>"
HOPE_type=HOPE_type&" </td> "
If j mod 5 = 0 Then
HOPE_Type=HOPE_Type&"</TR>"
End If
rstype.movenext
j=j+1
loop
End If
HOPE_Type=HOPE_Type&"</TABLE></td></tr><tr><td colspan=5 width='783' height='1' bgcolor='#c4c4c4'></td></tr></table>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
msg_per_page=15
If Request("all")="all" Then
sql="select Websen_productshow.id,Websen_productshow.sortid,Websen_productshow.Cpmc,Websen_productshow.typeid,Websen_productshow.xxsm,Websen_productshow.Cpcd,Websen_productshow.typeid_2,Websen_productshow.idate,Websen_productshow.picture,Websen_corporation.qymc,Websen_corporation.[user],Websen_corporation.flag as cflag,Websen_corporation.Address,Websen_corporation.msn,Websen_corporation.gradeid,Websen_corporation.tm,Websen_corporation.Phone,Websen_corporation.mobile,Websen_corporation.trust_score from Websen_productshow,Websen_corporation where Websen_productshow.sortid="&sortid&" and Websen_productshow.flag=1 and Websen_corporation.id=Websen_productshow.gsid order by Websen_corporation.trust_score desc"
Set rs= Server.CreateObject("ADODB.RecordSet")
rs.Open sql,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&"<table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td height='23' class=""s"" align=""center"">暂无该类的产品信息<input name=""postOffer"" type=""button"" value=""立即抢占此推荐位！"" onclick=location.href="""&HOPE_InstallDir&"member/tradeinfo/add_info.asp""></td></tr></table>"
Else
jjcom=1
i=1
HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"autokind/showmsgrole.asp'/>"
do while not rs.Eof and rowcount > 0
jjcom = jjcom + 1
If jjcom mod 2 =0 Then
colors="#FFFFFF"
Else
colors="#F6F6F6"
End If
HOPE_body=HOPE_body&"<table border=0 width='783' cellpadding=0 cellspacing=0 ><tr><td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=0>"
HOPE_body=HOPE_body&"<tr bgcolor="&colors&"><TD align=center width='5%'><input type='checkbox' name='id' value='"&rs("id")&",' onclick='zhu(this);' /></td>"
If rs("picture")<>"../../UploadFile/nopicture.gif" or rs("picture")<>"" Then
HOPE_body=HOPE_body&"<td><A class=s href='"&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html' target=_blank><IMG src='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("picture")&"' border=0 width=100 height=100> </A></td>"&VbCrLf
Else
HOPE_body=HOPE_body&" 无图"
End If
HOPE_body=HOPE_body&"<td width='2%'></td>"&VbCrLf
HOPE_body=HOPE_body&"<td width='40%' valign='top' style=' line-height:160%; padding-top: 5px'> "&VbCrLf
HOPE_body=HOPE_body&"<a href='"&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html' target=_blank><SPAN style=' font-size: 15px; font-weight: bold; color:#001D4C'>"&rs("Cpmc")&"</SPAN></a> <font color=#C5C8C9>["&year(rs("idate"))&"-"&month(rs("idate"))&"-"&day(rs("idate"))&"]</font><br>"&Left(rs("xxsm"),40)&"......<br>"
'--是否使用的名片页------------------------------------------------------------
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp.open sqlmp,conn,1,1
if not rsmp.eof then
if instr(rsmp("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_body=HOPE_body&" <A href='http://"&rs("user")&"."&weburl1&"' target=_blank>"&rs("qymc")&"</a>"&VbCrLf
Else
HOPE_body=HOPE_body&" <A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>"&rs("qymc")&"</a>"&VbCrLf
End If
Else
HOPE_body=HOPE_body&" <A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>"&rs("qymc")&"</a>"&VbCrLf
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -