<%
Function makeAbout(Byval sortID, Byval page, Byval isMakeHtml)
dim templateobj,templatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,content
dim templateFile
set rsObj=conn.exec("select * from {prefix}Sort where SortID="&sortID, "exe")
if rsObj.eof then makeAbout="" : exit function
templateFile=rsObj("SortTemplate")
if isnul(templateFile) then templateFile="about.html"
templatePath=sitePath&"/html/" &templateFile
if not CheckTemplateFile(templatePath) then echo templateFile&err_16 : exit function
if not isnul(rsObj("GroupID")) and isMakeHtml<>1 then
if not ViewNoRight(rsObj("GroupID"),rsObj("Exclusive")) then
echoErr err_17,"17",err_17
response.end()
end if
end if
'開始解析標簽
templateObj.load(templatePath)
templateObj.parseHtml()
templateObj.content=replace(templateObj.content,"{aspcms:sortname}",rsObj("SortName"))
templateObj.content=replace(templateObj.content,"{aspcms:parentsortid}",rsObj("parentid"))
templateObj.content=replace(templateObj.content,"{aspcms:sortid}",SortID)
templateObj.content=replace(templateObj.content,"{aspcms:topsortid}",rsObj("topsortid"))
if isnul(rsObj("PageKeywords")) then
templateObj.content=replace(templateObj.content,"[about:keyword]",setting.siteKeyWords)
else
templateObj.content=replace(templateObj.content,"[about:keyword]",rsObj("PageKeywords"))
end if
if isnul(rsObj("PageDesc")) then
templateObj.content=replace(templateObj.content,"[about:desc]",setting.sitedesc)
else
templateObj.content=replace(templateObj.content,"[about:desc]",rsObj("PageDesc"))
end if
if isnul(rsObj("PageTitle")) then
templateObj.content=replace(templateObj.content,"[about:title]",rsObj("SortName"))
else
templateObj.content=replace(templateObj.content,"[about:title]",rsObj("PageTitle"))
end if
if isnul(rsObj("IndexImage")) then
templateObj.content=replace(templateObj.content,"[about:pic]",sitePath&"/images/nopic.gif" )
else
if instr(rsObj("IndexImage"),"http://")>0 then
templateObj.content=replace(templateObj.content,"[about:pic]",rsObj("IndexImage"))
else
templateObj.content=replace(templateObj.content,"[about:pic]",rsObj("IndexImage"))
end if
end if
templateObj.parsePosition(SortID)
templateObj.parseCommon
content=decodeHtml(rsObj("SortContent"))
tempStr=templateObj.content
if isExistStr(content,"{aspcms:page}") then
dim parr ,j
tempArr=split(content,"{aspcms:page}")
parr=ubound(tempArr)
if parr=-1 then parr=0
dim htmlfilename,htmlPath
htmlfilename="?"&sortID
if runMode=1 then htmlfilename=replace(rsObj("SortFolder"), "{sitepath}", sitePath)&replace(rsObj("SortFileName"), "{sortid}", sortID)
htmlPath=replace(rsObj("SortFolder"), "{sitepath}", sitePath)
for j=0 to parr
Page=clng(Page)
pageStr=""
if Page<1 then Page=1 : end if
if Page>ubound(tempArr)+1 then Page=ubound(tempArr)+1 : end if
if Page>2 then
pageStr=pageStr+"
"
end if
if runMode=1 and isMakeHtml=1 then
templateObj.content=replace(tempStr,"[about:info]",tempArr(j)+pageStr)
if j=0 then
echo htmlfilename&FileExt&" "
createTextFile templateObj.content, htmlfilename&FileExt, ""
else
echo htmlfilename&"_"&j+1&FileExt&" "
createTextFile templateObj.content, htmlfilename&"_"&j+1&FileExt, ""
end if
else
templateObj.content=replace(templateObj.content,"[about:info]",tempArr(Page-1)+pageStr)
makeAbout=templateObj.content
end if
Page=Page+1
next
else
templateObj.content=replace(templateObj.content,"[about:info]",content)
makeAbout=templateObj.content
if isMakeHtml then
dim htmlfilepath
htmlfilepath=templateObj.getSortLink(rsObj("sortType"), rsObj("sortID"), rsObj("sortUrl"), rsObj("sortFolder"), rsObj("sortFileName"),rsObj("GroupID"),rsObj("Exclusive"))
echo htmlfilepath&" "
createTextFile templateObj.content,htmlfilepath,""
end if
end if
rsObj.close : set rsObj=nothing
set templateobj=nothing
End Function
Function makeUser(Byval userid, Byval page, Byval isMakeHtml)
dim templateobj,templatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,content
dim templateFile
set rsObj=conn.exec("select * from {prefix}user where userid="&userid, "exe")
if rsObj.eof then makeUser="" : exit function
templatePath=sitePath&"/html/userinfo.html"
'die templatePath
if not CheckTemplateFile(templatePath) then echo "userinfo.html"&err_16 : exit function
'開始解析標簽
templateObj.load(templatePath)
templateObj.parseHtml()
templateObj.content=replace(templateObj.content,"[about:keyword]",setting.siteKeyWords)
templateObj.content=replace(templateObj.content,"[about:desc]",setting.sitedesc)
templateObj.content=replace(templateObj.content,"[user:userid]",rsObj("UserID"))
templateObj.content=replace(templateObj.content,"[user:username]",rsObj("LoginName"))
templateObj.content=replace(templateObj.content,"[user:UserStatus]",rsObj("UserStatus"))
if not isnul(rsObj("RegTime")) then
templateObj.content=replace(templateObj.content,"[user:RegTime]",rsObj("RegTime"))
else
templateObj.content=replace(templateObj.content,"[user:RegTime]","null")
end if
if not isnul(rsObj("LastLoginIP")) then
templateObj.content=replace(templateObj.content,"[user:LastLoginIP]",rsObj("LastLoginIP"))
else
templateObj.content=replace(templateObj.content,"[user:LastLoginIP]","null")
end if
if not isnul(rsObj("LastLoginTime")) then
templateObj.content=replace(templateObj.content,"[user:LastLoginTime]",rsObj("LastLoginTime"))
else
templateObj.content=replace(templateObj.content,"[user:LastLoginTime]","null")
end if
if not isnul(rsObj("LoginCount")) then
templateObj.content=replace(templateObj.content,"[user:LoginCount]",rsObj("LoginCount"))
else
templateObj.content=replace(templateObj.content,"[user:LoginCount]","null")
end if
if not isnul(rsObj("Gender")) then
templateObj.content=replace(templateObj.content,"[user:Gender]",rsObj("Gender"))
else
templateObj.content=replace(templateObj.content,"[user:Gender]","null")
end if
if not isnul(rsObj("TrueName")) then
templateObj.content=replace(templateObj.content,"[user:TrueName]",rsObj("TrueName"))
else
templateObj.content=replace(templateObj.content,"[user:TrueName]","null")
end if
if not isnul(rsObj("Birthday")) then
templateObj.content=replace(templateObj.content,"[user:Birthday]",rsObj("Birthday"))
else
templateObj.content=replace(templateObj.content,"[user:Birthday]","null")
end if
if not isnul(rsObj("Country")) then
templateObj.content=replace(templateObj.content,"[user:Country]",rsObj("Country"))
else
templateObj.content=replace(templateObj.content,"[user:Country]","null")
end if
if not isnul(rsObj("Province")) then
templateObj.content=replace(templateObj.content,"[user:Province]",rsObj("Province"))
else
templateObj.content=replace(templateObj.content,"[user:Province]","null")
end if
if not isnul(rsObj("City")) then
templateObj.content=replace(templateObj.content,"[user:City]",rsObj("City"))
else
templateObj.content=replace(templateObj.content,"[user:City]","null")
end if
if not isnul(rsObj("Address")) then
templateObj.content=replace(templateObj.content,"[user:Address]",rsObj("Address"))
else
templateObj.content=replace(templateObj.content,"[user:Address]","null")
end if
if not isnul(rsObj("PostCode")) then
templateObj.content=replace(templateObj.content,"[user:PostCode]",rsObj("PostCode"))
else
templateObj.content=replace(templateObj.content,"[user:PostCode]","null")
end if
if not isnul(rsObj("Phone")) then
templateObj.content=replace(templateObj.content,"[user:Phone]",rsObj("Phone"))
else
templateObj.content=replace(templateObj.content,"[user:Phone]","null")
end if
if not isnul(rsObj("Mobile")) then
templateObj.content=replace(templateObj.content,"[user:Mobile]",rsObj("Mobile"))
else
templateObj.content=replace(templateObj.content,"[user:Mobile]","null")
end if
if not isnul(rsObj("Email")) then
templateObj.content=replace(templateObj.content,"[user:Email]",rsObj("Email"))
else
templateObj.content=replace(templateObj.content,"[user:Email]","null")
end if
if not isnul(rsObj("QQ")) then
templateObj.content=replace(templateObj.content,"[user:QQ]",rsObj("QQ"))
else
templateObj.content=replace(templateObj.content,"[user:QQ]","null")
end if
if not isnul(rsObj("MSN")) then
templateObj.content=replace(templateObj.content,"[user:MSN]",rsObj("MSN"))
else
templateObj.content=replace(templateObj.content,"[user:MSN]","null")
end if
'die templateObj.content
templateObj.parseCommon
makeUser=templateObj.content '????????????????????????????????
rsObj.close : set rsObj=nothing
set templateobj=nothing
End Function
function makeContent(Byval contentID, Byval page, Byval isMakeHtml)
dim str
dim templateFile
dim templateobj,TemplatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,sql,sperStr,sperStrs,content,contentLink
dim ParentID,SortName,topsortid
sperStrs=conn.exec("select SpecCategory+'_'+SpecField from {prefix}SpecSet Order by SpecOrder Asc,SpecID", "arr")
dim spec
if isarray(sperStrs) then
for each spec in sperStrs
sperStr=sperStr&","&spec
next
end if
set rsobj=conn.exec("select ContentID,a.SortID,a.GroupID,a.Exclusive,b.GroupID,b.Exclusive,Title,Title2,TitleColor,IsOutLink,OutLink,Author,ContentSource,ContentTag,Content,ContentStatus,IsTop,Isrecommend,IsImageNews,IsHeadline,IsFeatured,ContentOrder,IsGenerated,Visits,a.AddTime,a.[ImagePath],a.IndexImage,a.DownURL,a.PageFileName,a.PageDesc,a.PageKeywords,SortType,SortURL,SortFolder,SortFileName,SortName,ContentFolder,ContentFileName,SortTemplate,ParentID,TopSortID,ContentTemplate,b.GroupID,b.Exclusive,b.GroupID,IsNoComment "&sperStr&" from {prefix}Content as a,{prefix}Sort as b where a.LanguageID="&setting.languageID&"and a.SortID=b.SortID and ContentStatus=1 and IsOutLink=0 and ContentID="&ContentID, "exe")
if rsObj.eof then makeContent="" : exit function
templateFile=rsObj("ContentTemplate")
if isnul(templateFile) then
select case rsObj("SortType")
case "2"
templateFile="news.html"
case "3"
templateFile="product.html"
case "4"
templateFile="down.html"
case "5"
templateFile="job.html"
case "6"
templateFile="album.html"
end select
end if
templatePath=sitePath&"/html/" &templateFile
'die templatePath
if not CheckTemplateFile(templatePath) then echo templateFile&err_16 : exit function
if not isnul(rsObj("a.GroupID")) then
if not ViewNoRight(rsObj("a.GroupID"),rsObj("a.Exclusive")) or not ViewNoRight(rsObj("b.GroupID"),rsObj("b.Exclusive")) then
if isMakeHtml=1 then
exit function
else
echoErr err_17,"17",err_17
response.end()
end if
end if
end if
templateObj.load(TemplatePath)
'加載評論模板
'die sitePath&"plug/comment/comment.html"
if SwitchComments=1 and rsObj("IsNoComment")=0 then
templateObj.content=replace(templateObj.content,"{aspcms:comment}",loadFile(sitePath&"/plug/comment/comment.html"))
else
templateObj.content=replace(templateObj.content,"{aspcms:comment}","")
end if
templateObj.parseHtml()
templateObj.content=replace(templateObj.content,"{aspcms:sortid}",rsObj("SortID"))
templateObj.content=replace(templateObj.content,"{aspcms:sortname}",rsObj("SortName"))
templateObj.content=replace(templateObj.content,"{aspcms:parentsortid}",rsObj("ParentID"))
templateObj.content=replace(templateObj.content,"{aspcms:topsortid}",rsObj("TopSortID"))
templateObj.parsePosition(rsObj("SortID"))
templateObj.parsePrevAndNext contentID, rsObj("SortID")
if isExistStr(templateObj.content,"[content:") then str="content"
if isExistStr(templateObj.content,"[news:") then str="news"
if isExistStr(templateObj.content,"[product:") then str="product"
if isExistStr(templateObj.content,"[down:") then str="down"
if isExistStr(templateObj.content,"[pic:") then str="pic"
'die isExistStr(templateObj.content,"[news:") &"AAAAAAAAAAA"&str
templateObj.content=replace(templateObj.content,"["&str&":id]",contentID)
templateObj.content=replace(templateObj.content,"["&str&":title]",rsObj("Title"))
templateObj.content=replace(templateObj.content,"["&str&":titlecolor]",rsObj("TitleColor"))
templateObj.content=replace(templateObj.content,"["&str&":author]",repnull(rsObj("Author")))
templateObj.content=replace(templateObj.content,"["&str&":source]",repnull(rsObj("ContentSource")))
templateObj.content=replace(templateObj.content,"["&str&":sortname]",rsObj("SortName"))
templateObj.content=replace(templateObj.content,"["&str&":sortlink]",templateObj.getSortLink(rsObj("sortType"),rsObj("sortID"),rsObj("sortUrl"),rsObj("sortFolder"),rsObj("sortFileName"),rsObj("b.GroupID"),rsObj("b.Exclusive")))
templateObj.content=replace(templateObj.content,"["&str&":date]",rsObj("Addtime"))
templateObj.content=replace(templateObj.content,"["&str&":visits]","")
templateObj.content=replace(templateObj.content,"["&str&":tag]",getTags(rsObj("ContentTag")))
templateObj.content=replace(templateObj.content,"["&str&":linktag]",tagsLink(getTags(rsObj("ContentTag"))))
templateObj.parseLoop("aboutcontent")
templateObj.content=replace(templateObj.content,"["&str&":istop]",rsObj("istop"))
templateObj.content=replace(templateObj.content,"["&str&":isrecommend]",rsObj("isrecommend"))
templateObj.content=replace(templateObj.content,"["&str&":isimage]",rsObj("IsImageNews"))
templateObj.content=replace(templateObj.content,"["&str&":isfeatured]",rsObj("isfeatured"))
templateObj.content=replace(templateObj.content,"["&str&":isheadline]",rsObj("isheadline"))
contentLink=templateObj.getContentLink(rsObj("SortID"),rsObj("ContentID"),rsObj("SortFolder"),rsObj("a.GroupID"),rsObj("ContentFolder"),rsObj("ContentFileName"),rsObj("AddTime"),rsobj("PageFileName"),rsObj("b.GroupID"))
templateObj.content=replace(templateObj.content,"["&str&":link]","http://"&setting.siteUrl&""&contentLink)
templateObj.content=replace(templateObj.content,"["&str&":downurl]",repnull(rsObj("DownURL")))
if isnul(rsObj("PageKeywords")) then
templateObj.content=replace(templateObj.content,"["&str&":keyword]",setting.siteKeyWords)
else
templateObj.content=replace(templateObj.content,"["&str&":keyword]",rsObj("PageKeywords"))
end if
if isnul(rsObj("PageDesc")) then
templateObj.content=replace(templateObj.content,"["&str&":desc]",left(dropHtml(rsObj("Content")),100))
else
templateObj.content=replace(templateObj.content,"["&str&":desc]",rsObj("PageDesc"))
end if
if isnul(rsObj("IndexImage")) then
templateObj.content=replace(templateObj.content,"["&str&":pic]",sitePath&"/images/nopic.gif" )
else
if instr(rsObj("IndexImage"),"http://")>0 then
templateObj.content=replace(templateObj.content,"["&str&":pic]",rsObj("IndexImage"))
else
templateObj.content=replace(templateObj.content,"["&str&":pic]",rsObj("IndexImage"))
end if
end if
dim imagepath
if not isnul(rsObj("imagepath")) then
dim i,images
images=split(rsObj("imagepath"),"|")
for i=0 to ubound(images)
if not isnul(images(i)) then
if instr(rsObj("IndexImage"),"http://")>0 then
imagepath=imagepath&"{showtit:'',showtxt:'',smallpic:'"&images(i)&"','bigpic':'"&images(i)&"'}"
else
imagepath=imagepath&"{showtit:'',showtxt:'',smallpic:'"&images(i)&"','bigpic':'"&images(i)&"'}"
end if
if i<>ubound(images) then imagepath=imagepath&","
end if
next
end if
templateObj.content=replace(templateObj.content,"["&str&":pics]",ImagePath)
'die rsObj("SortType")
if rsObj("SortType")="3" then
if isarray(sperStrs) then
for each spec in sperStrs
templateObj.content=replace(templateObj.content,"["&str&":"&spec&"]",decodeHtml(rsObj(spec)))
next
end if
end if
'parseCommon 內含有if標記，若在參數沒有準備做if解析會發生錯誤
templateObj.parseCommon()
templateobj.parseLoop("aboutart")
content=replacekey(decodeHtml(rsObj("Content")))
tempStr=templateObj.content
if isExistStr(content,"{aspcms:page}") then
dim parr ,j
tempArr=split(content,"{aspcms:page}")
parr=ubound(tempArr)
if parr=-1 then parr=0
for j=0 to parr
Page=clng(Page)
pageStr=""
if Page<1 then Page=1 : end if
if Page>ubound(tempArr)+1 then Page=ubound(tempArr)+1 : end if
dim htmlfilename
htmlfilename="?"&contentID
if runMode=1 then htmlfilename= replace(contentLink,FileExt,"")
if Page>2 then
pageStr=pageStr+"
上一頁"
end if
pageStr=pageStr+makePageNumber(Page,10,ubound(tempArr)+1,"about",contentID,htmlfilename)
if Page=ubound(tempArr)+1 then
pageStr=pageStr+"下一頁
"
end if
pageStr=pageStr&""
if runMode=1 and isMakeHtml=1 then
templateObj.content=replace(tempStr,"["&str&":info]",tempArr(Page-1)+pageStr)
if j=0 then
echo replace(contentLink,FileExt,"")&FileExt&" "
createTextFile makeContentImages(templateObj.content), replace(contentLink,FileExt,"")&FileExt, ""
else
echo replace(contentLink,FileExt,"")&"_"&j+1&FileExt&" "
createTextFile makeContentImages(templateObj.content), replace(contentLink,FileExt,"")&"_"&j+1&FileExt, ""
end if
else
makeContent=makeContentImages(templateObj.content)
templateObj.content=replace(templateObj.content,"["&str&":info]",tempArr(Page-1)+pageStr)
end if
Page=Page+1
next
else
templateObj.content=replace(templateObj.content,"["&str&":info]",content&"")
makeContent=makeContentImages(templateObj.content)
if isMakeHtml then createTextFile makeContent, contentLink, "" :echo contentLink&" "
end if
rsObj.close : set rsObj=nothing
set templateobj=nothing
End Function
Function makeContentImages(sContent)
'{aspcms:cimages count=5 contentid=1}
'[cimages:src]
'{/aspcms:cimages}
'if instr(sConetnt,"{aspcms:cimages") then
dim rs,sql,img,imgs
dim m_labelRule,m_labelRuleField
dim regExpObj
dim match,matches
dim m_contentid
dim m_maxcount,iCount
dim soutput
soutput = ""
m_contentid = empty
iCount = 0
sql = "select * from {prefix}Content where contentid="
'set rs = conn.exec(sql,"r1")
set regExpObj= new RegExp
m_labelRule="{aspcms:cimages([\s\S]*?)}([\s\S]*?){/aspcms:cimages}"
regExpObj.Pattern=m_labelRule
set matches=regExpObj.Execute(sContent)
for each match in matches
'echo "ci"
m_contentid = parseArr(match.SubMatches(0))("contentid")
m_maxcount = parseArr(match.SubMatches(0))("count")
if isnul(m_maxcount) or not isnumeric(m_maxcount) then m_maxcount = 9999
if not isnul(m_contentid) then
if not isnumeric(m_contentid) then m_contentid=-1
sql = "select imagepath from {prefix}Content where ContentID=" & m_contentid
set rs = conn.exec(sql,"r1")
if not rs.eof then
img=rs(0)
end if
rs.close
set rs = nothing
imgs = split(img,"|")
for each img in imgs
if iCount < cint(m_maxcount) then
soutput = soutput & match.SubMatches(1)
'soutput = replace(soutput,"[aspcms:cimagesitem]","")
'soutput = replace(soutput,"[/aspcms:cimagesitem]","")
soutput = replace(soutput,"[cimages:src]",img)
'echo img & " "
end if
iCount = iCount + 1
next
end if
'die soutput
sContent=replaceStr(sContent,match.value,soutput)
'die sConetnt
next
if instr(sContent,"{aspcms:cimages") > 0 then
'die "停止"
makeContentImages sContent
end if
'end if
makeContentImages = sContent
End Function
'makeContentImages附屬方法，臨時
Function parseArr(Byval attr)
dim attrStr,attrArray,attrDictionary,i,singleAttr,singleAttrKey,singleAttrValue
dim strDictionary
if not isobject(strDictionary) then set strDictionary=server.CreateObject(DICTIONARY_OBJ_NAME)
attrStr = regExpReplace(attr,"[\s]+",chr(32))
attrStr = trim(attrStr)
attrArray = split(attrStr,chr(32))
for i=0 to ubound(attrArray)
singleAttr = split(attrArray(i),chr(61))
singleAttrKey = singleAttr(0) : singleAttrValue = singleAttr(1)
if not strDictionary.Exists(singleAttrKey) then strDictionary.add singleAttrKey,singleAttrValue else strDictionary(singleAttrKey) = singleAttrValue
next
set parseArr = strDictionary
End Function
'makeContentImages附屬方法，臨時
Function regExpReplace(contentstr,patternstr,replacestr)
dim regExpObj
if not isobject(regExpObj) then set regExpObj = new RegExp
regExpObj.Pattern=patternstr
regExpReplace=regExpObj.replace(contentstr,replacestr)
End Function
Function strList(Byval sortID, Byval page)
dim templateFile
dim templateobj,TemplatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,sql,sperStr,sperStrs,content,contentLink
set rsobj=conn.exec("select * from {prefix}Sort where SortID="&sortID, "exe")
if rsObj.eof then strList="" : exit function
templateFile=rsObj("SortTemplate")
'echo templateFile
if isnul(templateFile) then
select case rsObj("SortType")
case "2"
templateFile="newslist.html"
case "3"
templateFile="productlist.html"
case "4"
templateFile="downlist.html"
case "5"
templateFile="joblist.html"
case "6"
templateFile="albumlist.html"
end select
end if
'die templateFile
templatePath=sitePath&"/html/" &templateFile
'die templatePath
if not CheckTemplateFile(templatePath) then echo templateFile&err_16 : exit function
if not isnul(rsObj("GroupID")) then
if not ViewNoRight(rsObj("GroupID"),rsObj("Exclusive")) then
echoErr err_17,"17",err_17
response.end()
end if
end if
'開始解析標簽
templateObj.load(templatePath)
templateObj.parseHtml()
templateObj.content=replace(templateObj.content,"{aspcms:sortname}",rsObj("SortName"))
templateObj.content=replace(templateObj.content,"{aspcms:parentsortid}",rsObj("parentid"))
templateObj.content=replace(templateObj.content,"{aspcms:sortid}",sortID)
templateObj.content=replace(templateObj.content,"{aspcms:topsortid}",rsObj("topsortid"))
'die replace(templateObj.content,"{aspcms:sortkeyword}",setting.siteKeyWords)
if isnul(rsObj("PageKeywords")) then
templateObj.content=replace(templateObj.content,"{aspcms:sortkeyword}",setting.siteKeyWords)
else
templateObj.content=replace(templateObj.content,"{aspcms:sortkeyword}",rsObj("PageKeywords"))
end if
if isnul(rsObj("PageDesc")) then
templateObj.content=replace(templateObj.content,"{aspcms:sortdesc}",setting.siteDesc)
else
templateObj.content=replace(templateObj.content,"{aspcms:sortdesc}",rsObj("PageDesc"))
end if
if isnul(rsObj("PageTitle")) then
templateObj.content=replace(templateObj.content,"{aspcms:sorttitle}",rsObj("SortName"))
else
templateObj.content=replace(templateObj.content,"{aspcms:sorttitle}",rsObj("PageTitle"))
end if
templateObj.parsePosition(sortID)
dim sortFolder, sortFileName
sortFolder=rsObj("sortFolder")
sortFileName=rsObj("sortFileName")
sortFolder=replace(sortFolder, "{sitepath}", sitePath)
sortFileName=replace(sortFileName, "{sortid}", sortID)
templateObj.parseList sortID,page,"list","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"newslist","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"piclist","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"productlist","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"downlist","",sortFolder&sortFileName&fileExt
'templateObj.parseList sortID,page,"list","","ff"
templateObj.parseCommon
strList=templateObj.content
rsObj.close : set rsObj=nothing
set templateobj=nothing
End Function
Function struserbuy(Byval userid, Byval page)
dim templateFile
dim templateobj,TemplatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,sql,sperStr,sperStrs,content,contentLink
templatePath=sitePath&"/html/userbuy.html"
'die templatePath
if not CheckTemplateFile(templatePath) then echo templateFile&err_16 : exit function
'開始解析標簽
templateObj.load(templatePath)
templateObj.parseHtml()
'templateObj.content=replace(templateObj.content,"{aspcms:sortname}",rsObj("SortName"))
'templateObj.content=replace(templateObj.content,"{aspcms:parentsortid}",rsObj("parentid"))
'templateObj.content=replace(templateObj.content,"{aspcms:sortid}",sortID)
templateObj.content=replace(templateObj.content,"{aspcms:topsortid}","0")
'die replace(templateObj.content,"{aspcms:sortkeyword}",setting.siteKeyWords)
templateObj.content=replace(templateObj.content,"{aspcms:sortkeyword}",setting.siteKeyWords)
templateObj.content=replace(templateObj.content,"{aspcms:sortdesc}",setting.siteDesc)
if isnul(page) then page=1
templateObj.parseList userid,page,"userbuylist","",""
'templateObj.parseList sortID,page,"list","","ff"
templateObj.parseCommon
struserbuy=templateObj.content
set templateobj=nothing
End Function
Function makeList(Byval sortID)
dim templateFile,page
dim templateobj,TemplatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,sql,sperStr,sperStrs,content,contentLink
set rsobj=conn.exec("select * from {prefix}Sort where SortID="&sortID, "exe")
if rsObj.eof then strList="" : exit function
templateFile=rsObj("SortTemplate")
if isnul(templateFile) then
select case rsObj("SortType")
case "2"
templateFile="newslist.html"
case "3"
templateFile="productlist.html"
case "4"
templateFile="downlist.html"
case "5"
templateFile="joblist.html"
case "6"
templateFile="albumlist.html"
end select
end if
templatePath=sitePath&"/html/" &templateFile
'die templatePath
if not CheckTemplateFile(templatePath) then echo templateFile&err_16
if not isnul(rsObj("GroupID")) then
if not ViewNoRight(rsObj("GroupID"),rsObj("Exclusive")) then exit function
end if
'開始解析標簽
templateObj.load(templatePath)
tempstr=templateObj.content
Dim objRegExp, Match, Matches, pages
Set objRegExp=new Regexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern="{aspcms:list([\s\S]*?)}([\s\S]*?){/aspcms:list}"
'進行匹配
set Matches=objRegExp.Execute(tempstr)
for each Match in Matches
pages=templateObj.parseArr(Match.SubMatches(0))("size")
next
'die pages
set objRegExp=Nothing
templateObj.parseHtml()
templateObj.content=replace(templateObj.content,"{aspcms:sortname}",rsObj("SortName"))
templateObj.content=replace(templateObj.content,"{aspcms:parentsortid}",rsObj("parentid"))
templateObj.content=replace(templateObj.content,"{aspcms:sortid}",sortID)
templateObj.content=replace(templateObj.content,"{aspcms:topsortid}",rsObj("topsortid"))
if isnul(rsObj("PageKeywords")) then
templateObj.content=replace(templateObj.content,"{aspcms:sortkeyword}",setting.siteKeyWords)
else
templateObj.content=replace(templateObj.content,"{aspcms:sortkeyword}",rsObj("PageKeywords"))
end if
if isnul(rsObj("PageDesc")) then
templateObj.content=replace(templateObj.content,"{aspcms:sortdesc}",setting.siteDesc)
else
templateObj.content=replace(templateObj.content,"{aspcms:sortdesc}",rsObj("PageDesc"))
end if
if isnul(rsObj("PageTitle")) then
templateObj.content=replace(templateObj.content,"{aspcms:sorttitle}",rsObj("SortName"))
else
templateObj.content=replace(templateObj.content,"{aspcms:sorttitle}",rsObj("PageTitle"))
end if
templateObj.parsePosition(sortID)
tempStr=templateObj.content
dim rs
set rs =conn.exec("select * from {prefix}Content where ContentStatus=1 and SortID in ("&getSubSort(sortID, 1)&")","r1")
dim pcount
if isnul(pages) then
rs.pagesize=1
pcount=1
else
rs.pagesize=pages
pcount=rs.pagecount
if pcount=0 then pcount=1
end if
'echo pages&"AA"&pcount&" "
for page=1 to pcount
templateObj.content=tempStr
'.parseList typeIds,page,str&"list","",str
dim sortFolder, sortFileName
sortFolder=rsObj("sortFolder")
sortFileName=rsObj("sortFileName")
sortFolder=replace(sortFolder, "{sitepath}", sitePath)
sortFileName=replace(sortFileName, "{sortid}", sortID)
templateObj.parseList sortID,page,"list","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"newslist","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"piclist","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"productlist","",sortFolder&sortFileName&fileExt
templateObj.parseList sortID,page,"downlist","",sortFolder&sortFileName&fileExt
templateObj.parseCommon
sortFileName=replace(sortFileName, "{page}", page)
createTextFile templateObj.content, sortFolder&sortFileName&fileExt, ""
echo sortFolder&sortFileName&fileExt&" "
next
'makeList=templateObj.content
rsObj.close : set rsObj=nothing
set templateobj=nothing
End Function
%>