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

📄 publish.asp

📁 多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="conn.asp" -->
<!--#include file="inc/const.asp"-->
<%
Dim Rs1
Dim Rs2
Dim i
Dim founderr
Dim errmsg
Dim sortname
Dim strSortid
Dim GroupSet
Dim GroupName
Dim Rs
Dim SQL
Dim NewCloud_Ads
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim TempTopStr
Dim TempFootStr
PublishSoft

Public Sub PublishSoft()
	Set Rs = Server.CreateObject("adodb.recordset")
	Set Rs1 = Server.CreateObject("adodb.recordset")
	Set Rs2 = Server.CreateObject("adodb.recordset")
	founderr = False
	If Newasp.memberName = Empty Then
		Response.Write "<script>alert('对不起!你还没有登陆 \n\n如果你是本站会员请先登陆!');location.replace('user.asp')</script>"
		Response.End
	End If
	Set Rs = conn.Execute("select * from NC_UserGroup where grades=" & CInt(Newasp.membergrade) & "")
	GroupSet = Split(Rs("GroupSet"), ",")
	GroupName = Rs("GroupName")
	Rs.Close
	If CInt(GroupSet(0)) = 0 Then
		Response.Write "<script>alert('对不起!" & GroupName & "不能发布软件。');history.go(-1)</script>"
		Response.End
	End If
	Newasp.LoadTemplates ("")
	If CInt(Newasp.setting(39)) = 0 Then
		Response.Write "<script>alert('" & Newasp.mainset(40) & "');javascript:history.back(1)</script>"
		Response.End
	End If
	Set NewCloud_Ads = New Adcolumn_Cls
	NowStats = "软件发布"
	HtmlTitle = "软件发布"
	TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
	TempFootStr = Newasp.mainhtml(4)
	Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
	HtmlTempStr = TempTopStr
	HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
	HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
	HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
	If CInt(Newasp.setting(5)) = 0 Then
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
	Else
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
	End If
	HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
	HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
	HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
	Response.Write HtmlTempStr
	TempFootStr = Replace(TempFootStr, "{$FootMeun}", Newasp.mainset(11))
	TempFootStr = Replace(TempFootStr, "{$Width}", Newasp.mainset(0))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
	TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
	Select Case Trim(Request("Action"))
		Case "save"
			Call saveAdd
		Case Else
			Call main
	End Select
	If founderr = True Then
		Response.Write "<script>alert('" & errmsg & "');javascript:history.back(1)</script>"
		Response.End
	End If
	Response.Write TempFootStr
End Sub

Private Sub main()
	Dim srtSortingList
	Dim RunSystem
	Dim SoftType
	Response.Write "<script language=""javascript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write "function ToRunSystem(addTitle) { " & vbCrLf
	Response.Write "var revisedTitle; " & vbCrLf
	Response.Write "var currentTitle;" & vbCrLf
	Response.Write "currentTitle = document.myform.RunSystem.value; " & vbCrLf
	Response.Write "revisedTitle = currentTitle+addTitle; " & vbCrLf
	Response.Write "document.myform.RunSystem.value=revisedTitle; " & vbCrLf
	Response.Write "document.myform.RunSystem.focus(); " & vbCrLf
	Response.Write "return; }" & vbCrLf
	Response.Write "//-->"
	Response.Write "</script>" & vbCrLf
	Response.Write "<SCRIPT LANGUAGE=javascript>" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "function Juge(myform)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "if (myform.softname.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件名称不能为空！"");" & vbCrLf
	Response.Write "myform.softname.focus();" & vbCrLf
	Response.Write "return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.RunSystem.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件运行环境不能为空！"");" & vbCrLf
	Response.Write "myform.RunSystem.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.SoftSize.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件大小不能为空！"");" & vbCrLf
	Response.Write "myform.SoftSize.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (checktext(myform.SoftSize.value))" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件大小要求输入数字即可 !"");" & vbCrLf
	Response.Write "myform.SoftSize.select();" & vbCrLf
	Response.Write " myform.SoftSize.focus();" & vbCrLf
	Response.Write "myform.SoftSize.value="""";" & vbCrLf
	Response.Write "return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.SoftType.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件授权类型不能为空！"");" & vbCrLf
	Response.Write "myform.SoftType.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.Homepage.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件作者网址不能为空！"");" & vbCrLf
	Response.Write "myform.Homepage.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.SoftType.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件类型不能为空！"");" & vbCrLf
	Response.Write "myform.SoftType.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.Language.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件语言不能为空！"");" & vbCrLf
	Response.Write "myform.Language.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (myform.content.value == """")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "alert(""软件简介内容不能为空！"");" & vbCrLf
	Response.Write "myform.content.focus();" & vbCrLf
	Response.Write " return (false);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "function checktext(text)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "allValid = false;" & vbCrLf
	Response.Write "var checkOK = ""0123456789"";" & vbCrLf
	Response.Write "for (i = 0; i < text.length; i++)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "ch = text.charAt(i);" & vbCrLf
	Response.Write "for (j = 0; j < checkOK.length; j++)" & vbCrLf
	Response.Write "if (ch == checkOK.charAt(j))" & vbCrLf
	Response.Write "break;" & vbCrLf
	Response.Write "if (j == checkOK.length)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write " " & "allValid = true;" & vbCrLf
	Response.Write "break;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "return allValid;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->"
	Response.Write "</script>" & vbCrLf
	Response.Write "<table width="""
	Response.Write Newasp.mainset(0)
	Response.Write """ class=TableBorder align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th width=""23%"">软件发布协议</th> <TD width=""1""><img src="""" width=1 height=1></TD><th>软件发布</th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr valign=""top""> " & vbCrLf
	Response.Write " <td width=""23%"" style=""LINE-HEIGHT: 150%"" class=Border1> 软件作者在此发布软件，就表明授权该作品给于["
	Response.Write Newasp.setting(0)
	Response.Write "]网络传播权。软件作者必须保障所提供的软件中不含有可能损害他人利益的附加程序（如病毒、木马等）。["
	Response.Write Newasp.setting(0)
	Response.Write "]保证对作者所提供的软件作品不做任何改动，保持“原样”提供；但["
	Response.Write Newasp.setting(0)
	Response.Write "]不保证本站提供的下载资源的准确性、安全性和完整性，也不提供任何有关软件安装、使用方面的服务；同时["
	Response.Write Newasp.setting(0)
	Response.Write "]也不承担用户因使用这些下载软件对自己和他人造成任何形式的损失或伤害。<br>" & vbCrLf
	Response.Write " <font color=""#FF0000"">如果同意上述协议请点击“发布软件”按钮</font> </td>" & vbCrLf
	Response.Write " <TD width=""1""><img src="""" width=1 height=1></TD>" & vbCrLf
12

⌨️ 快捷键说明

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