📄 softlist.asp
字号:
Private Sub SoftView()
If softid = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>Sorry！您选择了错误的系统参数。</li>"
Exit Sub
End If
If ChannelID = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请指定频道。</li>"
Exit Sub
End If
SQL = "SELECT * FROM NC_SoftList WHERE ChannelID=" & ChannelID & " And username='" & MemberName & "' And softid=" & CLng(softid)
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>没有找到任何软件。或者您选择了错误的系统参数！</li>"
Exit Sub
Else
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="UserTableBorder" style="table-layout:fixed;word-break:break-all">
<tr>
<th colspan="2">>>查看软件信息<<</th>
</tr>
<tr>
<td align="center" class="UserTableRow2" colspan="2"><font size=3 color=blue><a href="?action=edit&ChannelID=<%=ChannelID%>&softid=<%=Rs("SoftID")%>"><%=Rs("SoftName")%> <%=Rs("SoftVer")%></a></font></td>
</tr>
<tr>
<td class="UserTableRow1"><strong>软件运行环境：</strong> <%=Rs("RunSystem")%></td>
<td class="UserTableRow1"><strong>软件类型：</strong> <%=Rs("SoftType")%></td>
</tr>
<tr>
<td class="UserTableRow1"><strong>软件大小：</strong> <%=Rs("SoftSize")%></td>
<td class="UserTableRow1"><strong>软件星级：</strong>
<%
Response.Write "<font color=red>"
For i = 1 to Rs("star")
Response.Write "★"
Next
Response.Write "</font>"
%>
</td>
</tr>
<tr>
<td class="UserTableRow1"><strong>软件语言：</strong> <%=Rs("Languages")%></td>
<td class="UserTableRow1"><strong>授权方式：</strong> <%=Rs("impower")%></td>
</tr>
<tr>
<td class="UserTableRow1"><strong>更新时间：</strong> <%=Rs("SoftTime")%></td>
<td class="UserTableRow1"><strong>程序主页：</strong> <%=Rs("Homepage")%></td>
</tr>
<tr>
<td colspan="2" class="UserTableRow1"><strong>软件简介：</strong><br><%=ubb.UBBCode(Rs("content"))%></td>
</tr>
<tr>
<td colspan="2" class="UserTableRow1"><strong>下载地址：</strong><br>
<%
Response.Write SoftDownAddress(Rs("softid"))
%>
</td>
</tr>
<tr>
<td align="center" colspan="2" class="UserTableRow2"><input type="button" onclick="javascript:window.close()" value="关闭本窗口" name="B2" class=Button>
<input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button>
<input type="button" name="Submit1" onclick="javascript:location.href='#'" value="返回顶部" class=button>
</td>
</tr>
</table>
<%
End If
Rs.Close
Set Rs = Nothing
End Sub
Private Function SoftDownAddress(softid)
Dim rsAddress, sqlAddress, rsDown
Dim strDownAddress,sDownAddress
strDownAddress = ""
On Error Resume Next
Set rsDown = Newasp.Execute("SELECT downid,DownFileName FROM [NC_DownAddress] WHERE softid=" & CLng(softid))
If Not (rsDown.BOF And rsDown.EOF) Then
Do While Not rsDown.EOF
If rsDown("downid") > 0 Then
sqlAddress = "SELECT downid,DownloadName,DownloadPath FROM NC_DownServer WHERE ChannelID=" & ChannelID & " And depth=1 And rootid =" & rsDown("downid") & " And isLock=0 ORDER BY orders ASC"
Set rsAddress = Newasp.Execute(sqlAddress)
If Not(rsAddress.EOF And rsAddress.BOF) Then
Do While Not rsAddress.EOF
strDownAddress = rsAddress("DownloadPath") & Server.HTMLEncode(Replace(rsDown("DownFileName"), "&", "&"))
sDownAddress = sDownAddress & "<li><a href=""" & strDownAddress & """ target=_blank>" & strDownAddress & "</a></li>" & vbNewLine
rsAddress.movenext
Loop
End If
Set rsAddress = Nothing
Else
strDownAddress = Server.HTMLEncode(Replace(rsDown("DownFileName") & "", "&", "&"))
sDownAddress = sDownAddress & "<li><a href=""" & strDownAddress & """ target=_blank>" & strDownAddress & "</a></li>" & vbNewLine
End If
rsDown.movenext
Loop
End If
Set rsDown = Nothing
SoftDownAddress = sDownAddress
End Function
Sub EditSoft()
If softid = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>Sorry！您选择了错误的系统参数。</li>"
Exit Sub
End If
If CInt(GroupSetting(12)) = 0 Then
ErrMsg = ErrMsg + "<li>对不起！您没有修改软件的权限，如需要该权限请联系管理员。</li>"
Founderr = True
Exit Sub
End If
If ChannelID = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请指定频道。</li>"
Exit Sub
End If
If Founderr = True Then Exit Sub
SQL = "SELECT * FROM NC_SoftList WHERE ChannelID=" & ChannelID & " And username='" & MemberName & "' And softid=" & CLng(softid)
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>Sorry！没有找到任何软件。或者您选择了错误的系统参数！</li>"
Set Rs = Nothing
Exit Sub
End If
Dim Channel_Setting,ClassID,DownAddress,DownSiteName,TempAddress
Channel_Setting = Split(Newasp.Channel_Setting, "|||")
ClassID = Rs("ClassID")
If Rs("isAccept") <> 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>此软件已经通过审核,您没有权限修改,如有什么问题请联系管理员。</li>"
Set Rs = Nothing
Exit Sub
End If
%>
<script language=JavaScript>
var _maxCount = '<%=CLng(GroupSetting(17))%>';
function ToRunsystem(addTitle) {
var revisedTitle;
var currentTitle;
currentTitle = document.myform.RunSystem.value;
revisedTitle = currentTitle+addTitle;
document.myform.RunSystem.value=revisedTitle;
document.myform.RunSystem.focus();
return;
}
function doSubmit(){
var form1 = document.myform;
if (form1.SoftName.value==""){
alert("软件名称不能为空！");
form1.SoftName.focus();
return false;
}
if (form1.ClassID.value==""){
alert("该一级分类已经有下属分类，请选择其下属分类！");
form1.ClassID.focus();
return false;
}
if (form1.ClassID.value=="0"){
alert("该分类是外部连接，不能添加内容！");
form1.ClassID.focus();
return false;
}
if (form1.RunSystem.value==""){
alert("软件运行环境不能为空！");
form1.RunSystem.focus();
return false;
}
if (form1.SoftType.value==""){
alert("软件类型不能为空！");
form1.SoftType.focus();
return false;
}
if (form1.SoftSize.value==""){
alert("软件大小还没有填写！");
form1.SoftSize.focus();
return false;
}
<%If CInt(GroupSetting(2)) = 1 Then%>
if (form1.codestr.value==""){
alert("请填写验证码！");
form1.codestr.focus();
return false;
}
<%End If%>
var strLen=0;
try{
strLen=GetContentLength();
}
catch(e){
strLen=form1.content.value.length;
}
if(strLen < 2){
alert("软件简介不能小于2个字符！");
return false;
}
if(strLen > _maxCount){
alert("软件简介不能超过"+_maxCount+"个字符！");
return false;
}
}
</script>
<div onkeydown="CtrlEnter()">
<table class="UserTableBorder" cellspacing="1" cellpadding="3" align="center" border="0">
<tr>
<th colspan="4">>>发布软件<<</th>
</tr>
<form action="softlist.asp" method="post" onsubmit="return doSubmit()" name="myform">
<input type="hidden" name="action" value="save"/>
<input type="hidden" name="ChannelID" value="<%=ChannelID%>"/>
<input type="hidden" name="SoftID" value="<%=Rs("softid")%>"/>
<tr>
<td class="UserTableRow2" nowrap="nowrap" align="right" width="15%"><strong>所属分类</strong></td>
<td class="UserTableRow1" width="85%"><%
Dim sClassSelect
Response.Write "<select name=""ClassID"" id=""ClassID"">"
sClassSelect = Newasp.LoadSelectClass(ChannelID)
sClassSelect = Replace(sClassSelect, "{ClassID=" & ClassID & "}", "selected")
Response.Write sClassSelect
Response.Write "</select>"
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>软件名称</strong></td>
<td class="UserTableRow1"><input id="SoftName" size="45" name="SoftName" value="<%=Rs("SoftName")%>" type="text" /> <font color="#ff0000">*</font> <strong>软件版本</strong><input id="SoftVer" name="SoftVer" value="<%=Rs("SoftVer")%>" type="text" /></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>相关软件</strong></td>
<td class="UserTableRow1"><input id="Related" size="60" name="Related" value="<%=Rs("Related")%>" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>运行环境</strong></td>
<td class="UserTableRow1"><input size="60" name="RunSystem" value="<%=Rs("RunSystem")%>" type="text" /><br />
<%
Dim RunSystem
RunSystem = Split(Channel_Setting(0), "|")
For i = 0 To UBound(RunSystem)
Response.Write "<a href='javascript:ToRunsystem(""" & Trim(RunSystem(i)) & """)'><u>" & Trim(RunSystem(i)) & "</u></a> "
If i = 10 Then Response.Write "<br>"
Next
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>软件类型</strong></td>
<td class="UserTableRow1"><%
Dim SoftType
SoftType = Split(Channel_Setting(2), ",")
For i = 0 To UBound(SoftType)
Response.Write "<input type=""radio"" name=""SoftType"" value=""" & Trim(SoftType(i)) & """ "
If SoftType(i) = Rs("SoftType") Then Response.Write " checked"
Response.Write ">" & Trim(SoftType(i)) & " "
If i = 6 Then Response.Write "<br>"
Next
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>软件大小</strong></td>
<td class="UserTableRow1"><input id="filesize" size="14" onkeyup="if(isNaN(this.value))this.value=''" name="SoftSize" value="<%=Rs("SoftSize")%>" type="text" /> <input type="radio" checked="checked" name="SizeUnit" value="KB" /> KB <input type="radio" name="SizeUnit" value="MB" /> MB <font color="#ff0000">！</font> <strong>解压密码</strong> <input maxlength="100" size="15" name="Decode" value="<%=Rs("Decode")%>" type="text" /> <font color="#808080">没有请留空</font></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>软件性质</strong></td>
<td class="UserTableRow1"><%
Response.Write " <select name=""impower"">"
Response.Write "<option value=""" & Rs("impower") & """>" & Rs("impower") & "</option>"
Dim ImpowerStr
ImpowerStr = Split(Channel_Setting(3), ",")
For i = 0 To UBound(ImpowerStr)
Response.Write " <option value=""" & ImpowerStr(i) & """>" & ImpowerStr(i) & "</option>"
Next
Response.Write " </select> "
Response.Write " <select name=""Languages"">"
Response.Write "<option value=""" & Rs("Languages") & """>" & Rs("Languages") & "</option>"
Dim LanguagesStr
LanguagesStr = Split(Channel_Setting(4), ",")
For i = 0 To UBound(LanguagesStr)
Response.Write " <option value=""" & LanguagesStr(i) & """>" & LanguagesStr(i) & "</option>"
Next
Response.Write " </select> "
%><select name="star">
<option value="5"<%If Rs("star") = 5 Then Response.Write (" selected=""selected""")%>>★★★★★</option>
<option value="4"<%If Rs("star") = 4 Then Response.Write (" selected=""selected""")%>>★★★★</option>
<option value="3"<%If Rs("star") = 3 Then Response.Write (" selected=""selected""")%>>★★★</option>
<option value="2"<%If Rs("star") = 2 Then Response.Write (" selected=""selected""")%>>★★</option>
<option value="1"<%If Rs("star") = 1 Then Response.Write (" selected=""selected""")%>>★</option>
</select> <strong><font color="#0000ff">注册软件的价格</font></strong> <input size="10" onkeyup="if(isNaN(this.value))this.value=''" name="SoftPrice" value="<%=Rs("SoftPrice")%>" type="text" /> 元</td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>联系方式</strong></td>
<td class="UserTableRow1"><input size="33" name="Contact" value="<%=Rs("Contact")%>" type="text" /> <strong>程序主页</strong> <input size="30" name="Homepage" value="<%=Rs("Homepage")%>" type="text" /></td>
</tr>
<tr>
<td class="usertablerow1" colspan="2"><%
'-- 编辑器设置
Dim oEditor,EditorCode
Set oEditor = New Editor_Cls
oEditor.UserMode = 1
oEditor.setEditMode = Newasp.setUserEditor(0)
oEditor.ChannelID = ChannelID
oEditor.Width = Newasp.setUserEditor(2)
oEditor.Height = Newasp.setUserEditor(3)
oEditor.BasePath = Newasp.InstallDir & Newasp.setAdminEditor(4)
oEditor.ToolbarSet = Newasp.setUserEditor(1)'Default,AdminMode,Simple,UserMode,Basic
oEditor.Value = Re_Replace(Rs("content"), "[InstallDir_ChannelDir]", InstallDir_ChannelDir)
oEditor.InstanceName = "content"
oEditor.Execute()
Set oEditor = Nothing
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>预览图片</strong></td>
<td class="UserTableRow1"><input id="ImageUrl" size="60" name="SoftImage" value="<%=Rs("SoftImage")%>" type="text" /></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>上传图片</strong></td>
<td class="UserTableRow1"><iframe name="frm_image1" src="upload.asp?ChannelID=<%=ChannelID%>" frameborder="0" width="100%" scrolling="no" height="55"></iframe></td>
</tr>
<%
Dim rsDown
Set rsDown = Newasp.Execute("SELECT id,downid,DownFileName,DownText FROM NC_DownAddress WHERE softid="& CLng(Rs("softid")))
i = 0
Do While Not rsDown.EOF
i = i + 1
%>
<tr>
<td class="UserTableRow2" align="right"><strong>下载地址</strong></td>
<td class="UserTableRow1"><input type="hidden" name="id<%=i%>" value="<%=rsDown(0)%>" /><input size="15" name="SiteName<%=i%>" value="<%=Server.HTMLEncode(rsDown("DownText"))%>" type="text" /> <input size="50" name="DownAddress<%=i%>" value="<%=Server.HTMLEncode(rsDown("DownFileName"))%>" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<%
rsDown.movenext
Loop
Set rsDown = Nothing
Response.Write "<input type=""hidden"" name=""num"" value="""&i&"""/>"
If i < 3 Then
%>
<tr>
<td class="UserTableRow2" align="right"><strong>下载地址</strong></td>
<td class="UserTableRow1"><input size="15" name="SiteName" value="下载地址" type="text" /> <input id="filePath" size="50" name="DownAddress" type="text" /></td>
</tr><%
End If
%>
<tr>
<td class="UserTableRow2" align="right"><strong>文件上传</strong></td>
<td class="UserTableRow1"><iframe name="frm_file1" src="upfile.asp?ChannelID=<%=ChannelID%>" frameborder="0" width="100%" scrolling="no" height="45"></iframe></td>
</tr><%
If CInt(GroupSetting(2)) = 1 Then
%>
<tr>
<td class="UserTableRow2" align="right"><strong>验证码</strong></td>
<td class="UserTableRow1"><input maxlength="5" size="5" name="codestr" type="text" /> <img style="cursor: pointer" height="10" alt="验证码,看不清楚?请点击刷新验证码" onclick="this.src='../inc/getcode.asp?t='+(new Date().getTime());" src="../inc/getcode.asp" /></td>
</tr>
<%
End If
%> <tr align="center">
<td class="UserTableRow2" colspan="4"><input class="Button" type="button" onclick="javascript:history.go(-1)" name="Submit4" value="返回上一页" /> <input class="Button" type="submit" name="Submit1" value="修改软件" /></td>
</tr>
</form>
</table>
</div>
<%
Rs.Close:Set Rs = Nothing
End Sub
%>
<!--#include file="foot.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -