📄 admin_createsoft.asp

📁 网络上经典的图片程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<!--#include file="../inc/SoftChannel.asp"-->
<%
Server.ScriptTimeout = 99999
Admin_header
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))
If ChannelID = 0 Then ChannelID = 2
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_createsoft.asp
' 更新日期：2004-11-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,flag,i
Dim TableTop,TableEnd
TableTop = "<p align=center>"
TableEnd = "</p><p align=center><a href='" & LinkedStr("") & "'><b class=style2>恭喜您！生成HTML完成...总费时<font color=""#FF0000"">" & FormatNumber((Timer() - startime), 2,-1) & "</font>秒,完成时间" & Now() & " 请返回进行其它操作</b></a></p>"

Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "	<th colspan=2>" & sModuleName & "HTML管理导航</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "	<td colspan=2 class=tablerow1><b>选项：</b>" & vbNewLine
Response.Write "	<a href=" & LinkedStr("") & ">管理首页</a> | " & vbNewLine
Response.Write "	<a href=" & LinkedStr("special") & ">生成专题HTML</a> | " & vbNewLine
Response.Write "	<a href=" & LinkedStr("index") & ">生成首页HTML</a> | " & vbNewLine
Response.Write "	<a href=" & LinkedStr("other") & ">生成其它HTML</a> | " & vbNewLine
Response.Write "	<a href=" & LinkedStr("info") & ">生成全部软件信息</a>" & vbNewLine
Response.Write "	</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table><br>" & vbNewLine
Flag = "CreateSoft" & ChannelID
Action = LCase(Request("action"))
If Not ChkAdmin(Flag) Then
	Server.Transfer("showerr.asp")
	Response.End
End If
If CInt(Newasp.IsCreateHtml) = 0 Then
	ErrMsg = "对不起~！此频道不支持生成HTML功能，如果你要使用生成HTML功能，请在此频道管理中打开HTML生成功能。"
	Response.Redirect ("showerr.asp?action=error&Message="& ErrMsg)
	Response.End
End If

NewCloud.Channel = ChannelID
NewCloud.ChannelMain
Select Case Trim(Action)
	Case "index"
		Response.Write "<ol>"
		NewCloud.ShowFlush = 1
		NewCloud.CreateDownIndex
		Call CreateSiteIndex
		Response.Write "</ol>"
		Response.Write "<p align=center><a href='" & LinkedStr("") & "'><b class=style2>恭喜您！生成HTML完成...总费时<font color=""#FF0000"">" & FormatNumber((Timer() - startime), 2,-1) & "</font>秒,完成时间" & Now() & " 请返回进行其它操作</b></a></p>"
	Case "other"
		Response.Write "<ol>"
		NewCloud.ShowFlush = 1
		NewCloud.CreateBestDown(0)
		NewCloud.CreateBestDown(1)
		NewCloud.CreateBestDown(3)
		Response.Write "</ol><p align=center><a href='" & LinkedStr("") & "'><b class=style2>恭喜您！生成HTML完成...总费时<font color=""#FF0000"">" & FormatNumber((Timer() - startime), 2,-1) & "</font>秒,完成时间" & Now() & " 请返回进行其它操作</b></a></p>"
	Case "list"
		Call Create_Soft_List
	Case "cont"
		Call Create_Soft_Info
	Case "info"
		Call Create_Soft_Infos
	Case "renewall"
		Call RenewAll_Article
	Case "special"
		Call Create_Soft_Special
	Case Else
		Call showmain
End Select
If Action <> "info" Then Admin_footer
If FoundErr = True Then
	ReturnError(ErrMsg)
End If

If IsObject(NewCloud) Then
	Set NewCloud = Nothing
