www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\flash\admin_post.asp
<!--#include file="const.asp"-->
<!--#include file="../../inc/cls_editor.asp" -->
<!--#include file="../inc/cls_tags.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：801w软件代理系统
' 当前版本：801wAsp 801w cn 801w com
' 文件名称：admin_main.asp
' 更新日期：2010-2-16
' 官方网站：801w代理系统(www.801w.cn www.801w.com) QQ：274667447
'=====================================================================
' Copyright 2003-2010 801w.cn - All Rights Reserved.
' 801wasp is a trademark of 801w.cn
'=====================================================================
%>
<table class="table1" cellspacing="1" cellpadding="3" align="center" border="0">
<tr>
<td class="tableline linetitle" width="200" align="left"><%=NewAsp.ModuleName%>频道</td>
<td class="tableline" width="*" align="right"><a href="admin_index.asp?ChannelID=<%=ChannelID%>">管理首页</a>
- <a href="admin_list.asp?ChannelID=<%=ChannelID%>"><%=NewAsp.ModuleName%>列表</a>
- <a href="admin_list.asp?ChannelID=<%=ChannelID%>&showmode=1">专题列表</a>
- <a href="admin_list.asp?ChannelID=<%=ChannelID%>&isaccept=1">审核列表</a>
- <a href="../sys/admin_class.asp?ChannelID=<%=ChannelID%>">分类管理</a>
</td>
</tr>
</table>
<%
Dim Action,isEdit,flashid,classid,DefaultShowMode
flashid=NewAsp.ChkNumeric(Request("flashid"))
classid=NewAsp.ChkNumeric(Request("classid"))
DefaultShowMode=1
If Not ChkAdmin("PostFlash_"&ChannelID) Then
Call Transfer_error()
End If
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "add"
isEdit = False
Call showmain()
Case "edit"
isEdit = True
Call showmain()
Case Else
isEdit = False
Call showmain()
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
NewAsp.PageEnd
Sub showmain()
'On Error Resume Next
Dim Rs,SQL,RsObj,i
Dim EditTitle,TitleColor,downid
If isEdit Then
SQL = "SELECT * FROM NC_FlashList WHERE flashid=" & flashid
Set Rs = NewAsp.Execute(SQL)
classid = Rs("classid")
EditTitle = "编辑" & NewAsp.ModuleName
downid = Rs("downid")
Else
EditTitle = "添加" & NewAsp.ModuleName
classid = classid
downid = 0
End If
%>
<script src="../script/checkflash.js" type="text/javascript"></script>
<script type="text/javascript">
function SelectPhoto(){
var arr=showModalDialog('admin_selfile.asp?ChannelID=<%=ChannelID%>&action=img', '', 'dialogWidth:860px; dialogHeight:680px; 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%>&action=file', '', 'dialogWidth:860px; dialogHeight:680px; 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];
}
}
function InsertTags(){
if(!detectMacXFF()){
var ss=window.showModalDialog('../inc/getTags.asp?channelid=<%=ChannelID%>',window, 'dialogWidth:860px; dialogHeight:680px; help: no; scroll: yes; status: no');
if(ss!=null) document.getElementById("Tagstring").value=ss;
}else{
var feature="width=800,height=600,menubar=no,toolbar=no,location=no,";
feature+="scrollbars=yes,resizable=yes,status=no,modal=yes";
window.open('../inc/getTags.asp?channelid=<%=ChannelID%>',null,feature);
}
}
</script>
<div onkeydown="CtrlEnter()">
<form method="Post" name="myform" action="admin_save.asp" onsubmit="return checkPost()">
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
<tr>
<th colspan="4"><%=EditTitle%></th>
</tr>
<%
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="15%" align="right" nowrap class="tablerow1"><b><%=NewAsp.ModuleName%>分类：</b></td>
<td width="35%" class="tablerow1">
<%
Call selectClasslist(ChannelID,classid)
%>
</td>
<td width="15%" align="right" class="tablerow1"><b>所属专题：</b></td>
<td width="35%" class="tablerow1"><%
Response.Write "<select name=""SpecialID"" id=""SpecialID"">" & vbNewLine
Response.Write "<option value=""0"">不指定" & NewAsp.ModuleName & "专题</option>" & vbNewLine
Set RsObj = NewAsp.Execute("SELECT SpecialID,SpecialName FROM NC_Special WHERE ChannelID="& ChannelID &" And ChangeLink=0 ORDER BY orders")
Do While Not RsObj.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """"
If isEdit Then
If Rs("SpecialID") = RsObj("SpecialID") Then Response.Write " selected"
End If
Response.Write ">"
Response.Write RsObj("SpecialName")
Response.Write "</option>" & vbCrLf
RsObj.movenext
Loop
Set RsObj = Nothing
%>
</select></td>
</tr>
<tr>
<td align="right" class="tablerow2"><b><%=NewAsp.ModuleName%>名称：</b></td>
<td class="tablerow2"><span style="position:relative"><input name="title" type="text" id="searchwordbox" size="40" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("title"))%>">
<font color="red">*</font><div style="display:none" id="sugAutoComplete" onselectstart="return false"> </div></span></td>
<td align="right" class="tablerow2"><b>名称字体：</b></td>
<td class="tablerow2">
<select size="1" name="ColorMode">
<option value="0">请选择颜色</option>
<%
TitleColor = "," & NewAsp.MainSetting(48)
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="tablerow1"><b>副 标 题：</b></td>
<td class="tablerow1"><input name="subtitle" type="text" id="subtitle" size="40" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("subtitle") & "")%>"></td>
<td align="right" class="tablerow1"><b>相关<%=NewAsp.ModuleName%>：</b></td>
<td class="tablerow1"><input name="Related" type="text" id="Related" size="40" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("Related")&"")%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="tablerow2"><b><%=NewAsp.ModuleName%>大小：</b></td>
<td class="tablerow2">
<%
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"))
Else
Response.Write 0
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"><b><%=NewAsp.ModuleName%>星级：</b></td>
<td class="tablerow2"><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"<%If Trim(Channel_Setting(3)) = "5" Then Response.Write " selected"%>>★★★★★</option>
<option value="4"<%If Trim(Channel_Setting(3)) = "4" Then Response.Write " selected"%>>★★★★</option>
<option value="3"<%If Trim(Channel_Setting(3)) = "3" Then Response.Write " selected"%>>★★★</option>
<option value="2"<%If Trim(Channel_Setting(3)) = "2" Then Response.Write " selected"%>>★★</option>
<option value="1"<%If Trim(Channel_Setting(3)) = "1" Then Response.Write " selected"%>>★</option>
<%End If%>
</select></td>
</tr>
<tr>
<td align="right" class="tablerow1"><b><%=NewAsp.ModuleName%>作者：</b></td>
<td class="tablerow1"><input name="Author" type="text" id="Author" size="20" value="<%If isEdit Then Response.Write Rs("Author") Else Response.Write m_arrAuthor(0)%>">
<select name=font2 onChange="Author.value=this.value;">
<%
For i = 0 To UBound(m_arrAuthor)
Response.Write " <option value=""" & m_arrAuthor(i) & """>" & m_arrAuthor(i) & "</option>"
Next
%>
</select></td>
<td align="right" class="tablerow1"><b>作品来源：</b></td>
<td class="tablerow1"><input name="ComeFrom" type="text" id="ComeFrom" size="25" value="<%If isEdit Then Response.Write Rs("ComeFrom") Else Response.Write m_arrComeFrom(0)%>">
<select name="font1" onChange="ComeFrom.value=this.value;">
<option value="" selected>选择来源</option>
<%
For i = 0 To UBound(m_arrComeFrom)
Response.Write " <option value=""" & m_arrComeFrom(i) & """>" & m_arrComeFrom(i) & "</option>"
Next
%>
</select></td>
</tr>
<tr>
<td align="right" nowrap class="tablerow2"><b><%=NewAsp.ModuleName%>缩略图：</b></td>
<td colspan="3" class="tablerow2"><input name="miniature" type="text" id="Previewimg" size="60" value="<%If isEdit Then Response.Write Rs("miniature")&""%>">
<input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPhoto()' class="button"></td>
</tr>
<tr>
<td align="right" class="tablerow1"><b>图片上传</b></td>
<td colspan="3" class="tablerow1"><iframe name="image" frameborder="0" width='100%' height="45" scrolling="no" src="../upload.asp?ChannelID=<%=ChannelID%>&stype=image&m=flash&inst=content&s=0" allowTransparency="true"></iframe></td>
</tr>
<tr>
<td align="right" class="tablerow2"><b><%=NewAsp.ModuleName%>Tags：</b></td>
<td colspan="3" class="tablerow2"><%
Response.Write "<input type=""hidden"" name=""Taglist"" id=""Taglist"""
If isEdit Then
Response.Write " value="""
Response.Write Tag.getTagQuery(Rs("Taglist"))
Response.Write """"
End If
Response.Write ">"
Response.Write "<input type=""text"" name=""Tagstring"" id=""Tagstring"" size=""65"""
If isEdit Then
Response.Write " value="""
Response.Write Tag.getTagString(Rs("Taglist"))
Response.Write """"
End If
Response.Write ">"
%> <input type="button" name="selectags" value="插入已使用的标签" onclick="InsertTags()" class="button"></td>
</tr>
<tr>
<td align="right" class="tablerow1"><b><%=NewAsp.ModuleName%>简介：</b></td>
<td colspan="3" class="tablerow1">
<%
Dim oEditor
Set oEditor = New Editor_Cls
oEditor.UserMode = 0
oEditor.setEditMode = NewAsp.setAdminEditor(0)
oEditor.ChannelID = ChannelID
oEditor.Width = NewAsp.setAdminEditor(2)
oEditor.Height = NewAsp.setAdminEditor(3)
oEditor.BasePath = "../../" & NewAsp.setAdminEditor(4)
oEditor.ToolbarSet = NewAsp.setAdminEditor(1)'Default,AdminMode,Simple,UserMode,Basic
If isEdit Then
oEditor.Value = Re_Replace(Rs("Introduce"), "[InstallDir_ChannelDir]", InstallDir_ChannelDir)
End If
oEditor.InstanceName = "content"
oEditor.Execute()
Set oEditor = Nothing
%></td>
</tr>
<tr>
<td align="right" class="tablerow2"><b><%=NewAsp.ModuleName%>描述：</b></td>
<td colspan="3" class="tablerow2"><input name="Describe" type="text" id="Describe" size="80" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("Describe")&"")%>"></td>
</tr>
<tr>
<td align="right" class="tablerow1"><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>
<b>点数：</b><input name="PointNum" type="text" id="PointNum" size="10" value="<%If isEdit Then Response.Write Rs("PointNum") Else Response.Write 0 End If%>"></td>
<td align="right" class="tablerow1"><b>用户评价：</b></td>
<td class="tablerow1">好：<input name="good" type="text" size="10" value="<%If isEdit Then Response.Write NewAsp.ChkNumeric(Rs("good")):Else Response.Write (0)%>">
差：<input name="bad" type="text" size="10" value="<%If isEdit Then Response.Write NewAsp.ChkNumeric(Rs("bad")):Else Response.Write (0)%>"></td>
</tr>
<tr>
<td align="right" class="tablerow2"><b>更新时间：</b></td>
<td class="tablerow2"><input name="addTime" type="text" id="addTime" size="25" value="<%If isEdit Then Response.Write Rs("addTime"):Else Response.Write (Now())%>">
<font color="red">*</font><%If isEdit Then%>
<input name="Update" type="checkbox" value="1"<%If Trim(Channel_Setting(2))="1" Then Response.Write (" checked")%>>
更新时间<%End If%></td>
<td align="right" class="tablerow2"><b>初始点击数：</b></td>
<td class="tablerow2"><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>
</tr>
<tr>
<td align="right" class="tablerow1"><b>其它选项：</b></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")%>>
<%=NewAsp.ModuleName%>置顶
<input name="isBest" type="checkbox" id="isBest" value="1"<%If isEdit Then:If Rs("isBest") <> 0 Then Response.Write (" checked")%>>
<%=NewAsp.ModuleName%>推荐
<%If isEdit Then%>
<input name="ForbidEssay" type="checkbox" id="ForbidEssay" value="1"<%If Rs("ForbidEssay") <> 0 Then Response.Write (" checked")%>>
<%Else%>
<input name="ForbidEssay" type="checkbox" id="ForbidEssay" value="1"<%If Trim(Channel_Setting(4))="1" Then Response.Write (" checked")%>>
<%End If%>
禁止发表评论
<input name="isAccept" type="checkbox" id="isAccept" value="1" checked>
立即发布（<font color="blue">否则审核后才能发布。</font>）
</td>
</tr>
<tr>
<td align="right" class="tablerow2"><b>显示模式：</b></td>
<td colspan="3" class="tablerow2">
<%
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="tablerow1"><b>显示URL：</b></td>
<td colspan="3" class="tablerow1"><input name="showurl" type="text" id="filePath" size="60" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("showurl")&"")%>">
<input type='button' name='selectfile' value='从已上传文件中选择' onclick='SelectFile()' class=button></td>
</tr>
<tr>
<td align="right" class="tablerow2"><b>上传<%=NewAsp.ModuleName%>：</b></td>
<td colspan="3" class="tablerow2"><iframe name="file" frameborder="0" width='100%' height="45" scrolling="no" src="../upload.asp?ChannelID=<%=ChannelID%>&stype=file&m=flash&inst=content&s=1" allowTransparency="true"></iframe></td>
</tr>
<tr>
<td align="right" class="tablerow1"><b>下载服务器：</b></td>
<td colspan="3" class="tablerow1"><%=SelDownServer(downid,"downid")%> <b>说明：</b><font color="blue">下载服务器路径 + 下载文件名称 = 完整下载地址</font></td>
</tr>
<tr>
<td align="right" nowrap class="tablerow2"><b>下载地址：</b></td>
<td colspan="3" class="tablerow2"><input name="DownAddress" type="text" id="DownAddress" size="80" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("DownAddress")&"")%>"></td>
</tr>
<tr>
<td align="right" class="tablerow1"><b>外部连接URL：</b></td>
<td colspan="3" class="tablerow1"><input name="OuterLinks" type="text" id="OuterLinks" size="80" value="<%If isEdit Then Response.Write Rs("OuterLinks") & ""%>"></td>
</tr>
<tr>
<td align="right" class="tablerow2"> </td>
<td colspan="3" align="center" class="tablerow1">
<input type="button" name="Submit3" onclick="javascript:history.go(-1)" value="返回上一页" class="button">
<input type="Submit" name="Submit1" value="保存<%=NewAsp.ModuleName%>" class="button"></td>
</tr></form>
</table></div>
<%
If isEdit Then
Rs.Close
Set Rs = Nothing
Else
Call LoadAutoComplete("myform")
End If
End Sub
Function SelDownServer(intdownid,strname)
Dim rsobj,SQL
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"""
If intdownid = 0 Then Response.Write " selected"
Response.Write ">↓不使用下载服务器↓</option>"
Response.Write "</select>"
End Function
%>