admin_flash.asp

这是一套基于WEB的网站管理系统

	</tr>
	</form>
	<tr>
	  <td colspan="5" align="center" class="TableRow2"><%Call showpage()%></td>
	</tr>
</table>
<%
End Sub

Private Sub FlashEdit(isEdit)
	Dim EditTitle,TitleColor,downid
	If isEdit Then
		SQL = "select * from NC_FlashList where flashid=" & Request("flashid")
		Set Rs = Newasp.Execute(SQL)
		ClassID = Rs("ClassID")
		EditTitle = "编辑" & sModuleName
		downid = Rs("downid")
	Else
		EditTitle = "添加" & sModuleName
		ClassID = Request("ClassID")
		downid = 0
	End If
%>
<script src='include/FlashJuge.Js' type=text/javascript></script>
<script language= JavaScript>
function SelectPhoto(){
  var arr=showModalDialog('Admin_selFile.asp?ChannelID=<%=ChannelID%>&UploadDir=UploadPic', '', 'dialogWidth:800px; dialogHeight:600px; help: no; scroll: yes; status: no');
  if(arr!=null){
    var ss=arr.split('|');
    document.myform.miniature.value=ss[0];
  }
}
function SelectFile(){
  var arr=showModalDialog('Admin_selFile.asp?ChannelID=<%=ChannelID%>&UploadDir=UploadFile', '', 'dialogWidth:800px; dialogHeight:600px; help: no; scroll: yes; status: no');
  if(arr!=null){
    var ss=arr.split('|');
    document.myform.showurl.value=ss[0];
    document.myform.filesize.value=ss[1];
  }
}
</script>
<div onkeydown=CtrlEnter()>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
  <tr>
    <th colspan="4"><%=EditTitle%></th>
  </tr>
 	<form method=Post name="myform" action="admin_flash.asp" onSubmit='return CheckForm(this);'>
<%
	If isEdit Then
		Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
		Response.Write "<input type=""Hidden"" name=""flashid"" value="""& Request("flashid") &""">"
	Else
		Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
	End If
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
%>
  <tr>
    <td width="12%" align="right" nowrap class="TableRow2"><strong><%=sModuleName%>分类：</strong></td>
    <td width="38%" class="TableRow1">
<%
	Dim sClassSelect
	Response.Write "<select name=""ClassID"" id=""ClassID"">"
	sClassSelect = Newasp.LoadSelectClass(ChannelID)
	sClassSelect = Replace(sClassSelect, "{ClassID=" & ClassID & "}", "selected")
	Response.Write sClassSelect
	Response.Write "</select>"
%>
    </td>
    <td width="12%" align="right" class="TableRow2"><strong></strong></td>
    <td width="38%" class="TableRow1"></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong><%=sModuleName%>名称：</strong></td>
    <td class="TableRow1"><input name="title" type="text" id="title" size="35" value="<%If isEdit Then Response.Write Rs("title")%>"> 
      <span class="style1">* </span></td>
    <td align="right" class="TableRow2"><strong>名称字体：</strong></td>
    <td class="TableRow1">
            <select size="1" name="ColorMode">
		<option value="0">请选择颜色</option>
<%
	TitleColor = "," & Newasp.InitTitleColor
	TitleColor = Split(TitleColor, ",")
	For i = 1 To UBound(TitleColor)
		Response.Write ("<option style=""background-color:"& TitleColor(i) &";color: "& TitleColor(i) &""" value='"& i &"'")
		If isEdit Then
			If Rs("ColorMode") = i Then Response.Write (" selected")
		End If
		Response.Write (">"& TitleColor(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 height="130" align="right" class="TableRow2"><strong><%=sModuleName%>大小：</strong></td>
    <td class="TableRow1">
<%
	Response.Write " <input type=""text"" name=""filesize"" size=""14"" onkeyup=if(isNaN(this.value))this.value='' value='"
	If isEdit Then
		Response.Write Trim(Rs("filesize"))
	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>"
%>
    </td>
    <td align="right" class="TableRow2"><strong><%=sModuleName%>星级：</strong></td>
    <td class="TableRow1"><select name="star">
		<%If isEdit Then%>
          	<option value=5<%If Rs("star") = 5 Then Response.Write (" selected")%>>★★★★★</option>
          	<option value=4<%If Rs("star") = 4 Then Response.Write (" selected")%>>★★★★</option>
          	<option value=3<%If Rs("star") = 3 Then Response.Write (" selected")%>>★★★</option>
		<option value=2<%If Rs("star") = 2 Then Response.Write (" selected")%>>★★</option>
		<option value=1<%If Rs("star") = 1 Then Response.Write (" selected")%>>★</option>
		<%Else%>
		<option value=5>★★★★★</option>
          	<option value=4>★★★★</option>
          	<option value=3 selected>★★★</option>
		<option value=2>★★</option>
		<option value=1>★</option>
		<%End If%>
          </select></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong><%=sModuleName%>作者：</strong></td>
    <td class="TableRow1"><input name="Author" type="text" id="Author" size="20" value="<%If isEdit Then Response.Write Rs("Author")%>">
	<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"><strong>作品来源：</strong></td>
    <td class="TableRow1"><input name="ComeFrom" type="text" id="ComeFrom" size="25" value="<%If isEdit Then Response.Write Rs("ComeFrom")%>">
    <select name=font1 onChange="ComeFrom.value=this.value;">
			<option selected value="">选择来源</option>
			<option value='本站原创'>本站原创</option>
			<option value='本站整理'>本站整理</option>
			<option value='不详'>不详</option>
			<option value='转载'>转载</option>
			</select></td>
  </tr>
  <tr style="display:none">
    <td align="right" class="TableRow2"><strong>下载等级：</strong></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"><strong>下载点数：</strong></td>
    <td class="TableRow1"><input name="PointNum" type="text" id="PointNum" size="10" value="<%If isEdit Then Response.Write Rs("PointNum") Else Response.Write 0 End If%>"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="TableRow2"><strong><%=sModuleName%>缩略图：</strong></td>
    <td colspan="3" class="TableRow1"><input name="miniature" type="text" id="ImageUrl" size="60" value="<%If isEdit Then Response.Write Newasp.ChkNull(Rs("miniature"))%>">
    <input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPhoto()' class=button></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong>图片上传</strong></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"><strong><%=sModuleName%>简介：</strong></td>
    <td colspan="3" class="TableRow1"><textarea name="content" style="display:none" id="content"><%If isEdit Then Response.Write Server.HTMLEncode(Rs("Introduce"))%></textarea>
    <script src='../editor/edit.js' type=text/javascript></script></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong><%=sModuleName%>描述：</strong></td>
    <td colspan="3" class="TableRow1"><input name="Describe" type="text" id="Describe" size="80" value="<%If isEdit Then Response.Write Newasp.ChkNull(Rs("Describe"))%>"></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong>其它选项：</strong></td>
    <td colspan="3" class="TableRow1"><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="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>）
	    <%If isEdit Then%>
	    <input name="Update" type="checkbox" value="1"> 
            同时更新时间<%End If%></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong>显示模式：</strong></td>
    <td colspan="3" class="TableRow1">
<%
	Dim ShowModeArray
	
	ShowModeArray = Array("不显示","FLASH","图片","Media","Real","DCR")
	For i = 0 To UBound(ShowModeArray)
		Response.Write "<input type=""radio"" name=""showmode"" value=""" & i & """ "
		If isEdit Then
			If i = Rs("showmode") Then Response.Write " checked"
		Else
			If i = DefaultShowMode  Then Response.Write " checked"
		End If
		Response.Write ">" & Trim(ShowModeArray(i)) & " "
		If i = 6 Then Response.Write "<br>"
	Next
%>
    </td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong>页面显示URL：</strong></td>
    <td colspan="3" class="TableRow1"><input name="showurl" type="text" id="filePath" size="60" value="<%If isEdit Then Response.Write Newasp.ChkNull(Rs("showurl"))%>">
    <input type='button' name='selectfile' value='从已上传文件中选择' onclick='SelectFile()' class=button></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong>上传<%=sModuleName%>：</strong></td>
    <td colspan="3" class="TableRow1"><iframe name="image" frameborder=0 width='100%' height=45 scrolling=no src=upflash.asp?ChannelID=<%=ChannelID%>></iframe></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2"><strong>下载服务器：</strong></td>
    <td colspan="3" class="TableRow1"><%=SelDownServer(downid)%> <b>说明：</b><font color=blue>下载服务器路径 + 下载文件名称 = 完整下载地址</font></td>
  </tr>
  <tr>
    <td align="right" nowrap class="TableRow2"><strong>下载地址：</strong></td>
    <td colspan="3" class="TableRow1"><input name="DownAddress" type="text" id="DownAddress" size="80" value="<%If isEdit Then Response.Write Newasp.ChkNull(Rs("DownAddress"))%>"></td>
  </tr>
  <tr>
    <td align="right" class="TableRow2">&nbsp;</td>
    <td colspan="3" align="center" class="TableRow1">
    <input type="button" name="Submit2" onclick="CheckLength();" value="查看内容长度" class=Button>
    <input type="button" name="Submit3" onclick="javascript:history.go(-1)" value="返回上一页" class=Button>
    <input type="Submit" name="Submit1" value="保存<%=sModuleName%>" class=Button></td>
  </tr></form>
</table></div>
<%
	If isEdit Then
		Rs.Close
		Set Rs = Nothing
	End If
End Sub

Private Function SelDownServer(intdownid)
	Dim rsobj
	If Not IsNumeric(intdownid) Then intdownid = 0
	Response.Write " <select name=""downid"" size=""1"">"
	Response.Write "<option value=""0"""
	If intdownid = 0 Then Response.Write " selected"