admin_software00.asp

多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态ASP； 无限制添加下载服务器

				Response.Write Chr(9) & " <IMG SRC=""images/folder.gif"" WIDTH='16' HEIGHT='16' BORDER=0 ALT='开放软件'>"
				Response.Write Chr(9) & " "
			Else
				Response.Write Chr(9) & " <IMG SRC='images/jing.gif' WIDTH='18' HEIGHT='18' BORDER=0 ALT='推荐软件'>"
				Response.Write Chr(9) & " "
			End If
			Response.Write "</td>"
			Response.Write " <td class=forumrow align=""center"" nowrap>"
			If Rs("softTime") >= Date Then
				Response.Write "<font color=""#FF3300"">"
				Response.Write FormatDateTime(Rs("softTime"), 2)
				Response.Write "</font>"
			Else
				Response.Write FormatDateTime(Rs("softTime"), 2)
			End If
			Response.Write "</td></tr>"
			Rs.movenext
			i = i + 1
			j = j + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close
	Response.Write " <tr>"
	Response.Write " <td height=""22"" class=""forumrow"">管理</td>"
	Response.Write " <td height=""22"" colspan=""3"" class=""forumrow""><a href=""javascript:SelectAll()"">全选/反选</a><input type=""checkbox"" name=""checkbox"" value=""checkbox"" onClick=""javascript:SelectAll()"">"
	Response.Write " <input type=""radio"" name=""action"" value=""move"">批量移动 ->"
	srtSortingList = Newasp.SortingJumpList
	srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
	Response.Write srtSortingList
	Response.Write " "
	If CInt(Newasp.Setting(5)) = 0 Then Response.Write "<input type=""radio"" name=""action"" value=""CreateHtml"">批量生成(HTML)"
	Response.Write "　<BR>"
	Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""del"">彻底删除"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""dele"">放入回收站"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""isCommend"">设置推荐"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""noCommend"">取消推荐"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""istop"">软件置顶"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""notop"">取消置顶"
	Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""indate"">更新时间"
	Response.Write "</td>"
	Response.Write " <td height=""22"" class=""forumrow""><input type=""submit"" name=""Submit"" value=""执行操作"" class=button onclick=""{if(confirm('您确定执行的操作吗?')){this.document.selform.submit();return true;}return false;}""></td>"
	Response.Write " </tr></form>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" colspan=""5"" class=""forumRowHighlight"">"
	Call showpage
	Response.Write "</td></tr>"
	Response.Write "</table>"
End Sub

