📄 temp_inc.asp
字号:
If whotype=2 Then
sqlm="select top "&num&" Websen_Info.*,Websen_corporation.[user] as userbb from Websen_Info left join [Websen_corporation] on Websen_corporation.id=Websen_Info.gsid where Websen_corporation.flag=1 and Websen_Info.type='买' and Websen_Info.flag=1 "&sign&" "&typestr&" order by Websen_Info.info_id desc"
Set rsm= Server.CreateObject("ADODB.Recordset")
rsm.open sqlm,conn,1,1
If rsm.Eof Then
strs="暂无求购信息"
Else
Dim ttt
ttt=1
hhh=0
strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
If isnew=2 Then
Do While Not rsm.Eof
if ispic=1 Then
If trim(rsm("draw")&"ok")="ok" OR rsm("draw")="nopicture.gig" Then
picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gif' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
Else
picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rsm("userbb")&"/"&rsm("draw")&"' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
End If
Else
if letier=0 then
traal=""
else
traal="[求购]"
end if
picimg=traal
End If
Set rsvip3=Server.CreateObject("ADODB.Recordset")
vipsql3="select * from Websen_corporation where ID="&rsm("Gsid")
rsvip3.open vipsql3,conn,1,1
If Not rsvip3.Eof Then
If rsvip3("flag")=1 Then
hhh=hhh+1
strs=strs&"<td><a href='"&HOPE_InstallDir&"seller/offerdetail/"&rsm("sortid")&"-"&rsm("typeid")&"-"&rsm("typeid_2")&"-"&rsm("info_id")&".html' target='_blank' title='"&rsm("showname")&"'>·"&picimg&left(rsm("showname"),leftstr)&" </a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&" ["&month(rsm("dateandtime"))&"-"&day(rsm("dateandtime"))&"]"
End If
strs=strs&" </td>"
End If
Set rsvip3=Nothing
End If
If hhh Mod brnum=0 Then
strs=strs&"</tr></tr>"
End If
rsm.Movenext
Loop
strs=strs&"</tr></table>"
rsm.Close
Set rsm=Nothing
End If
if isnew<>2 Then
Do While Not rsm.Eof
If ispic=1 Then
If trim(rsm("draw")&"ok")="ok" OR rsm("draw")="nopicture.gif" Then
picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gif' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
Else
picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rsm("userbb")&"/"&rsm("draw")&"' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
End If
Else
if letier=0 then
traal=""
else
traal="[求购]"
end if
picimg=traal
End If
strs=strs&"<td><a href='"&HOPE_InstallDir&"seller/offerdetail/"&rsm("sortid")&"-"&rsm("typeid")&"-"&rsm("typeid_2")&"-"&rsm("info_id")&".html' target='_blank' title='"&rsm("showname")&"' "&yanser&">·"&picimg&left(rsm("showname"),leftstr)&" </a>"
if Synopsis=1 then
strs=strs&" <a href='"&HOPE_InstallDir&"seller/offerdetail/"&rsm("sortid")&"-"&rsm("typeid")&"-"&rsm("typeid_2")&"-"&rsm("info_id")&".html' target='_blank'>"&left(rsm("content"),typeNumber)&"...</a><br>"
else
strs=strs&""
end if
If timed=0 Then
strs=strs&""
Else
strs=strs&" "&year(rsm("dateandtime"))&"-"&month(rsm("dateandtime"))&"-"&day(rst("dateandtime"))&""
End If
strs=strs&" </td>"
If ttt Mod brnum=0 Then
strs=strs&"</tr></tr>"
End If
rsm.Movenext
ttt=ttt+1
Loop
strs=strs&"</tr></table>"
rsm.Close
Set rsm=Nothing
End If
End If
End If
HOPE_Supply=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'专项商机信息 #HOPE_Vipinfo(ispic,width,height,typeid,num,leftstr,isnew,brnum,time)# 一共9个参数
' ispic--(1为图片形式，2为文字形式)
'[width---（图片宽度）、Hight为高度,只有当ispic为1时生效]
'typeid--（信息大类id,0为全部）
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为推荐)
'brnum---(几条信息换行)
'time--(1为显示时间，0为不显示)
Function HOPE_Vipinfo(ispic,picwidth,picheight,typeid,num,leftstr,isnew,brnum,timed)
strs=""
If brnum<=0 Then
brnum=1
End If
If typeid<=0 Then
typestr=""
Else
typestr=" and sortid="&typeid
End If
If isnew=1 Then
tuistr=" and tjhome=1"
Else
tuistr=""
End If
Set rsv=Server.CreateObject("ADODB.Recordset")
sqlv="select top "&num&" * from Websen_vipinfo where vipinfo_id<>0 "&typestr&tuistr
sqlv=sqlv&" order by vipinfo_id desc"
rsv.open sqlv,conn,1,1
If rsv.Eof Then
strs="暂无信息"
End If
If Not rsv.Eof Then
v=1
strs="<table border='0' cellpadding='0' cellspacing='0' width='100%' ><tr>"
Do While Not rsv.Eof
If ispic=1 Then
picstr="<img src="&HOPE_InstallDir&"UploadFile/"&rsv("picture")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4>"
Else
picstr=""
End If
strs=strs&"<td>·<a href="&HOPE_InstallDir&"vipinfo/offerdetail/"&rsv("viptype")&"-"&rsv("vipinfo_id")&".html target=_blank>"&picstr&left(rsv("vipshowname"),leftstr)&"</a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"("&year(rsv("dateandtime"))&"-"&month(rsv("dateandtime"))&"-"&day(rsv("dateandtime"))&")"
End If
strs=strs&"</td>"
If v Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rsv.Movenext
v=v+1
Loop
strs=strs&"</tr></table>"
rsv.Close
Set rsv=Nothing
End If
HOPE_Vipinfo=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'公司库 #HOPE_Company(ispic,picwidth,picheight,typeid,num,leftstr,isnew,tuitype,brnum,timed)# 一共10个参数
' ispic--(1为图片形式，2为文字形式)
'[width---（图片宽度）、Hight为高度,只有当ispic为1时生效]
'typeid--（信息大类id 0-全部,...）
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为推荐 )
'tuitype--(类型有：0为全部,1 显示的推荐企业 )当isnew=1时有效
'brnum---(几条信息换行)
'timed--(1为显示时间，0为不显示)
Function HOPE_Company(ispic,picwidth,picheight,typeid,num,leftstr,isnew,tuitype,brnum,timed)
tjCOM=""
If typeid=0 Then '所有类型
typestr=""
Else
typestr="and Sortid="&typeid
End If
If brnum<=0 Then
brnum=1
End If
sql="select top "&num&" * from Websen_corporation where flag=1 "
If isnew=0 Then '为所有企业
sql=sql&typestr
Elseif isnew=1 Then '为推荐企业
sql=sql&" and uflag=1 "&typestr
Else
sql=sql&" "&typestr
End If
sql=sql&" order by id desc"
Set rsz= Server.CreateObject("ADODB.Recordset")
rsz.open sql,conn,1,1
If rsz.Eof Then
tjCOM="暂无公司信息"
Else
gg=1
tjCOM="<TABLE height=30 cellSpacing=0 cellPadding=0 width='100%' border=0 align=center><TR valign='top'>"
Do While Not rsz.Eof
set rsjs=server.CreateObject("adodb.recordset")
sqljs="select rolelist from Websen_vipgrade where roleid="&rsz("gradeid")
rsjs.open sqljs,conn,1,1
if not rsjs.eof then
if instr(rsjs("rolelist"),"qw")>0 then
If is2weburl=1 Then
comurl="http://"&rsz("user")&"."&weburl1
Else
comurl=HOPE_InstallDir&"Vipcom/"&rsz("user")&""
End If
Else
comurl=HOPE_InstallDir&"Ptcom/"&rsz("user")&".html"
end if
rsjs.close
end if
tjCOM=tjCOM&""
If ispic=1 Then
If rsz("C_logo")<>"" Then
logo=HOPE_InstallDir&"vipcom/"&rsz("C_logo")
Else
logo=HOPE_InstallDir&"UploadFile/nopicture.gif"
End If
tjCOM=tjCOM&"<TD align=center style=' width:100%; text-align: center'><a href='"&comurl&"' target='_blank'> <IMG src='"&logo&"' border=0 width="&picwidth&" height="&picheight&" align=center vspace=4 hspace=4 ></A><br><a href='"&comurl&"' target='_blank'>"&left(rsz("qymc"),leftstr)&"</a>"
Else
tjCOM=tjCOM&"<td >·<a href='"&comurl&"' target='_blank'>"&left(rsz("qymc"),leftstr)&"</a>"
End If
If timed=1 and rsz("BeginDate")<>"" Then
tjCOM=tjCOM&"["&month(rsz("BeginDate"))&"-"&day(rsz("BeginDate"))&"]"
End If
tjCOM=tjCOM&"</TD>"
If gg Mod brnum=0 Then
tjCOM=tjCOM&"</tr><tr>"
End If
rsz.Movenext
gg=gg+1
Loop
tjCOM=tjCOM&"</TR></TABLE>"
rsz.Close
Set rsz=Nothing
End If
HOPE_Company=tjCOM
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'会员产品 #HOPE_Product(ispic,picwidth,picheight,typeid,num,leftstr,isnew,brnum,timed)# 一共9个参数
' ispic--(1为图片形式，2为文字形式)
'[picwidth---（图片宽度）、picheight为高度,只有当ispic为1时生效]
'typeid--（信息大类id）
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为推荐，2为会员,3产品报价)
'brnum---(几条信息换行)
'timed--(1为显示时间，0为不显示)
Function HOPE_Product(ispic,picwidth,picheight,typeid,num,leftstr,isnew,brnum,timed)
strs=""
If brnum<=0 Then
brnum=1
End If
If typeid<=0 Then
typestr=""
Else
typestr=" and SortID="&typeid
End If
If isnew=1 Then
kindstr="and Zsbz like '%0%' "
Else
kindstr=""
End If
Set rsh=Server.CreateObject("ADODB.Recordset")
hsql="select top "&num&" * from Websen_productshow where id<>0 and flag=1 "&kindstr&typestr
if isnew=3 then '加入产品报价
hsql=hsql&" and iscpbj=1 "
end if
hsql=hsql&" order by id desc"
rsh.open hsql,conn,1,1
If rsh.Eof Then
strs="暂无信息"
Else
ee=1
ff=0
strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
If isnew=3 Then
Do While Not rsh.Eof
set rshv=Server.CreateObject("ADODB.Recordset")
hvsql="select * from Websen_corporation where flag=1 and ID="&rsh("GsID")
rshv.open hvsql,conn,1,1
If Not rshv.Eof Then
If rshv("flag")=1 Then
ff=ff+1
If ispic=1 Then
picstr="<div class='h7'><img src="&HOPE_InstallDir&"vipcom/"&rshv("user")&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0></div>"
Else
picstr="·"
End If
strs=strs&"<td style=' text-align: center'><a href="&HOPE_InstallDir&"productshow/offerdetail/"&rsh("SortID")&"-"&rsh("TypeID")&"-"&rsh("typeid_2")&"-"&rsh("ID")&".html target=_blank>"&picstr&left(rsh("Cpmc"),leftstr)&" <br>产品报价:<font color=red>"&rsh("proprice")&"元</font></a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"("&month(rsh("idate"))&"-"&day(rsh("idate"))&")"
End If
strs=strs&" </td><td width=2></td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -