?? 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>
<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from Nclass order by Nclassid asc"
rs.open sql,conn,1,1
%><SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("Nclassid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Nclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</SCRIPT>
<SCRIPT language="javascript">
<!--
function CheckForm()
{
document.myform.txtcontent.value=document.myform.doc_html.value;
return true
}
//-->
</SCRIPT>
<body bgcolor=#468ea3>
<%
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" name="myform" action="adminsave.asp?action=add">
<TABLE width="80%" border="0" align="center" cellspacing="1">
<TR align="center">
<TD colspan="4" height="25" bgcolor="#145f74"><b><FONT color="#FFFFFF">添 加 下 載 程 序</FONT></b></TD>
</TR>
<TR>
<TD align="right" width="15%" nowrap bgcolor="#a5d0dc"><B>軟件類型：</B></TD>
<TD width="30%" bgcolor="#a5d0dc">
<%
sql = "select * from class"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "請先添加欄目。"
response.end
else
%>
<SELECT name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1"><%
do while not rs.eof
%><OPTION selected value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></OPTION>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
conn.Close
set conn = nothing
%></SELECT>
</TD>
<TD align="right" width="15%" bgcolor="#a5d0dc"><B>選擇分類：</B></TD>
<TD width="60%" bgcolor="#a5d0dc">
<SELECT name="Nclassid">
<OPTION selected value="">==請選分類==</OPTION>
</SELECT>
<FONT color="#FF0000">**</FONT></TD>
</TR>
<tr>
<td width="15%" align="right" height="30" nowrap bgcolor="#cce6ed"><b>下載地址1：</b></td>
<td width="85%" height="30" colspan="3" bgcolor="#cce6ed">
<input type="text" name="txtfilename" size="60"
class="smallinput" maxlength="100" value="<%=downdir1%><%=varfname1%>">
<FONT color="#FF0000">
**</FONT></td>
</tr>
<tr>
<td width="15%" align="right" height="30" nowrap bgcolor="#a5d0dc"><b>下載地址2：</b></td>
<td width="85%" height="30" colspan="3" bgcolor="#a5d0dc">
<input type="text" name="txtfilename1" size="60"
class="smallinput" maxlength="100" value="">
</td>
</tr>
<tr bgcolor="#cce6ed">
<td width="15%" align="right" height="30" nowrap><b>下載地址3：</b></td>
<td width="85%" height="30" colspan="3">
<input type="text" name="txtfilename2" size="60"
class="smallinput" maxlength="100" value="">
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" nowrap bgcolor="#a5d0dc"><b>顯示名稱：</b></td>
<td width="85%" height="30" colspan="3" bgcolor="#a5d0dc">
<input type="text" name="txtshowname" size="60"
class="smallinput" maxlength="100">
<FONT color="#FF0000">
**</FONT></td>
</tr>
<tr bgcolor="#cce6ed">
<td width="15%" align="right" height="30" nowrap><b>推薦度：</b></td>
<td width="85%" height="30" colspan="3">
<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>
<FONT color="#FF0000">**</FONT>
<!--<input type="text" name="hot" size="60" class="smallinput" maxlength="100" value="3">-->
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" nowrap bgcolor="#a5d0dc"><b>運行環境：</b></td>
<td width="85%" height="30" colspan="3" bgcolor="#a5d0dc">
<select name="system" size="1">
<option value="Win9x/WinNT/Win2000/WinME" name="system">Win9x/WinNT/Win2000/WinME</option>
<option value="Win9x/WinNT/Win2000" name="system">Win9x/WinNT/Win2000</option>
<option value="Windows9x/NT" name="system">Win9x/WinNT</option>
<option value="Win9x/WinME" name="system">Win9x/WinME</option>
<option value="WinNT/Win2000" name="system">WinNT/Win2000</option>
<option value="ASP環境" name="system">ASP環境</option>
<option value="PHP環境" name="system">PHP環境</option>
<option value="CGI環境" name="system">CGI環境</option>
<option value="JSP環境" name="system">JSP環境</option>
<option value="Linux環境" name="system">Linux環境</option>
</select>
<FONT color="#FF0000">**</FONT>
<!--<input type="text" name="system" size="60" class="smallinput" maxlength="100" value="Win98/2000+PWS4&NT+IIS4/5">-->
</td>
</tr>
<tr bgcolor="#cce6ed">
<td width="15%" align="right" height="30" nowrap><b>軟件大小：</b></td>
<td height="30">
<input type="text" name="size" size="20"
class="smallinput" maxlength="100" value="<%=aa1%>Byte">
</td>
<td height="30" align="right"><B>軟件圖片：</B></td>
<td height="30">
<INPUT type="text" name="images" size="20"
class="smallinput" maxlength="160">
</td>
</tr>
<tr>
<td width="15%" align="right" height="30" nowrap bgcolor="#a5d0dc"><b>軟件來源：</b></td>
<td width="85%" height="30" colspan="3" bgcolor="#a5d0dc">
<input type="text" name="fromurl" size="60"
class="smallinput" maxlength="100" value="http://">
</td>
</tr>
<tr bgcolor="#cce6ed">
<td width="15%" align="right" height="30" nowrap><b>授權形式：</b></td>
<td width="85%" height="30" colspan="3">
<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" nowrap bgcolor="#a5d0dc"><b>程式簡介：</b></td>
<td width="85%" colspan="3" bgcolor="#a5d0dc">
<FONT color="#FF0000">
<textarea rows="6" name="txtnote" cols="60" class="smallarea"></textarea>
**</FONT></td>
</tr>
</TABLE>
<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 + -