📄 co.asp
字号:
end if
if not rspp.eof then
do while not rspp.eof
pipin=pipin-1
rspp.movenext
loop
set rspp=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
zs=shuiwu+jinying+chanpin+qita
hps=haopin+pipin
'证书及荣誉=======================================================================
'dim gjzs '经营许可证张数
gjzs=0
'dim jczs '产品证书张数
jczs=0
'dim swzs '税务登记证张数
swzs=0
'dim qtzs '其它证书
qtzs=0
'dim zs
bizre_sql="select typeid from Yixiang_bizre where gsid="&session("id")&" and sh=1"
set bizre_totle=server.CreateObject("adodb.recordset")
bizre_totle.open bizre_sql,conn,1,1
if bizre_totle.eof then
'zs=0
gjzs=0
swzs=0
glzs=0
qtzs=0
else
do while not bizre_totle.eof
if bizre_totle("typeid")=1 then
gjzs=gjzs+1
elseif bizre_totle("typeid")=2 then
jczs=jczs+1
elseif bizre_totle("typeid")=3 then
swzs=swzs+1
else
qtzs=qtzs+1
end if
bizre_totle.movenext
loop
end if
bizre_totle.close
set bizre_totle=nothing
end function
public function hypj()
'会员评价==================================================================
'dim hp '好评
hp=0
'dim jy '建议
jy=0
'dim cp '差评
cp=0
trustadv_sql="select [type] from Yixiang_trustadv where Yixiang_trustadv.bprid="&session("id")&""
set trustadv_totle=server.CreateObject("adodb.recordset")
trustadv_totle.open trustadv_sql,conn,1,1
if trustadv_totle.eof then
do while not trustadv_totle.eof
if trustadv_totle("type")="好评" then
hp=hp+1
elseif trustadv_totle("type")="建议" then
jy=jy+1
else
cp=cp+1
end if
trustadv_totle.movenext
loop
else
hp=0
jy=0
cp=0
end if
trustadv_totle.close
set trustadv_totle=nothing
hypj="会员评价"
end function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_CompanyInfo()
Info=""
Info=Info&"<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.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&"'/><div id='search_resultmsg' style=""display:none""><table width='96%' align='center' cellpadding='0' cellspacing='0'>"
Info=Info&"<TR>"
Info=Info&"<TD width='22%' height='13' bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>主营产品或服务：</STRONG> </DIV></TD>"
Info=Info&"<TD width='28%' align='center' bgColor='#ffffff' class='td150'>#Zycp#</TD>"
Info=Info&"<TD width='29%' height='14' bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>法定代表人/负责人：</STRONG> </DIV></TD>"
Info=Info&"<TD width='21%' align='center' bgColor='#ffffff' class='td150'>#Frdb#</TD>"
Info=Info&"</TR>"
Info=Info&"<TR>"
Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>企业类型：</STRONG></DIV></TD>"
Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#Qylb#</TD>"
Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>电话：</STRONG></DIV></TD>"
Info=Info&"<TD align='center' class='td150'>#Phone#</TD>"
Info=Info&"</TR>"
Info=Info&"<TR>"
Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>公司注册地：</STRONG></DIV></TD>"
Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#p_z_Z_FoundedPlace#</TD>"
Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><strong>手机：</strong></DIV></TD>"
Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'> #Mobile#</TD>"
Info=Info&"</TR>"
Info=Info&"<TR>"
Info=Info&"<TD height='13' bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>公司主页：</STRONG></DIV></TD>"
Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#Web#</TD>"
Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><strong>传真：</strong></DIV></TD>"
Info=Info&"<TD align='center' class='td150'>#Fax#</TD>"
Info=Info&"</TR>"
Info=Info&"<TR>"
Info=Info&"<TD bgColor='#f0f0f0' align=right><b>主要经营地点</b>：</TD>"
Info=Info&"<TD align='center' bgColor='#ffffff'>#p_z_Z_BizPlace#</TD>"
Info=Info&"<TD bgColor='#f0f0f0' class='td150'><DIV align='right'><STRONG>电子邮件：</STRONG></DIV></TD>"
Info=Info&"<TD align='center' bgColor='#ffffff' class='td150'>#Email#</TD>"
Info=Info&"</TR>"
Info=Info&"</table></div>"
if zycp<>"" then
Info=replace(Info,"#Zycp#",Zycp)
else
Info=replace(Info,"#Zycp#","")
end if
if Frdb<>"" then
Info=replace(Info,"#Frdb#",Frdb)
else
Info=replace(Info,"#Frdb#","")
end if
if Qylb<>"" then
Info=replace(Info,"#Qylb#",Qylb)
else
Info=replace(Info,"#Qylb#","")
end if
Info=replace(Info,"#Phone#",Phone)
if p_z_Z_BizPlace<>"" then
Info=replace(Info,"#p_z_Z_BizPlace#",p_z_Z_BizPlace)
else
Info=replace(Info,"#p_z_Z_BizPlace#","")
end if
if p_z_Z_FoundedPlace<>"" then
Info=replace(Info,"#p_z_Z_FoundedPlace#",p_z_Z_FoundedPlace)
else
Info=replace(Info,"#p_z_Z_FoundedPlace#","")
end if
if trim(Mobile&"ok")="ok" then
Mobile=0
end if
Info=replace(Info,"#Mobile#",Mobile)
if Web<>"" then
Info=replace(Info,"#Web#",Web)
else
Info=replace(Info,"#Web#","")
end if
Info=replace(Info,"#Fax#",Fax)
Info=replace(Info,"#Email#",Email)
HOPE_CompanyInfo=Info
end Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_productView(thispage,num,numbr,Nulls)'会员推荐产品(第几页，每页条数，几个换行,占位参数)
j=0
sql="select 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("id")&" order by wygkcn_productshow.id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipproduct="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipproduct=vipproduct&"<table width='100%'><tr><td align='left'>橱窗展示商品 <a href='VipProduct_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
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_productView=vipproduct
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_productView2(thispage,num,numbr,Nulls)' 会员推荐产品(第几页，每页条数，几个换行,占位参数)
j=0
sql="select 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("id")&" order by wygkcn_productshow.id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipproduct="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipproduct=vipproduct&"<table width='100%'><tr><td align='left'><a href='VipProduct1.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
vipproduct=vipproduct&"<TD align=left 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&"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></td><td width='85%' bgcolor='"&bgco&"'><A class=s href="""&HOPE_InstallDir&"productshow/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("id")&".html"" target=_blank>"&rs("cpmc")&"</a></td></tr></table></TD>"
rs.movenext
j=j+1
If j mod 1=0 then vipproduct=vipproduct&"</TR><tr>"
loop
vipproduct=vipproduct&"</TR></TABLE>"
End If
HOPE_productView2=vipproduct
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function HOPE_ClassView(thispage,num,numbr,PtClassid)' 会员推荐产品(第几页，每页条数，几个换行,类别ID)
j=0
sql="select 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("id")&" and wygkcn_productshow.bigclassid="& PtClassid &" order by wygkcn_productshow.id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof then
vipproduct="暂无产品信息"
Else
j=0
rs.pagesize=num
rs.absolutepage=thispage
vipproduct=vipproduct&"<TABLE height=64 cellSpacing=0 cellPadding=0 width=64 border=0><TR>"
do while not rs.eof and j<rs.pagesize
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_ClassView=vipproduct
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
function createfile(fname,nfasp)
set myFSO=YXFSO
set myfile=myfso.opentextfile(fname,2,true)
myfile.write nfasp
myfile.close
set myFso=nothing
end function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function HOPE_newzhanhui(tj,num)
if tj=1 then 'tj为推荐
sql="select top "&num&" title,beginDate,endDate,id from Yixiang_expo where sh=1 and gsid="&session("id")&" and tj like '01' order by dateandtime desc"
elseif tj=2 then
sql="select top "&num&" title,beginDate,endDate,id from Yixiang_expo where sh=1 and gsid="&session("id")&" and tj like '02' order by dateandtime desc"
elseif tj=3 then
sql="select top "&num&" title,beginDate,endDate,id from Yixiang_expo where sh=1 and gsid="&session("id")&" and tj like '03' order by dateandtime desc"
else
sql="select top "&num&" title,beginDate,endDate,id from Yixiang_expo where sh=1 and gsid="&session("id")&" order by dateandtime desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
newzhanghui="暂无展会信息"
else
do while not rs.eof
newzhanghui=newzhanghui&"·<a href='"&HOPE_InstallDir&"service/expo/detail/"&rs("id")&".html' target='_blank' title="&rs("title")&"''>"&left(rs("title"),18)&" </a><font class='S'>( "&FormatDate(rs("beginDate"),2)&" — "&FormatDate(rs("endDate"),3)&" )</font><br>"
rs.movenext
loop
end if
HOPE_newzhanhui=newzhanghui
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -