📄 softadd_2.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/const.asp"-->
<%
if session("admin")="" then
response.redirect "admin.asp"
end if
'--------将日期转化成文件名--------
function MakedownName(foolcat)
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
if Instr(foolcat,"zip") >0 Then
MakedownName=fname & ".zip"
elseif Instr(foolcat,"rar") >0 Then
MakedownName=fname & ".rar"
elseif Instr(foolcat,"exe") >0 Then
MakedownName=fname & ".exe"
end if
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>添 加 下 载 程 序</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
obj.maxsize=10000000
obj.extname="zip,rar,exe"
varfname1=MakedownName(obj.filetype("file1"))
ss=obj.SaveFile("file1",""&downdir&"", false,varfname1)
aa1=obj.FileSize
if ss= "3" or aa = "3" then
Response.Write ("文件名重复!")
elseif ss= "0" or aa = "0" then
Response.Write ("文件尺寸过大!")
elseif ss = "1" or aa = "1" then
Response.Write ("文件不是zip/rar文件!")
elseif ss = "" then
Response.Write ("文件上传失败!")
else
Response.Write "选择的文件已经上载到服务器！<br>"
Response.Write("文件名1：" & varfname1) & "<br>"
Response.Write("<br>文件大小：" & aa1) & "<br>"
end if
%>
<form method="POST" action="adminsave.asp?action=add">
<div align="center"><center><table cellspacing="0" width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="100%" bgcolor="#999999" height="20"><div align="center"><center><p><b>添 加 下 载 程 序</b></td>
</tr>
<tr align="center">
<td width="100%"><table border="0" cellspacing="1" width="100%">
<tr align="center">
<td width="100%"><table border="0" cellspacing="1" width="100%">
<tr>
<td width="15%" align="right" valign="top" height="20"><b>软件类型：</b></td>
<td width="85%">
<select class="smallSel" name="classid" size="1">
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from Dclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "Not record."
else
do while not rs.eof
response.write "<option value='"+CStr(rs("classID"))+"' name=classid>"+rs("class")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
end if
rs.close
%>
</select>
选择分类： <select name="Nclassid" size="1">
<%
sql="select * from DNclass"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "Not record."
else
do while not rs.eof
response.write "<option value='" + Cstr(rs("Nclassid")) + "'>" + rs("Nclass") + "</option>"
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</select>**
</td></tr>
<tr>
<td width="15%" align="right" height="30"><b>下载地址1：</b></td>
<td width="85%" height="30"><input type="text" name="txtfilename" size="60"
class="smallinput" maxlength="100" value="<%=downdir1%><%=varfname1%>">**</td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>下载地址2：</b></td>
<td width="85%" height="30"><input type="text" name="txtfilename1" size="60"
class="smallinput" maxlength="100" value=""></td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>汉化破解版下载地址：</b></td>
<td width="85%" height="30"><input type="text" name="txtfilename2" size="60"
class="smallinput" maxlength="100" value=""></td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>显示名称：</b></td>
<td width="85%" height="30"><input type="text" name="txtshowname" size="60" class="smallinput" maxlength="100">**</td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>推荐度：</b></td>
<td width="85%" height="30">
<select name="hot" size="1">
<option selected value="1" name="hot">一星级</option>
<option value="2" name="hot">二星级</option>
<option value="3" name="hot">三星级</option>
<option value="4" name="hot">四星级</option>
<option value="5" name="hot">五星级</option>
</select>**
<!--<input type="text" name="hot" size="60" class="smallinput" maxlength="100" value="3">--></td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>运行环境：</b></td>
<td width="85%" height="30">
<select name="system" size="1">
<option selected value="ASP环境" name="system">ASP环境</option>
<option value="PHP环境" name="system">PHP环境</option>
<option value="JSP环境" name="system">JSP环境</option>
<option value="Windows9x/NT" name="system">Windows9x/NT</option>
<option value="Linux环境" name="system">Linux环境</option>
</select>**
<!--<input type="text" name="system" size="60" class="smallinput" maxlength="100" value="Win98/2000+PWS4&NT+IIS4/5">--></td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>软件大小：</b></td>
<td width="85%" height="30"><input type="text" name="size" size="60"
class="smallinput" maxlength="100" value="<%=aa1%>Byte"></td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>软件来源：</b></td>
<td width="85%" height="30"><input type="text" name="fromurl" size="60"
class="smallinput" maxlength="100" value="http://"></td>
</tr>
<tr>
<td width="15%" align="right" height="30"><b>授权形式：</b></td>
<td width="85%" height="30">
<select name="order" size="1">
<option selected value="共享软件" name="order">共享软件</option>
<option value="付费软件" name="order">付费软件</option>
<option value="商业软件" name="order">商业软件</option>
</select>
<!--<input type="text" name="order" size="60" class="smallinput" maxlength="100" value="免费">-->
是否推荐<input type="checkbox" name="hots" value="on">
是否隐藏<input type="checkbox" name="hide" value="on">
</td>
</tr>
<tr>
<td width="15%" align="right" valign="top"><b>软件简介：</b></td>
<td width="85%"><textarea rows="6" name="txtnote" cols="60" class="smallarea"></textarea>**</td>
</tr>
</tr>
</table>
</td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value=" 添 加 "
name="cmdok" class="buttonface"> <input type="reset" value=" 清 除 "
name="cmdcancel" class="buttonface"></p>
</center></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -