📄 admin_down.asp
字号:
<td>程序简介</td>
<td>
<textarea name="desc" cols="65" rows="10" class="textarea">没有</textarea>
</td>
</tr>
<tr class=lanyuds>
<td>本地下载</td>
<td>
<input type="text" name="url1" size="60" class="textarea">
</td>
</tr>
<tr class=lanyuds>
<td> 上传软件： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=down"></iframe></td>
</tr>
<tr class=lanyuds>
<td>镜像下载</td>
<td>
<input type="text" name="url2" size="60" class="textarea">
</td>
</tr>
<tr class=lanyuds>
<td>远程下载1</td>
<td>
<input type="text" name="url3" size="60" class="textarea">
</td>
</tr>
<tr class=lanyuds>
<td>远程下载2</td>
<td>
<input type="text" name="url4" size="60" class="textarea">
</td>
</tr>
<tr class=lanyuqs>
<td colspan="2" align="center" height="30">
<input type="checkbox" name="isbest" value="1">推荐 <input type="submit" name="Submit" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
<input type="button" value="返回" onClick="location.href='admin_down.asp?action=list'" class="button"></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
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的软件ID参数！');history.back(1);</script>")
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 align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_down.asp?action=list">
<tr class=lanyuss>
<td colspan="2">编辑软件</td>
</tr>
<tr class=lanyuds>
<td width="16%">软件名称</td>
<td width="84%"> <input type="text" name="name" size="40" class="textarea" value="<%=rs2("soft_name")%>">
</td>
</tr>
<tr class=lanyuds>
<td>软件大小</td>
<td> <input type="text" name="size" size="20" class="textarea" value="<%=rs2("soft_size")%>">
</td>
</tr>
<tr class=lanyuds>
<td>授权方式</td>
<td>
<select name="mode">
<option value="免费软件" <%if rs2("soft_mode")="免费软件" then response.write "selected" end if%>>免费软件</option>
<option value="共享软件" <%if rs2("soft_mode")="共享软件" then response.write "selected" end if%>>共享软件</option>
<option value="汉化软件" <%if rs2("soft_mode")="汉化软件" then response.write "selected" end if%>>汉化软件</option>
<option value="破解软件" <%if rs2("soft_mode")="破解软件" then response.write "selected" end if%>>破解软件</option>
</select>
</td>
</tr>
<tr class=lanyuds>
<td>应用平台</td>
<td>
<select name="roof">
<option value="IIS环境" <%if rs2("soft_roof")="IIS环境" then response.write "selected" end if%>>IIS环境</option>
<option value="Win9x/Me" <%if rs2("soft_roof")="Win9x/Me" then response.write "selected" end if%>>Win9x/Me</option>
<option value="WinNT/2000/XP" <%if rs2("soft_roof")="WinNT/2000/XP" then response.write "selected" end if%>>WinNT/2000/XP</option>
<option value="Win9x/Me/NT/2000/XP" <%if rs2("soft_roof")="Win9x/Me/NT/2000/XP" then response.write "selected" end if%>>Win9x/Me/NT/2000/XP</option>
</select>
</td>
</tr>
<tr class=lanyuds>
<td>推荐程度</td>
<td> <select name="commend" id="commend">
<option value="5" <%if rs2("soft_commend")=5 then response.write "selected" end if%>>5stars</option>
<option value="4" <%if rs2("soft_commend")=4 then response.write "selected" end if%>>4stars</option>
<option value="3" <%if rs2("soft_commend")=3 then response.write "selected" end if%>>3stars</option>
<option value="2" <%if rs2("soft_commend")=2 then response.write "selected" end if%>>2stars</option>
<option value="1" <%if rs2("soft_commend")=1 then response.write "selected" end if%>>1stars</option>
<option value="0" <%if rs2("soft_commend")=0 then response.write "selected" end if%>>0stars</option>
</select> </td>
</tr>
<tr class=lanyuds>
<td>所属分类</td>
<td> <select name="of" id="of">
<%
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 rs3 = Server.CreateObject("ADODB.Recordset")
rs3.OPEN sql,Conn,1,1
if not (rs3.eof and rs3.bof) then
do while not rs3.eof
catid=rs("cat_id")
classid=rs3("class_id")
catname=rs("cat_name")
classname=rs3("class_name")
%>
<option value='<%=rs3("class_id")%>' <%if rs3("class_id")=rs2("soft_classid") then response.Write "selected" end if%>><%=rs3("class_name")%>（<%=rs("cat_name")%>）</option>
<%
rs3.movenext
loop
end if
rs.movenext
rs3.close
set rs3=nothing
loop
end if
%>
</select> </td>
</tr>
<tr class=lanyuds>
<td>演示地址</td>
<td> <input type="text" name="demo" size="60" class="textarea" value="<%=rs2("soft_demo")%>">
</td>
</tr>
<tr class=lanyuds>
<td>主页地址</td>
<td> <input type="text" name="home" size="60" class="textarea" value="<%=rs2("soft_home")%>">
</td>
</tr>
<tr class=lanyuds>
<td>图片地址</td>
<td> <input type="text" name="showpic" size="60" class="textarea" value="<%=rs2("soft_showpic")%>">
</td>
</tr>
<tr class=lanyuds>
<td> 上传图片： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=downpic"></iframe></td>
</tr>
<tr class=lanyuds>
<td>程序简介</td>
<td> <textarea name="desc" cols="65" rows="10" class="textarea" id="desc"><%=rs2("soft_desc")%></textarea>
</td>
</tr>
<tr class=lanyuds>
<td>本地下载</td>
<td> <input type="text" name="url1" size="60" class="textarea" value="<%=rs2("soft_url1")%>">
</td>
</tr>
<tr class=lanyuds>
<td> 上传软件： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=down"></iframe></td>
</tr>
<tr class=lanyuds>
<td>镜像下载</td>
<td> <input type="text" name="url2" size="60" class="textarea" value="<%=rs2("soft_url2")%>">
</td>
</tr>
<tr class=lanyuds>
<td>远程下载1</td>
<td> <input type="text" name="url3" size="60" class="textarea" value="<%=rs2("soft_url3")%>">
</td>
</tr>
<tr class=lanyuds>
<td>远程下载2</td>
<td> <input type="text" name="url4" size="60" class="textarea" value="<%=rs2("soft_url4")%>">
</td>
</tr>
<tr class=lanyuqs>
<td colspan="2" align="center" height="30">
<input type="checkbox" name="isbest" value="1" id="isbest" <%if rs2("isbest")=1 then response.write "checked" end if%>>
推荐
<input name="Submit" type="submit" class="button" id="Submit" value="确定修改">
<input type="button" value="返回" onClick="location.href='admin_down.asp?action=list'" class="button"></td>
</tr>
<input type="hidden" name="id" value="<%=request.QueryString("id")%>">
<input type="hidden" name="action" value="editsoft">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="delsoft" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的软件ID参数！');history.back(1);</script>")
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 align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_down.asp?action=list">
<tr>
<td colspan="2" class="diaryhead">删除软件</td>
</tr>
<tr class=lanyuds>
<td width="16%">软件名称</td>
<td width="84%"><%=rs2("soft_name")%>
</td>
</tr>
<tr class=lanyuds>
<td>软件大小</td>
<td><%=rs2("soft_size")%>
</td>
</tr>
<tr class=lanyuds>
<td>授权方式</td>
<td><%=rs2("soft_mode")%>
</td>
</tr>
<tr class=lanyuds>
<td>应用平台</td>
<td><%=rs2("soft_roof")%>
</td>
</tr>
<tr class=lanyuds>
<td>推荐程度</td>
<td><img src="img/star<%=rs2("soft_commend")%>.gif"></td>
</tr>
<tr class=lanyuds>
<td>所属分类</td>
<td><%=rs2("soft_catname")%> | <%=rs2("soft_classname")%></td>
</tr>
<tr class=lanyuds>
<td>演示地址</td>
<td><%=rs2("soft_demo")%>
</td>
</tr>
<tr class=lanyuds>
<td>主页地址</td>
<td><%=rs2("soft_home")%>
</td>
</tr>
<tr class=lanyuds>
<td>图片地址</td>
<td><%=rs2("soft_showpic")%>
</td>
</tr>
<tr class=lanyuds>
<td>程序简介</td>
<td><%=ubb2html(formatStr(autourl(rs2("soft_desc"))), true, true)%>
</td>
</tr>
<tr class=lanyuds>
<td>本地下载</td>
<td><%=rs2("soft_url1")%>
</td>
</tr>
<tr class=lanyuds>
<td>镜像下载</td>
<td><%=rs2("soft_url2")%>
</td>
</tr>
<tr class=lanyuds>
<td>远程下载1</td>
<td><%=rs2("soft_url3")%>
</td>
</tr>
<tr class=lanyuds>
<td>远程下载2</td>
<td><%=rs2("soft_url4")%>
</td>
</tr>
<tr class=lanyuqs>
<td colspan="2" align="center" height="30">
<input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
<input type="button" value="返回" onClick="location.href='admin_down.asp?action=list'" class="button"> </td>
</tr>
<input type="hidden" name="id" value="<%=request.QueryString("id")%>">
<input type="hidden" name="action" value="delsoft">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
end if
rs.close
set rs=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -