softpost.asp

一套开源WEB的网站管理系统

			Exit Sub
		End If
		Session("GetCode") = ""
	End If
	If Trim(Request.Form("SoftName")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>软件名称不能为空！</li>"
	Else
		AlphaSoftName = Trim(Request.Form("SoftName"))
		AlphaSoftName = Replace(AlphaSoftName, "'", "")
		AlphaSoftName = Replace(AlphaSoftName, """", "")
		AlphaSoftName = Replace(AlphaSoftName, "(", "")
		AlphaSoftName = Replace(AlphaSoftName, "[", "")
		AlphaSoftName = Replace(AlphaSoftName, "{", "")
		AlphaSoftName = Replace(AlphaSoftName, "<", "")
		AlphaSoftName = Replace(AlphaSoftName, "〈", "")
		AlphaSoftName = Replace(AlphaSoftName, "《", "")
		AlphaSoftName = Replace(AlphaSoftName, "&", "")
		AlphaSoftName = Replace(AlphaSoftName, "%", "")
		AlphaSoftName = Replace(AlphaSoftName, "％", "")
		AlphaSoftName = Replace(AlphaSoftName, "#", "")
		AlphaSoftName = Replace(AlphaSoftName, "*", "")
		AlphaSoftName = Replace(AlphaSoftName, "?", "")
		AlphaSoftName = Replace(AlphaSoftName, "+", "")
		AlphaSoftName = Replace(AlphaSoftName, "-", "")
		AlphaSoftName = Replace(AlphaSoftName, "_", "")
		AlphaSoftName = Replace(AlphaSoftName, "=", "")
		AlphaSoftName = Replace(AlphaSoftName, "|", "")
	End If
	If Len(Request.Form("SoftName")) => 200 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>软件名称不能超过200个字符！</li>"
	End If
	If Len(Request.Form("Related")) => 200 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>相关软件不能超过200个字符！</li>"
	End If
	If Not IsNumeric(Request.Form("star")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>软件星级不能为空。</li>"
	End If
	If Not IsNumeric(Request.Form("ClassID")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>该一级分类已经有下属分类，不能添加软件！</li>"
		Exit Sub
	End If
	If CLng(Request.Form("ClassID")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>该分类是外部连接，不能添加软件！</li>"
	End If
	If Trim(Request.Form("SoftType")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请选择软件类型！</li>"
	End If
	If Trim(Request.Form("impower")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请选择软件授权方式！</li>"
	End If
	If Trim(Request.Form("Languages")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请选择软件语言！</li>"
	End If
	If Trim(Request.Form("content1")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>软件简介不能为空！</li>"
	End If
	TextContent = ""
	For i = 1 To Request.Form("content1").Count
		TextContent = TextContent & Request.Form("content1")(i)
	Next
	If Len(Request.Form("RunSystem")) = 0 Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>运行环境不能为空！</li>"
	End If
	If Not IsNumeric(Request.Form("SoftSize")) Then
		Founderr = True
		ErrMsg = ErrMsg + "<li>软件大小请输入整数！</li>"
	End If
	ForbidEssay = Newasp.ChkNumeric(Request.Form("ForbidEssay"))
	isAccept = Newasp.ChkNumeric(Request.Form("isAccept"))
	If Founderr = True Then Exit Sub
	On Error Resume Next
	Call PreventRefresh  '防刷新
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM NC_SoftList WHERE (softid is null)"
	Rs.Open SQL,Conn,1,3
	Rs.Addnew
		Rs("ChannelID") = ChannelID
		Rs("ClassID") = Newasp.ChkNumeric(Request.Form("ClassID"))
		Rs("SpecialID") = 0
		Rs("SoftName") = Newasp.ChkFormStr(Request.Form("SoftName"))
		Rs("SoftVer") = Newasp.ChkFormStr(Request.Form("SoftVer"))
		Rs("ColorMode") = 0
		Rs("FontMode") = 0
		Rs("Related") = Newasp.ChkFormStr(Request.Form("Related"))
		Rs("Content") = Html2Ubb(TextContent)
		Rs("Languages") = Newasp.ChkFormStr(Request.Form("Languages"))
		Rs("SoftType") = Newasp.ChkFormStr(Request.Form("SoftType"))
		Rs("RunSystem") = Newasp.ChkFormStr(Request.Form("RunSystem"))
		Rs("impower") = Newasp.ChkFormStr(Request.Form("impower"))
		If UCase(Request.Form("SizeUnit")) = "MB" Then
			Rs("SoftSize") = Newasp.CheckNumeric(Request.Form("SoftSize") * 1024)
		Else
			Rs("SoftSize") = Newasp.CheckNumeric(Request.Form("SoftSize"))
		End If
		Rs("star") = Newasp.ChkNumeric(Request.Form("star"))
		Rs("Homepage") = Newasp.ChkFormStr(Request.Form("Homepage"))
		Rs("Contact") = Newasp.ChkFormStr(Request.Form("Contact"))
		Rs("Author") = Newasp.ChkFormStr(Request.Form("Author"))
		Rs("Regsite") = Newasp.ChkFormStr(Request.Form("Regsite"))
		Rs("showreg") = 0
		Rs("username") = Trim(MemberName)
		Rs("PointNum") = 0
		Rs("SoftPrice") = Newasp.CheckNumeric(Request.Form("SoftPrice"))
		Rs("SoftTime") = Now()
		Rs("isTop") = 0
		Rs("AllHits") = 0
		Rs("DayHits") = 0
		Rs("WeekHits") = 0
		Rs("MonthHits") = 0
		Rs("HitsTime") = Now()
		Rs("HtmlFileDate") = Trim(Newasp.HtmlRndFileName)
		Rs("SoftImage") = Newasp.ChkFormStr(Request.Form("SoftImage"))
		Rs("Decode") = Newasp.ChkFormStr(Request.Form("Decode"))
		Rs("isBest") = 0
		Rs("UserGroup") = 0
		Rs("isUpdate") = 1
		Rs("ErrCode") = 0
		If CInt(Newasp.IsAuditing) = 1 Then
			Rs("isAccept") = 0
		Else
			Rs("isAccept") = 1
		End If
		Rs("ForbidEssay") = Newasp.ChkNumeric(Request.Form("ForbidEssay"))
		Rs("AlphaIndex") = Newasp.ReadAlpha(AlphaSoftName)
	Rs.update
	Rs.Close
	Rs.Open "SELECT TOP 1 softid FROM NC_SoftList WHERE ChannelID=" & ChannelID & " ORDER BY softid DESC", Conn, 1, 1
	softid = Rs("softid")
	Rs.Close:Set Rs = Nothing
	'---- 开始批量添加下载地址
	Dim TempAddress,TempSiteName
	If Trim(Request.Form("DownAddress")) <> "" Then
		For i = 1 To Request.Form("DownAddress").Count
			TempAddress = Trim(Request.Form("DownAddress")(i))
			TempSiteName = Trim(Request.Form("SiteName")(i))
			If LCase(TempAddress) <> "del" And Trim(TempAddress) <> "" Then
				AddDownAddress 0,softid,TempAddress,TempSiteName
			End If
		Next
	End If
	'---- 批量添加下载地址完成
	Dim strUserToday
	strUserToday = UserToday(0) &","& UserToday(1) &","& UserToday(2)+1 &","& UserToday(3) &","& UserToday(4) &","& UserToday(5)
	UpdateUserToday(strUserToday)
	Newasp.DelCahe "RenewStatistics"
	Newasp.DelCahe "TotalStatistics"
	If CInt(Newasp.IsAuditing) = 1 Then
		Call Returnsuc("<li>恭喜您！提交成功。请等待管理员验证后正式发布。</li><li><a href=?action=view&ChannelID=" & ChannelID & "&softid=" & softid & ">点击此处查看该软件</a></li>")
	Else
		 AddUserPointNum MemberName, 1
		 Call Returnsuc("<li>恭喜您！发布" & ModuleName & "成功。请等待管理员验证后正式发布。</li><li><a href=?action=view&ChannelID=" & ChannelID & "&softid=" & softid & ">点击此处查看该软件</a></li>")
	End If
	
End Sub

Private Function AddDownAddress(downid,softid,DownFileName,DownText)
	If Len(DownText) = 0 Then DownText = "立即下载"
	downid = Newasp.ChkNumeric(downid)
	DownFileName = Server.HTMLEncode(DownFileName)
	DownText = Server.HTMLEncode(DownText)
	If Trim(DownFileName) <> "" Then
		SQL = "INSERT INTO NC_DownAddress (ChannelID,softid,downid,DownFileName,DownText) VALUES (" & ChannelID & "," & softid & "," & downid & ",'" & Replace(DownFileName, "'", "") & "','" & Replace(DownText, "'", "") & "')"
		Conn.Execute(SQL)
	End If
End Function
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(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(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
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>Sorry！没有找到任何软件。或者您选择了错误的系统参数！</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">&gt;&gt;查看软件信息&lt;&lt;</th>
	</tr>
	<tr>
	  <td align="center" class="UserTableRow2" colspan="2"><font size=3 color=blue><%=Newasp.ReadFontMode(Rs("SoftName"),Rs("ColorMode"),Rs("FontMode"))%>&nbsp;<%=Rs("SoftVer")%></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><%=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>&nbsp;&nbsp;
	  <input type="button" name="Submit1" onclick="javascript:location.href='#'" value="返回顶部" class=button>&nbsp;&nbsp;
	  </td>
	</tr>
</table>
<%

	End If
	Rs.Close
	Set Rs = Nothing 
End Sub

%>
<!--#include file="foot.inc"-->