📄 temp_inc.asp
字号:
End If
tjCOM=tjCOM&"<TD 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'><b>"&left(rsz("qymc"),leftstr)&"</b></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&"("&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 wygkcn_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 wygkcn_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="<img src="&HOPE_InstallDir&"vipcom/"&rshv("user")&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0 ><br>"
Else
picstr="·"
End If
strs=strs&"<td height='line-height:160%'><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("cpjg")&"元</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>"
End If
End If
If ff Mod brnum =0 Then
strs=strs&"</tr><tr>"
End If
rsh.Movenext
Loop
If ff=0 Then
strs=strs&"<td height=25>暂无产品信息</td>"
End If
strs=strs&"</tr></table>"
rsh.Close
Set rsh=Nothing
End If
If isnew=2 Then '处理会员会员情况
Do While Not rsh.Eof
set rshv=Server.CreateObject("ADODB.Recordset")
hvsql="select * from wygkcn_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="<img src="&HOPE_InstallDir&"vipcom/"&rshv("user")&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0 ><br>"
Else
picstr="·"
End If
strs=strs&"<td height='line-height:160%'><a href="&HOPE_InstallDir&"productshow/offerdetail/"&rsh("SortID")&"-"&rsh("TypeID")&"-"&rsh("typeid_2")&"-"&rsh("ID")&".html target=_blank>"&picstr&left(rsh("Cpmc"),leftstr)&"</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>"
End If
End If
If ff Mod brnum =0 Then
strs=strs&"</tr><tr>"
End If
rsh.Movenext
Loop
If ff=0 Then
strs=strs&"<td height=25>暂无产品信息</td>"
End If
strs=strs&"</tr></table>"
rsh.Close
Set rsh=Nothing
End If
If isnew=0 or isnew=1 Then
picv=""
Do While Not rsh.Eof
Set rshv=Server.CreateObject("ADODB.Recordset")
hvsql="select * from wygkcn_corporation where flag=1 and ID="&rsh("GsID")
rshv.open hvsql,conn,1,1
If Not rshv.Eof Then
picv=rshv("user")
set rshv=Nothing
End If
If ispic=1 Then
picstr="<img src="&HOPE_InstallDir&"vipcom/"&picv&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ><br>"
Else
picstr="·"
End If
strs=strs&"<td style='line-height:150%'><a href="&HOPE_InstallDir&"productshow/offerdetail/"&rsh("SortID")&"-"&rsh("TypeID")&"-"&rsh("typeid_2")&"-"&rsh("ID")&".html target=_blank>"&picstr&left(rsh("Cpmc"),leftstr)&"</a>"
If timed=0 Then
strs=strs&""
Else
strs=strs&"("&year(rsh("idate"))&"-"&month(rsh("idate"))&"-"&day(rsh("idate"))&")"
End If
strs=strs&" </td><td width=2></td>"
If ee Mod brnum =0 Then
strs=strs&"</tr><tr>"
End If
rsh.Movenext
ee=ee+1
Loop
strs=strs&"</tr></table>"
rsh.Close
Set rsh=Nothing
End If
End If
HOPE_Product=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'行业新闻类别 #HOPE_infotype(brnum)#
' brnum---几个类别换行
Function HOPE_infotype(brnum)
strs=""
If brnum<=0 Then
brnum=1
End If
Set rsn=Server.CreateObject("ADODB.Recordset")
nsql="select * from yixiang_newsType"
rsn.open nsql,conn,1,1
If rsn.Eof Then
strs="暂无信息"
Else
n=1
strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
Do While Not rsn.Eof
strs=strs&"<td ><a href="&HOPE_InstallDir&"info/community/"&rsn("typeid")&".html class=black>"&rsn("type")&"</a> |</td>"
If n Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rsn.Movenext
n=n+1
Loop
strs=strs&"</tr></table>"
rsn.Close
Set rsn=Nothing
End If
HOPE_infotype=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'网站新闻 #HOPE_Webnews(ispic,picwidth,picheight,typeid,num,leftstr,brnum,isnew,timed)# 一共9个参数
'ispic--(1为图片，2为文字)
'[picwidth---（图片宽度）、pichight为高度,只有当ispic为1时生效]
'typeid--（信息大类id,0为全部）
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为推荐，2为热门)
'brnum---(几条信息换行)
'timed--(1为显示时间，0为不显示)
Function HOPE_Webnews(ispic,picwidth,picheight,typeid,num,leftstr,brnum,isnew,timed)
strs=""
If brnum<=0 Then
brnum=1
End If
if isnew=0 Then
strtj=""
Elseif isnew=1 Then
strtj=" and tj=1"
Elseif isnew=2 Then
strtj=" and tj=2"
End If
if typeid=0 Then
sql="select top "&num&" * from [Yixiang_worldec_about] where id<>0 "&strtj&" order by id desc"
Else
sql="select top "&num&" * from [Yixiang_worldec_about] where typeid="&typeid& strtj&" order by id desc"
End If
Set rsp= Server.CreateObject("ADODB.Recordset")
rsp.open sql,conn,1,1
If rsp.Eof Then
strs="暂无信息！"
Else
kk=1
strs=strs&"<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
Do While Not rsp.Eof
If ispic=1 Then
picstr="<a href=javascript:win=window.open('"&HOPE_InstallDir&"about/about.asp?id="&rsp("id")&"','contact','width=600,height=600,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();><img src="&HOPE_InstallDir&"UploadFile/"&rsp("picture")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4 ></a>"
Else
picstr="·"
End If
strs = strs&"<td>"&picstr&"<a href=javascript:win=window.open('"&HOPE_InstallDir&"about/about.asp?id="&rsp("id")&"','contact','width=600,height=600,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();>"&left(nohtml(rsp("title")),leftstr)&"</a>"
If timed=1 Then
strs=strs&"("&rsp("dateandtime")&")"
Else
strs=strs&""
End If
strs=strs&" </td>"
If kk Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rsp.Movenext
kk=kk+1
Loop
strs=strs&"</tr></table>"
rsp.Close
Set rsp=Nothing
End If
HOPE_Webnews=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'行业新闻图文并茂 HOPE_PicNewsInfo(picwidth,picHight,whichtype,typeid,num,leftstr,Content,ContentStr,isnew,timed)
'picwidth---（图片宽度）、picHight为高度
'whichtype---(哪种形式显示图片。1为上下，2为左右,3为幻灯片)
'typeid--（信息大类id,0为全部）
'num--(显示条数)
'leftstr--(显示标题字数)
'isnew----(0为全部，1为推荐)
'Content--(1为显示内容，0为不显示)
'ContentStr--(显示内容长度)
'timed--(1为显示时间，0为不显示)
Function HOPE_PicNewsInfo(picwidth,picHight,whichtype,typeid,num,leftstr,Content,ContentStr,isnew,timed)
strs=""
If isnew=0 Then
tjstr=""
Else
tjstr=" and Tjnews=1 "
End If
if typeid=0 Then
sql="select top "&num&" * from Yixiang_news where newsid<>0 and pictext=1 "&tjstr&" order by dateandtime desc,NewsID Desc"
Else
sql="select top "&num&" * from Yixiang_news where pictext=1 and typeid="&typeid&tjstr&" order by dateandtime desc,NewsID Desc"
End If
Set rsw= Server.CreateObject("ADODB.Recordset")
rsw.open sql,conn,1,1
num=rsw.recordcount '查出的行数
If rsw.Eof Then
strs=strs&"暂时没有任何新闻"
Else
If whichtype=1 Then
strs=strs&"<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>"
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/"&rsw("picture")&" border=0 width="&picwidth&" height="&picHight&" align=left vspace=4 hspace=4></a>"
strs=strs&"</td></tr><tr><td>"
strs=strs&"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
Do While Not rsw.Eof
strs=strs&"<tr><td>"
strs=strs&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align=left>"
strs=strs&"<strong><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=white>"&left(nohtml(rsw("Title")),leftstr)&"</a></strong> "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -