admin_soft.asp

采用的是新云内核

        <tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>简介：</b></td>
          <td colspan="3" class="TableRow1"><textarea name="content" style="display:none"><%If isEdit Then Response.Write Server.HTMLEncode(Rs("content"))%></textarea>
		<script src='../editor/edit.js' type=text/javascript></script></td>
        </tr>
<%
	If isEdit Then
%>
	<tr>
          <td align="right" class="TableRow2"><b>修改下载地址：</b></td>
          <td colspan="3" class="TableRow1">
	  <%
	  Response.Write ReadDownAddress(softid)
	  %></td>
        </tr>
<%
	End If
%>
 <script language="javascript">
 function setid() {
	 str='';
	 if(!window.myform.no.value)
	 window.myform.no.value=1;
	 for(i=2;i<=window.myform.no.value;i++)
	 str+=''+'<%=SelDownServer(0,"downsid")%><input type="text" name="DownAddress" size="50" value="">-<input type="text" name="SiteName" value="下载地址'+i+'" size="15"><br>';
	 window.upid.innerHTML=str;
	 /*if (i==1) {
		downsite.style.display='none';
	 }else{
		downsite.style.display='';
	 }*/
 }
 </script>
	<tr>
          <td align="right" class="TableRow2"><b>设置下载数量：</b></td>
          <td colspan="3" class="TableRow1"><input type="text" name="no" value="1" size=2>&nbsp;&nbsp;<input type="button" name="Button" class="button" onclick="setid();" value="添加下载地址数"> 
	  <input type='button' name='selectfile' value='从已上传文件中选择' onclick='SelectFile()' class="button">
	  <input type='button' name='DownFile' value=' 上传文件 ' onclick="setUploadFile.style.display='';" class="button"></td>
        </tr>

	<tr>
	  <td align="right" class="TableRow2"><b>添加下载地址：</b></td>
          <td colspan="3" class="TableRow1"><span><font color=red>如果选择了使用下载服务器，请在下面↓输入文件名称。</font>
	  <font color=blue>下载服务器路径 + 下载文件名称 = 完整下载地址</font><br>
<%
	Response.Write SelDownServer(0,"downsid")
	Response.Write "<input name=""DownAddress"" id=""DownAddress1"" type=""text"" size=""50"">-"
	Response.Write "<input name=""SiteName"" type=""text"" size=""15"" value=""下载地址1"">"
	Response.Write "<br>"
%>
	  </span>
	  <span id="upid"></span></td>
        </tr>
	<tr id="setUploadFile" style="display='none';">
          <td align="right" class="TableRow2"><b>文件上传：</b></td>
          <td colspan="3" class="TableRow1"><iframe name="file1" frameborder=0 width='100%' height=45 scrolling=no src=upfile.asp?ChannelID=<%=ChannelID%>></iframe></td>
        </tr>
</table>

<table id="TableR2" style="display:none" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorders3">
                <tr>
          <td align="right" class="TableRow2"><b>名称模式：</b></td>
          <td colspan="3" class="TableRow1">颜色：
            <select size="1" name="ColorMode">
		<option value="0">请选择颜色</option>
<%
	SoftNameColor = "," & Newasp.InitTitleColor
	SoftNameColor = Split(SoftNameColor, ",")
	For i = 1 To UBound(SoftNameColor)
		Response.Write ("<option style=""background-color:"& SoftNameColor(i) &";color: "& SoftNameColor(i) &""" value='"& i &"'")
		If isEdit Then
			If Rs("ColorMode") = i Then Response.Write (" selected")
		End If
		Response.Write (">"& SoftNameColor(i) &"</option>")
	Next
%>
		</select> 字体：
		<select size="1" name="FontMode">
		<%If isEdit Then%>
		<option value="0"<%If Rs("FontMode") = 0 Then Response.Write (" selected")%>>请选择字体</option>
		<option value="1"<%If Rs("FontMode") = 1 Then Response.Write (" selected")%>>粗体</option>
		<option value="2"<%If Rs("FontMode") = 2 Then Response.Write (" selected")%>>斜体</option>
		<option value="3"<%If Rs("FontMode") = 3 Then Response.Write (" selected")%>>下划线</option>
		<option value="4"<%If Rs("FontMode") = 4 Then Response.Write (" selected")%>>粗体+斜体</option>
		<option value="5"<%If Rs("FontMode") = 5 Then Response.Write (" selected")%>>粗体+下划线</option>
		<option value="6"<%If Rs("FontMode") = 6 Then Response.Write (" selected")%>>斜体+下划线</option>
		<%Else%>
		<option value="0">请选择字体</option>
		<option value="1">粗体</option>
		<option value="2">斜体</option>
		<option value="3">下划线</option>
		<option value="4">粗体+斜体</option>
		<option value="5">粗体+下划线</option>
		<option value="6">斜体+下划线</option>
		<%End If%>
		</select></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b>相关<%=sModuleName%>：</b></td>
          <td colspan="3" class="TableRow1"><input name="Related" type="text" id="Related" size="60" value="<%If isEdit Then Response.Write Rs("Related") & ""%>"> <font color=red>*</font></td>
        </tr>
	<tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>预览图片：</b></td>
          <td colspan="3" class="TableRow1"><input name="SoftImage" id="ImageUrl" type="text" size="60" value="<%If isEdit Then Response.Write Rs("SoftImage")%>">
	  <input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPhoto()' class=button></td>
        </tr>
	<tr>
          <td align="right" class="TableRow2"><b>上传图片：</b></td>
          <td colspan="3" class="TableRow1"><iframe name="image" frameborder=0 width='100%' height=45 scrolling=no src=upload.asp?ChannelID=<%=ChannelID%>></iframe></td>
        </tr>
		<tr>
          <td align="right" class="TableRow2"><b>软件作者：</b></td>
          <td class="TableRow1">
<%
	Response.Write "<input name=""Author"" type=""text"" size=""20"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Author")
		Response.Write """"
	End If
	Response.Write ">"
%>
		<select name=font2 onChange="Author.value=this.value;">
			<option selected value="">选择作者</option>
			<option value='佚名'>佚名</option>
			<option value='本站原创'>本站原创</option>
			<option value='不详'>不详</option>
			<option value='未知'>未知</option>
			<option value='<%=AdminName%>'><%=AdminName%></option>
		</select>
	  </td>
          <td align="right" class="TableRow2"><b>注册网址：</b></td>
          <td class="TableRow1">
<%
	Response.Write "<input name=""Regsite"" type=""text"" size=""30"" "
	If isEdit Then
		Response.Write "value="""
		Response.Write Rs("Regsite")
		Response.Write """"
	End If
	Response.Write ">"
%>
	  </td>
	</tr>
	<tr>
          <td align="right" class="TableRow2"><b>下载等级：</b></td>
          <td class="TableRow1"><select name="UserGroup">
<%
	Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup order by Groupid")
	Do While Not RsObj.EOF
		Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("Grades") & """"
		If isEdit Then
			If Rs("UserGroup") = RsObj("Grades") Then Response.Write " selected"
		Else
			If RsObj("Grades") = 0 Then Response.Write " selected"
		End If
		Response.Write ">"
		Response.Write RsObj("GroupName")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
%>
          </select></td>
          <td align="right" class="TableRow2"><b>所需点数：</b></td>
          <td class="TableRow1"><input name="PointNum" type="text" size="10" value="<%If isEdit Then Response.Write Rs("PointNum"):Else Response.Write 0:End If%>"> 
            对匿名用户和管理员无效 </td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b>初始点击数：</b></td>
          <td class="TableRow1"><input name="AllHits" type="text" id="AllHits" size="15" value="<%If isEdit Then Response.Write Rs("AllHits"):Else Response.Write 0%>"> 
          <font color=red>*</font></td>
          <td align="right" class="TableRow2"><b><%=sModuleName%>价格：</b></td>
          <td class="TableRow1"><input name="SoftPrice" type="text" size="10" value="<%If isEdit Then Response.Write Rs("SoftPrice"):Else Response.Write 0:End If%>"> 元</td>
        </tr>
	<tr>
          <td align="right" class="TableRow2"><b>更新时间：</b></td>
          <td class="TableRow1"><input name="SoftTime" type="text" id="SoftTime" size="25" value="<%If isEdit Then Response.Write Rs("SoftTime"):Else Response.Write (Now())%>"> 
          <font color=red>*</font><%If isEdit Then%>
	    <input name="Update" type="checkbox" value="1"> 
            更新时间<%End If%></td>
	    <td align="right" class="TableRow2"><b>解压密码：</b></td>
          <td class="TableRow1"><%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>
        </tr>
	<tr>
          <td align="right" class="TableRow2"><b>其它选项：</b></td>
          <td class="TableRow1" colspan="3"><input name="isTop" type="checkbox" id="isTop" value="1"<%If isEdit Then:If Rs("isTop") <> 0 Then Response.Write (" checked")%>>
            <%=sModuleName%>置顶 
            <input name="isBest" type="checkbox" id="isBest" value="1"<%If isEdit Then:If Rs("isBest") <> 0 Then Response.Write (" checked")%>> 
            <%=sModuleName%>推荐
	    <input name="showreg" type="checkbox" id="showreg" value="1"<%If isEdit Then:If Rs("showreg") <> 0 Then Response.Write (" checked")%>> 
            注册<%=sModuleName%>
	    <input name="ForbidEssay" type="checkbox" id="ForbidEssay" value="1"<%If isEdit Then:If Rs("ForbidEssay") <> 0 Then Response.Write (" checked")%>> 
            禁止发表评论
	    <input name="isAccept" type="checkbox" id="isAccept" value="1" checked> 
            立即发布（<font color=blue>否则审核后才能发布。</font>）
	    </td>
        </tr>
	<tr>
          <td width="15%" align="right" nowrap class="TableRow2"><b>所属分类：</b></td>
          <td width="35%" class="TableRow1"></td>
          <td width="15%" align="right" nowrap class="TableRow2"><b>所属专题：</b></td>
          <td width="35%" class="TableRow1"></td>
        </tr>
</table>

<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorders2">
        <tr align="center">
          <td class="TableRow2">
	  <input type="button" name="B1" onclick="ChangeTableR(this,1)" value="常规设置" class="Button" disabled>
	  <input type="button" name="B2" onclick="ChangeTableR(this,3)" value="更多设置" class="Button">
	  <input type="button" name="Submit2" onclick="CheckLength();" value="查看内容长度" class="Button">
	  <input type="button" name="Submit4" onclick="javascript:history.go(-1)" value="返回上一页" class="Button">
	  <input type="button" name="Submit1" value="保存<%=sModuleName%>" class="Button" onclick="doSubmit();"></td>
        </tr>
</table></form></div>
<%
	If isEdit Then
		Rs.Close
		Set Rs = Nothing
	End If
End Sub
Private Function ReadDownAddress(ByVal softid)
	If softid < 1 Then Exit Function
	Dim rsDown,strDownText
	Set rsDown = Newasp.Execute("SELECT id,downid,DownFileName,DownText FROM NC_DownAddress WHERE softid="& CLng(softid))
	Do While Not rsDown.EOF
		strDownText = Trim(rsDown("DownText") & "")
		Response.Write "<input name=""id"" type=""hidden"" value='"
		Response.Write rsDown("id")
		Response.Write "'>" & vbCrLf
		Response.Write SelDownServer(rsDown("downid"),"downid")
		Response.Write "<input name=""DownFileName"" type=""text"" size=""45"" value='"
		Response.Write Server.HTMLEncode(rsDown("DownFileName") & "")
		Response.Write "'>-"
		Response.Write "<input name=""DownText"" type=""text"" size=""15"" value='"
		If Len(strDownText) = 0 Then
			Response.Write "立即下载"
		Else
			Response.Write Server.HTMLEncode(rsDown("DownText"))
		End If
		Response.Write "'>"
		Response.Write " <a href='?action=sdel&ChannelID="
		Response.Write ChannelID
		Response.Write "&id="
		Response.Write rsDown("id")
		Response.Write "' class=showmenu onclick=""return confirm('您确定要删除吗?');"">删 除</a><br>"  & vbCrLf
		rsDown.movenext
	Loop
	Set rsDown = Nothing
	Response.Write "<b>说明：</b><font color=""blue"">如果要删除下载地址，</font><font color=""red"">请在上面的↑输入框输入“del”或者直接点击删除按钮。</font><br>"
End Function
Private Function SelDownServer(intdownid,strname)
	Dim rsobj
	If Not IsNumeric(intdownid) Then intdownid = 0
	Response.Write "<select name=""" & strname & """ size=""1"">"
	Response.Write "<option value=""0"""
	If intdownid = 0 Then Response.Write " selected"
	Response.Write ">↓请选择下载服务器↓</option>"
	SQL = "SELECT downid,DownloadName,depth,rootid FROM NC_DownServer WHERE depth=0 And ChannelID="& ChannelID
	Set rsobj = Newasp.Execute(SQL)
	Do While Not rsobj.EOF
		Response.Write "<option value=""" & rsobj("rootid") & """"
		If intdownid = rsobj("rootid") Then Response.Write " selected"
		Response.Write ">" & rsobj(1) & "</option>"
		rsobj.movenext
	Loop
	rsobj.Close
	Set rsobj = Nothing
	Response.Write "<option value=""0"">不使用下载服务器</option>"
	Response.Write "</select>"
End Function


Private Sub CheckSave()

	If Trim(Request.Form("SoftName")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>" & sModuleName & "名称不能为空！</li>"
	Else
		AlphaSoftName = Trim(Request.Form("SoftName"))
		AlphaSoftName = Replace(AlphaSoftName, "'", "")
		AlphaSoftName = Replace(AlphaSoftName, """", "")
		AlphaSoftName = Replace(AlphaSoftName, "(", "")
		AlphaSoftName = Replace(AlphaSoftName, "[", "")
		AlphaSoftName = Replace(AlphaSoftName, "{", "")
		AlphaSoftName = Replace(AlphaSoftName, "<", "")
		AlphaSoftName = Replace(AlphaSoftName, "〈", "")
		AlphaSoftName = Replace(AlphaSoftName, "《", "")
		AlphaSoftName = Replace(AlphaSoftName, "&", "")
		AlphaSoftName = Replace(AlphaSoftName, "%", "")
		AlphaSoftName = Replace(AlphaSoftName, "％", "")
		AlphaSoftName = Replace(AlphaSoftName, "#", "")
		AlphaSoftName = Replace(AlphaSoftName, "*", "")
		AlphaSoftName = Replace(AlphaSoftName, "?", "")
		AlphaSoftName = Replace(AlphaSoftName, "+", "")
		AlphaSoftName = Replace(AlphaSoftName, "-", "")
		AlphaSoftName = Replace(AlphaSoftName, "_", "")
		AlphaSoftName = Replace(AlphaSoftName, "=", "")
		AlphaSoftName = Replace(AlphaSoftName, "|", "")
	End If