|
| 让JS像调用“最新新闻”一样调用“最新下载” |
★★★★★ 【字体：小 大】 | |
| 让JS像调用“最新新闻”一样调用“最新下载” |
| http://www.foosun.cn 作者：asaaaaa 来源： 点击： 更新时间：06-06-16 11:20:48 |
|
if RightDate = true then
JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background=""" & AvailableDoMain & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
else
JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background=""" & AvailableDoMain & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
end if
end if
next
If RsSysJsObj("FileType")=1 then
Set RsTempClassObjs = Conn.Execute("Select SaveFilePath,ClassEName,FileExtName from NewsClass where ClassID='"&ClassID&"'")
If RsTempClassObjs.eof then
CreateSysJS = "刷新栏目已经不存在"
Exit Function
End If
End If
If RightDate = true then
if RsSysJsObj("FileType")=1 and MoreContentTF=True then
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" align=Right><a class="""&LinkCSS&""" href="""&GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SaveFilePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
else
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
end if
Else
if RsSysJsObj("FileType")=1 and MoreContentTF=True then
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SaveFilePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
else
JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
end if
End If
JSCodeStr = JSCodeStr & "</table>');"
WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
Conn.Execute("Update SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'") | |
| 文章录入：风讯科技 责任编辑：风讯科技 |
·上一篇：无
·下一篇：3.1-JS的调用教程 |
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） | |
| 没有任何评论 | |
