admin_down.asp

本程序采用花香内核

                <td>推荐程度</td>
                <td>
                    <select name="commend">
		     <option value="5">5stars</option>
                      <option value="4">4stars</option>
                      <option value="3" selected>3stars</option>
                      <option value="2">2stars</option>
                      <option value="1">1stars</option>
                      <option value="0">0stars</option>
                    </select>
                  </td>
              </tr>
              <tr class=lanyuds> 
                <td>所属分类</td>
                <td>
                    <select name="of">
                      <%
dim catname,classname,catid,classid
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
response.write "<optgroup label='"&rs("cat_name")&"'>"
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")%></option>
<%
rs2.movenext
loop
end if
rs.movenext
rs2.close
set rs2=nothing
loop
end if
%>
                    </select>
                  </td>
              </tr>
              <tr class=lanyuds> 
                <td>演示地址</td>
                <td>
                    <input type="text" name="demo" size="60" class="textarea">
                  </td>
              </tr>
              <tr class=lanyuds> 
                <td>主页地址</td>
                <td>
                    <input type="text" name="home" size="60" class="textarea" value="http://hx66.net">
                  </td>
              </tr>
              <tr class=lanyuds> 
                <td>图片地址</td>
                <td>
                    <input type="text" name="showpic" size="60" class="textarea" value="http://hx66.net">
                  </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">没有</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> 
               <td class=lanyuds colspan="2"> 
              阅读等级：
        <select name="Grade" id="Grade">
          <option value="0" selected>游客下载</option>
          <option value="1">普通用户</option>
          <option value="2">VIP 用户</option>
        </select>&nbsp;&nbsp;  扣除会员积分数：<input type="text" name="points" size="4" value=""> (应添整数数字) *游客下载,请留空.
            </td>
          </tr>
              <tr class=lanyuqs> 
                <td colspan="2" align="center" height="30">
<input type="checkbox" name="istop" value="1">置顶&nbsp;&nbsp;&nbsp; <input type="checkbox" name="isbest" value="1">推荐&nbsp;&nbsp;&nbsp; <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>
         <tr> 
            <td class=lanyuds align="right" colspan="2"> 
              版权所有：<a href="http://hx66.net" target=_blank>花香盈路 ver6.5</a>
            </td>
         </tr>
            </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")%>">  添加人：<input type="text" name="tjuser" size="10" value="<%=rs2("tjuser")%>">  
                  </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
response.write "<optgroup label='"&rs("cat_name")&"'>"
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")%></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> 
                  <td class=lanyuds colspan="2"> 
              下载等级：
        <select name="Grade" id="Grade">
        <option value="0" <%if rs2("Grade")="0" then response.write "selected" end if%>>游客下载</option>
        <option value="1" <%if rs2("Grade")="1" then response.write "selected" end if%>>普通用户</option>
        <option value="2" <%if rs2("Grade")="2" then response.write "selected" end if%>>VIP 用户</option>
        </select>&nbsp;&nbsp;  扣除会员积分数：<input type="text" name="points" size="5" value="<%=rs2("points")%>"> **整数数字.
                  </td>
                </tr>
                <tr class=lanyuqs> 
                  <td colspan="2" align="center" height="30">
<input type="checkbox" name="istop" value="1" id="istop" <%if rs2("istop")=1 then response.write "checked" end if%>>
              置顶&nbsp;&nbsp;&nbsp;<input type="checkbox" name="isbest" value="1" id="isbest" <%if rs2("isbest")=1 then response.write "checked" end if%>>
              推荐&nbsp;&nbsp;&nbsp; 
                    <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
end if
rs.close
set rs=nothing
%>