📄 fun2html.asp
字号:
<%
if session("Admin_Login")="" then
call ShowErr("请先登录！","Login.asp")
end if
set rsq=server.createobject("adodb.recordset")
set rsHtml=server.createobject("adodb.recordset")
Function CheckAndCreateFolder(FolderName)
fldr=Server.Mappath(FolderName)
Set fso=CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(fldr) then
fso.CreateFolder(fldr)
end if
Set fso=Nothing
End Function
'End 生成目录
'生成静态目录
Sub CreateFolder()
On Error Resume Next
DirList2=Dir_Index&","&Dir_Soft&","&Dir_Class&","&Dir_Search&","&Dir_Topic
CheckAndCreateFolder("../"&left(Directory,len(Directory)-1))
For each x in split(DirList2,",")
CheckAndCreateFolder("../"&Directory&left(x,len(x)-1))
Next
if err>0 then
debug("错误,目录生成出现问题!")
end if
End Sub
'End 生成静态目录
'生成首页
Sub CreateIndex()
sql="select * from [Templet] where SD_templet_default=1 and SD_templet_type='Index'"
rsq.open sql,conn,1,1
if not rsq.eof then
Templet_content = rsq("SD_templet_content")
set rst=conn.execute("select Count(*) as SD_Soft_Count_All from [Soft] where SD_Soft_Del=1")
Soft_Count_All=rst("SD_Soft_Count_All")
rst.close
set rst=conn.execute("select Sum(SD_Soft_Times) from [Soft] where SD_Soft_Del=1")
Soft_Count_Sum=rst(0)
if Soft_Count_Sum<>"" then
else
Soft_Count_Sum=0
end if
rst.close
'模板嵌套调用替换
while cint(InStr(Templet_content,"{$Templet("))>0
Templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$Templet("))+2,cint(InStr(Templet_content,")Templet$}"))-cint(InStr(Templet_content,"{$Templet("))-2)
Templet_content=replace(Templet_content,"{$"&Templet_str&")Templet$}",SD_Templet_change(replace(Templet_str,"Templet(","")))
wend
'基本标签替换
Templet_content=replace(Templet_content,"{$SearchUrl$}",SiteUrl&"inc/Search2Html.asp")
Templet_content=replace(Templet_content,"{$SiteUrl$}",SiteUrl)
Templet_content=replace(Templet_content,"{$SiteName$}",SiteName)
Templet_content=replace(Templet_content,"{$SiteLogo$}",SiteLogo)
Templet_content=replace(Templet_content,"{$SiteBanner$}",SiteBanner)
Templet_content=replace(Templet_content,"{$SiteMail$}",SiteMail)
Templet_content=replace(Templet_content,"{$Soft_Count_All$}",Soft_Count_All)
Templet_content=replace(Templet_content,"{$Soft_Count_Sum$}",Soft_Count_Sum)
Templet_content=replace(Templet_content,"{$Jquery2Search$}",Jquery2Search)
'函数替换
while clng(InStr(Templet_content,"{$"))>0
templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$"))+2,cint(InStr(Templet_content,"$}"))-cint(InStr(Templet_content,"{$"))-2)
templet_str2 = split(templet_str,"(")
templet_str3 = split(templet_str2(1),")")(0)
templet_str_l = split(templet_str3,",")
Select Case templet_str2(0)
Case "SD_Soft_List_Img":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List_Img(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3)))
Case "SD_Soft_List":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3),templet_str_l(4)))
Case "SD_Soft_One":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_One(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
Case "SD_Soft_List_Text":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List_Text(templet_str_l(0)))
Case "SD_Class_List_Page":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Class_List_Page(templet_str_l(0)))
Case "SD_link_more":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_link_more(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
Case "SD_FriendLinks":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_FriendLinks(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3),templet_str_l(4)))
Case "SD_SiteInfo":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_SiteInfo(templet_str_l(0)))
Case "SD_Topic_List":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Topic_List(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
Case else:Templet_content=replace(Templet_content,"{$"&templet_str&"$}",templet_str&"参数错误!")
End Select
wend
file_path = "../"&Directory&Dir_Index&"Index.html"
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=Templet_content
.SaveToFile server.mappath(file_path),2
.Close
End With
Set objStream = Nothing
response.Write("Index 模板已生成!")
response.End()
else
response.Write("没有设置默认首页模板!")
response.End()
end if
rsq.close
End Sub
'End 生成首页
'生成分类
Sub CreateClassList() 'ClassList.html
sql="select * from [Templet] where SD_templet_default=1 and SD_templet_type='Class'"
rsq.open sql,conn,1,1
if not rsq.eof then
Templet_content = rsq("SD_templet_content")
while cint(InStr(Templet_content,"{$Templet("))>0
Templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$Templet("))+2,cint(InStr(Templet_content,")Templet$}"))-cint(InStr(Templet_content,"{$Templet("))-2)
Templet_content=replace(Templet_content,"{$"&Templet_str&")Templet$}",SD_Templet_change(replace(Templet_str,"Templet(","")))
wend
'基本标签替换
Templet_content=replace(Templet_content,"{$HomePage$}","{$SiteUrl$}{$Directory$}{$Dir_Index$}index.html")
Templet_content=replace(Templet_content,"{$SearchUrl$}",SiteUrl&"inc/Search2Html.asp")
Templet_content=replace(Templet_content,"{$SiteUrl$}",SiteUrl)
Templet_content=replace(Templet_content,"{$Directory$}",Directory)
Templet_content=replace(Templet_content,"{$Dir_Index$}",Dir_Index)
Templet_content=replace(Templet_content,"{$SiteName$}",SiteName)
Templet_content=replace(Templet_content,"{$SiteLogo$}",SiteLogo)
Templet_content=replace(Templet_content,"{$SiteBanner$}",SiteBanner)
Templet_content=replace(Templet_content,"{$SiteMail$}",SiteMail)
Templet_content=replace(Templet_content,"{$Jquery2Search$}",Jquery2Search)
'函数替换
while cint(InStr(Templet_content,"{$"))>0
templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$"))+2,cint(InStr(Templet_content,"$}"))-cint(InStr(Templet_content,"{$"))-2)
templet_str2 = split(templet_str,"(")
templet_str3 = split(templet_str2(1),")")(0)
templet_str_l = split(templet_str3,",")
Select Case templet_str2(0)
Case "SD_Soft_List_Img":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List_Img(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3)))
Case "SD_Soft_List":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3),templet_str_l(4)))
Case "SD_Soft_One":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_One(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
Case "SD_Soft_List_Text":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List_Text(templet_str_l(0)))
Case "SD_Class_List_Page":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Class_List_Page(templet_str_l(0)))
Case "SD_link_more":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_link_more(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
Case "SD_FriendLinks":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_FriendLinks(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3),templet_str_l(4)))
Case "SD_SiteInfo":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_SiteInfo(templet_str_l(0)))
Case "SD_Topic_List":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Topic_List(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
Case else:Templet_content=replace(Templet_content,"{$"&templet_str&"$}",templet_str&"参数错误!")
End Select
wend
file_path = "../"&Directory & Dir_Class &"ClassList.html"
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=Templet_content
.SaveToFile server.mappath(file_path),2
.Close
End With
Set objStream = Nothing
debug("ClassList 已生成!")
else
ErrText=ErrText&"没有设置默认""分类列表""模板!"
end if
rsq.close
End Sub
Sub CreateClass(n)
'Class一级分类 生成开
'读取Class模板
sql="select * from [Templet] where SD_templet_default=1 and SD_templet_type='List'"
rsq.open sql,conn,1,1
if not rsq.eof then
Templet_content_Class_Original = rsq("SD_templet_content")
else
ErrText=ErrText&"未设置""软件分类""模板!"
end if
rsq.close
if cint(n)=-1 then
sqlHtml="select * from [Classs] order by S_Class.SD_S_Class_Id desc"
elseif cint(n)=0 then
sqlHtml="select * from [Classs] where SD_S_Class_Html=0 order by S_Class.SD_S_Class_Id desc"
elseif cint(n)>0 then
sqlHtml="select * from [Classs] where S_Class.SD_S_Class_Id="&n&" or S_Class_1.SD_S_Class_Id="&n
end if
'debug(sqlHtml)
rsHtml.open sqlHtml,conn,1,1
if not rsHtml.eof then
while not rsHtml.eof
S_Class_Name_1=rsHtml("S_Class.SD_S_Class_Name")
S_Class_Parent_1=rsHtml("SD_S_Class_Parent")
S_Class_1=rsHtml("S_Class.SD_S_Class_Id")
'-----统计同一分类下的记录数目,根据页记录数-----
set rst=conn.execute("select count(*) as SD_Soft_Num from [Softs] where S_Class_1.SD_S_Class_Id="&S_Class_1)
Soft_Num=rst("SD_Soft_Num")
rst.close
Cyc_Time=fix(Soft_Num\Page_Size_All)+1
'-----统计结束-----
Class_List=""
if S_Class_Parent_1<>0 then
sql="select * from [Classs] where SD_S_Class_Parent="& S_Class_Parent_1 &" order by SD_S_Class_Order desc"
rst.open sql,conn,1,1
if not rst.eof then
while not rst.eof
Class_Parent_Name=rst("S_Class_1.SD_S_Class_Name")
Class_List=Class_List&"<li><a href="""&SiteUrl&Directory&Dir_Class&"Class_"&rst("S_Class.SD_S_Class_Id")&"_1.html"">"& rst("S_Class.SD_S_Class_Name") &"</a></li>"
rst.movenext
wend
end if
rst.close
Your_Location="<a href=""{$DowuHomeUrl$}"">下载首页</a> >> <a href=""{$P_Class_Url$}"">{$Class_Parent_Name$}</a> >> "&S_Class_Name_1
P_Class_Url="{$SiteUrl$}{$Directory$}{$Dir_Class$}Class_{$S_Class_Parent_1$}_1.html"
elseif S_Class_Parent_1=0 then '一级栏目
sql="select * from [Classs] where SD_S_Class_Parent="& S_Class_1 &" order by SD_S_Class_Order desc"
rst.open sql,conn,1,1
if not rst.eof then
while not rst.eof
Class_Parent_Name=rst("S_Class_1.SD_S_Class_Name")
Class_List=Class_List&"<li><a href="""&SiteUrl&Directory&Dir_Class&"Class_"&rst("S_Class.SD_S_Class_Id")&"_1.html"">"& rst("S_Class.SD_S_Class_Name") &"</a></li>"
rst.movenext
wend
end if
rst.close
Your_Location="<a href=""{$DowuHomeUrl$}"">下载首页</a> >> <a href=""{$P_Class_Url$}"">{$Class_Parent_Name$}</a>"
P_Class_Url="{$SiteUrl$}{$Directory$}{$Dir_Class$}Class_{$S_Class_1$}_1.html"
end if
for Cyc = 1 to Cyc_Time '生成有分页内容的
'设置已生成标志
conn.execute("update [S_Class] set SD_S_Class_Html=1 where SD_S_Class_Id="&S_Class_1)
'初始化模板
Templet_content = Templet_content_Class_Original
while cint(InStr(Templet_content,"{$Templet("))>0
Templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$Templet("))+2,cint(InStr(Templet_content,")Templet$}"))-cint(InStr(Templet_content,"{$Templet("))-2)
Templet_content=replace(Templet_content,"{$"&Templet_str&")Templet$}",SD_Templet_change(replace(Templet_str,"Templet(","")))
wend
'基本标签替换
Templet_content=replace(Templet_content,"{$Your_Location$}",Your_Location)
Templet_content=replace(Templet_content,"{$P_Class_Url$}",P_Class_Url)
Templet_content=replace(Templet_content,"{$HomePage$}","{$SiteUrl$}{$Directory$}{$Dir_Index$}index.html")
Templet_content=replace(Templet_content,"{$DowuHomeUrl$}","{$SiteUrl$}{$Directory$}{$Dir_Class$}ClassList.html")
Templet_content=replace(Templet_content,"{$SearchUrl$}",SiteUrl&"inc/Search2Html.asp")
Templet_content=replace(Templet_content,"{$SiteUrl$}",SiteUrl)
Templet_content=replace(Templet_content,"{$Directory$}",Directory)
Templet_content=replace(Templet_content,"{$Dir_Class$}",Dir_Class)
Templet_content=replace(Templet_content,"{$Dir_Index$}",Dir_Index)
Templet_content=replace(Templet_content,"{$SiteName$}",SiteName)
Templet_content=replace(Templet_content,"{$SiteLogo$}",SiteLogo)
Templet_content=replace(Templet_content,"{$SiteBanner$}",SiteBanner)
Templet_content=replace(Templet_content,"{$SiteMail$}",SiteMail)
Templet_content=replace(Templet_content,"{$S_Class_Name_1$}",S_Class_Name_1)
Templet_content=replace(Templet_content,"{$S_Class_Parent_1$}",S_Class_Parent_1)
Templet_content=replace(Templet_content,"{$Class_Parent_Name$}",Class_Parent_Name)
Templet_content=replace(Templet_content,"{$Class_List$}",Class_List)
Templet_content=replace(Templet_content,"{$S_Class_1$}",S_Class_1)
Templet_content=replace(Templet_content,"{$Jquery2Search$}",Jquery2Search)
'debug(Templet_content)
'函数替换
while cint(InStr(Templet_content,"{$"))>0
templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$"))+2,cint(InStr(Templet_content,"$}"))-cint(InStr(Templet_content,"{$"))-2)
templet_str2 = split(templet_str,"(")
templet_str3 = split(templet_str2(1),")")(0)
templet_str_l = split(templet_str3,",")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -