admin_createsoft.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 626 行 · 第 1/3 页

ASP
626 行
字号
123
<!--#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
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_createsoft.asp
' 更新日期：2006-11-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2003-2007 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 "	</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 "list2"
		Call Create_Soft_List_Page
	Case "cont"
		Call Create_Soft_Info
	Case "info"
		Call Create_Soft_Infos
	Case "renewall"
		Call RenewAll_Soft
	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='admin_createsoft.asp'>" & vbNewLine
	Response.Write "<input type=hidden name=action value='list'>"
	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"" name=""B2"" value=' 开始生成HTML(方法一) '> &nbsp;&nbsp;&nbsp;&nbsp;"
	Response.Write "	<input class=""Button"" type=""submit"" name=""B1"" value=' 开始生成HTML(方法二) ' onclick=""document.Createform1.action.value='list2';""></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() - Newasp.CheckNumeric(Request("d"))), 2,-1) & "</font>秒,完成时间" & Now() & "</b>"
	End If
	Session("totalnumber") = ""
	Session("PageCount") = ""
	Session("BuildClassID") = ""
	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() - Newasp.CheckNumeric(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=""设置更新状态""  onclick=""return confirm('您确要进更新状态操作吗?')""> "
	Response.Write "<input type=""radio"" name=""stype"" value=""1"" checked> 设为已更新状态 &nbsp;&nbsp; <input type=""radio"" name=""stype"" value=""0""/> 设为未更新状态"
	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>"
123

admin_createsoft.asp - 源码说明

本页面展示了「小游戏网站演示www.4399.io 拥有4万条游戏数据」中的 admin_createsoft.asp 源码文件，采用 ASP 编程语言编写，共 626 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与4399相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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