admin_software.asp

大型黄页系统,精美黄页flash演示,10m

	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 SoftType,mm
	SoftType = Split(DownsysClass.Setting(35), ",")
	mm = Trim(Request("ado"))

	Dim NC_HtmlEdit
	Dim srtSortingList
	Dim RunSystem
	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
		DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
		sortid = CStr(Rs("sortid"))
		rootid = CStr(Rs("rootid"))
		softTitle = "编辑信息"
		If CInt(DownsysClass.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?ado="& mm &""" 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(DownsysClass.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 = DownsysClass.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 DownsysClass.Setting(45)
	'End If
	'Response.Write """><BR>"
	'RunSystem = Split(DownsysClass.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"">"
	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 colspan=2 class=""forumRow""><iframe name=""ad"" frameborder=0 width=""100%"" height=42 scrolling=no src=upfile.asp?type=file&upnum=2></iframe> </td></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""> 信息的缩略图，建议大小为：125×100 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=1></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(DownsysClass.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 " 信息语言: <select name=""Language"">"
	'Response.Write " "
	'If isEdit Then
		'Response.Write "<option value=""" & Rs("Language") & """>" & Rs("Language") & "</option>"
	'End If
	'Dim LanguageStr
	'LanguageStr = Split(DownsysClass.Setting(47), ",")
	'For i = 0 To UBound(LanguageStr)
		'Response.Write " <option value=""" & LanguageStr(i) & """>" & LanguageStr(i) & "</option>"
	'Next
	'Response.Write " </select>&nbsp;&nbsp;"
	'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 """"
	End If
	Response.Write ">"
	Response.Write " 公司主页: <input name=""Homepage"" type=""text"" size=""30"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Homepage")
		Response.Write """"
	End If
	Response.Write ">"
	Response.Write "</td>"
	Response.Write " </tr>"
	Response.Write "<TR height=""22"">"
	Response.Write Chr(9) & "<TD colspan=4 align=center class=forumHeaderBackgroundAlternate><B>"
	If CInt(DownsysClass.Setting(19)) = 1 Then
		Response.Write "HTML编辑器 (不支持UBB代码)"
	Else
		Response.Write "您现在使用的编辑器不支持HTML语法，如果需要HTML语法支持，请在基本设置开启HTML编辑器。"
	End If
	Response.Write " </B></fort></td>"
	Response.Write "</TR>"
	Response.Write "<TR height=""22"">"
	Response.Write Chr(9) & "<TD colspan=4 class=forumRow>"
	If CInt(DownsysClass.Setting(19)) = 1 Then
		NC_HtmlEdit.Init_HtmlEdit
	Else
		Response.Write Chr(9) & "<textarea name=content1 style=""width:100%;"" rows=12>"
		If isEdit Then
			Response.Write SoftBody
		End If
		Response.Write "</textarea>"
	End If
	Response.Write "</TD>"
	Response.Write "</TR>"
	Response.Write " <tr height=""22"">"
	Response.Write " <td align=""right"" noWrap class=""forumRowHighlight"">是否推荐置顶：</td>"
	Response.Write " <td class=""forumRow""> <input name=""isCommend"" type=""radio"" value=""0"" "
	If isEdit Then
		If CInt(Rs("isCommend")) = 0 Then
			Response.Write "checked"
		End If
	Else
		Response.Write "checked"
	End If
	Response.Write ">"
	Response.Write " 不推荐　<input type=""radio"" name=""isCommend"" value=""1"" "
	If isEdit Then
		If CInt(Rs("isCommend")) = 1 Then
			Response.Write "checked"
		End If
	End If
	Response.Write ">"
	Response.Write " 信息推荐　<input name=""isTop"" type=""radio"" value=""0"" "
	If isEdit Then
		If CInt(Rs("isTop")) = 0 Then