📄 user_softmodify.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/func.asp"-->
<!--#include file="inc/ad_code_soft.asp"-->
<%
if CheckUserLogined()=False then
response.Redirect "User_Login.asp"
end if
dim SoftID,rsSoft,sql,FoundErr,ErrMsg
dim ClassID,SkinID,LayoutID,SkinCount,LayoutCount,ClassMaster,BrowsePurview,AddPurview
SoftID=trim(request("SoftID"))
if SoftID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定要修改的软件ID</li>"
call WriteErrMsg()
call CloseConn()
response.end
else
SoftID=CLng(SoftID)
end if
sql="select * from Soft where SoftID=" & SoftID & ""
Set rsSoft= Server.CreateObject("ADODB.Recordset")
rsSoft.open sql,conn,1,1
if rsSoft.bof and rsSoft.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到文章</li>"
else
if rsSoft("Editor")=request.Cookies("luyeweb")("UserName") then
if rsSoft("Passed")=True then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>软件已经被审核通过，你不能再进行修改！</li>"
end if
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你不能修改其他人添加的软件！</li>"
end if
end if
if FoundErr=True then
call WriteErrMsg()
else
ClassID=rsSoft("ClassID")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>修改软件</title>
<link rel="stylesheet" type="text/css" href="ad_Style.css">
<script language = "JavaScript">
function CheckForm()
{
if (document.myform.ClassID.value=="")
{
alert("软件所属栏目不能指定为含有子栏目的栏目！");
document.myform.ClassID.focus();
return false;
}
if (document.myform.ClassID.value==0)
{
alert("软件所属栏目不能指定为外部栏目！");
document.myform.ClassID.focus();
return false;
}
if (document.myform.ClassID.value=="-1")
{
alert("你没有在此栏目添加软件的权限，请选择其他栏目！");
document.myform.ClassID.focus();
return false;
}
if (document.myform.SoftName.value=="")
{
alert("软件名称不能为空！");
document.myform.SoftName.focus();
return false;
}
if (document.myform.SoftVersion.value=="")
{
alert("软件版本不能为空！");
document.myform.SoftVersion.focus();
return false;
}
if (document.myform.Author.value=="")
{
alert("软件作者/开发商不能为空！");
document.myform.SoftVersion.focus();
return false;
}
if (document.myform.OperatingSystem.value=="")
{
alert("系统平台不能为空！");
document.myform.SoftVersion.focus();
return false;
}
if (document.myform.Keyword.value=="")
{
alert("关键字不能为空！");
document.myform.Keyword.focus();
return false;
}
if (document.myform.SoftIntro.value=="")
{
alert("软件简介不能为空！");
document.myform.SoftIntro.focus();
return false;
}
if (document.myform.DownloadUrl1.value=="")
{
alert("软件下载地址1不能为空！");
document.myform.DownloadUrl1.focus();
return false;
}
}
function ToSystem(addTitle)
{
document.myform.OperatingSystem.value=document.myform.OperatingSystem.value+addTitle;
document.myform.OperatingSystem.focus();
return;
}
</script>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<form method="POST" name="myform" onSubmit="return CheckForm();" action="User_SoftSave.asp" target="_self">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr class="title">
<td height="22" align="center"><b>修 改 软 件</b></td>
</tr>
<tr align="center">
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr class="tdbg">
<td width="100" align="right"><strong>所属栏目：</strong></td>
<td>
<select name='ClassID'>
<%call Admin_ShowClass_Option(4,ClassID)%>
</select>
</td>
<td colspan="2"> <font color='#0000FF'>不能指定为含有子栏目的栏目，或者外部栏目，或者带“<font color="#FF0000">*</font>”的栏目<br>
带“<font color="#FF0000">*</font>”的栏目表示你没有在此栏目发表文章的权限</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>软件名称：</strong></td>
<td colspan="2">
<input name="SoftName" type="text" id="SoftName" value="<%=rsSoft("SoftName")%>" size="50" maxlength="255">
<font color="#FF0000">*</font></td>
<td><strong>软件版本：</strong>
<input name="SoftVersion" type="text" id="SoftVersion3" value="<%=rsSoft("SoftVersion")%>" size="30" maxlength="100">
<font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>软件类别：</strong></td>
<td>
<select name="SoftType" id="SoftType">
<option value="1" <%if rsSoft("SoftType")=1 then response.write " selected"%>>国产软件</option>
<option value="2" <%if rsSoft("SoftType")=2 then response.write " selected"%>>国外软件</option>
<option value="3" <%if rsSoft("SoftType")=3 then response.write " selected"%>>汉化补丁</option>
<option value="4" <%if rsSoft("SoftType")=4 then response.write " selected"%>>程序源码</option>
<option value="5" <%if rsSoft("SoftType")=5 then response.write " selected"%>>电影下载</option>
<option value="6" <%if rsSoft("SoftType")=6 then response.write " selected"%>>FLASH动画</option>
<option value="7" <%if rsSoft("SoftType")=7 then response.write " selected"%>>其他</option>
</select>
<font color="#FF0000">*</font></td>
<td><strong>软件语言：</strong>
<select name="SoftLanguage" id="SoftLanguage">
<option value="1" <%if rsSoft("SoftLanguage")=1 then response.write " selected"%>>英文</option>
<option value="2" <%if rsSoft("SoftLanguage")=2 then response.write " selected"%>>简体中文</option>
<option value="3" <%if rsSoft("SoftLanguage")=3 then response.write " selected"%>>繁体中文</option>
<option value="4" <%if rsSoft("SoftLanguage")=4 then response.write " selected"%>>简繁中文</option>
<option value="5" <%if rsSoft("SoftLanguage")=5 then response.write " selected"%>>多国语言</option>
<option value="6" <%if rsSoft("SoftLanguage")=6 then response.write " selected"%>>其他语言</option>
</select>
<font color="#FF0000">*</font></td>
<td><strong>授权形式：</strong>
<select name="CopyrightType" id="CopyrightType">
<option value="1" <%if rsSoft("CopyrightType")=1 then response.write " selected"%>>免费版</option>
<option value="2" <%if rsSoft("CopyrightType")=2 then response.write " selected"%>>共享版</option>
<option value="3" <%if rsSoft("CopyrightType")=3 then response.write " selected"%>>试用版</option>
<option value="4" <%if rsSoft("CopyrightType")=4 then response.write " selected"%>>演示版</option>
<option value="5" <%if rsSoft("CopyrightType")=5 then response.write " selected"%>>注册版</option>
<option value="6" <%if rsSoft("CopyrightType")=6 then response.write " selected"%>>破解版</option>
<option value="7" <%if rsSoft("CopyrightType")=7 then response.write " selected"%>>零售版</option>
<option value="8" <%if rsSoft("CopyrightType")=8 then response.write " selected"%>>OEM版</option>
</select>
<font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>软件平台：</strong></td>
<td colspan="3">
<input name="OperatingSystem" type="text" id="OperatingSystem" value="<%=rsSoft("OperatingSystem")%>" size="80" maxlength="200">
<font color="#FF0000"> *</font><br>
<font color="#808080">平台选择：<a href='javascript:ToSystem("Linux/")'>Linux</a>/<a href='javascript:ToSystem("DOS/")'>DOS</a>/<a href='javascript:ToSystem("9x/")'>9x</a>/<a href='javascript:ToSystem("95/")'>95</a>/<a href='javascript:ToSystem("98/")'>98</a>/<a href='javascript:ToSystem("Me/")'>Me</a>/<a href='javascript:ToSystem("NT/")'>NT</a>/<a href='javascript:ToSystem("2000/")'>2000</a>/<a href='javascript:ToSystem("XP/")'>XP</a>/<a href='javascript:ToSystem(".Net/")'>.NET</a>/</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>作者/开发商：</strong></td>
<td>
<input name="Author" type="text"
id="Author" value="<%=rsSoft("Author")%>" size="20" maxlength="100">
<font color="#FF0000">*</font> </td>
<td><strong>信箱：</strong>
<input name="AuthorEmail" type="text" id="AuthorEmail" value="<%=rsSoft("AuthorEmail")%>" size="30" maxlength="100">
</td>
<td><strong>主页：
<input name="AuthorHomepage" type="text"
id="CopyFrom2" value="<%=rsSoft("AuthorHomepage")%>" size="30" maxlength="100">
</strong></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>软件演示地址：</strong></td>
<td colspan="3">
<input name="DemoUrl" type="text" id="DemoUrl" value="<%=rsSoft("DemoUrl")%>" size="80" maxlength="200">
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>软件注册地址：</strong></td>
<td colspan="3">
<input name="RegUrl" type="text" id="RegUrl" value="<%=rsSoft("RegUrl")%>" size="80" maxlength="200">
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>软件图片：</strong></td>
<td colspan="3">
<input name="SoftPicUrl" type="text" id="SoftPicUrl" value="<%=rsSoft("SoftPicUrl")%>" size="80" maxlength="200">
<font color="#FF0000"> </font> </td>
</tr>
<tr class="tdbg">
<td> </td>
<td align="right">上传软件图片：</td>
<td colspan="2"><iframe style="top:2px" ID="UploadFiles" src="upload_SoftPic.asp" frameborder=0 scrolling=no width="450" height="25"></iframe></td>
</tr>
<tr class="tdbg">
<td width="100" align="right" valign="middle"><strong>软件简介：</strong><br>
支持各种UBB代码</td>
<td colspan="3">
<textarea name="SoftIntro" cols="80" rows="15" id="SoftIntro"><%=rsSoft("SoftIntro")%></textarea>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>关键字：</strong></td>
<td colspan="3">
<input name="Keyword" type="text"
id="Keyword" value="<%=mid(rsSoft("Keyword"),2,len(rsSoft("Keyword"))-2)%>" size="50" maxlength="255">
<font color="#FF0000">*</font><br>
<font color="#0000FF">用来查找相关软件，可输入多个关键字，中间用<font color="#FF0000">“|”</font>隔开。不能出现""'*?,.()等字符。</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>解压密码：</strong></td>
<td colspan="2">
<input name="DecompressPassword" type="text" id="DecompressPassword" value="<%=rsSoft("DecompressPassword")%>" size="30" maxlength="100">
</td>
<td><strong>软件大小：
<input name="SoftSize" type="text" id="SoftSize" value="<%=rsSoft("SoftSize")%>" size="10" maxlength="10">
K</strong></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>上传软件：</strong></td>
<td colspan="3"><iframe style="top:2px" ID="UploadFiles" src="upload_soft.asp" frameborder=0 scrolling=no width="450" height="25"></iframe></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载地址1：</strong></td>
<td colspan="3">
<input name="DownloadUrl1" type="text" id="DownloadUrl1" value="<%=rsSoft("DownloadUrl1")%>" size="80" maxlength="200">
<font color="#FF0000">* </font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载地址2：</strong></td>
<td colspan="3">
<input name="DownloadUrl2" type="text" id="DownloadUrl2" value="<%=rsSoft("DownloadUrl2")%>" size="80" maxlength="200">
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载地址3：</strong></td>
<td colspan="3">
<input name="DownloadUrl3" type="text" id="DownloadUrl3" value="<%=rsSoft("DownloadUrl3")%>" size="80" maxlength="200">
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>下载地址4：</strong></td>
<td colspan="3">
<input name="DownloadUrl4" type="text" id="DownloadUrl4" value="<%=rsSoft("DownloadUrl4")%>" size="80" maxlength="200">
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center">
<p>
<input name="SoftID" type="hidden" id="SoftID" value="<%=SoftID%>">
<input name="Action" type="hidden" id="Action" value="Modify">
<input
name="Submit" type="submit" id="Submit" value="保存修改结果" style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='User_SoftManage.asp'" style="cursor:hand;">
</p>
</div>
</form>
</body>
</html>
<%
end if
rsSoft.close
set rsSoft=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -