newsoft_body.asp

一个不错的企业网站

                <tr class="a3"> 
                  <td width="16%">所属分类</td>
                  <td width="84%"> <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="a4"> 
                  <td width="16%">演示地址</td>
                  <td width="84%"> <input type="text" name="demo" size="60" value="<%=rs2("soft_demo")%>"> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">主页地址</td>
                  <td width="84%"> <input type="text" name="home" size="60" value="<%=rs2("soft_home")%>"> 
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">图片地址</td>
                  <td width="84%"> <input type="text" name="showpic" size="60" value="<%=rs2("soft_showpic")%>"> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">程序简介</td>
                  <td width="84%"> <textarea name="desc" cols="65" rows="10" id="desc"><%=rs2("soft_desc")%></textarea> 
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">下载地址1</td>
                  <td width="84%"> <input type="text" name="url1" size="60" value="<%=rs2("soft_url1")%>"> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">下载地址2</td>
                  <td width="84%"> <input type="text" name="url2" size="60" value="<%=rs2("soft_url2")%>"> 
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">下载地址3</td>
                  <td width="84%"> <input type="text" name="url3" size="60" value="<%=rs2("soft_url3")%>"> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">下载地址4</td>
                  <td width="84%"> <input type="text" name="url4" size="60" value="<%=rs2("soft_url4")%>"> 
                  </td>
                </tr>
                <tr class="a4"> 
                  <td colspan="2" align="center" height="30"> 
                    <input name="Submit" type="submit" id="Submit" value="确定修改"> 
                    <input type="reset" name="Reset2" value="清空重填">
                    [<a href="admin_soft.asp">返回</a>] </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
  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 cellpadding="2" cellspacing="1" border="0" width="760" cellpadding="4" align=center class="a2">
              <form name="form1" method="post" action="New_soft.asp">
                <tr class="a1"> 
                  <td colspan="2">删除软件</td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">软件名称</td>
                  <td width="84%"><%=rs2("soft_name")%>
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">软件大小</td>
                  <td width="84%"><%=rs2("soft_size")%>
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">授权方式</td>
                  <td width="84%"><%=rs2("soft_mode")%> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">应用平台</td>
                  <td width="84%"><%=rs2("soft_roof")%>
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">推荐程度</td>
                  <td width="84%"><img src="img/star<%=rs2("soft_commend")%>.gif"></td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">所属分类</td>
                  <td width="84%"><%=rs2("soft_catname")%> | <%=rs2("soft_classname")%></td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">演示地址</td>
                  <td width="84%"><%=rs2("soft_demo")%> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">主页地址</td>
                  <td width="84%"><%=rs2("soft_home")%>
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">图片地址</td>
                  <td width="84%"><%=rs2("soft_showpic")%>
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">程序简介</td>
                  <td width="84%"><%=ubb2html(formatStr(autourl(rs2("soft_desc"))), true, true)%>
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">下载地址1</td>
                  <td width="84%"><%=rs2("soft_url1")%> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">下载地址2</td>
                  <td width="84%"><%=rs2("soft_url2")%> 
                  </td>
                </tr>
                <tr class="a4"> 
                  <td width="16%">下载地址3</td>
                  <td width="84%"><%=rs2("soft_url3")%> 
                  </td>
                </tr>
                <tr class="a3"> 
                  <td width="16%">下载地址4</td>
                  <td width="84%"><%=rs2("soft_url4")%> 
                  </td>
                </tr>
                <tr class="a4"> 
                  <td colspan="2" align="center" height="30"> 
                    <input name="Submit" type="submit" id="Submit" value="确定删除">
                    [<a href="admin_soft.asp">返回</a>] </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%>
            <br>
          </td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1"></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>