down_cx_add.asp
来自「核心惊云下载系统」· ASP 代码 · 共 276 行
ASP
276 行
<%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>软件首页</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="#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">
<title>添加软件</title>
<style>
td{font-size:9pt;line-height:120%}
body{font-size:9pt;line-height:120%}
a:link { color: #666666C; text-decoration: none }
a:visited { color: #666666; text-decoration: none }
a:active { color: #666666; text-decoration: none }
a:hover { color: #000000; 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="4" leftmargin="0">
<form action="down_cx_add_save.asp?d=addsave&id=<%=request("id")%>" method=post name="frmAnnounce">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#E6E6E6" cellpadding="2">
<tr>
<td width="100%" bgcolor="#BBAADD" height="26"><b><%=thistype%> <font color="#FFFFFF"> ++（添加程序
2/2）++</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4" height="22"><font color="#000080"><b>软件信息</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="#FF0000">程序类别</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=''>- - = = = 请选择软件分类 = = = - -</option>")
end if%><%=typelist%>
</select></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#FF0000">软件名称</font>：<input type="text" size=36 name="cxn" value="<%=request("cxn")%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">文件格式：<input checked type="radio" value="0" name="gs">下载<img border="0" src="../images/d_download.gif">
<input type="radio" value="1" name="gs">电影<img border="0" src="../images/play_1.gif">
<input type="radio" value="2" name="gs">电影<img border="0" src="../images/play_2.gif">
<input type="radio" value="3" name="gs">FLASH<img border="0" src="../images/play_3.gif"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">软件性质：类别:<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)<>"特别软件" then
response.write "<option value='"&LB(i)&"'>"&LB(i)&"</option>"
end if
next
end if
%>
</select> 语言:<select name="yy" size="1">
<option selected value=""></option>
<%
if webDownYy<>"" then
YY=split(webDownYy,",")
for i=0 to ubound(YY)
response.write "<option selected value='"&YY(i)&"'>"&YY(i)&"</option>"
next
end if
%>
</select> 授权:<select name="sq" size="1">
<option selected value=""></option>
<%
if webDownSq<>"" then
SQ=split(webDownSq,",")
for i=0 to ubound(SQ)
response.write "<option selected value='"&SQ(i)&"'>"&SQ(i)&"版</option>"
next
end if
%>
</select> 文件大小:<input type="text" size=9 name="size"> 评价:<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">系统平台：<input type="text" size=79 name="system" value="Win9x/NT/2000/XP/2003"><br>
<font color="#808080">平台选择：<%
if webDownPt<>"" then
PT=split(webDownPt,",")
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="100%" bgcolor="#FFFFFF" colspan="2">相关连接：程序演示地址:<input type="text" size=20 name="ln">
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">软件图片：<input type="text" size=50 name="pic">
会员软件<select size="1" name="hy">
<option value="0"></option>
<option value="1">普通会员</option>
<option value="2">高级会员</option>
</select> 推荐软件<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="#FFFFFF" nowrap valign="top">软件简介：<br>
<input type="checkbox" name="html" value="yes">HTML<br>
<a href="javascript:openscriphtml()">HTML编辑</a>
</td>
<td width="99%" bgcolor="#FFFFFF"><textarea rows="3" name="body" cols="78"></textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2"><%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%" bgcolor="#F4F4F4" height="22"><font color="#000080"><b>下载地址</b></font>
<font color="#808080">(序号|下载说明|下载地址|删除) 下载地址都不能为空</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<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='+1+' size=2>: <input type="text" name="filename'+i+'" style="padding-left:1pt" value="本地下载" size=23> <input type="text" name="file'+i+'" style="padding-left:1pt" size=55 value="http://219.146.57.202/sof/"><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 bgcolor="#FFFFFF" id="upid">
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F7F7F7" align="center">
<input name="change" value="添加" type="submit">
<input name="change1" value="重置" type="reset"> <input type="checkbox" name="makehtml" value="yes" checked>自动生成HTML页</td>
</tr>
</table>
</center>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?