?? newsoft_body.asp
字號:
<%sub Newsoft_body()
opendown
sql="select * from d_cat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<link rel="stylesheet" href="site_css.css" type="text/css">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="3" height="8" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="205" bgcolor="#FFFFFF" valign="top">
<%call adminmenu()%>
</td>
<td width="1" background="images/dotlinev.gif"></td>
<td width="554" bgcolor="#FFFFFF" valign="top" align="center">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6"></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="6" bgcolor="#293863">
<tr>
<td bgcolor="#E8E8E8" class="chinese" valign="top"><a href="admin_down.asp">分類管理</a>
| <a href="admin_down.asp?action=newcat">新建分類</a> | <a href="admin_soft.asp">程序管理</a>
| <a href="New_soft.asp?action=newsoft">新增程序</a><br>
-------------------------------------------------------<br>
<br>
<%if request.QueryString("action")="newsoft" then%>
<table width="98%" border="0" cellspacing="1" cellpadding="4" bgcolor="#293863" align="center">
<form name="form1" method="post" action="New_soft.asp">
<tr>
<td colspan="2" class="diaryhead">新增軟件</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">軟件名稱</td>
<td width="84%" class="chinese">
<input type="text" name="name" size="40" class="textarea">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">軟件大小</td>
<td width="84%" class="chinese">
<input name="size" type="text" class="textarea" size="20">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">授權方式</td>
<td width="84%" class="chinese">
<input name="mode" type="text" class="textarea" value="共享">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">應用平臺</td>
<td width="84%" class="chinese">
<input name="roof" type="text" class="textarea" value="WIN">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">推薦程度</td>
<td width="84%" class="chinese">
<select name="commend">
<option value="5">5stars</option>
<option value="4">4stars</option>
<option value="3">3stars</option>
<option value="2">2stars</option>
<option value="1">1stars</option>
<option value="0">0stars</option>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">所屬分類</td>
<td width="84%" class="chinese">
<select name="of">
<%
dim catname,classname,catid,classid
opendown
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM d_cat"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
sql="select * from d_class where cat_id="&rs("cat_id")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.OPEN sql,Conn,1,1
if not (rs2.eof and rs2.bof) then
do while not rs2.eof
catid=rs("cat_id")
classid=rs2("class_id")
catname=rs("cat_name")
classname=rs2("class_name")
%>
<option value='<%=rs2("class_id")%>'><%=rs2("class_name")%>（<%=rs("cat_name")%>）</option>
<%
rs2.movenext
loop
end if
rs.movenext
rs2.close
set rs2=nothing
loop
end if
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">演示地址</td>
<td width="84%" class="chinese">
<input name="demo" type="text" class="textarea" size="60">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">主頁地址</td>
<td width="84%" class="chinese">
<input name="home" type="text" class="textarea" size="60">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">圖片地址</td>
<td width="84%" class="chinese">
<input name="showpic" type="text" class="textarea" size="60">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">程序簡介</td>
<td width="84%" class="chinese">
<textarea name="desc" cols="65" rows="10" class="textarea"></textarea>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">下載地址1</td>
<td width="84%" class="chinese">
<input type="text" name="url1" size="60" class="textarea">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">下載地址2</td>
<td width="84%" class="chinese">
<input type="text" name="url2" size="60" class="textarea">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">下載地址3</td>
<td width="84%" class="chinese">
<input type="text" name="url3" size="60" class="textarea">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">下載地址4</td>
<td width="84%" class="chinese">
<input type="text" name="url4" size="60" class="textarea">
</td>
</tr>
<tr bgcolor="#E8E8E8">
<td colspan="2" class="chinese" align="center" height="30">
<input type="submit" name="Submit" value="確定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
[<a href="admin_soft.asp">返回</a>] </td>
</tr>
<input type="hidden" name="action" value="newsoft">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editsoft" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>請指定操作的對象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的軟件ID參數！"
call diserror()
response.end
end if
end if
sql="select * from soft where soft_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
<table width="98%" border="0" cellspacing="1" cellpadding="4" bgcolor="#293863" align="center">
<form name="form1" method="post" action="New_soft.asp">
<tr>
<td colspan="2" class="diaryhead">編輯軟件</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">軟件名稱</td>
<td width="84%" class="chinese"> <input type="text" name="name" size="40" class="textarea" value="<%=rs2("soft_name")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">軟件大小</td>
<td width="84%" class="chinese"> <input type="text" name="size" size="20" class="textarea" value="<%=rs2("soft_size")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">授權方式</td>
<td width="84%" class="chinese"> <input type="text" name="mode" class="textarea" value="<%=rs2("soft_mode")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="16%" class="chinese">應用平臺</td>
<td width="84%" class="chinese"> <input type="text" name="roof" class="textarea" value="<%=rs2("soft_roof")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -