📄 temp_inc.asp
字号:
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 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="<span style='float:left; width: 110px; height: 80px; border: 1px #cccccc solid; margin-bottom: 7px'><img src="&HOPE_InstallDir&"vipcom/"&rshv("user")&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&"></span>"
Else
picstr="·"
End If
strs=strs&"<td height='line-height:150%' 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)&"</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 Websen_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="<div class='images_Bg'><img src="&HOPE_InstallDir&"vipcom/"&picv&"/"&rsh("Picture")&" width="&picwidth&" height="&picheight&"></div>"
Else
picstr="·"
End If
If ispic=1 Then
strs=strs&"<td style='line-height:150%; text-align: center' 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)&"</a>"
Else
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>"
End if
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---几个类别换行
'anteger--显示几个分类
Function HOPE_infotype(brnum,anteger)
strs=""
If brnum<=0 Then
brnum=1
End If
Set rsn=Server.CreateObject("ADODB.Recordset")
nsql="select top "&anteger&" * from Websen_newsType order by orderid"
rsn.open nsql,conn,1,1
If rsn.Eof Then
strs="暂无信息"
Else
n=1
strs=strs&"<ul>"
Do While Not rsn.Eof
strs=strs&"<li><a href="&HOPE_InstallDir&"info/community/"&rsn("typeid")&".html class=black>"&rsn("type")&"</a></li>"
If n Mod brnum=0 Then
strs=strs&"</ul><ul>"
End If
rsn.Movenext
n=n+1
Loop
strs=strs&"</ul>"
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 [Websen_worldec_about] where id<>0 "&strtj&" order by id desc"
Else
sql="select top "&num&" * from [Websen_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为不显示)
'weid---(0为不加粗,1为加粗)
Function HOPE_PicNewsInfo(picwidth,picHight,whichtype,typeid,num,leftstr,Content,ContentStr,isnew,timed,weid)
strs=""
If isnew=0 Then
tjstr=""
Else
tjstr=" and Tjnews=1 "
End If
if typeid=0 Then
sql="select top "&num&" * from Websen_news where newsid<>0 and pictext=1 "&tjstr&" order by dateandtime desc,NewsID Desc"
Else
sql="select top "&num&" * from Websen_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' cellspacing='0' cellpadding='0'>"
Do While Not rsw.Eof
strs=strs&"<tr><td>"
if rsw("checkbox")=1 then
strs=strs&"<a href='"&rsw("http")&"' target='_blank'>"
else
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank'>"
end if
strs=strs&"<img src="&HOPE_InstallDir&"UploadFile/"&rsw("picture")&" border=0 width="&picwidth&" height="&picHight&"></a></td></tr>"
strs=strs&"<tr><td align=center style='padding-top: 5px'>"
if weid=0 then
if rsw("checkbox")=1 then
strs=strs&"<a href='"&rsw("http")&"' target='_blank'>"&left(nohtml(rsw("Title")),leftstr)&"</a> "
else
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank'>"&left(nohtml(rsw("Title")),leftstr)&"</a> "
end if
else
if rsw("checkbox")=1 then
strs=strs&"<a href='"&rsw("http")&"' target='_blank' class=h2i>"&left(nohtml(rsw("Title")),leftstr)&"</a> "
else
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=h2i>"&left(nohtml(rsw("Title")),leftstr)&"</a> "
end if
end if
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
rsw.Movenext
If rsw.Eof Then exit do
Loop
strs=strs&"</table>"
Elseif whichtype=2 then
strs=strs&"<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>"
if rsw("checkbox")=1 then
strs=strs&"<a href='"&rsw("http")&"' target='_blank' class=white>"
else
strs=strs&"<a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' class=white>"
end if
strs=strs&"<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>"
if rsw("checkbox")=1 then
strs=strs&"<strong><a href='"&rsw("http")&"' target='_blank' >"&left(nohtml(rsw("Title")),leftstr)&"</a></strong> "
else
strs=strs&"<strong><a href='"&HOPE_InstallDir&"info/detail/"&rsw("typeid")&"-"&rsw("newsid")&".html' target='_blank' >"&left(nohtml(rsw("Title")),leftstr)&"</a></strong> "
end if
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>"
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></tab⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -