📄 makedetail.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/safe.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<%
if issession=0 then
gsid=Replace_Text(request.Cookies("Yxmemberid"))
else
gsid=session("id")
end if
if gsid="" then
Response.Redirect(HOPE_InStallDir&"login/login1.asp")
End If
'获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select seller_detail from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
If Not rs.Eof Then
pencat=rs("seller_detail")
rs.Close
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^s
'获取要生成的信息……………………………………………………………………………………
'获取要生成的信息……………………………………………………………………………………
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("TopNew")>"" Then
If ChkRequest(Request("TopNew")) Then
TopNew=Request("TopNew")
Else
Response.Redirect ("/login/chklogin.asp?login=4")
End If
End If
'逐个生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
MaxPerPage=1
If Request("all")="update" Then
if Trim(Request("other"))<>"Member" then Response.end
Set rs=Server.CreateObject("ADODB.Recordset")
id1=Replace(Request("id1"),"'","")
id2=Replace(Request("id2"),"'","")
If IsNumeric(id2)=false or IsNumeric(id2)=false Then Response.Write "参数错误" :Response.End
rs.Open ("select info_id,sortid,typeid,typeid_2,gsid,showname,period,dateandtime,infostartdate,infoenddate from Websen_Info where info_id between "&id1&" And "&id2&" And flag=1 And type='买' order by dateandtime asc"),conn,1,1
End If
If Not rs.Eof Then
rs.Pagesize=MaxPerPage
mpage=rs.Pagecount '得到总条数
If TopNew>"" Then
currentPage=mpage-TopNew
End If
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("info_id")
sortid=rs("sortid")
typeid=rs("typeid")
typeid_2=rs("typeid_2")
showname=rs("showname")
dateandtime=rs("dateandtime")
period=rs("period")
infosdate=rs("infostartdate")
infoedate=rs("infoenddate")
End If
Else
Response.Write "没有要生成的信息"
Response.End
End If
rs.Close
If typeid="" Then
Response.Write "生成完成"
Response.End
End If
If ttid="" Then
ttid=0
End If
If sortid="" Then
sortid=0
End If
If typeid="" Then
typeid=0
End If
If typeid_2="" Then
typeid_2=0
End If
If infoedate<Date() Then
HOPE_Todayadd=HOPE_Todayadd&"<span class=L><font color=#FF0000>[此信息已过期]</font></span>"
End If
'发布时间
HOPE_AddTime=HOPE_AddTime&""&FormatDate(infosdate,1)&""
'有 效 期
HOPE_EndTime=HOPE_EndTime&""&FormatDate(infoedate,1)&""
If typeid_2=0 Then
sorttype="select Websen_class_2.*,Websen_class_1.sortid as sid,Websen_class_1.sort from Websen_class_2,Websen_class_1 where Websen_class_2.typeid="&typeid&" And Websen_class_1.sortid=Websen_class_2.sortid"
Set rssorttype=Server.CreateObject("ADODB.Recordset")
rssorttype.Open sorttype,conn,1,1
If Not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"seller/trade/"&rssorttype("sid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"seller/trade/"&rssorttype("sid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
rssorttype.Close
End If
Else
sorttype="select Websen_class_3.typeid_2,Websen_class_3.typename_2,Websen_class_2.typeid,Websen_class_2.typename,Websen_class_1.sort,Websen_class_1.sortid from Websen_class_3,Websen_class_2,Websen_class_1 where Websen_class_3.typeid_2="&typeid_2&" And Websen_class_2.typeid=Websen_class_3.typeid And Websen_class_1.sortid=Websen_class_2.sortid"
Set rssorttype=Server.CreateObject("ADODB.Recordset")
rssorttype.Open sorttype,conn,1,1
If Not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"seller/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"seller/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
HOPE_Type=HOPE_Type&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"seller/offerlist/"&rssorttype("sortid")&"-"&rssorttype("typeid")&"-"&rssorttype("typeid_2")&".html'>"&rssorttype("typename_2")&"</a>"
rssorttype.Close
End If
End If
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select Websen_info.info_id,Websen_info.flag as Websen_infoflag,Websen_info.gsid,Websen_info.sortid as infosortid,Websen_info.typeid as infotypeid,Websen_info.typeid_2 as infotypeid_2,Websen_info.type,Websen_info.showname,Websen_info.content,Websen_info.period,Websen_info.dateandtime,Websen_info.picture,Websen_info.picture_summ,Websen_info.picture,Websen_info.Specifications,Websen_info.Quantity,Websen_info.Packaging,Websen_info.PriceTerms,Websen_info.draw,Websen_info.draw1,Websen_info.draw2,Websen_info.picsample_0,Websen_info.picsample_1,Websen_info.picsample_2,Websen_corporation.* from Websen_Info,Websen_corporation where Websen_info.info_id="&ttid&" And Websen_corporation.id=Websen_info.gsid And Websen_info.flag=1 And Websen_info.type='买'"),conn,1,1
If Not rs.Eof Then
gsid=rs("gsid")
Else
Response.Write "无数据"
Response.End
End If
If Trim(rs("draw"))="" And Trim(rs("draw1"))="" And Trim(rs("draw2"))="" Then
PTpic=HOPE_InstallDir&"UploadFile/nopicture.gif"
Else
If Trim(rs("draw1"))<>"" And Trim(rs("draw2"))<>"" And Trim(rs("draw"))<>"" Then
PTpic=rs("draw")
ElseIf Trim(rs("draw2"))="" And Trim(rs("draw1"))="" Then
PTpic=rs("draw")
ElseIf Trim(rs("draw2"))="" And Trim(rs("draw"))="" Then
PTpic=rs("draw1")
Else
PTpic=rs("draw2")
End If
End If
'标志此条信息为已经生存HTML
conn.execute("update Websen_Info Set html_pass=1 where info_id="&ttid&"")
HOPE_Pic=""
If Trim(rs("draw"))="" And Trim(rs("draw1"))="" And Trim(rs("draw2"))="" Then
HOPE_Pic="<div class='pic_bg'><img src='"&HOPE_InstallDir&"images/nopic_250x200.gif' width='250' height='250' border='0'></div>"
Else
if rs("draw")<>"" then
bgroud="<li><a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw")&"' target='_blank'><img src="&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw")&" border=0 width=250 height='250'></a></li>"
else
bgroud=""
end if
if rs("draw1")<>"" then
bgroud1="<li><a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw1")&"' target='_blank'><img src="&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw1")&" border=0 width=250 height='250'></a></li>"
else
bgroud1=""
end if
if rs("draw2")<>"" then
bgroud2="<li><a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw2")&"' target='_blank'><img src="&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw2")&" border=0 width=250 height='250'></a></li>"
else
bgroud2=""
end if
HOPE_Pic="<div class='pic_bg'><div class='main-promotion-banner'><div id='SlidePlayer'><ul class='Slides'>"&bgroud&""&bgroud1&""&bgroud2&"</ul></div></div></div>"
End If
'公司名称
HOPE_CORNAME=HOPE_CORNAME&"<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'></script><script language='vbscript'>sub AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"'/>"
'--是否使用的名片页------------------------------------------------------------
set rsmp1=server.CreateObject("adodb.recordset")
sqlmp1="select * from Websen_vipgrade where roleid="&rs("gradeid")
rsmp1.open sqlmp1,conn,1,1
if not rsmp1.eof then
if instr(rsmp1("rolelist"),"qw")>0 then
If is2weburl=1 Then
HOPE_CORNAME=HOPE_CORNAME&"<A href='http://"&rs("user")&"."&weburl1&"' target=_blank>"&rs("qymc")&" </A> "
Else
HOPE_CORNAME=HOPE_CORNAME&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>"&rs("qymc")&" </A> "
End If
else
HOPE_CORNAME=HOPE_CORNAME&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank>"&rs("qymc")&" </A>"
end if
rsmp1.close
end if
'联系人
HOPE_LianXi=HOPE_LianXi&"<div id='search_resultmsg1' style=""display:none""><A href=""mailto:"&rs("email")&""">"&rs("name")&"</A> "&rs("ch")&" <img src="&HOPE_InstallDir&"images/icon_tianjiasy.gif width=13 height=12 align=absmiddle border=0> <a href="&HOPE_InstallDir&"member/myfriend/addfriend.asp?user="&rs("user")&" target=_blank >添加为商业伙伴</a></div>"
'msn交谈
IF rs("msn")<>"" Then
HOPE_online=HOPE_online&"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")&"' /> <br><hr size='1' noshade> "
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^交流方式^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs("tm")="" Then
HOPE_online=HOPE_online&"<a href="&HOPE_InstallDir&"member/getprice/message.asp?info_id="&rs("info_id")&" target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
Else
HOPE_online=HOPE_online&"<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="&rs("tm")&"Site=www.websen.net&Menu=yes><img border='0' SRC='#HOPE_InstallDir#images/onlineqt.gif' alt='点击这里给我发消息'></a>"&vbCrlf
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'信息简介
HOPE_CorCount=HOPE_CorCount&"<style type='text/css'>.cardSelected{background-color: #DB121F;} .cardNormal{background-color: #EFD9C0;}.cardSpace{background-color: #ffffff;}</style><table border=0 cellspacing=0 cellpadding=0 width='100%' id=secTable class=cardFont>"
HOPE_CorCount=HOPE_CorCount&"<tr align=center>"
HOPE_CorCount=HOPE_CorCount&"<td width=140 height=27 class=cardSelected onclick='secCard(1);secBoard(0);'>"
HOPE_ZiShu=HOPE_ZiShu&"<strong><font color=red style=""font-size:14px"">"&rs("trust_score")&"</font></strong>"
If rs("flag")=1 Then
HOPE_CorCount=HOPE_CorCount&"指数 <strong>"&rs("trust_score")&"</strong>"
Else
HOPE_CorCount=HOPE_CorCount&"指数 <strong>0</strong>"
End If
HOPE_CorCount=HOPE_CorCount&"</td><td class=cardSpace width=6> </td>"
HOPE_CorCount=HOPE_CorCount&"<td width=95 height=27 class=cardNormal onclick='secCard(2);secBoard(1);'>公司信息</td>"
HOPE_CorCount=HOPE_CorCount&"<td class=cardSpace width=6> </td>"
HOPE_CorCount=HOPE_CorCount&"<td width=95 height=27 class=cardNormal onclick='secCard(3);secBoard(2);' nowrap><img src="&HOPE_InstallDir&"images/icon_contact.gif width=23 height=15 align=absmiddle border=0 hspace=3>联系信息</td>"
HOPE_CorCount=HOPE_CorCount&"</tr>"
HOPE_CorCount=HOPE_CorCount&"</table>"
HOPE_CorCount=HOPE_CorCount&"<table border=0 cellspacing=0 cellpadding=0 width='100%' height=38 id=mainTable class=boardMain>"
HOPE_CorCount=HOPE_CorCount&"<tbody style='display:blank;'>"
HOPE_CorCount=HOPE_CorCount&"<tr>"
HOPE_CorCount=HOPE_CorCount&"<td width=100 align=center>"
'-等级名-------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -