新云inc目录文件具体说明（解说）

新云inc目录文件具体说明（解说）

Uploadcls.asp 此程序采用无惧无组件上传类。

UbbCode.asp UBB代码转换程序

Function UbbCode(strContent)

Std_StranJF.Js　简繁转换

CheckInput.asp 检查输入

Function IsValidEmail(email) 判断EMAIL是否正确

Function IsValidTel(para) 判断电话号码是否正确

Classmenu.asp 栏目菜单

Function LoadClassMenu(ByVal ChannelID, ByVal ClassID, ByVal TopNum, ByVal PerRowNum, ByVal Compart, ByVal styles)　装载分类栏目单

Function ReadClassMenu(ByVal str) 读取分类栏目菜单

Function LoadClassMenubar(ByVal ChannelID, ByVal ClassID, ByVal TopNum, ByVal PerRowNum, ByVal frontstr) 装载分类菜单栏

Function ReadClassMenubar(str) 读取分类菜单栏

www.greendd.cn www.greendd.com整理

Function ShowListPage(CurrentPage, Pcount, totalrec, PageNum, strLink, ListName) 通用分页程序

Function ShowHtmlPage(CurrentPage, Pcount, totalrec, PageNum, strLink, ExtName, ListName) 通用HTML分页程序

Down_CLS.asp 资源下载的主类程序

CLS_Main.asp 全站的主类程序

Sub Class_Initialize() 类初始化

Function CheckNull(ByVal sValue) 是否为有效值

Function ChkFormStr(ByVal str) 过滤表单字符

Function CheckRequest(ByVal str,ByVal strLen) 过滤SQL非法字符

Function RemoveBadCharacters(ByVal strTemp)　移除有害字符

Function RemoveHtml(ByVal Textstr) 去除HTML标记

Function Execute(Command) 执行SQL语句

Sub ReadConfig() 读取站点配置文件

www.greendd.cn www.greendd.com整理

Sub ReloadChannel(ChannelID) 重载频道设置

Sub ReadChannel(ChannelID) 读取频道设置

Sub LoadTemplates(ChannelID, pageid, StyleID) 载入模板

Sub TemplatesToCache(ChannelID, pageid) 模板加载至缓存

Property Get GetSiteUrl() 取得带端口的URL

Function FormEncode(ByVal str, ByVal n)　过滤提交的表单数据

Function ChkKeyWord(ByVal keyword)　过滤关键字

Function JAPEncode(ByVal str) 日文片假名编码

Function JAPUncode(ByVal str) 日文片假名解码

Function ChkBadWords(ByVal str) 脏话过滤

Function HTMLEncode(ByVal fString) 过滤HTML及脏话

Function CheckPost() 判断发言是否来自外部

Function CheckOuterUrl() 判断来源是否来自外部

Function GotTopic(ByVal str, ByVal strLen) 显示字串长度

Function CheckTopic(ByVal strContent) 过滤字串

Function ReadTopic(ByVal str, ByVal strLen) 显示指定长度字串

Function strLength(ByVal str) 计算字串长度

Function CheckInfuse(ByVal str, ByVal strLen) 防止SQL注入

Function ChkQueryStr(ByVal str) 过滤查询非法字符

Function CheckQuery(ByVal str) 限制搜索的关键字

Function IsValidStr(ByVal str) 判断字串里否有非法字符

Function IsValidPassword(ByVal str) 决断密码里是否有非法字符

Function IsValidChar(ByVal str)　判断字符串里是否有非法字符和中文

Function FormatDate(DateAndTime, para)　格式化日期输出(10种格式)

Function ReadFontMode(str, vColor, vFont)　读取字体模式

Function ReadBriefTopic(ByVal para) 读取简短标题

Function GetImageUrl(ByVal url, ByVal ChannelDir) 获取图片URL

GetFlashAndPic(ByVal url, ByVal height, ByVal width)　读取图片或FLASH

Function ReadFileUrl(url)　读取文件URL

Function ReadFileName(ByVal strname, ByVal id, ByVal ExtName, ByVal PrefixStr, ByVal HtmlForm, ByVal n)　读取HTML文件名

Function HtmlRndFileName() HTML随机文件名

Function ClassFileName(ByVal ClassID, ByVal ExtName, ByVal PrefixStr, ByVal n) 读取HTML文件列表名

Function SpecialFileName(ByVal specid, ByVal ExtName, ByVal n) 读取专题HTML文件名

Function ChannelMenu() 显示频道菜单

Function LoadSelectClass(ChannelID) 载入缓存下拉列表

Function GetRandomCode() 系统分配随机代码

Function CodeIsTrue() 检查验证码

Function ReadAlpha(ByVal str) 取字符串第一个字母

Function CreatPathEx(ByVal sPath) 创建生成目录

Function FileDelete(ByVal FilePath) FSO删除文件

Function FolderDelete(ByVal FolderPath) FSO删除目录

Function CopyToFile(ByVal SoureFile, ByVal NewFile) 复制文件

Function CopyToFolder(ByVal SoureFolder, ByVal NewFolder) 复制文件夹

Function CreatedTextFile(ByVal FileName, ByVal body) 创建文本文件

Function Readfile(ByVal fromPath) 读取文件内容

Function CutMatchContent(ByVal str, ByVal start, ByVal last, ByVal Condition) 截取相匹配的内容

Function UserGroupSetting(ByVal gradeid) 取用户权限设置

Function ReadContent(ByVal strContent) 获取内容UBB转换

Cls_public.asp 公共类库

Function LoadArticleList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID,ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, ByVal showpic, ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles) 加载文章列表

Function ReadArticleList(ByVal str) 读取文章列表

Function LoadSoftList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles) 加载软件(资源)列表

Function ReadSoftList(ByVal str) 读取软件(资源)列表

Function LoadFlashList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles) 加载FLASH动画(媒体)列表

Function ReadFlashList(ByVal str) 读取FLASH动画(媒体)列表

Function LoadAnnounceContent(ByVal sTopic, ByVal ChannelID) 加载内容公告

Function ReadAnnounceContent(ByVal str, ByVal ChannelID) 读取内容公告

Function LoadAnnounceList(ByVal ChannelID, ByVal maxnum, ByVal maxlen, ByVal newindow, ByVal showdate, ByVal DateMode, ByVal showtree) 加载公告列表

Function ReadAnnounceList(ByVal str) 读取公告列表

Function LoadArticlePic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic) 加载文章图片列表

Function ReadArticlePic(ByVal str) 读取文章图片列表

Function LoadSoftPic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic) 加载软件(资源)图片列表

Function ReadSoftPic(ByVal str) 读取软件(资源)列表

Function LoadFlashPic(ByVal ChannelID, ByVal ClassID, ByVal SpecialID,ByVal stype, ByVal TopNum, ByVal PerRowNum, ByVal strLen, ByVal newindow, ByVal width, ByVal height, ByVal showtopic) 加载FLASH(媒体)图片列表

Function ReadFlashPic(ByVal str) 读取FLASH(媒体)图片列表

Function LoadFriendLink(ByVal TopNum, ByVal PerRowNum, ByVal isLogo, ByVal orders) 加载友情链接

Function ReadFriendLink(ByVal str) 读取友情链接

Function ExecutionTime() 页面执行时间

Function CurrentStation(ByVal ChannelID, ByVal ClassID, ByVal ClassName,ByVal ParentID, ByVal strParent, ByVal HtmlFileDir, ByVal Compart) 当前位置

Function ReadCurrentStation(ByVal str, ByVal ChannelID, ByVal ClassID, ByVal ClassName, ByVal ParentID, ByVal strParent, ByVal HtmlFileDir) 读取当前位置

Function NewsPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, ByVal stype, ByVal height, ByVal width, ByVal maxlen, ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, ByVal divcss, ByVal target, ByVal start, ByVal showpic, ByVal showclass, ByVal showdate, ByVal dateformat) 图文混排列表

Function ReadNewsPicAndText(ByVal str) 读取图文混排列表

Function SoftPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, ByVal stype, ByVal height, ByVal width, ByVal maxlen, ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, ByVal divcss, ByVal target, ByVal start, ByVal showpic, ByVal showclass, ByVal showdate, ByVal dateformat) 软件图文混排列表

Function ReadSoftPicAndText(ByVal str) 读取软件图文混排列表

Function LoadGuestList(ByVal maxnum, ByVal maxlen, ByVal newindow, ByVal showdate, ByVal DateMode, ByVal styles) 加载留言列表

Function ReadGuestList(ByVal str) 读取留言列表

Function LoadPopularSoft(ByVal chanid, ByVal ClassID, ByVal stype, ByVal maxlen, ByVal maxline, ByVal showhits, ByVal target, ByVal start, ByVal styles) 加载软件(资源)排行列表

Function ReadPopularSoft(ByVal str) 读取软件(资源)排行　列表

Function LoadPopularArticle(ByVal chanid, ByVal ClassID, ByVal stype, ByVal maxlen, ByVal maxline, ByVal showhits, ByVal target, ByVal start, ByVal styles) 加载文章排行列表

Function ReadPopularArticle(ByVal str) 读取文章排行列表

Function LoadPopularFlash(ByVal chanid, ByVal ClassID, ByVal stype, ByVal maxlen, ByVal maxline, ByVal showhits, ByVal target, ByVal start, ByVal styles) 加载FLASH动画(媒体)排行列表

Function ReadPopularFlash(ByVal str) 读取FLASH动画(媒体)排行列表

Function LoadSoftType(ByVal chanid, ByVal SoftType, ByVal maxlen, ByVal maxline, ByVal showclass, ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles) 加载软件(资源)类型列表

Function ReadSoftType(ByVal str) 读取软件(资源)类型列表

Function LoadUserRank(ByVal stype,ByVal grade,ByVal maxline,ByVal styles) 加载用户排行列表

Function ReadUserRank(ByVal str) 读取用户排行列表

Function LoadStatistic(ByVal moduleid, ByVal ChannelID, ByVal strClass, ByVal stype) 加载频道统计

Function ReadStatistic(ByVal str) 读取频道统计

Function ShowIndex(ByVal isHtml) 显示首页

Const.asp 常量

Const isSqlDataBase = 1 代表是SQL版

Function RelativePath2RootPath(url) 转成根路径格式

Function RootPath2DomainPath(url)　根路径转成带域名全路径格式

Function ChkMapPath(ByVal strPath)　相对路么转成绝对路径

Function CreatePath(fromPath) 按月份自动创建文件夹

Function IsObjInstalled(ByVal strClassString) 检查组件是否安装

Sub OutAlertScript(str) 输出错误警告脚本

Function URLDecode(str) URL解码

Sub PreventRefresh() 页面防刷新

Function GetChannelUrl(ChannelDir,BindDomain,DomainName) 获取频道URL

Function ContentPathConvert(url,BindDomain) 内容路径转换

Function GetFlashAndPic(url,height,width) 读取图片或FLASH

Function Html2Ubb(str)　HTML代码转UBB代码

Email.asp 根据基本设置的email设置，三个组件的发送程序

Sub Jmail(email,topic,mailbody)

Sub Cdonts(email,topic,mailbody)

Sub aspemail(email,topic,mailbody)

Flashchannel.asp 动画(媒体)频道类程序

Sub BuildFlashIndex() 显示动画(媒体)首页

Sub CreateFlashIndex() 生成首页HTML

Sub LoadFlashIndex()　加载首页

Sub BuildFlashInfo() 显示详细内容页

Function LoadFlashInfo(flashid) 加载详细内容页

Sub CreateFlashInfo() 生成详细内容页

Function BackFlash(flashid) 显示上一条

Function NextFlash(flashid) 显示下一条

Function RelatedFlash(sRelated, topic, flashid) 显示相关

Sub ReplaceString()　替换模板标签

Sub BuildFlashList() 显示列表页

Function LoadFlashList(clsid, n) 加载列表页

Sub ReplaceContent() 替换模板内容

Sub LoadFlashHtmlList(n) 加载HTML列表

Sub LoadFlashAspList() 加载ASP列表

Sub LoadListDetail() 加载子级细节列表

Sub BuildNewFlash() 最新列表

Sub BuildHotFlash() 热门列表

Sub BuildBestFlash() 推荐列表

Sub BuildFlashSpecial() 专题列表

Function LoadOtherFlshList(t) 加载其它列表

Sub LoadOtherListHtml(t) 加载其它列表并生成HTML

Sub BuildFlashSearch() 显示搜索

Sub LoadSearchList() 加载搜索列表

Sub SearchResult() 加载搜索列表细节

Function FlashComment(flashid) 评论

Sub BuildFlashComment() 显示评论

Sub ShowCommentPage() 评论分页

Sub CommentDel() 删除评论

Sub CommentSave() 评论保存

Function ReadFilesize(ByVal para) 读取文件大小

Function ReadComeFrom(ByVal strContent) 读取来源

Getcode.asp 验证码生成程序

Md5.asp md5不可逆加密程序

Newschannel.asp 文章(信息)频道主类程序

Sub ShowArticleIndex() 显示文章首页

Sub CreateArticleIndex() 生成文章首页

Sub LoadArticleIndex() 加载文章首页

Sub ShowArticleInfo() 显示文章内容页

Function CheckUserRead(ByVal ArticleID, ByVal PointNum, ByVal UserGroup, ByVal User_Group) 检查用户阅览权限

Function ReadArticleContent(ArticleID, CurrentPage) 读取文章内容

Function CreateArticleContent(ArticleID) 生成文章内容页

Function FrontArticle(ArticleID) 上一篇文章

Function FrontArticle(ArticleID) 下一篇文章

Sub ContentPagination() 分页方式显示文章内容

Function HtmlPagination(n) HTML分页方式显示文章内容

Function RelatedArticle(sRelated, topic, ArticleID) 显示相关文章

Function ReadHotArticle(ClassID) 显示热门文章

Function ArticleComment(ArticleID) 文章评论

Function CurrentStation(ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir, Compart) 当前位置

Function ReadCurrentStation(str, ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir) 读取当前位置

Sub ShowArticleList() 显示文章列表

Function CreateArticleList(clsid, n) 生成文章列表

Sub ReplaceContent() 替换模板内容

Sub LoadParentList() 加载父级文章列表

Sub LoadChildListHtml(n) 加载子级文章列表HTML

Sub LoadChildListAsp()　加载子级文章列表ASP

Function LoadArticleList(ArticleID, ClassID, title, ColorMode, FontMode, BriefTopic, ClassName, Content, HtmlFileDir, HtmlFileDate, AllHits, UserName, star, isBest)　加载文章列表

Sub LoadListDetail() 加载子级文章列表细节

Sub ShowArticleSpecial() 显示专题文章

Function CreateArticleSpecial(sid, n) 生成专题文章

Sub LoadArticleListHtml(n) 装载文章列表并生成HTML

Sub ReplaceString() 替换模板内容

Sub ShowBestArticle() 显示推荐文章

Sub ShowNewArticle() 显示最新文章

Function CreateBestArticle(t) 显示最新推荐文章

Sub LoadBestArticleListHtml(t) 加载最新文章列表并生成HTML

Sub ShowHotArticle()　显示热点文章

Function CreateHotArticle() 生成热点文章

Sub LoadHotArticleListHtml() 加载热点文章列表并生成HTML

Sub ShowArticleSearch()　显示搜索

Sub LoadSearchList() 加载子级文章列表ASP

Sub SearchResult() 加载文章搜索

Sub ShowArticleComment() 显示文章评论

Sub ShowCommentPage() 文章评论分页

Sub CommentDel() 文章评论删除

Sub CommentSave() 文章评论保存

Sub PreventRefresh() 页面防刷

Online.asp 在线用户

类　Class SystemInfo_Cls　浏览器、系统、搜索器信息

Savefile.asp 远程自动上传程序

Softchannel.asp 软件(下载资源)频道主程序

Sub ShowDownIndex() 显示下载首页

Sub CreateDownIndex() 生成下载首页HTML

Sub ShowDownIntro()　显示下载内容页

Function ReadSoftIntro(softid) 读取下载内容

Sub CreateSoftIntro() 生成下载内容页

Function ShowDownAddress(softid) 显示下载地址

Function FrontSoft(softid) 显示上一个

Function NextSoft(softid) 显示下一个

Function RelatedSoft(sRelated, topic, softid) 显示相关

Function ShowHotSoft(ClassID) 显示热门

Function SoftComment(softid) 评论

Function CurrentStation(ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir, Compart) 当前位置

Function ReadCurrentStation(str, ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir) 读取当前位置

Sub ShowDownList() 显示下载列表

Function CreateSoftList(clsid, n) 读取下载列表

Sub ReplaceContent() 替换模板内容

Sub LoadParentList() 加载父级下载列表

Sub LoadChildListHtml(n) 加载子级下载列表HTML

Sub LoadChildListAsp() 加载子级下载列表ASP

Sub LoadListDetail()　加载子级下载列表细节

Sub ShowDownSpecial() 显示专题列表

Function CreateSoftSpecial(sid, n) 生成专题列表

Sub LoadSoftListHtml(n) 加载下载列表并生成HTML

Sub ReplaceString()　替换模板内容

Sub ShowBestDown() 显示推荐下载

Sub ShowNewDown() 显示最新下载

Sub ShowSoftType() 显示下载类型

Sub ShowHotDownload() 显示热点下载

Function CreateBestDown(t) 生成推荐下载列表

Sub LoadBestSoftListHtml(t) 加载推荐下载列表并生成HTML

Sub ShowDownSearch() 显示下载搜索

Sub LoadSearchList() 加载下载搜索

Sub SearchResult() 加载搜索细节

Function ReadSoftsize(ByVal para)　读取资源大小

Sub ShowSoftComment() 显示评论

Sub ShowCommentPage() 评论分页

Sub CommentDel() 评论删除

Sub CommentSave() 保存评论