End If
CloseConn
Sub showmain()
	Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
	Response.Write "<tr>" & vbNewLine
	Response.Write "	<th colspan=2>批量生成" & sModuleName & "HTML页管理</th>" & vbNewLine
	Response.Write "</tr>" & vbNewLine
	Response.Write "<tr>"
	Response.Write "	<td colspan=2 class=tablerow2>①、<font color=blue>生成" & sModuleName & "分类列表HTML页</font></td>"
	Response.Write "</tr>"
	Response.Write "<form name=Createform1 method=post action=?action=list>" & vbNewLine
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write "<tr>"
	Response.Write " 	<td align=right width='25%' class=tablerow1>生成HTML选项：</td>"
	Response.Write "   	<td width='75%' class=tablerow1><input type=radio name=Field value='0'> 生成全部&nbsp;&nbsp;"
	Response.Write "        <input type=radio name=Field value='1' checked> 生成已更新过的分类&nbsp;&nbsp;"
	Response.Write "	<input type=radio name=Field value='2'> 按分类ID生成（请在下面输入分类ID）</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "	<td align=right class=tablerow1>" & sModuleName & "分类ID：</td>"
	Response.Write "	<td class=tablerow1><input type=text name='classid' size=45 value=''> <b>说明：</b>多个ID请用“,”分开</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "	<td align=right class=tablerow1>点击这里开始生成HTML→</td>"
	Response.Write "	<td class=tablerow1><input class=Button type=submit value=' 开始生成HTML '></td>"
	Response.Write "</tr>"
	Response.Write "</form>"
	Response.Write "<tr height=""32"">"
	Response.Write "	<td colspan=2 class=tablerow1>"
	If CInt(Request("stype")) = 1 Then
		Response.Write "<b class=style2>恭喜您！生成" & sModuleName & "分类列表的HTML页完成..."
		Response.Write "总费时<font color=""#FF0000"">" & FormatNumber((Timer() - Request("d")), 2,-1) & "</font>秒,完成时间" & Now() & "</b>"
	End If
	Session("totalnumber") = ""
	Session("PageCount") = ""
	If CInt(Request("stype")) = 2 Then
		Session("BuildSoftID") = ""
		Response.Write "<b class=style2>恭喜您！生成" & sModuleName & "信息的HTML页完成..."
		Response.Write "共生成页面<font color=""#FF0000"">" & Request("num") & "</font>个,总费时<font color=""#FF0000"">" & FormatNumber((Timer() - Request("D")), 2,-1) & "</font>秒,完成时间" & Now() & "</b>"
	End If
	Response.Write "</td></tr>"
	Response.Write "<tr>"
	Response.Write "	<td colspan=2 class=tablerow2>②、<font color=blue>生成" & sModuleName & "内容HTML页</font></td>"
	Response.Write "</tr>"
	Response.Write "</tr>"
	Response.Write " <tr><form name=""Createform2"" method=""post"" action=""?action=cont&type=date"">"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write " <td class=tablerow1>按日期生成内容HTML页</td>"
	Response.Write " <td class=tablerow1>"
	Response.Write " <select size=""1"" name=""datYear"">"
	For i = 2001 To Year(Date)
		Response.Write "<option value=""" & i & """"
		If i = Year(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select> - "
	Response.Write " <select size=""1"" name=""datMonth"">"
	For i = 1 To 12
		Response.Write "<option value=""" & i & """"
		If i = Month(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select> - "
	Response.Write " <select size=""1"" name=""datDay"">"
	For i = 1 To 31
		Response.Write "<option value=""" & i & """"
		If i = Day(Date) Then
			Response.Write " selected"
		End If
		Response.Write ">" & i & "</option>"
	Next
	Response.Write " </select>　"
	Response.Write "<input type=""submit"" class=button name=""Submit"" value=""生成HTML页""></td>"
	Response.Write " </tr></form>"
	Response.Write " <tr><form name=Createform3 method=""post"" action=""?action=cont&type=new"">"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write " <td class=tablerow1 height=""22"">按个数生成内容HTML页</td>"
	Response.Write " <td class=tablerow1><input size=10 name=""newnum"" value=""1"">　<input type=""submit"" name=""Submit"" class=button value=""生成HTML页""> <b>说明：</b>将按最近更新的顺序生成</td>"
	Response.Write " </tr></form>"
	Response.Write " <tr><form name=Createform4 method=""post"" action=""?action=cont&type=seid"">"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write " <td class=tablerow1 height=""22"">按软件ID生成内容HTML页</td>"
	Response.Write " <td class=tablerow1><input size=45 name=""id"" value=""1""> 　<input type=""submit"" name=""Submit"" class=button value=""生成HTML页""> <b>说明：</b>多个ID请用“,”分开</td>"
	Response.Write " </tr></form>"
	Response.Write " <tr><form name=""Createform5"" method=""post"" action=""?action=cont"">"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write " <td class=tablerow1 height=""22"">生成全部内容HTML页（方法一）</td>"
	Response.Write " <td class=tablerow1><input type=""submit"" class=button name=""Submit"" value=""生成HTML页""> "
	Response.Write "　<input type=radio name=type checked value=""renew""> 生成已更新"
	Response.Write "　<input type=radio name=type value=""all""> 生成全部"
	Response.Write "</td></form>"
	Response.Write " </tr>"
	Response.Write " <tr><form name=""Createform6"" method=""post"" action=""?action=info"">"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write " <td class=tablerow1 height=""22"">生成全部内容HTML页（方法二）</td>"
	Response.Write " <td class=tablerow1><input type=""submit"" class=button name=""Submit"" value=""生成HTML页""> "
	Response.Write "　<input type=radio name=type checked value=""renew""> 生成已更新"
	Response.Write "　<input type=radio name=type value=""all""> 生成全部"
	Response.Write "</td></form>"
	Response.Write " <tr><form name=""Createform7"" method=""post"" action=""?action=renewall"">"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write " <td class=tablerow1 height=""22"">更新全部软件</td>"
	Response.Write " <td class=tablerow1> <input type=""submit"" class=button name=""Submit"" value=""更新全部软件""> "
	Response.Write "</td></form>"
	Response.Write " </tr>"
	Response.Write "<tr>"
	Response.Write "	<td colspan=2 class=tablerow2>③、<font color=blue>按分类生成" & sModuleName & "相关HTML页</font></td>"
	Response.Write "</tr>"
	Response.Write "<form name=Createform8 method=post action=Admin_CreateSoft.Asp>" & vbNewLine
	Response.Write "<input type=hidden name=action value='list'>"
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write "<input type=hidden name=field value='2'>"
	Response.Write "<tr>"
	Response.Write " <td class=tablerow1>"
	Response.Write "<select name='classid' size='2' multiple style='height:260px;width:200px;'>"
	Dim strSelectClass,re
	strSelectClass = Newasp.LoadSelectClass(ChannelID)
	Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
	Re.Pattern="(value=)(.*)("" )"
	strSelectClass = Re.Replace(strSelectClass,"")
	Re.Pattern="({ClassID=)(.*)(}>)"
	strSelectClass = Re.Replace(strSelectClass,"value=""$2"">")
	Response.Write strSelectClass
	Set Re = Nothing
	Response.Write "</select>"
	Response.Write "</td>"
	Response.Write " <td class=tablerow1 valign=top>"
	Response.Write "<input class=Button type=submit name=Submit2 value=' 生成分类列表的HTML'><br><br>"
	Response.Write "<input class=Button type=submit name=Submit3 value=' 生成软件信息的HTML' onclick=""document.Createform8.action.value='cont';""><br><br>"
	Response.Write "请按 CTRL 键多选"
	Response.Write "</td></form>"
	Response.Write " </tr>"
	Response.Write "</table>"
End Sub
Function LinkedStr(str)
	LinkedStr = "Admin_CreateSoft.Asp?action=" & str & "&amp;ChannelID="& ChannelID
End Function
Function ShowInnerHTML(totalnumber,n)
	Response.Write "<script>table2.style.width=" & Fix((n / totalnumber) * 400) & ";"
	Response.Write "txt2.innerHTML=""完成：" & FormatNumber(n / totalnumber * 100, 2, -1) & """;"
	Response.Write "table2.title=""(" & n & ")"";</script>" & vbNewLine