Private Sub setclass(isEdit)
	Dim NC_HtmlEdit
	Dim srtSortingList
	Dim RunSystem
	Dim SoftType
	Dim Re
	Set NC_HtmlEdit = New HtmlEditor_Cls
	If isEdit Then
		SQL = "select * from NC_SoftInfo where softid=" & Request("softid")
		Rs.Open SQL, Conn, 1, 1
		Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
		sortid = CStr(Rs("sortid"))
		rootid = CStr(Rs("rootid"))
		softTitle = "编辑软件"
		If CInt(Newasp.Setting(19)) = 1 Then
			SoftBody = Server.HTMLEncode(Rs("Content"))
		Else
			SoftBody = Rs("Content")
		End If
		Set Re = New RegExp
		Re.IgnoreCase =true
		Re.Global=True
		Re.Pattern="\[br\]"
		SoftBody = Re.Replace(SoftBody,"")
		Re.Pattern="\[align=right\](.*)\[\/align\]"
		SoftBody = Re.Replace(SoftBody,"")
		Set Re = Nothing
	Else
		softTitle = "添加软件"
	End If
	Response.Write "<script language=""javascript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write Chr(9) & "function ToRunsystem(addTitle) {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var revisedTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var currentTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "currentTitle = document.myform.RunSystem.value;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "revisedTitle = currentTitle+addTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.value=revisedTitle;" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.focus();" & vbCrLf
	Response.Write Chr(9) & "return; }" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<script src=images/checksave.js type=text/javascript></script>"
	Response.Write "<div onkeydown=CtrlEnter()>"
	Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""tableBorder"">"
	Response.Write "<form name=""myform"" method=""post"" action=""admin_software.asp"" onSubmit=""return CheckSoft(this)"">"
	Response.Write " <input type=""Hidden"" name=""action"" value='"
	If isEdit Then
		Response.Write "modify"
	Else
		Response.Write "save"
	End If
	Response.Write "'>"
	Response.Write Chr(9) & Chr(9) & " "
	If CInt(Newasp.Setting(19)) = 1 Then
		Response.Write Chr(9) & Chr(9) & " <input type=""hidden"" name=""content1"" id=body value="""
		If isEdit Then
			Response.Write SoftBody
		End If
		Response.Write """>"
		Response.Write Chr(9) & Chr(9) & " "
	End If
	Response.Write " "
	If isEdit Then
		Response.Write " <input type=""Hidden"" name=""softid"" value='"
		Response.Write CStr(Request("softid"))
		Response.Write "'>"
		Response.Write " "
	End If
	Response.Write " <tr>"
	Response.Write " <th colspan=""2"">"
	Response.Write softTitle
	Response.Write " 注意事项</th>"
	Response.Write " </tr>"
	Response.Write "<tr>"
	Response.Write "<td colspan=""2"" class=""forumRowHighlight"">"
	Response.Write "<p><B>注意</B>：<BR>①添加软件时请先选择分类，不能选择一级分类做为软件分类；<BR>"
	Response.Write "②添加或者修改软件简介时需要HTML语法支持，请在基本设置开启HTML编辑器，文本编辑器会过滤所有的HTML标签；如果您以前添加的软件简介使用了HTML编辑器，请修改的时候一定要使用HTML编辑器；<BR>"
	Response.Write "③HTML编辑器和文本编辑器都不支持UBB代码。"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write " <tr>"
	Response.Write " <th colspan=""2"">"
	Response.Write softTitle
	Response.Write "</th>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td width=""15%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">电影分类：</td>"
	Response.Write " <td width=""85%"" class=""forumRow"">"
	srtSortingList = Newasp.SortingJumpList
	srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
	Response.Write srtSortingList
	Response.Write Chr(9) & " </td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">电影名称：</td>"
	Response.Write " <td class=""forumRow""><input name=""softname"" type=""text"" size=""40"" value='"
	If isEdit Then
		Response.Write Rs("softname")
	End If
	Response.Write "'> 版本: <input name=""softver"" type=""text"" size=""20"" value="""
	If isEdit Then
		Response.Write Rs("softver")
	End If
	Response.Write """></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">导演：</td>"
	Response.Write " <td class=""forumRow""><input name=""RunSystem"" type=""text"" size=""50"" value="""
	If isEdit Then
		Response.Write Rs("RunSystem")
	Else
		Response.Write Newasp.Setting(45)
	End If
	Response.Write """><BR>"
	RunSystem = Split(Newasp.Setting(34), ",")
	For i = 0 To UBound(RunSystem)
		Response.Write "<a href='javascript:ToRunsystem(""" & Trim(RunSystem(i)) & """)'><u>" & Trim(RunSystem(i)) & "</u></a> | "
		If i = 7 Then Response.Write "<br>"
	Next
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">主演：</td>"
	Response.Write " <td class=""forumRow""><input name=""zhuyan"" type=""text"" size=""50"" value="""
	If isEdit Then
		Response.Write Rs("zhuyan")
	Else
		Response.Write ""
	End If
	Response.Write """><BR>"
	
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">电影类型：</td>"
	Response.Write " <td class=""forumRow"">"
	SoftType = Split(Newasp.Setting(35), ",")
	For i = 0 To UBound(SoftType)
		Response.Write "<input type=""radio"" name=""SoftType"" value=""" & Trim(SoftType(i)) & """ "
		If isEdit Then
			If SoftType(i) = Rs("SoftType") Then Response.Write " checked"
		Else
			If i = 0 Then Response.Write " checked"
		End If
		Response.Write ">" & Trim(SoftType(i)) & " "
		If i = 6 Then Response.Write "<br>"
	Next
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">界面预览：</td>"
	Response.Write " <td class=""forumRow""><input id=image2 name=""PreviewImg"" type=""text"" size=""40"" value="""
	If isEdit Then
		Response.Write Rs("PreviewImg")
	End If
	Response.Write """><font color=""#808080""> 电影界面预览图片，大小不定</font></td>"
	Response.Write " </tr"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">缩略图：</td>"
	Response.Write " <td class=""forumRow""><input id=image1 name=""Softimg"" type=""text"" size=""30"" value="""
	If isEdit Then
		Response.Write Rs("softimg")
	End If
	Response.Write """><font color=""#808080""> 影片的缩略图，建议大小为：120×95 px</font></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td colspan=2 class=""forumRow""><iframe name=""image"" frameborder=0 width='100%' height='42' scrolling=no src=upfile.asp?type=image&upnum=2></iframe></td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">电影大小：</td>"
	Response.Write " <td class=""forumRow""> <input type=""text"" name=""SoftSize"" size=""14"" onkeyup=if(isNaN(this.value))this.value='' value='"
	If isEdit Then
		Response.Write Trim(Rs("SoftSize"))
	End If
	Response.Write "'> <input name=""SizeUnit"" type=""radio"" value=""KB"" checked>"
	Response.Write " KB"
	Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"">"
	Response.Write " MB <font color=""#FF0000"">！</font>"
	Response.Write " 时长:<input type=""text"" name=""Decode"" size=""15"" maxlength=""100"" value='"
	If isEdit Then
		Response.Write Trim(Rs("Decode"))
	End If
	Response.Write "'> <font color=""#808080"">没有请留空</font> </td>"
	Response.Write " </tr>"
	'Response.Write " <tr>"
	'Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">授权方式：</td>"
	'Response.Write " <td class=""forumRow"" nowrap> <select name=""impower"">"
	'Response.Write " "
	'If isEdit Then
	'	Response.Write "<option value=""" & Rs("impower") & """>" & Rs("impower") & "</option>"
	'End If
	'Dim ImpowerStr
	'ImpowerStr = Split(Newasp.Setting(46), ",")
	'For i = 0 To UBound(ImpowerStr)
	'	Response.Write " <option value=""" & ImpowerStr(i) & """>" & ImpowerStr(i) & "</option>"
	'Next
	'Response.Write " </select>&nbsp;&nbsp;"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">电影语言：</td>"
	Response.Write " <td class=""forumRow""><input name=""language"" type=""text"" size=""50"" value="""
	If isEdit Then
		Response.Write Rs("language")
	Else
		Response.Write ""
	End If
	Response.Write """><BR>"
	
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td>"
	Response.Write " 速度等级: <select name=""Grades"" size=""1"">"
	Response.Write " "
	If isEdit Then
		Response.Write " <option value=""1"" name=""Grades"" "
		If Trim(Rs("Grades")) = "1" Then
			Response.Write "selected"
		End If
		Response.Write ">一级</option>"
		Response.Write " <option value=""2"" name=""Grades"" "
		If Trim(Rs("Grades")) = "2" Then
			Response.Write "selected"
		End If
		Response.Write ">二级</option>"
		Response.Write " <option value=""3"" name=""Grades"" "
		If Trim(Rs("Grades")) = "3" Then
			Response.Write "selected"
		End If
		Response.Write ">三级</option>"
		Response.Write " <option value=""4"" name=""Grades"" "
		If Trim(Rs("Grades")) = "4" Then
			Response.Write "selected"
		End If
		Response.Write ">四级</option>"
		Response.Write " <option value=""5"" name=""Grades"" "
		If Trim(Rs("Grades")) = "5" Then
			Response.Write "selected"
		End If
		Response.Write ">五级</option>"
		Response.Write " "
	Else
		Response.Write " <option value=""1"">一级</option>"
		Response.Write " <option value=""2"">二级</option>"
		Response.Write " <option value=""3"" selected>三级</option>"
		Response.Write " <option value=""4"">四级</option>"
		Response.Write " <option value=""5"">五级</option>"
		Response.Write " "
	End If
	Response.Write " </select>"
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">地区：</td>"
	Response.Write " <td class=""forumRow""><input name=""Contact"" type=""text"" size=""25"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Contact")
		Response.Write """"
	Else