⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 down_cx_add.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="Downconfig.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用,请勿非法修改,
'# 转载,散播,或用于其他图利行为,并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本,请您通知我们,以便我们能够知晓!
'# 如果可能,请在您的网站做上我们的链接,希望能给予合作。谢谢!
'#################################################################
'# 程序名称:晓宇听幽网站内容管理系统·软件下载管理系统
'# 英文名称:xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间:2003-7-10
'# 程序完成时间:2003-9-11
'# 最后修改时间:2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权,不要删除以上的版权声明部分,谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
if CheckAdmin("DownTS",admin) then
 DownTS="ok"
end if
DownHot=3
if CheckAdmin("DownHot3",xoYuStudioAdminAdmin) then DownHot=3
if CheckAdmin("DownHot4",xoYuStudioAdminAdmin) then DownHot=4
if CheckAdmin("DownHot5",xoYuStudioAdminAdmin) then DownHot=5
if xoYuStudioCheckAdminAll="ok" then DownHot=5
savetime=Now()+webtime/24
set rs=server.CreateObject("ADODB.RecordSet")
TT=TT & "<a class=xoYuStudioSort href=down_sort.asp>软件首页</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=xoYuStudioSort 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="#000000"
  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">
<meta copy="程序制作:xoyu(QQ:5964887)www.xoyu.com">
<title>晓宇听幽网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<title>添加软件</title>
</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="0" class="tableBorder" width="98%" cellpadding="2" height="316" style="border-collapse: collapse; background-color: #D6DFF7" bordercolor="#111111">
  <tr>
    <th width="100%" height="22"><b><%=thistype%>++(添加程序 
    2/2)++</b></td>
  </tr>
  <tr>
    <td width="100%" height="15" bgcolor="#D6DFF7"><font color="#000080"><b>软件信息</b> </font>
    <font color="#808080">红字必填</font></td>
  </tr>
  <tr>
    <td width="100%" height="185">
    <table border="0" cellspacing="0" style="border-collapse: collapse" bgcolor="#D6DFF7" height="246">
        <tr>
    <td bgcolor="#D6DFF7" width="60" height="20"><font color="#FF0000">程序类别</font>:</td>
    <td bgcolor="#D6DFF7" height="20"><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=''>- - = = = 请选择软件分类 = = = - -</option>")
end if%><%=typelist%>
</select></td>
  </tr>
  <tr>
    <td bgcolor="#D6DFF7" width="60" height="20"><font color="#FF0000">软件名称</font>:</td>
    <td bgcolor="#D6DFF7" height="20">
    <input type="text" size=27 name="cxn" value="<%=request("cxn")%>"> 软件版本:<input type="text" size=29 name="cxv"></td>
  </tr>
<input type=hidden checked type="radio" value="0" name="gs">
  <tr>
    <td  height="20" height="60" width="60">软件性质:</td>
    <td height="20"><select name="cd" size="1">
  <option selected value="">选择类别</option>
<%
if xoYuDownLb<>"" then
  LB=split(xoYuDownLb,",")
  for i=0 to ubound(LB)
  if LB(i)<>"在线电影" and LB(i)<>"精彩动画" and LB(i)<>"特别软件" then
  response.write "<option value='"&LB(i)&"'>"&LB(i)&"</option>"
  end if
  next
end if
%>
  </select><select name="yy" size="1">
  <option selected>选择语言</option>
<%
if xoYuDownYy<>"" then
  YY=split(xoYuDownYy,",")
  for i=0 to ubound(YY)
  response.write "<option value='"&YY(i)&"'>"&YY(i)&"</option>"
  next
end if
%>
  </select><select name="sq" size="1">
  <option selected value="">授权方式</option>
<%
if xoYuDownSq<>"" then
  SQ=split(xoYuDownSq,",")
  for i=0 to ubound(SQ)
  response.write "<option value='"&SQ(i)&"'>"&SQ(i)&"版</option>"
  next
end if
%>  
  </select>大小:<input type="text" size=6 name="size">&nbsp;评价:<select size="1" name="hot">
            <%for i=1 to DownHot%>
            <option<%if i=3 then%> selected<%end if%> value="<%=i%>"><%=i%>星</option>
            <%next%>
          </select></td>
  </tr>
        <tr>
    <td width="60" height="35">系统平台:</td>
    <td height="35">
    <input type="text" size=74 name="system" value="Win9x/NT/2000/XP/"><br>
    <font color="#808080">平台选择:<%
if xoYuDownPt<>"" then
 PT=split(xoYuDownPt,",")
  for i=0 to ubound(PT)
  response.write "<a href='javascript:ToSystem("""&PT(i)&"/"")'>"&PT(i)&"</a>/"
  next
end if
%></font></td>
        </tr>
        <tr>
    <td width="60" height="20">官方网沾: </td>
    <td height="20"><input type="text" size=28 name="lu"> 联系信箱:<input type="text" size=28 name="ln"></td>
        </tr>
        <tr>
    <td width="60" height="20">注册连接:</td>
    <td height="20"><input type="text" size=74 name="reg"></td>
        </tr>
        <tr>
    <td width="60" height="20">软件图片: </td>
    <td height="20"><input type="text" size=35 name="pic">会员软件<select size="1" name="hy">
            <option value="0"></option>
            <option value="1">普通会员</option>
            <option value="2">高级会员</option>
          </select>&nbsp;推荐软件<input type="checkbox" name="show" value="1"></td>
        </tr>
        <tr>
    <td bgcolor="#D6DFF7" nowrap width="60" height="33">图片上传:</td>
    <td bgcolor="#D4DEF9" height="33">
    <iframe name="xoYuStudioUpload" frameborder="0" width="100%" height="23" scrolling="no" src="upsoftpic.htm"></iframe></td>
        </tr>
		<tr>
    <td bgcolor="#D6DFF7" nowrap height="1" height="60" height="60">软件上传:</td>
    <td bgcolor="#D4DEF9" height="1">
    <iframe name="up" frameborder=0 width="100%" height=26 scrolling=no src=upload1.asp></iframe></td>
        </tr>
        <tr>
    <td nowrap valign="top" height="88" width="60">软件简介:<br>
    <input type="checkbox" name="html" value="yes">HTML<br>
          <a href="javascript:openscriphtml()">HTML编辑</a>
 </td>
    <td bgcolor="#D6DFF7" height="88"><textarea rows="6" name="body" cols="70"></textarea></td>
        </tr>
        <tr>
    <td height="20">解压密码:</td>
    <td width="554" height="20"><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 width="100%" height="15"><font color="#000080"><b>下载地址</b></font>
    <font color="#808080">(序号|下载说明|下载地址|删除) 下载地址都不能为空</font></td>
  </tr>
  <tr>
    <td width="100%" height="22">
<script language="javascript">
	  function setid()
	  {
	  str='';
	  if(!window.frmAnnounce.no.value)
	   window.frmAnnounce.no.value=1;
 	  for(i=1;i<=window.frmAnnounce.no.value;i++)
	     str+=''+'<INPUT TYPE="text" NAME=no'+i+' value='+i+' size=2>:&nbsp;<input type="text" name="filename'+i+'" style="padding-left:1pt" size=23>&nbsp;<input type="text" name="file'+i+'" style="padding-left:1pt" size=55 value="<%=request.cookies("xoYuStudioUserSoftUrl")%>"><BR>';
	  window.upid.innerHTML=str+'<br>';
	  }
	  </script>设置添加地址的数量:<input type="text" name="no" value="1" size=2><input type="button" name="Button" onclick="setid();" value="添加"></td>
  </tr>
  <tr>
    <td id="upid" height="1">
              </td>
  </tr>
  <tr>
    <th width="100%" align="center" height="22">     
          <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>

⌨️ 快捷键说明

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