End Function
Sub ShowGuage()
	Response.Write "<br><table width='400' align=center border=0 cellspacing=1 cellpadding=1>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td style=""border: 1px #384780 solid ;background-color: #FFFFFF;"">" & vbCrLf
	Response.Write "<table width=0 id=table2 name=table2 border=0 cellspacing=0 cellpadding=0>" & vbCrLf
	Response.Write "<tr height=12><td bgcolor=#36D91A>" & vbCrLf
	Response.Write "</td></tr></table></td></tr><tr> " & vbCrLf
	Response.Write "<td align=center> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span> <span style=""font-size:9pt"">%</span>   <span id=txt3 name=txt3 style=""font-size:9pt""></span></td></tr>" & vbCrLf
	Response.Write "</table><br>" & vbCrLf
End Sub

Sub CreateSiteIndex()
	Dim HtmlContent,FilePath
	On Error Resume Next
	HtmlContent = HTML.ShowIndex(True)
	FilePath = "../" & Newasp.IndexName
	Newasp.CreatedTextFile FilePath,HtmlContent
	Response.Write "<li>生成首页HTML完成... <a href=" & FilePath & " target=_blank>"
	Response.Write Server.MapPath(FilePath)
12 下一页
💿 文件大小 1794 K
👤 上传用户 jccg1000146752
📂 所属分类文章/文档
🏷️ 相关标签

#网络 #程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -