📄 down_cx_add.asp

📁 一个网上flash网站源码
💻 ASP
字号:
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="config.asp"-->
<%
if CheckAdmin("DownTS",admin) then
 DownTS="ok"
end if
DownHot=3
if CheckAdmin("DownHot3",JyDownAdminAdmin) then DownHot=3
if CheckAdmin("DownHot4",JyDownAdminAdmin) then DownHot=4
if CheckAdmin("DownHot5",JyDownAdminAdmin) then DownHot=5
if JyDownCheckAdminAll="ok" then DownHot=5
savetime=Now()+webtime/24
set rs=server.CreateObject("ADODB.RecordSet")
TT=TT & "<a class=JyDownSort href=down_sort.asp>FLASH首页</a>"
if request("id")<>"" then
  rs.open "select * from downtype where id="&request("id"),conn,1,1
    if not rs.EOF then
        TN=split(rs("tname"),"|")
        TI=split(rs("ts"), ",")
          for i = 0 to ubound(TN)-1
            TT=TT & ">> <a class=JyDownSort href=down_sort.asp?id="&TI(i)&">"&TN(i)&"</a>"
          next
    tj=rs("tj")
    end if
    rs.close
end if
thistype=TT
rs.open ("select * from downtype where tj>1 order by ts"),conn,1,1
tn=""
do while not rs.eof
tname=replace(rs("tname"),"|","->")
if rs("tj")=2 and rs("tn")<>tn then
i=i+1
  if i=2 then
  i=0
     color="#808000"
  else
     color="#4D9CC8"
  end if
end if
tn=rs("tn")
if rs("tstart")<>"" then
else
typelist=typelist&"<option style='COLOR:"&color&"' value='"&rs("id")&"'>"&tname&"</option>"
end if
rs.MoveNext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<SCRIPT LANGUAGE="JavaScript">
helpstat = false;
stprompt = true;
basic = false;
function thelp(swtch){
	if (swtch == 1){
		basic = false;
		stprompt = false;
		helpstat = true;
	} else if (swtch == 0) {
		helpstat = false;
		stprompt = false;
		basic = true;
	} else if (swtch == 2) {
		helpstat = false;
		basic = false;
		stprompt = true;
	}
}

function AddText(NewCode) {
document.frmAnnounce.body.value+=NewCode
}

function openscriphtml()
{
if (navigator.appName!="Microsoft Internet Explorer")
   alert("此功能 Netscape 用户不能使用！")
else
   {newwin=window.open('html_editor.htm','','width=544,height=294');
    newwin.focus();
   }
}
function runEx(){
//alert('请注意，按下确定将生成页面，按下后请稍后....');
var winEx = window.open("", "winEx", "width=300,height=200,status=yes,menubar=yes,scrollbars=yes,resizable=yes"); winEx.document.open("text/html", "replace"); 
winEx.document.write(unescape(event.srcElement.parentElement.children[2].value)); 
winEx.document.close(); 
}
</SCRIPT>
<script language="Javascript">
<!-- hide

