📄 admin_soft_modify.asp
字号:
<!--#include file = "conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<% CheckAdmin2 %>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<!--#include file="Admin_all_soft.asp" -->
<%
Dim SoftID
SoftID=Trim(Request("SoftID"))
if SoftID="" then
founderr=true
errmsg=errmsg & "<br><li>请您选择要修改的软件！！</li>"
end if
If IsNumeric(SoftID) = False Then
founderr=true
errmsg=errmsg & "<br><li>要修改的软件ID错误！！</li>"
End If
if FoundErr=True then
call WriteErrMsg()
Response.End
end if
set rs=server.createobject("adodb.recordset")
Sql="Select * From SoftData Where S_ID="&SoftID
Rs.Open Sql,Conn,1,1
If Rs.Eof Then
errmsg=errmsg & "<br><li>无此软件或已被删除！！</li>"
call WriteErrMsg()
Response.End
End If
%>
<Script Language=JavaScript>
function doSubmit(){
if (document.myform.SoftName.value==""){
alert("软件名称不能为空！");
return false;
}
if (document.myform.SoftKeyWord.value==""){
alert("软件关键字不能为空！");
return false;
} if (document.myform.SoftSize.value==""){
alert("软件大小不能为空！");
return false;
}
if (document.myform.SoftClassID.value=="")
{
alert("软件分类不能指定为含有子栏目的栏目！");
return false;
}
if (document.myform.SoftLicenceType.value==""){
alert("软件授权不能为空！");
return false;
}
if (document.myform.SoftType.value==""){
alert("软件类型不能为空！");
return false;
}
if (document.myform.SoftLang.value==""){
alert("软件语言不能为空！");
return false;
}
var tt = 0;
for(var i = 0;i < document.myform.SoftRunEnvi.length; i++) {
var e = document.myform.SoftRunEnvi[i];
if (e.checked) tt++;
}
if (tt == 0)
{
alert("运行环境不能为空！");
return false;
}
if (document.myform.SoftDownName1.value==""){
alert("下载名称1不能为空！");
return false;
}
if (document.myform.SoftDown1.value==""){
alert("下载地址1不能为空！");
return false;
}
}
</Script>
<div align="center">
<table width="690" border="0" cellpadding="3" cellspacing="1" bgcolor="#DEDFDE">
<form name="myform" method="post" action="Admin_Soft_Save.asp?Action=ModifySaveSoft&SoftID=<%=Rs("S_ID")%>" onsubmit="return doSubmit()"><tr bgcolor="#f7f7f7">
<td colspan="2"><div align="center"><strong>软 件 下 载</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件名称：</TD>
<td><input name="SoftName" type="text" class="input_text" id="SoftName" size="50" value="<%=Rs("S_SoftName")%>">
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">关 键 字：</TD>
<td><input name="SoftKeyWord" type="text" class="input_text" id="SoftKeyWord" size="30" value="<%=Rs("S_SoftKeyWord")%>">
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件大小：</TD>
<td><input name="SoftSize" type="text" class="input_text" id="SoftSize" size="10" value="<%=Rs("S_SoftSize")%>">
<input id="MB" type="radio" name="size" value="MB" <%If Ucase(Rs("S_SoftSizeUnit"))="MB" Then%>checked="checked"<%End If%>>
<label for="MB">MB</label>
<input id="KB" type="radio" name="size" value="KB" <%If Ucase(Rs("S_SoftSizeUnit"))="KB" Then%>checked="checked"<%End If%>>
<label for="KB">KB<font color="#ff6600"> *</font></label></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件分类：</TD>
<td><select name='SoftClassID'>
<%call SoftClass_Option(3,Rs("S_SoftClassID"))%>
</select>
<FONT color=#ff6600>*<STRONG>注意：</STRONG>1、不能指定为含有子栏目的栏目，或者外部栏目</FONT></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD bgcolor="#FFFFFF">添加时间：</TD>
<td><input name="SoftAddTime" type="text" id="SoftAddTime" value="<%=Rs("S_SoftAddTime")%>" readonly size="20" class="input_text"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件授权：</TD>
<td><select name="SoftLicenceType" id="SoftLicenceType" class="input_text">
<option value="">请选择授权类型</option>
<option value="共享软件" <%If Rs("S_SoftLicenceType")="共享软件" Then%>selected<%End If%>>共享软件</option>
<option value="免费软件" <%If Rs("S_SoftLicenceType")="免费软件" Then%>selected<%End If%>>免费软件</option>
<option value="自由软件" <%If Rs("S_SoftLicenceType")="自由软件" Then%>selected<%End If%>>自由软件</option>
<option value="试用软件" <%If Rs("S_SoftLicenceType")="试用软件" Then%>selected<%End If%>>试用软件</option>
<option value="演示软件" <%If Rs("S_SoftLicenceType")="演示软件" Then%>selected<%End If%>>演示软件</option>
<option value="商用软件" <%If Rs("S_SoftLicenceType")="商用软件" Then%>selected<%End If%>>商用软件</option>
<option value="特别软件" <%If Rs("S_SoftLicenceType")="特别软件" Then%>selected<%End If%>>特别软件</option>
</select>
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件类型：</TD>
<td><select name="SoftType" id="SoftType" class="input_text">
<option value="">请选择软件类型</option>
<option value="国产软件" <%If Rs("S_SoftType")="国产软件" Then%>selected<%End If%>>国产软件</option>
<option value="国外软件" <%If Rs("S_SoftType")="国外软件" Then%>selected<%End If%>>国外软件</option>
<option value="汉化补丁" <%If Rs("S_SoftType")="汉化补丁" Then%>selected<%End If%>>汉化补丁</option>
<option value="破解补丁" <%If Rs("S_SoftType")="破解补丁" Then%>selected<%End If%>>破解补丁</option>
<option value="国产源程序" <%If Rs("S_SoftType")="国产源程序" Then%>selected<%End If%>>国产源程序</option>
<option value="国外源程序" <%If Rs("S_SoftType")="国外源程序" Then%>selected<%End If%>>国外源程序</option>
<option value="源程序补丁" <%If Rs("S_SoftType")="源程序补丁" Then%>selected<%End If%>>源程序补丁</option>
<option value="书籍教程" <%If Rs("S_SoftType")="书籍教程" Then%>selected<%End If%>>书籍教程</option>
</select>
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件语言：</TD>
<td><select name="SoftLang" id="SoftLang" class="input_text">
<option value="">请选择软件语言</option>
<option value="简体中文" <%If Rs("S_SoftLang")="简体中文" Then%>selected<%End If%>>简体中文</option>
<option value="繁体中文" <%If Rs("S_SoftLang")="繁体中文" Then%>selected<%End If%>>繁体中文</option>
<option value="英文" <%If Rs("S_SoftLang")="英文" Then%>selected<%End If%>>英文</option>
<option value="多国语言" <%If Rs("S_SoftLang")="多国语言" Then%>selected<%End If%>>多国语言</option>
</select>
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件等级：</TD>
<td><select name="SoftGrade" id="SoftGrade" class="input_text">
<option value="1" <%If Rs("S_SoftGrade")=1 Then%>selected<%End If%>>一级</option>
<option value="2" <%If Rs("S_SoftGrade")=2 Then%>selected<%End If%>>二级</option>
<option value="3" <%If Rs("S_SoftGrade")=3 Then%>selected<%End If%>>三级</option>
<option value="4" <%If Rs("S_SoftGrade")=4 Then%>selected<%End If%>>四级</option>
<option value="5" <%If Rs("S_SoftGrade")=5 Then%>selected<%End If%>>五级</option>
</select>
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">运行环境：
<%
Dim SoftRunEnvi
SoftRunEnvi=Split(Rs("S_SoftRunEnvi"),",")
Sub SoftRunEnviChecked(SoftRunEnviValue)
Dim i
For i=0 To UBound(SoftRunEnvi)
If Trim(SoftRunEnvi(i))=SoftRunEnviValue Then
Response.Write "checked"
End If
Next
End Sub
%>
</TD>
<td><TABLE width="100%" border="0" cellpadding="3" cellspacing="0">
<TR>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="Win9x" <%Call SoftRunEnviChecked("Win9x")%>>
Win9x</TD>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="WinMe" <%Call SoftRunEnviChecked("WinMe")%>>
WinMe</TD>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="WinNT" <%Call SoftRunEnviChecked("WinNT")%>>
WinNT</TD>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="Win2000" <%Call SoftRunEnviChecked("Win2000")%>>
Win2000</TD>
</TR>
<TR>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="WinXP" <%Call SoftRunEnviChecked("WinXP")%>>
WinXP</TD>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="Win2003" <%Call SoftRunEnviChecked("Win2003")%>>
Win2003</TD>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="Linux" <%Call SoftRunEnviChecked("Linux")%>>
Linux</TD>
<TD><input name="SoftRunEnvi" type="checkbox" id="SoftRunEnvi" value="Unix" <%Call SoftRunEnviChecked("Unix")%>>
Unix</TD>
</TR>
</TABLE></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">预览图片：</TD>
<td><input name="pic" type="text" id="pic" size="40" value="<%=rs("S_SoftPic")%>">
[<a href="JavaScript:openem()">上传图片</a>][<a href="javascript:preview()">图片预览</a>]
</td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">大图展示：</TD>
<td><input name="Bigpic" type="text" id="Bigpic" size="40" value="<%=rs("S_SoftBigPic")%>">
[<a href="JavaScript:openem_soft()">上传图片</a>][<a href="javascript:preview()">图片预览</a>]
</td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">演示网址：</TD>
<td><input name="SoftDemoUrl" type="text" class="input_text" id="SoftDemoUrl" value="<%=Rs("S_SoftDemoUrl")%>" size="40" maxlength="500">
<font color="#ff6600">注意：地址必须以http://开头</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">官方网址：</TD>
<td><input name="SoftAuthUrl" type="text" class="input_text" id="SoftAuthUrl" value="<%=Rs("S_SoftAuthUrl")%>" size="40" maxlength="500">
<font color="#ff6600">注意：地址必须以http://开头</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<TD bgcolor="#FFFFFF">下载名称1：</TD>
<td><input name="SoftDownName1" type="text" class="input_text" id="SoftDownName1" size="40" value="<%=Rs("S_SoftDownName1")%>">
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">下载地址1：</TD>
<td><input name="SoftDown1" type="text" class="input_text" id="SoftDown1" value="<%=Rs("S_SoftDown1")%>" size="60">
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD bgcolor="#FFFFFF">下载名称2：</TD>
<td><input name="SoftDownName2" type="text" class="input_text" id="SoftDownName2" size="40" value="<%=Rs("S_SoftDownName2")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">下载地址2：</TD>
<td><input name="SoftDown2" type="text" class="input_text" id="SoftDown2" size="60" value="<%=Rs("S_SoftDown2")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD bgcolor="#FFFFFF">下载名称3：</TD>
<td><input name="SoftDownName3" type="text" class="input_text" id="SoftDownName3" size="40" value="<%=Rs("S_SoftDownName3")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">下载地址3：</TD>
<td><input name="SoftDown3" type="text" class="input_text" id="SoftDown3" size="60" value="<%=Rs("S_SoftDown3")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD bgcolor="#FFFFFF">下载名称4：</TD>
<td><input name="SoftDownName4" type="text" class="input_text" id="SoftDownName4" size="40" value="<%=Rs("S_SoftDownName4")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">下载地址4：</TD>
<td><input name="SoftDown4" type="text" class="input_text" id="SoftDown4" size="60" value="<%=Rs("S_SoftDown4")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD bgcolor="#FFFFFF">下载名称5：</TD>
<td><input name="SoftDownName5" type="text" class="input_text" id="SoftDownName5" size="40" value="<%=Rs("S_SoftDownName5")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">下载地址5：</TD>
<td><input name="SoftDown5" type="text" class="input_text" id="SoftDown5" size="60" value="<%=Rs("S_SoftDown5")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<TD width="100" bgcolor="#FFFFFF">软件简介：</TD>
<td><textarea name="Content" id="Content" style="display:none"><%=rs("S_SoftRemark")%></textarea>
<IFRAME ID="Content" SRC="editor.asp?id=Content" FRAMEBORDER="0" SCROLLING="no" WIDTH="590" HEIGHT="425"></IFRAME>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="40" colspan="2"><div align="center">
<input type="submit" name="Submit" value=" 提 交 " class="input_Submit">
<input type="reset" name="Submit" value=" 重 置 " class="input_Submit">
</div></td>
</tr>
</form>
</table>
</div>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -