L
luye202
Unregistered / Unconfirmed
GUEST, unregistred user!
请教个新云的问题。
哪位高人能帮忙注释一下这段代码吗?
Newasp.LoadTemplates ChannelID, 3, skinid
''-- 限制会员文章显示字符数
maxstrlen = CInt(Newasp.ChkNumeric(Newasp.HtmlSetting(8)))
If maxstrlen < 5 then
maxstrlen = 300
If CreateHtml <> 0 then
ArticleContent = HtmlPagination(CurrentPage)
ThisUrl = ShowChannelPath(ChannelRootDir,Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate", Newasp.HtmlPath) & Newasp.ReadFileName(Rs("HtmlFileDate", Rs("ArticleID", Newasp.HtmlExtName, Newasp.HtmlPrefix, Newasp.HtmlForm, ""
else
CheckUserRead Rs("ArticleID", Rs("PointNum", Rs("UserGroup", Rs("User_Group"
Call ContentPagination
ThisUrl = "show.asp?id="
& Rs("ArticleID"
End If
主要是这句不太明白
maxstrlen = CInt(Newasp.ChkNumeric(Newasp.HtmlSetting(8)))
Newasp.HtmlSetting(8)是什么?
谢谢!
哪位高人能帮忙注释一下这段代码吗?
Newasp.LoadTemplates ChannelID, 3, skinid
''-- 限制会员文章显示字符数
maxstrlen = CInt(Newasp.ChkNumeric(Newasp.HtmlSetting(8)))
If maxstrlen < 5 then
maxstrlen = 300
If CreateHtml <> 0 then
ArticleContent = HtmlPagination(CurrentPage)
ThisUrl = ShowChannelPath(ChannelRootDir,Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate", Newasp.HtmlPath) & Newasp.ReadFileName(Rs("HtmlFileDate", Rs("ArticleID", Newasp.HtmlExtName, Newasp.HtmlPrefix, Newasp.HtmlForm, ""
else
CheckUserRead Rs("ArticleID", Rs("PointNum", Rs("UserGroup", Rs("User_Group"
Call ContentPagination
ThisUrl = "show.asp?id="
& Rs("ArticleID"
End If
主要是这句不太明白
maxstrlen = CInt(Newasp.ChkNumeric(Newasp.HtmlSetting(8)))
Newasp.HtmlSetting(8)是什么?
谢谢!