admin_soft_manage_edit.asp

深度学习整站系统 v1.10 1、将整个目录上传到虚拟空间

    <td>&nbsp;
      <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
        <table width="750" align="center">
          <tr valign="baseline">
            <td width="150" height="25" align="right" nowrap><strong>所属栏目：</strong></td>
            <td colspan="3">
              <select name="fClassName">
                <%
While (NOT RsSoftClass.EOF)
%><option value="<%=(RsSoftClass.Fields.Item("fClassName").Value)%>" <%If (Not isNull((RsSoft.Fields.Item("fClassName").Value))) Then If (CStr(RsSoftClass.Fields.Item("fClassName").Value) = CStr((RsSoft.Fields.Item("fClassName").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(RsSoftClass.Fields.Item("fClassName").Value)%></option>
                <%
  RsSoftClass.MoveNext()
Wend
If (RsSoftClass.CursorType > 0) Then
  RsSoftClass.MoveFirst
Else
  RsSoftClass.Requery
End If
%>
              </select>
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>软件名称：</strong></td>
            <td colspan="2">
              <input type="text" name="fSoftName" value="<%=(RsSoft.Fields.Item("fSoftName").Value)%>" size="45">
            </td>
            <td><strong>软件版本：
              <input type="text" name="fSoftVersion" value="<%=(RsSoft.Fields.Item("fSoftVersion").Value)%>" size="20">
            </strong></td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>软件类别：</strong></td>
            <td>
              <select name="fSoftType" id="fSoftType">
                <option value="程序源码" selected <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("程序源码" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>程序源码</option>
                <option value="教学课件" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("教学课件" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>教学课件</option>
                <option value="国产软件" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("国产软件" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>国产软件</option>
                <option value="国外软件" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("国外软件" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>国外软件</option>
                <option value="汉化补丁" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("汉化补丁" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>汉化补丁</option>
                <option value="电影下载" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("电影下载" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>电影下载</option>
                <option value="FLASH动画" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("FLASH动画" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>FLASH动画</option>
                <option value="其它" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If ("其它" = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>其它</option>
                <%
While (NOT RsSoft.EOF)
%>
                <option value="<%=(RsSoft.Fields.Item("fSoftType").Value)%>" <%If (Not isNull((RsSoft.Fields.Item("fSoftType").Value))) Then If (CStr(RsSoft.Fields.Item("fSoftType").Value) = CStr((RsSoft.Fields.Item("fSoftType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(RsSoft.Fields.Item("fSoftType").Value)%></option>
                <%
  RsSoft.MoveNext()
Wend
If (RsSoft.CursorType > 0) Then
  RsSoft.MoveFirst
Else
  RsSoft.Requery
End If
%>
              </select>
            </td>
            <td><strong>软件语言：
                <select name="fSoftLanguage" id="select">
                  <option value="简体中文" selected <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If ("简体中文" = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>简体中文</option>
                  <option value="繁体中文" <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If ("繁体中文" = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>繁体中文</option>
                  <option value="简繁中文" <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If ("简繁中文" = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>简繁中文</option>
                  <option value="多国语言" <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If ("多国语言" = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>多国语言</option>
                  <option value="英文" <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If ("英文" = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>英文</option>
                  <option value="其他语言" <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If ("其他语言" = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>其他语言</option>
                  <%
While (NOT RsSoft.EOF)
%>
                  <option value="<%=(RsSoft.Fields.Item("fSoftLanguage").Value)%>" <%If (Not isNull((RsSoft.Fields.Item("fSoftLanguage").Value))) Then If (CStr(RsSoft.Fields.Item("fSoftLanguage").Value) = CStr((RsSoft.Fields.Item("fSoftLanguage").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(RsSoft.Fields.Item("fSoftLanguage").Value)%></option>
                  <%
  RsSoft.MoveNext()
Wend
If (RsSoft.CursorType > 0) Then
  RsSoft.MoveFirst
Else
  RsSoft.Requery
End If
%>
              </select>
            </strong></td>
            <td><strong>授权形式：
              <select name="fCopyrightType" id="fCopyrightType">
                <option value="免费版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("免费版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>免费版</option>
                <option value="共享版" selected <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("共享版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>共享版</option>
                <option value="试用版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("试用版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>试用版</option>
                <option value="演示版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("演示版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>演示版</option>
                <option value="注册版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("注册版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>注册版</option>
                <option value="破解版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("破解版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>破解版</option>
                <option value="零售版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("零售版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>零售版</option>
                <option value="OEM版" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If ("OEM版" = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%>>OEM版</option>
                <%
While (NOT RsSoft.EOF)
%>
                <option value="<%=(RsSoft.Fields.Item("fCopyrightType").Value)%>" <%If (Not isNull((RsSoft.Fields.Item("fCopyrightType").Value))) Then If (CStr(RsSoft.Fields.Item("fCopyrightType").Value) = CStr((RsSoft.Fields.Item("fCopyrightType").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(RsSoft.Fields.Item("fCopyrightType").Value)%></option>
                <%
  RsSoft.MoveNext()
Wend
If (RsSoft.CursorType > 0) Then
  RsSoft.MoveFirst
Else
  RsSoft.Requery
End If
%>
              </select>
</strong></td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>软件平台：</strong></td>
            <td colspan="2"><input type="text" name="fOperatingSystem" value="<%=(RsSoft.Fields.Item("fOperatingSystem").Value)%>" size="40"></td>
            <td><strong>软件大小：
              <input type="text" name="fSoftSize" value="<%=(RsSoft.Fields.Item("fSoftSize").Value)%>" size="15">
            </strong></td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>作者/开发商：</strong></td>
            <td colspan="3">
              <input type="text" name="fAuthor" value="<%=(RsSoft.Fields.Item("fAuthor").Value)%>" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>作者/开发商的主页：</strong></td>
            <td colspan="3">
              <input type="text" name="fAuthorHomepage" value="<%=(RsSoft.Fields.Item("fAuthorHomepage").Value)%>" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>软件演示地址：</strong></td>
            <td colspan="3">
              <input type="text" name="fDemoUrl" value="<%=(RsSoft.Fields.Item("fDemoUrl").Value)%>" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap><strong>总下载次数：</strong></td>
            <td colspan="3">
              <input type="text" name="fHits" value="<%=(RsSoft.Fields.Item("fHits").Value)%>" size="10">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 更新时间：
<label>
<input name="fUpdateTime" type="text" id="fUpdateTime" value="<%=now()%>" maxlength="20">
</label></td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" valign="top" nowrap><strong>软件简介：</strong></td>
            <td colspan="3">
              <textarea name="fSoftIntro" style="display:none"><%=(RsSoft.Fields.Item("fSoftIntro").Value)%></textarea>
			  <IFRAME ID="Editor1" SRC="editor/Editor.asp?id=fSoftIntro&style=deep_s_green" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" class="tdbg"><div align="right"><strong>下载地址1：</strong></div></td>
            <td colspan="3">
              <input type="text" name="fDownloadUrl1" value="<%=(RsSoft.Fields.Item("fDownloadUrl1").Value)%>" size="70">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" class="tdbg"><div align="right"><strong>下载地址2：</strong></div></td>
            <td colspan="3">
              <input name="fDownloadUrl2" type="text" value="<%=(RsSoft.Fields.Item("fDownloadUrl2").Value)%>" size="70">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" class="tdbg"><div align="right"><strong>下载地址3：</strong></div></td>
            <td colspan="3">
              <input type="text" name="fDownloadUrl3" value="<%=(RsSoft.Fields.Item("fDownloadUrl3").Value)%>" size="70">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" class="tdbg"><div align="right"><strong>下载地址4：</strong></div></td>
            <td colspan="3">
              <input type="text" name="fDownloadUrl4" value="<%=(RsSoft.Fields.Item("fDownloadUrl4").Value)%>" size="70">
            </td>
          </tr>
          <tr valign="baseline">
            <td height="25" align="right" nowrap>&nbsp;</td>
            <td colspan="3">
              <input type="submit" value="修  改">
              &nbsp;&nbsp;
              <input type="reset" name="Submit" value="重  置">
            </td>
          </tr>
        </table>
        
      
                <input type="hidden" name="MM_update" value="form1">
        <input type="hidden" name="MM_recordId" value="<%= RsSoft.Fields.Item("fSoftID").Value %>">
</form>
    <p>&nbsp;</p></td>
  </tr>
</table>
</body>
</html>
<%
RsSoftClass.Close()
Set RsSoftClass = Nothing
%>
<%
RsSoft.Close()
Set RsSoft = Nothing
%>