function insertsmilie(smilieface){

	document.frmAnnounce.body.value+=smilieface;
}
// -->
</script>
<script language="javascript">
function ToSystem(addTitle) { 
var revisedTitle; 
var currentTitle;
currentTitle = document.frmAnnounce.system.value; 
revisedTitle = currentTitle+addTitle; 
document.frmAnnounce.system.value=revisedTitle; 
document.frmAnnounce.system.focus(); 
return; }
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加FLASH</title>
<style>
td{font-size:9pt;line-height:140%} 
body{font-size:9pt;line-height:140%} 
a:link       { color: #0033CC; text-decoration: none }
a:visited    { color: #0033CC; text-decoration: none }
a:active     { color: #4D9CC8; text-decoration: none }
a:hover      { color: #4D9CC8; text-decoration: underline}
a.JyDownSort:link    { color: #FFFFFF; text-decoration: none }
a.JyDownSort:visited { color: #FFFFFF; text-decoration: none }
a.JyDownSort:hover   { color: #DFDFDF; text-decoration: underline}
</style>
</head>
<body topmargin="1" leftmargin="1">
<form action="down_cx_add_save.asp?d=addsave&id=<%=request("id")%>" method=post name="frmAnnounce">
<div align="center">
  <center>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="600" bgcolor="#cococo" cellpadding="2">
  <tr>
    <td width="100%" bgcolor="#4D9CC8"><b><%=thistype%> ++（添加作品  
    2/2）++</b></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#F4F4F4"><font color="#000080"><b>FLASH信息</b> </font> 
    <font color="#808080">红字必填</font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF">
    <table border="0" cellspacing="0" style="border-collapse: collapse" width="100%">
        <tr>
    <td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#4D9CC8">类别</font>：<select size="1" name="tid">
<%if request("id")<>"" then
response.write("<option selected value='"&request("id")&"'>"&thistype&"("&request("id")&")</option>")
else
response.write("<option selected value=''>- - = = = 请选择FLASH分类 = = = - -</option>")
end if%><%=typelist%>
</select></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#4D9CC8">名称</font>：<input type="text" size=36 name="cxn" value="<%=request("cxn")%>"><br><font color="#4D9CC8">连接地址</font>：<input type="text" size=34 name="cxv"></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF" colspan="2">FLASH性质：类别:<select name="cd" size="1">
  <option selected value=""></option>
<%
if webDownLb<>"" then
  LB=split(webDownLb,",")
  for i=0 to ubound(LB)
  if LB(i)<>"在线电影" and LB(i)<>"精彩动画" and LB(i)<>"特别FLASH" then
  response.write "<option value='"&LB(i)&"'>"&LB(i)&"</option>"
  end if
  next
end if
%>
  </select>&nbsp;&nbsp; 添加:<select name="sq" size="1">
  <option selected value=""></option>
<%
if webDownSq<>"" then
  SQ=split(webDownSq,",")
  for i=0 to ubound(SQ)
  response.write "<option value='"&SQ(i)&"'>"&SQ(i)&"</option>"
  next
end if
%>  
  </select>&nbsp;&nbsp;<font color="#4D9CC8">文件大小</font>:<input type="text" size=9 name="size">&nbsp;&nbsp;<font color="#4D9CC8">评价</font>:<select size="1" name="hot">
            <%for i=1 to DownHot%> 
            <option<%if i=3 then%> selected<%end if%> value="<%=i%>"><%=i%>星 
            <%next%>
          </select></td> 
  </tr>
        <tr>
    <td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#4D9CC8">作者</font>:<input type="text" size=20 name="ln">&nbsp;</td>
        </tr>
        <tr>
    <td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#4D9CC8">FLASH图片</font>：<input type="text" size=80 name="pic"><br>
    会员FLASH<select size="1" name="hy">
            <option value="0"></option>
            <option value="1">普通会员</option>
            <option value="2">高级会员</option>
          </select>&nbsp;<font color="#4D9CC8">作 品推荐</font><input type="checkbox" name="show" value="1"></td> 
        </tr>
        <tr>
    <td bgcolor="#F9F9F9" nowrap>图片上传：</td>
    <td width="99%" bgcolor="#F9F9F9">
    <iframe name="JyDownUpload" frameborder="0" width="100%" height="23" scrolling="no" src="upload.htm"></iframe></td>
        </tr>
		<tr>
    <td bgcolor="#F9F9F9" nowrap>FLASH上传：</td>
    <td width="99%" bgcolor="#F9F9F9">
    <iframe name="up" frameborder=0 width="100%" height=26 scrolling=no src=upload1.asp></iframe></td>
        </tr>
        <tr>
    <td bgcolor="#FFFFFF" nowrap valign="top"><font color="#4D9CC8">作 品简介</font>：<br>
    <input type="checkbox" name="html" value="yes">HTML<br>
          <a href="javascript:openscriphtml()">HTML编辑</a>
      　</td>
    <td width="99%" bgcolor="#FFFFFF"><textarea rows="6" name="body" cols="78"></textarea></td>
        </tr>
        <tr>
    <td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#4D9CC8">关键字</font>：<input type="text" size=20 name="pwd"><%if DownTS="ok" then%>
          <input type="checkbox" name="zd_date_yes" value="yes">自定修改时间<input type="text" size=19 name="zd_date" value="<%=savetime%>"><%end if%></td>
        </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" id="upid">
              </td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#DFDFDF" align="center">     
          <input name="change" value="添加" type="submit">&nbsp; <input name="change1" value="重置" type="reset"> <input type="checkbox" name="makehtml" value="yes" checked>自动生成HTML页</td> 
  </tr>
</table>
  </center>
</div>
</form>              
</body>              
</html>
💿 文件大小 2915 K
👤 上传用户 jccg1000146752
📂 所属分类其他
🏷️ 相关标签

#flash #网站 #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -