📄 temp_inc.asp
字号:
strs=strs&"</tr><tr>"
End If
rst.Movenext
t=t+1
Loop
strs=strs&"</tr></table>"
rst.Close
Set rst=Nothing '^^^^^^^^^^^^^end^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
End If
End If
End If
'^^^^^^^^^^^^^^^^^
If whotype=1 Then
sql="select top "&num&" Yixiang_Info.*,wygkcn_corporation.[user] as userdd from Yixiang_Info left join [wygkcn_corporation] on Yixiang_Info.gsid=wygkcn_corporation.id where wygkcn_corporation.flag=1 and Yixiang_Info.type='卖' and Yixiang_Info.flag=1 "&sign&" "&typestr&" order by Yixiang_Info.info_id desc"
Set rsg= Server.CreateObject("ADODB.Recordset")
rsg.open sql,conn,1,1
If rsg.Eof Then
strs="暂无供应信息"
Else
strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
Dim tt
tt=1
hh=0
If isnew=2 Then
Do While Not rsg.Eof
If ispic=1 Then
If trim(rsg("draw")&"ok")="ok" OR rsg("draw")="nopicture.gig" Then
picimg="<img src='"&HOPE_InstallDir&"UploadFile/nopicture.gig' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
Else
picimg="<img src='"&HOPE_InstallDir&"vipcom/"&rsg("userdd")&"/"&rsg("draw")&"' width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
End If
Else
picimg="·"
End If
Set rsvip2=Server.CreateObject("ADODB.Recordset")
vipsql2="select * from wygkcn_corporation where ID="&rsg("Gsid")
rsvip2.open vipsql2,conn,1,1
If Not rsvip2.Eof Then
If rsvip2("flag")=1 Then
hh=hh+1
strs=strs&" <td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rsg("sortid")&"-"&rsg("typeid")&"-"&rsg("typeid_2")&"-"&rsg("info_id")&".html' target='_blank' class=c>"&picimg&left(rsg("showname"),leftstr)&"</a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"<font color='#666666' class='S'>("&month(rsg("dateandtime"))&"-"&day(rsg("dateandtime"))&")</font>"
End If
strs=strs&" </td>"
End If
set rsvip2=Nothing
End If
if hh Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rsg.Movenext
Loop
strs=strs&"</tr></table>"
rsg.Close
Set rsg=Nothing
End If
'^^^^^^^^^^
If isnew<>2 Then
Do While Not rsg.Eof
if ispic=1 Then
If trim(rsg("draw")&"ok")="ok" OR rsg("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/"&rsg("userdd")&"/"&rsg("draw")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
End If
Else
picimg="·"
End If
strs=strs&" <td><a href='"&HOPE_InstallDir&"tradeinfo/offerdetail/"&rsg("sortid")&"-"&rsg("typeid")&"-"&rsg("typeid_2")&"-"&rsg("info_id")&".html' target='_blank' class=c>"&picimg&left(rsg("showname"),leftstr)&"</a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"<font color='#666666' class='S'>("&month(rsg("dateandtime"))&"-"&day(rsg("dateandtime"))&")</font>"
End If
strs=strs&" </td>"
If tt Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rsg.Movenext
tt=tt+1
Loop
strs=strs&"</tr></table>"
rsg.Close
Set rsg=Nothing
End If
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^
If whotype=2 Then
sqlm="select top "&num&" Yixiang_Info.*,wygkcn_corporation.[user] as userbb from Yixiang_Info left join [wygkcn_corporation] on wygkcn_corporation.id=Yixiang_Info.gsid where wygkcn_corporation.flag=1 and Yixiang_Info.type='买' and Yixiang_Info.flag=1 "&sign&" "&typestr&" order by Yixiang_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
picimg="·"
End If
Set rsvip3=Server.CreateObject("ADODB.Recordset")
vipsql3="select * from wygkcn_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&"<font color='#666666' class='S'>("&month(rsm("dateandtime"))&"-"&day(rsm("dateandtime"))&")</font>"
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
picimg="·"
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")&"'>"&picimg&left(rsm("showname"),leftstr)&" </a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"<font color='#666666' class='S'>("&month(rsm("dateandtime"))&"-"&day(rsm("dateandtime"))&")</font>"
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 yixiang_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&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 wygkcn_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=64 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 yixiang_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"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -