📄 temp_inc.asp
字号:
If timed=1 Then
strs=strs&"("&year(rsw("Dateandtime"))&"-"&month(rsw("Dateandtime"))&"-"&day(rsw("Dateandtime"))&")"
End If
strs=strs&"</td></tr>"
If Content=1 Then
strs=strs&"<tr><td>"
strs=strs&left(nohtml(rsw("Content")),ContentStr)&" "
strs=strs&"</td></tr>"
End If
strs=strs&"</table>"
strs=strs&"</td></tr>"
rsw.Movenext
If rsw.Eof Then exit do
Loop
strs=strs&"</table>"
strs=strs&"</td></table>"
Elseif whichtype=2 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><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' >"&left(nohtml(rsw("Title")),leftstr)&"</a></strong> "
If timed=1 Then
strs=strs&"("&year(rsw("Dateandtime"))&"-"&month(rsw("Dateandtime"))&"-"&day(rsw("Dateandtime"))&")"
End If
strs=strs&"</td></tr>"
If Content=1 Then
strs=strs&"<tr><td>"
strs=strs&left(nohtml(rsw("Content")),ContentStr)&" "
strs=strs&"</td></tr>"
End If
strs=strs&"</table>"
strs=strs&"</td></tr>"
rsw.Movenext
If rsw.Eof Then exit do
Loop
strs=strs&"</table>"
strs=strs&"</td></table>"
elseif whichtype=3 then
strs=strs&"<div id=hotImg>"
strs=strs&"<style type=text/css>"
strs=strs&".bigon{background:url("&HOPE_InstallDir&"info/images/newsb-02.gif);color:#FFF; line-height:18px;}"
strs=strs&".bigoff{background:url("&HOPE_InstallDir&"info/images/newsb-03.gif);color:#000; line-height:18px;}"
strs=strs&"a.bla{color:#000; text-decoration:none}"
strs=strs&"a.bla:hover{color:#F00; text-decoration:underline}"
strs=strs&"</style>"
strs=strs&"<table width="&picwidth&" border=0 align=center cellpadding=0 cellspacing=0>"
strs=strs&"<tr>"
strs=strs&"<td width="&picwidth&"><div id=fc style=width:"&picwidth&"px;height:210px;filter:progid:DXImageTransform.Microsoft.Fade ( duration=0.5,overlap=1.0 );>"
i=0
do while not rsw.eof
if i=0 then
strs=strs&"<div style=display:block;>"
else
strs=strs&"<div style=display:none;>"
end if
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target=_blank><img src="&HOPE_InstallDir&"UploadFile/"&rsw("picture")&" width="&picwidth&" height="&picHight&" border=0 onMouseOver='clearAuto();' onMouseOut='setAuto()' /></a></div>"
if i=0 then
sj=sj&"<div style='display:block;'><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target=_blank class=bla>"&rsw("title")&"</a></div>"
td=td&"<td width=14 height=18 align=center background=newsb-02.gif class=bigon onClick='Mea("&i&");' onMouseOver='clearAuto();' onMouseOut='setAuto()' style='cursor:pointer;'>"&i+1&"</td>"
else
sj=sj&"<div style='display:none;'><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target=_blank class=bla>"&left(nohtml(rsw("Title")),leftstr)&"</a></div>"
td=td&"<td width=14 height=18 align=center background=newsb-03.gif class=bigoff onClick='Mea("&i&");' onMouseOver='clearAuto();' onMouseOut='setAuto()' style='cursor:pointer;'>"&i+1&"</td>"
end if
rsw.movenext
i=i+1
loop
rsw.movefirst
strs=strs&"</div></td>"
strs=strs&"</tr>"
strs=strs&"<tr>"
strs=strs&"<td height=26 background="&HOPE_InstallDir&"info/images/newsb-01.gif><table width="&picwidth&" border=0 align=center cellpadding=0 cellspacing=0>"
strs=strs&"<tr>"
strs=strs&"<td align=center onmouseover='clearAuto();' onMouseOut='setAuto()'><div id=con>"
strs=strs&sj
strs=strs&"</td>"
strs=strs&"<td width='100'><table border='0' align='center' cellpadding='0' cellspacing='3' class='lhn' id='num'>"
strs=strs&"<tr>"
strs=strs&td
strs=strs&"</tr></table></td></tr></table></td></tr></table></div>"
strs=strs&"<script >var piccount="&num&";</script>"
strs=strs&"<script src="&HOPE_InstallDir&"js/hdp.js></script>"
End If
End If
rsw.Close
Set rsw=Nothing
HOPE_PicNewsInfo=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'行业新闻 #HOPE_NewsInfo(ispic,picwidth,picheight,whichtype,Typeid,Num,leftstr,brnum,isnew,timed)#一共十个参数
'ispic--(1为图片，2为文字)
'[picwidth---（图片宽度）、picHight为高度
'whichtype---(哪种形式显示图片。1为上下，2为左右，3为包围,只有当ispic为1时生效]
'typeid--（信息大类id,0为全部）
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为推荐,２为热点，3今日导读)
'brnum---(几条信息换行)
'timed--(1为显示时间，0为不显示)
Function HOPE_NewsInfo(ispic,picwidth,picheight,whichtype,Typeid,Num,leftstr,brnum,isnew,timed)
If brnum<=0 Then
brnum=1
End If
strs=""
If isnew=0 Then
tjstr=""
Elseif isnew=2 Then
tjstr=" order by hits desc "
Elseif isnew=3 Then
tjstr=" order by Dateandtime desc "
Else
tjstr=" and Tjnews=1 order by NewsID Desc"
End If
If typeid=0 Then
sql="select top "&num&" * from Yixiang_news where newsid<>0 "&tjstr
Else
sql="select top "&num&" * from Yixiang_news where typeid="&typeid&tjstr
End If
Set rsi= Server.CreateObject("ADODB.Recordset")
rsi.open sql,conn,1,1
If rsi.Eof Then
strs="暂无该类新闻"
Else
w=1
strs=strs&"<table width='100%' border='0' cellpadding='0' cellspacing='0' ><tr>"
Do While Not rsi.Eof
strs=strs&"<td><table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td "
If ispic=1 Then
If whichtype=1 Then
strs=strs&"align=center"
Else
strs=strs&"align=left"
End If
End If
strs=strs&" >"
If ispic=1 Then
If rsi("picture")<>"" Or rsi("picture")<>"nopicture.gif" Then
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsi("typeid")&"-"&rsi("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/"&rsi("picture")&" border=0 width="&picwidth&" height="&picheight&" align=left vspace=4 hspace=4></a>"
Else
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsi("typeid")&"-"&rsi("newsid")&".html' target='_blank' class=white><img src="&HOPE_InstallDir&"UploadFile/nopicture.gif border=0 width="&picwidth&" height="&picheight&" align=left vspace=4 hspace=4></a>"
End If
If whichtype=1 Then
strs=strs&"</td></tr><tr><td align=center>"
Elseif whichtype=2 Then
strs=strs&"</td><td align=left>"
Else
strs=strs&""
End If
Else
strs=strs&"·"
End If
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsi("typeid")&"-"&rsi("newsid")&".html' target='_blank' >"&left(nohtml(rsi("Title")),leftstr)&"</a> "
If timed=1 Then
strs=strs&"("&year(rsi("Dateandtime"))&"-"&month(rsi("Dateandtime"))&"-"&day(rsi("Dateandtime"))&")</td>"
Else
strs=strs&"</td>"
End If
strs=strs&"</tr></table>"
strs=strs&"</td>"
If w Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
rsi.Movenext
w=w+1
Loop
strs=strs&"</tr></table>"
End If
HOPE_NewsInfo=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'展会信息 #HOPE_MeetingInfo(ispic,picwidth,picheight,whotype,Num,leftstr,isnew,brnum,timed)# 一共10个参数
'ispic--(1为图片形式，2为文字形式)
'[picwidth---（图片宽度）、picheight为高度,只有当ispic为1时生效]
'whotype--(1为国内，2为国外，0为全部)
'num--(显示条数)
'leftstr--(显示字数)
'isnew----(0为全部，1为推荐)
'brnum---(几条信息换行)
'timed--(1为显示时间，0为不显示)
Function HOPE_MeetingInfo(ispic,picwidth,picheight,whotype,num,leftstr,isnew,brnum,timed)
strs=""
If brnum<=0 Then
brnum=1
End If
If whotype=1 Then
typestr=" and holdCountry='CN'"
Elseif whotype=2 Then
typestr=" and holdCountry='QT'"
Else
typestr=""
End If
If isnew=1 Then 'tj为推荐
sql="select top "&num&" picture,title,beginDate,endDate,id from Yixiang_expo where sh=1 and tj like '%0%' "&typestr&" order by dateandtime desc"
Else
sql="select top "&num&" picture,title,beginDate,endDate,id from Yixiang_expo where sh=1 "&typestr&" order by dateandtime desc"
End If
Set rse= Server.CreateObject("ADODB.Recordset")
rse.open sql,conn,1,1
if rse.Eof Then
strs="暂无最新资讯信息"
Else
z=1
strs="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr>"
Do While Not rse.Eof
If ispic=1 Then
if rse("picture")<>"" or rse("picture")<>"nopiture.gif" then
picstr="<img src="&HOPE_InstallDir&"UploadFile/"&rse("picture")&" width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
else
picstr="<img src="&HOPE_InstallDir&"UploadFile/nopicture.gif width="&picwidth&" height="&picheight&" border=0 align=center vspace=4 hspace=4><br>"
end if
Else
picstr="·"
End If
strs=strs&"<td ><a href='"&HOPE_InstallDir&"service/expo/detail/"&rse("id")&".html' target='_blank' title="&rse("title")&">"&picstr&left(rse("title"),leftstr)&" </a>"
If timed=1 Then
strs=strs&"<font class='S'>( "&FormatDate(rse("beginDate"),2)&"—"&FormatDate(rse("endDate"),3)&" )</font>"
End If
strs=strs&"</td><td width=10></td>"
If z Mod brnum=0 Then
strs=strs&"</tr><tr>"
End If
if z=num Then exit do
rse.Movenext
z=z+1
Loop
strs=strs&"</tr></table>"
rse.Close
Set rse=Nothing
End If
HOPE_MeetingInfo=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'展会资讯#HOPE_Meetingnews(ispic,widtha,pich,whichtype,Typeid,Num,leftstr,brnum,isnew,time)#一共10个参数
''ispic--(1为图片形式，2为文字形式)
''[widtha---（图片宽度）、pich为高度,
'whichtype---(哪种形式显示图片。1为上下，2为左右，3为包围,只有当ispic为1时生效]
''typeid--（信息大类id,0为全部）
''num--(显示条数)
''leftstr--(显示字数)
''isnew----(0为全部，1为推荐)
''brnum---(几条信息换行)
''time--(1为显示时间，0为不显示)
Function HOPE_Meetingnews(ispic,widtha,pich,whichtype,Typeid,Num,leftstr,brnum,isnew,timeDis)
If brnum<=0 Then
brnum=1
End If
strs=""
If isnew=0 Then
tjstr=""
Else
tjstr=" and Tj=1 "
End If
If typeid=0 Then
sql="select top "&num&" * from yixiang_expoinfo where id<>0 "&tjstr&" order by ID Desc"
Else
sql="select top "&num&" * from yixiang_expoinfo where typeid="&typeid&tjstr&" order by ID Desc"
End If
Set rsh= Server.CreateObject("ADODB.Recordset")
rsh.open sql,conn,1,1
If rsh.Eof Then
strs="暂无展会信息"
Else
w=1
strs=strs&"<table width=""100%"" border='0' cellpadding='0' cellspacing='0' align=center><tr>"
Do While Not rsh.Eof
strs=strs&"<td align=center><table border=0 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td "
If whichtype=1 Then
strs=strs&"align=center"
Else
strs=strs&"align=left"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -