📄 makeofferlist.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无效 %>
<!--#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"-->
<%
If Session("globalecmaster")="" or Session("adminid")="" then
Response.write "<script language='javascript'>"
Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>"
Response.End
End If
%>
<%
'获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select seller_type2 from [Yixiang_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("seller_type2")
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 Yixiang_class_3 order by typeid_2 desc"),conn,1,1
ElseIf Request("all")="update" then
id1=Replace(Request("id1"),"'","")
id2=Replace(Request("id2"),"'","")
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select * from Yixiang_class_3 Where typeid_2 between "&id1&" and "&id2&" order by typeid_2 desc"),conn,1,1
End If
If not rs.Eof then
rs.Pagesize=MaxPerPage
mpage=rs.Pagecount '得到总页数
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage then
ttid=rs("typeid_2")
tytid=rs("typeID")
sttid=rs("sortID")
End If
End If
rs.Close
If ttid="" Then
ttid=0
End If
If tytid="" Then
tytid=0
End If
If sttid="" Then
sttid=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" or Request("all")="update" then
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select Yixiang_info.*,wygkcn_corporation.id,wygkcn_corporation.msn,wygkcn_corporation.flag as corflag,wygkcn_corporation.qymc,wygkcn_corporation.tm,wygkcn_corporation.[user],wygkcn_corporation.country,wygkcn_corporation.sf,wygkcn_corporation.city,wygkcn_corporation.web,wygkcn_corporation.url,wygkcn_corporation.gradeid,wygkcn_corporation.trust_score from Yixiang_Info,wygkcn_corporation where Yixiang_info.typeid_2="&ttid&" and Yixiang_info.type='买' and wygkcn_corporation.id=Yixiang_info.gsid and Yixiang_info.flag=1 order by wygkcn_corporation.trust_score 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"-->
<%
Set rssort1=Server.CreateObject("adodb.recordSet")
rssort1.Open ("select * from Yixiang_class_1 where sortID="&sttid&""),conn,1,1
Set rssort=Server.CreateObject("adodb.recordSet")
rssort.Open ("select * from Yixiang_class_2 where typeID="&tytid&""),conn,1,1
Set rssort2=Server.CreateObject("adodb.recordSet")
rssort2.Open ("select * from Yixiang_class_3 where typeID_2="&ttid&""),conn,1,1
If rs.Eof then
HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无求购信息</div><br>"
Else
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
HOPE_body=HOPE_body&"<TABLE width='100%' height=85 border=0 align=center cellPadding=0 cellSpacing=1>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&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&">"
HOPE_body=HOPE_body&"<TD align=middle width='12%' >"&vbCrlf
HOPE_body=HOPE_body&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle>"&vbCrlf
If rs("draw")<>"" then
HOPE_body=HOPE_body&"<A class=s href="&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html target=_blank>"
HOPE_body=HOPE_body&"<IMG src="&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&" border=0 width=64 height=64> </A>"
Else
HOPE_body=HOPE_body&"<FONT class=C color=#cecfce>无图</FONT>"
End If
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD width=35% class=cate><A class=M href="&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html target=_blank><SPAN class=lh15>"&rs("showname")&"</SPAN></A><BR>"&vbCrlf
HOPE_body=HOPE_body&"<font class=""lh15 s"" color=#666666>"&vbCrlf
If rs("Specifications")<>"" then
HOPE_body=HOPE_body&"规格要求："&rs("Specifications")&"<BR>"&vbCrlf
End If
If rs("Packaging")<>"" then
HOPE_body=HOPE_body&"包装要求："&rs("Packaging")&"<BR>"&vbCrlf
End If
If rs("PriceTerms")<>"" then
HOPE_body=HOPE_body&"价格要求："&rs("PriceTerms")&"<BR>"&vbCrlf
End If
HOPE_body=HOPE_body&""&left(rs("content"),30)&"...<BR>"&vbCrlf
HOPE_body=HOPE_body&"</font>"
HOPE_body=HOPE_body&"<FONT color=#666666>"&rs("dateandtime")&"发布</FONT> <BR>"&vbCrlf
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle width='10%' class=s>"&vbCrlf
If rs("Quantity")<>"" then
HOPE_body=HOPE_body&""&rs("Quantity")&""
End If
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD class=s align=middle width='10%'>"&vbCrlf
HOPE_body=HOPE_body&" <FONT class=c><b>"&rs("trust_score")&"</b></FONT>"
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD class=s align=middle width=10%\>"&vbCrlf
HOPE_body=HOPE_body&"<div align=center>"&vbCrlf
If rs("country")="中国" then
HOPE_body=HOPE_body&""&rs("sf")&"-"&rs("city")&"sfsdfsd"
Else
HOPE_body=HOPE_body&""&rs("country")&""
End If
HOPE_body=HOPE_body&"</div></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD class=text13 align=middle width='20%'><input type='checkbox' style='display:none;' name='msgid' checked value='"&i&",'/><div id='msgdiv"&i&"' style=""display:none"">"&vbCrlf
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'msn交谈
IF rs("msn")<>"" Then
HOPE_body=HOPE_body&"(MSN:<a href='msnim:chat?contact="&rs("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rs("msn")&"' />)"
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs("tm")="" Then
HOPE_body=HOPE_body&"<a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rs("info_id")&" target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
Else
HOPE_body=HOPE_body&"<script>"&vbCrlf
HOPE_body=HOPE_body&" document.write(""<table width=100 border=0 cellspacing=0 cellpadding=0><tr><td nowrap><img SRC="&HOPE_InstallDir&"images/list_mytlogo_offline.gif border=0 align=absmiddle></td><td nowrap> </td><td> <table width='100%' border=1 bordercolor=#E2E7EB cellspacing=0 cellpadding=0 ><tr ><td align='center' bgcolor=#E2E7EB><a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rs("info_id")&" class='s' target=_blank>网站留言</a></td><td width=5></td><td align='center' bgcolor=#E2E7EB><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='s'>用TM留言</a></td></tr></table> </td></tr></table>"");"&vbCrlf
HOPE_body=HOPE_body&"</SCRIPT>"&vbCrlf
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -