📄 admin_down.asp
字号:
<option value='<%=rs2("class_id")%>'><%=rs2("class_name")%>（<%=rs3("cat_name")%>）</option>
<%
rs2.movenext
loop
end if
rs3.movenext
loop
end if
rs2.close
set rs2=nothing
rs3.close
set rs3=nothing
%>
</select> </td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>图片地址</td>
<td>
<input type="text" name="showpic" size="60" class="textarea" value=""> </td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td> 上传图片</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="uploadfile.asp?action=downpic" name="downpic"></iframe></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>本地下载</td>
<td>
<input type="text" name="url1" size="60" class="textarea"> </td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td> 上传软件</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="uploadfile.asp?action=downfile" name="downfile"></iframe></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>镜像下载</td>
<td>
<input type="text" name="url2" size="60" class="textarea"> </td>
</tr>
</table>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
<tr bgcolor="#FFFFFF">
<td height="24"> 内容简介： <font color="red">*</font>注：内容图片上传请点图标<img src="../images/edit/Img.gif" width="22" height="22"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="147"> <div align="center"></div>
<textarea name="Content" id="Content" style="display:none"></textarea>
<IFRAME ID="Content" name="Content" SRC="../editor.asp?id=Content" FRAMEBORDER="0" SCROLLING="no" WIDTH="590" HEIGHT="425"></IFRAME>
</td>
</tr>
<tr bgcolor='#EAEAEA'>
<td colspan="2" align="center" height="30">
<input type="checkbox" name="isbest" value="1" style="display:none">
<input type="submit" name="Submit" value="确定新增" class="button" onClick="return doSubmit()">
<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></td></tr></table><br>
<%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 a125_d_news where id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
<p align="center"><a href="admin_down.asp?action=newsoft">添加下载</a> | <a href="admin_down.asp?action=list">修改下载</a></p>
<table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>编辑软件</font></td></tr></table>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#A1BBE0'>
<form name="form1" method="post" action="admin_down.asp">
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td width="16%">软件名称</td>
<td width="84%"> <input type="text" name="name" size="40" class="textarea" value="<%=rs2("soft_name")%>">
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>软件大小</td>
<td> <input type="text" name="size" size="20" class="textarea" value="<%=rs2("soft_size")%>">
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>所属分类</td>
<td> <select name="of" id="of">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM a125_down"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
sql="select * from a125_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
loop
end if
rs3.close
set rs3=nothing
rs.close
set rs=nothing
%>
</select> </td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>图片地址</td>
<td> <input type="text" name="showpic" size="60" class="textarea" value="<%=rs2("soft_showpic")%>">
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td> 上传图片</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="uploadfile.asp?action=downpic" name="downpic"></iframe></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>本地下载</td>
<td> <input type="text" name="url1" size="60" class="textarea" value="<%=rs2("soft_url1")%>">
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td> 上传软件</td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="uploadfile.asp?action=downfile" name="downfile"></iframe></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>镜像下载</td>
<td> <input type="text" name="url2" size="60" class="textarea" value="<%=rs2("soft_url2")%>">
</td>
</tr>
</table>
<table width="100%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
<tr bgcolor="#FFFFFF">
<td height="23"> 内容简介： <font color="red">*</font>注：图片上传请点图标<img src="../images/edit/Img.gif" width="22" height="22"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="65">
<div align="center"></div>
<textarea name="Content" id="Content" style="display:none"><%=rs2("soft_desc")%></textarea>
<IFRAME ID="Content" SRC="../editor.asp?id=Content" FRAMEBORDER="0" SCROLLING="no" WIDTH="590" HEIGHT="425"></IFRAME>
</td>
</tr>
<tr bgcolor='#EAEAEA'>
<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%> style="display:none">
<input name="Submit" type="submit" class="button" id="Submit" value="确定修改" onClick="return doSubmit()">
<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></td></tr></table><br>
<%
rs2.close
set rs2=nothing
conn.Close
Set conn=nothing
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 a125_d_news where id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
<table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>删除软件</font></td></tr></table>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#A1BBE0'>
<form name="form1" method="post" action="admin_down.asp">
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td width="16%">软件名称</td>
<td width="84%"><%=rs2("soft_name")%>
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>软件大小</td>
<td><%=rs2("soft_size")%>
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>所属分类</td>
<td><%=rs2("soft_catname")%> | <%=rs2("soft_classname")%></td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>图片地址</td>
<td><%=rs2("soft_showpic")%>
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>内容简介</td>
<td><%=rs2("soft_desc")%>
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>本地下载</td>
<td><%=rs2("soft_url1")%>
</td>
</tr>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td>镜像下载</td>
<td><%=rs2("soft_url2")%>
</td>
</tr>
<tr bgcolor='#EAEAEA'>
<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></td></tr></table><br>
<%
rs2.close
set rs2=nothing
conn.Close
Set conn=nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -