?? admin_flash.asp
字號:
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Set Cmd = Nothing
Rs.Close:Set Rs = Nothing
%>
<tr>
<td colspan="5" class="TableRow1">
<input class=Button type="button" name="chkall" value="全選" onClick="CheckAll(this.form)"><input class=Button type="button" name="chksel" value="反選" onClick="ContraSel(this.form)">
管理選項：
<select name="act">
<option value="0">請選擇操作選項</option>
<option value="批量刪除">批量刪除</option>
<option value="批量置頂">批量置頂</option>
<option value="取消置頂">取消置頂</option>
<option value="批量推薦">批量推薦</option>
<option value="取消推薦">取消推薦</option>
<option value="更新時間">更新時間</option>
<option value="生成HTML">生成HTML</option>
</select>
<input class=Button type="submit" name="Submit2" value="執(zhí)行操作" onclick="return confirm('您確定執(zhí)行該操作嗎?');">
<input class=Button type="submit" name="Submit3" value="批量設(shè)置" onclick="document.selform.action.value='setting';">
<input class=Button type="submit" name="Submit4" value="批量移動" onclick="document.selform.action.value='move';">
<input class=Button type="submit" name="Submit4" value="批量刪除" onclick="document.selform.action.value='batdel';"></td>
</tr>
</form>
<tr>
<td colspan="5" align="right" class="TableRow2"><%
ShowListPage CurrentPage,TotalPageNum,totalnumber,maxperpage,strListName,s_ClassName
%></td>
</tr>
</table>
<%
End Sub
Private Sub FlashEdit(isEdit)
Dim EditTitle,TitleColor,downid
If Not ChkAdmin("AddFlash" & ChannelID) Then
Server.Transfer("showerr.asp")
Response.End
End If
If isEdit Then
SQL = "SELECT * FROM NC_FlashList WHERE flashid=" & CLng(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"><b>所屬專題：</b></td>
<td width="38%" class="TableRow1"><%
Response.Write "<select name=""SpecialID"" id=""SpecialID"">" & vbNewLine
Response.Write "<option value=""0"">不指定" & sModuleName & "專題</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"><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>相關(guān)<%=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='本站原創(chuàng)'>本站原創(chuàng)</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='本站原創(chuàng)'>本站原創(chuàng)</option>
<option value='本站整理'>本站整理</option>
<option value='不詳'>不詳</option>
<option value='轉(zhuǎn)載'>轉(zhuǎn)載</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>下載點數(shù)：</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"><b>更新時間：</b></td>
<td class="TableRow1" colspan="3"><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">
更新時間<%End If%></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")%>>
禁止發(fā)表評論
<input name="isAccept" type="checkbox" id="isAccept" value="1" checked>
立即發(fā)布（<font color=blue>否則審核后才能發(fā)布。</font>）
</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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -