⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 create_soft_default.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数
💻 ASP
字号:
🔍 
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
  <tr>
    <td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td> 
    <td  class="b1" valign="top">
<%	if Trim(Request.Form("SoftNum"))<>"" then session("SoftNum")=Trim(Request.Form("SoftNum"))
	if isnull(session("SoftNum")) or session("SoftNum")="" then session("SoftNum")=500
	MaxPerPage=cint(session("SoftNum"))
	
msgtitle="生成下载系统默认首页"
if not isnull(cUserName) or cUserName<>"" then
	if chkMaster(cUserName) then
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		Set Rs=server.createobject("adodb.recordset")
		'读取默认模板
		sql="select ID,Header,Footer,Default_htm from SoftDown_Template where isActive=true"
		rs.open sql,conn,1,1 
		if rs.eof and rs.bof then
   			response.write "您没有添加模板，或者没有设置默认模板。"
			response.end
		else
			HtmlTemplate=rs("Header")&rs("Default_htm")&rs("Footer")
		end if
		rs.close
		call action1()
		call Sysmsg(msgtitle,"操作成功！")
		Set Rs=nothing
		Set fso=nothing
	else
		msginfo="<li>操作错误，你不是系统管理员，没有权限进行此项操作！</li>" 
		call Sysmsg(msgtitle,msginfo)
	end if
else
    msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"">点此登录系统</a></li>" 
    call Sysmsg(msgtitle,msginfo)
end if

sub action1()
'----变量申明
	dim strTitle,strAll_Update,strSite_Info,strAllDownTop,strWeekDownTop,strDayDownTop,strNewsChs,strNewsEng,strNewsHy,strNewsCommend,strNewsVir,strNewsInfo,strNewsArticle,strSite_Link_Text,strSite_Link_Logo,strMessages,strimages_Update

'----变量赋值

	strTitle=System_info(0)&" →首页"	
	strAll_Update=get_update_showcat(0,15,50,7,0)  '显示15个软件，根据实际情况进行调整
	strSite_Info=Site_info()
	strAllDownTop=get_AllTop(0,10,23,0,0)
	strWeekDownTop=get_WeekTop(0,10,23,0,0)
	strDayDownTop=get_DayTop(0,13,23,0,0)
	strNewsChs=get_update_bySoftType("国产软件",10,35,7)
	strNewsEng=get_update_bySoftType("国外软件",10,35,7)
	strNewsHy=get_update_bySoftType("汉化补丁",10,35,7)
	strNewsCommend=get_update_bySoftType("破解补丁",10,35,7)
	strNewsVir=get_update(149,14,38,7,0)
	strNewsInfo=article_update(3,10,40,0,1)
	strNewsArticle=article_update(6,10,40,0,1)
	strSite_Link_Text=Site_Link(0,8)
	strSite_Link_Logo=Site_Link(1,8)
	strMessages=GetMessages(5,1)
        strimages_Update=get_update_imgages(0,2,20,135,100,0,0)


	HtmlContent=HtmlTemplate	

'----将模板中的“用户标记”替换成赋值后的变量值。

        HtmlContent=replace(HtmlContent,"$Title$",""&strTitle&"")
	HtmlContent=replace(HtmlContent,"$All_Update$",""&strAll_Update&"") 
	HtmlContent=replace(HtmlContent,"$site_info$",""&strSite_info&"") 
	HtmlContent=replace(HtmlContent,"$AllDownTop$",""&strAllDownTop&"") 
	HtmlContent=replace(HtmlContent,"$WeekDownTop$",""&strWeekDownTop&"")
	HtmlContent=replace(HtmlContent,"$DayDownTop$",""&strDayDownTop&"") 	
	HtmlContent=replace(HtmlContent,"$NewsChs$",""&strNewsChs&"")
	HtmlContent=replace(HtmlContent,"$NewsEng$",""&strNewsEng&"")
	HtmlContent=replace(HtmlContent,"$NewsHy$",""&strNewsHy&"")
	HtmlContent=replace(HtmlContent,"$NewsCommend$",""&strNewsCommend&"")
	HtmlContent=replace(HtmlContent,"$NewsVir$",""&strNewsVir&"")
	HtmlContent=replace(HtmlContent,"$NewsInfo$",""&strNewsInfo&"")
	HtmlContent=replace(HtmlContent,"$NewsArticle$",""&strNewsArticle&"")
	HtmlContent=replace(HtmlContent,"$Site_Link_Text$",""&strSite_Link_Text&"")
	HtmlContent=replace(HtmlContent,"$Site_Link_Logo$",""&strSite_Link_Logo&"")
	HtmlContent=replace(HtmlContent,"$Messages$",""&strMessages&"") 
        HtmlContent=replace(HtmlContent,"$images_Update$",""&strimages_Update&"") 

'----因为default.html存在下载系统根目录下，所以要转换路径
	HtmlContent=replace(HtmlContent,"../","./")
	HtmlContent=replace(HtmlContent,"</HEAD>","</HEAD>"&Copyright&"")
'----设置生成的文件名为“default.html”
	HtmlFileName=Server.MapPath("default.htm")	
	Set fout = fso.CreateTextFile(HtmlFileName)
    fout.WriteLine HtmlContent 
    fout.close:set fout = nothing 	
end sub
 %>
    </td>
  </tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<% CloseDatabase 

function Site_info()
	dim AllSoft,DayUpdateAll,DayUpdateCHS,DayUpdateENG,DayUpdateHy,DayUpdateKeyGen,AllCHS,AllENG,AllHy,AllKeyGen,AllDownNum,AllSoftSize
	
'全部软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo"
	rs.open sql,conn,1,1
	AllSoft=rs(0)
	if isnull(AllSoft) then AllSoft=0
	rs.close

'今日更新软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0"
	rs.open sql,conn,1,1
	DayUpdateAll=rs(0)
	if isnull(DayUpdateAll) then DayUpdateAll=0
	rs.close

'今日更新国产软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='国产软件'"
	rs.open sql,conn,1,1
	DayUpdateCHS=rs(0)
	if isnull(DayUpdateCHS) then DayUpdateCHS=0
	rs.close

'今日更新国外软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='国外软件'"
	rs.open sql,conn,1,1
	DayUpdateENG=rs(0)
	if isnull(DayUpdateENG) then DayUpdateENG=0
	rs.close

'今日更新汉化补丁数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='汉化补丁'"
	rs.open sql,conn,1,1
	DayUpdateHy=rs(0)
	if isnull(DayUpdateHy) then DayUpdateHy=0
	rs.close

'今日更新破解补丁数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where datediff('d',SoftTime,date())=0 and SoftType='破解补丁'"
	rs.open sql,conn,1,1
	DayUpdateKeyGen=rs(0)
	if isnull(DayUpdateKeyGen) then DayUpdateKeyGen=0
	rs.close

'全部国产软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where SoftType='国产软件'"
	rs.open sql,conn,1,1
	AllCHS=rs(0)
	if isnull(AllCHS) then AllCHS=0
	rs.close

'全部国外软件数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where SoftType='国外软件'"
	rs.open sql,conn,1,1
	AllENG=rs(0)
	if isnull(AllENG) then AllENG=0
	rs.close

'全部汉化补丁数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where SoftType='汉化补丁'"
	rs.open sql,conn,1,1
	AllHy=rs(0)
	if isnull(AllHy) then AllHy=0
	rs.close

'全部破解补丁数量
	sql="Select count(SoftID) from SoftDown_SoftInfo Where SoftType='破解补丁'"
	rs.open sql,conn,1,1
	AllKeyGen=rs(0)
	if isnull(AllKeyGen) then AllKeyGen=0
	rs.close

'全部软件下载次数
	sql="Select sum(AllHits) from SoftDown_SoftInfo"
	rs.open sql,conn,1,1
	AllDownNum=rs(0)
	if isnull(AllDownNum) then AllDownNum=0
	rs.close

'全部软件总容量
	sql="Select sum(SoftSize) from SoftDown_SoftInfo"
	rs.open sql,conn,1,1
	AllSoftSize=rs(0)
	if isnull(AllSoftSize) then AllSoftSize=0
	rs.close
	
	Site_info = Site_info & "<TABLE cellSpacing=0 cellPadding=1 width=""100%"" align=center border=0>" & vbcrlf
	Site_info = Site_info & "          <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·共有软件：<font color=""#FF0000""><b>"&AllSoft&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·今日更新软件：<font color=""#FF0000""><b>"&DayUpdateAll&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·其中国内软件：<font color=""#FF0000""><b>"&DayUpdateCHS&"</b></font>个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·国外软件：<font color=""#FF0000""><b>"&DayUpdateENG&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·汉化补丁：<font color=""#FF0000""><b>"&DayUpdateHy&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <!-- <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·新破解补丁：<font color=""#FF0000""><b>"&DayUpdateKeyGen&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR> -->" & vbcrlf
	Site_info = Site_info & "              <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·国产软件总数：<font color=""#FF0000""><b>"&AllCHS&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR> " & vbcrlf
	Site_info = Site_info & "                <TD>·国外软件总数：<font color=""#FF0000""><b>"&AllENG&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR>" & vbcrlf
	Site_info = Site_info & "                <TD>·汉化补丁总数：<font color=""#FF0000""><b>"&AllHy&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <!-- <TR>" & vbcrlf
	Site_info = Site_info & "                <TD>·破解补丁总数：<font color=""#FF0000""><b>"&AllKeyGen&"</b></font> 个</TD>" & vbcrlf
	Site_info = Site_info & "              </TR> -->" & vbcrlf
	Site_info = Site_info & "              <TR>" & vbcrlf
	Site_info = Site_info & "                <TD>·总下载：<font color=""#FF0000""><b>"&AllDownNum&"</b></font>次</TD>" & vbcrlf
	Site_info = Site_info & "              </TR>" & vbcrlf
	Site_info = Site_info & "              <TR>" & vbcrlf
	Site_info = Site_info & "                <TD>·总容量：<font color=""#FF0000""><b>"&round(AllSoftSize/1024/1024,2)&"</b></font> GB</TD>" & vbcrlf
	Site_info = Site_info & "          </TR>" & vbcrlf
	Site_info = Site_info & "</TABLE>" & vbcrlf
end function
%>

⌨️ 快捷键说明

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