📄 webborn.asp
字号:
else
img=rs("draw2")
end if
end if
newgong=newgong&"<td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'><img src='"&img&"' width=108 height=80 vspace=5 border=0 hspace=5></a><br><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'>"&rs("showname")&" </a></td>"
rs.movenext
loop
newgong=newgong&"</tr></table>"
end if
HOPE_newgong=newgong
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function HOPE_newqiu(typeid,num)
'采购
if typeid=0 then
sql="select top "&num&" info_id,type,showname,picture,draw,draw1,draw2,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where type='买' and flag=1 and gsid="&session("autoid")&" order by info_id desc"
else
sql="select top "&num&" info_id,type,showname,draw,draw1,draw2,picture,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where typeid="&typeid&" and type='买' and gsid="&session("autoid")&" and flag=1 order by info_id desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
newgong="暂无采购信息"
else
newgong=newgong&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
do while not rs.eof
if trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" then
img=rs("picture")
else
if trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" then
img=rs("draw")
elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" then
img=rs("draw")
elseif trim(rs("draw2"))="" and trim(rs("draw"))="" then
img=rs("draw1")
else
img=rs("draw2")
end if
end if
newgong=newgong&"<td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'><img src='"&img&"' width=108 height=80 vspace=5 border=0 hspace=5></a><br><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html' target='_blank'>"&rs("showname")&" </a></td>"
rs.movenext
loop
newgong=newgong&"</tr></table>"
end if
HOPE_newqiu=newgong
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function HOPE_newjob()
sql="select * from Yixiang_work where gsid="&session("autoid")&" order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
newjob="暂无招聘"
Else
newjob="<br><table width=""97%"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""1"" bgcolor=""#EEEEEE"">"
Do while not rs.eof
newjob=newjob&"<tr><td height=""25"" bgcolor=""#FFF3EC""><a href=../../member/work/work_info.asp?info_id="&rs("info_id")&" target=_blank><b>"&rs("showname")&"</b></a> <font color=999999>有效期：("&rs("period")&") 发布时间："&formatdatetime(rs("dateandtime"),2)&"</font></td></tr>"
newjob=newjob&"<tr><td bgcolor=""#FFFFFF""><span style='font-size:12px;line-height:20px'><b>工作地点：</b>"&rs("xs")&" ("&rs("type")&")<br><b>招聘人数：</b>"&rs("zrs")&"<br><b>招聘内容：</b>"&rs("content")&"</span></td></tr>"
rs.movenext
Loop
newjob=newjob&"</table>"
End If
HOPE_newjob=newjob
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_vipproduct(tj,num,numbr)'会员推荐产品(推荐，个数，几个换行)
j=0
sql="select top "&num&" wygkcn_productshow.id,wygkcn_productshow.sortid,wygkcn_productshow.typeid,wygkcn_productshow.typeid_2,wygkcn_productshow.cpmc,wygkcn_productshow.picture,wygkcn_corporation.qymc,wygkcn_corporation.url,wygkcn_corporation.[user] from wygkcn_productshow,wygkcn_corporation where wygkcn_productshow.flag=1 and wygkcn_corporation.id=wygkcn_productshow.gsid and wygkcn_productshow.gsid="&session("autoid")&" order by wygkcn_productshow.id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipproduct="暂无产品信息"
Else
vipproduct=vipproduct&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
do while not rs.eof and j<num
vipproduct=vipproduct&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank><IMG src="""&rs("picture")&""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>"&rs("cpmc")&"</a></TD>"
rs.movenext
j=j+1
If j mod numbr=0 then vipproduct=vipproduct&"</TR><tr>"
loop
vipproduct=vipproduct&"</TR></TABLE>"
End If
HOPE_vipproduct=vipproduct
End Function
Public Function HOPE_SuppryView(thispage,num,numbr)'会员推荐产品(第几页，每页条数，几个换行)
j=0
sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where type='卖' and gsid="&session("autoid")&" and flag=1 order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipSuppry="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipSuppry=vipSuppry&"<table width='100%'><tr><td align='left'>橱窗展示信息 <a href='supply_p1.htm'>目录方式展示信息</a></td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
do while not rs.eof and j<rs.pagesize
if trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" then
PTpic=rs("picture")
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
vipSuppry=vipSuppry&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
rs.movenext
j=j+1
If j mod numbr=0 then vipSuppry=vipSuppry&"</TR><tr>"
loop
vipSuppry=vipSuppry&"</TR></TABLE>"
End If
HOPE_SuppryView=vipSuppry
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_SuppryView2(thispage,num,numbr)'会员推荐产品(第几页，每页条数，几个换行)
j=0
sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where type='卖' and gsid="&session("autoid")&" and flag=1 order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipSuppry="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipSuppry=vipSuppry&"<table width='100%'><tr><td align='left'><a href='supply1.htm'>橱窗展示信息</a> 目录方式展示信息</td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width='100%' border=0><TR>"
do while not rs.eof and j<rs.pagesize
if j mod 2=0 then
bgco="#EEEEEE"
else
bgco="#FFFFFF"
end if
if trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" then
PTpic=rs("picture")
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
vipSuppry=vipSuppry&"<TD align=middle valign=top><table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#ffffff'><tr><td width='15%' height='33' bgcolor='"&bgco&"'><A href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A></td><td width='85%' bgcolor='"&bgco&"'><A class=s href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></td></tr></table></TD>"
rs.movenext
j=j+1
If j mod 1=0 then vipSuppry=vipSuppry&"</TR><tr>"
loop
vipSuppry=vipSuppry&"</TR></TABLE>"
End If
HOPE_SuppryView2=vipSuppry
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_vipSuppry(tj,num,numbr)'供应信息(推荐，个数，几个换行)
j=0
sql="select top "&num&" info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where type='卖' and gsid="&session("autoid")&" and flag=1 order by info_id desc"
response.Write sql
response.End()
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipSuppry="暂无产品信息"
Else
vipSuppry=vipSuppry&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
do while not rs.eof and j<num
if trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" then
PTpic=rs("picture")
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
vipSuppry=vipSuppry&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
rs.movenext
j=j+1
If j mod numbr=0 then vipSuppry=vipSuppry&"</TR><tr>"
loop
vipSuppry=vipSuppry&"</TR></TABLE>"
End If
HOPE_vipSuppry=vipSuppry
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_CaiGouView(thispage,num,numbr)'采购信息(第几页，每页条数，几个换行)
j=0
sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where type='买' and gsid="&session("autoid")&" and flag=1 order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipCaiGou="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipCaiGou=vipCaiGou&"<table width='100%'><tr><td align='left'>橱窗展示信息 <a href='PurInfo_p1.htm'>目录方式展示信息</a></td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
do while not rs.eof and j<rs.pagesize
if trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" then
PTpic=rs("picture")
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
vipCaiGou=vipCaiGou&"<TD align=middle valign=top><A href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A><br><A class=s href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></TD>"
rs.movenext
j=j+1
If j mod numbr=0 then vipCaiGou=vipCaiGou&"</TR><tr>"
loop
vipCaiGou=vipCaiGou&"</TR></TABLE>"
End If
HOPE_CaiGouView=vipCaiGou
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_CaiGouView2(thispage,num,numbr)'采购信息(第几页，每页条数，几个换行)
j=0
sql="select info_id,draw,draw1,draw2,type,showname,picture,sortid,typeid,typeid_2,dateandtime from Yixiang_Info where type='买' and gsid="&session("autoid")&" and flag=1 order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipCaiGou="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipCaiGou=vipCaiGou&"<table width='100%'><tr><td align='left'><a href='PurInfo1.htm'>橱窗展示信息</a> 目录方式展示信息</td></tr></table><TABLE height=64 cellSpacing=0 cellPadding=0 width=100% border=0><TR>"
do while not rs.eof and j<rs.pagesize
if j mod 2=0 then
bgco="#EEEEEE"
else
bgco="#FFFFFF"
end if
if trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" then
PTpic=rs("picture")
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
vipCaiGou=vipCaiGou&"<TD align=middle valign=top><table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#ffffff'><tr><td width='15%' height='33' bgcolor='"&bgco&"'><A href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank><IMG src="""& PTpic &""" border=0 width=""108"" height=""80"" vspace=""5"" hspace=""5""></A></td><td width='85%' bgcolor='"&bgco&"'><A class=s href="""&HOPE_InstallDir&"seller/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html"" target=_blank>"&rs("showname")&"</a></td></tr></table></TD>"
rs.movenext
j=j+1
If j mod 1=0 then vipCaiGou=vipCaiGou&"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -