publish.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 397 行 · 第 1/2 页
ASP
397 行
	Response.Write " <td width=""77%"" class=Border2>" & vbCrLf
	Response.Write "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" bgcolor=""#CECECE"" cellspacing=""1"">" & vbCrLf
	Response.Write "<form name=""myform"" method=""post"" action=""publish.asp"" onSubmit=""return Juge(this)"">" & vbCrLf
	Response.Write "<input type=""Hidden"" name=""action"" value='save'>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td width=""15%"" height=""22"" align=""right"" nowrap>软件分类：</td>" & vbCrLf
	Response.Write " <td width=""85%"" >" & vbCrLf
	srtSortingList = Newasp.SortingJumpList
	srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
	Response.Write srtSortingList
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">软件名称：</td>" & vbCrLf
	Response.Write " <td ><input name=""softname"" type=""text"" size=""25""> 版本: <input name=""softver"" type=""text"" size=""20""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">运行环境：</td>" & vbCrLf
	Response.Write " <td><input name=""RunSystem"" type=""text"" size=""50"" value=""""><BR>" & vbCrLf
	RunSystem = Split(Newasp.setting(34), ",")
	For i = 0 To UBound(RunSystem)
		Response.Write "<a href='javascript:ToRunSystem(""" & Trim(RunSystem(i)) & "/"")'><u>" & Trim(RunSystem(i)) & "</u></a> | "
		If i = 7 Then Response.Write "<br>"
	Next
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">软件类型：</td>" & vbCrLf
	Response.Write " <td >" & vbCrLf
	SoftType = Split(Newasp.setting(35), ",")
	For i = 0 To UBound(SoftType)
		Response.Write "<input type=""radio"" name=""SoftType"" value=""" & Trim(SoftType(i)) & """ "
		If i = 0 Then Response.Write " checked"
		Response.Write ">" & Trim(SoftType(i)) & " "
		If i = 6 Then Response.Write "<br>"
	Next
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">界面预览：</td>" & vbCrLf
	Response.Write " <td ><input name=""PreviewImg"" type=""text"" size=""40"" ><font color=""#808080""> 软件界面预览图片，大小不定</font></td>" & vbCrLf
	Response.Write " </tr" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" class=Border2 align=""right"">软件大小：</td>" & vbCrLf
	Response.Write " <td class=Border2> <input type=""text"" name=""SoftSize"" size=""14"" maxlength=""10""> <input name=""SizeUnit"" type=""radio"" value=""KB"" checked>" & vbCrLf
	Response.Write " KB " & vbCrLf
	Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"">" & vbCrLf
	Response.Write " MB <font color=""#FF0000"">！</font>" & vbCrLf
	Response.Write " 解压密码:<input type=""text"" name=""Decode"" size=""15"" maxlength=""100""> <font color=""#808080"">没有请留空</font> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"" nowrap>授权方式：</td>" & vbCrLf
	Response.Write " <td nowrap> <select name=""impower"">" & vbCrLf
	Response.Write " <option value=""共享软件"">共享软件</option>" & vbCrLf
	Response.Write " <option value=""免费软件"">免费软件</option>" & vbCrLf
	Response.Write " <option value=""自由软件"">自由软件</option>" & vbCrLf
	Response.Write " <option value=""试用软件"">试用软件</option>" & vbCrLf
	Response.Write " <option value=""演示软件"">演示软件</option>" & vbCrLf
	Response.Write " <option value=""商业软件"">商业软件</option>" & vbCrLf
	Response.Write " </select>" & vbCrLf
	Response.Write " 软件语言: <select name=""Language"">" & vbCrLf
	Response.Write " <option value=""简体中文"">简体中文</option>" & vbCrLf
	Response.Write " <option value=""繁体中文"">繁体中文</option>" & vbCrLf
	Response.Write " <option value=""英文"">英文</option>" & vbCrLf
	Response.Write " </select>" & vbCrLf
	Response.Write " 软件等级: <select name=""Grades"" size=""1"">" & vbCrLf
	Response.Write " <option value=""1"">一星级</option>" & vbCrLf
	Response.Write " <option value=""2"">二星级</option>" & vbCrLf
	Response.Write " <option value=""3"" selected>三星级</option>" & vbCrLf
	Response.Write " <option value=""4"">四星级</option>" & vbCrLf
	Response.Write " <option value=""5"">五星级</option>" & vbCrLf
	Response.Write " </select>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">联系作者：</td>" & vbCrLf
	Response.Write " <td ><input name=""Contact"" type=""text"" size=""25"" value=""emsmao@yahoo.com.cn"">" & vbCrLf
	Response.Write " 作者主页: <input name=""Homepage"" type=""text"" size=""30"" value="""">" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2>" & vbCrLf
	Response.Write " <td height=""22"" align=""right"">软件简介：<br> <font color=""#FF0000"">"
	Response.Write CLng(Newasp.setting(43))
	Response.Write "字符内</font></td> " & vbCrLf
	Response.Write " <td align=""center""><textarea name=""content"" cols=""70"" rows=""10"" wrap=""VIRTUAL""></textarea> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">下载地址1：</td>" & vbCrLf
	Response.Write " <td ><input name=""Site_1"" type=""text"" size=""60""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">下载地址2：</td>" & vbCrLf
	Response.Write " <td ><input name=""Site_2"" type=""text"" size=""60""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right"">下载地址3：</td>" & vbCrLf
	Response.Write " <td ><input name=""Site_3"" type=""text"" size=""60""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=Border2> " & vbCrLf
	Response.Write " <td height=""22"" align=""right""></td>" & vbCrLf
	Response.Write " <td align=""center""> <input type=Submit class=button value=""提 交"" name=Submit> <input type=reset name=Submit2 class=button value=""清 除""></td>" & vbCrLf
	Response.Write " </tr></form>" & vbCrLf
	Response.Write "</TABLE>" & vbCrLf
	Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 3px"">" & vbCrLf
	Response.Write "</TD>" & vbCrLf
	Response.Write " </TR></TABLE>" & vbCrLf

End Sub

Private Sub checksave()
	If CInt(Newasp.setting(39)) = 0 Then
		founderr = True
		errmsg = Newasp.mainset(40)
		Exit Sub
	End If
	If Trim(Request.Form("softname")) = "" Then
		founderr = True
		errmsg = errmsg + "软件名称不能为空！"
		Exit Sub
	End If
	If Trim(Request.Form("sortid")) = "" Then
		founderr = True
		errmsg = errmsg + "软件分类有误！"
		Exit Sub
	Else
		strSortid = Split(Trim(Request.Form("sortid")), ",")
	End If
	If Trim(Request.Form("content")) = "" Then
		founderr = True
		errmsg = errmsg + "软件简介不能为空！"
		Exit Sub
	End If
	If Len(Request.Form("content")) > CLng(Newasp.setting(43)) Then
		founderr = True
		errmsg = errmsg + "软件简介超过了" & CLng(Newasp.setting(43)) & "个字符！"
		Exit Sub
	End If
	If Trim(Request.Form("RunSystem")) = "" Then
		founderr = True
		errmsg = errmsg + "运行环境不能为空！"
		Exit Sub
	End If
	If Trim(Request.Form("SoftSize")) = "" Then
		founderr = True
		errmsg = errmsg + "大小不能为空！"
		Exit Sub
	End If
	If Trim(Request.Form("Site_1")) = "" Then
		founderr = True
		errmsg = errmsg + "下载地址还没有填！"
		Exit Sub
	End If

End Sub

Private Sub saveAdd()
	Call checksave
	If founderr = False Then
		SQL = "select * from NC_SoftPublish where (softid is null)"
		Rs.Open SQL, conn, 1, 3
		Rs.addnew
		Rs("softname") = Newasp.HtmlEncodes(Request.Form("softname"))
		Rs("softver") = Newasp.HtmlEncodes(Request.Form("softver"))
		Rs("rootid") = strSortid(0)
		Rs("sortid") = strSortid(1)
		Rs("sortname") = strSortid(2)
		Rs("content") = Newasp.HtmlEncodes(Request.Form("content"))
		Rs("Language") = Request.Form("Language")
		Rs("SoftType") = Request.Form("SoftType")
		Rs("RunSystem") = Request.Form("RunSystem")
		Rs("impower") = Request.Form("impower")
		If Trim(Request.Form("SizeUnit")) = "MB" Then
			Rs("SoftSize") = CLng(Request.Form("SoftSize")) * 1024
		Else
			Rs("SoftSize") = CLng(Request.Form("SoftSize"))
		End If
		Rs("RunSystem") = Request.Form("RunSystem")
		Rs("Decode") = Request.Form("Decode")
		Rs("Homepage") = Request.Form("Homepage")
		Rs("Contact") = Request.Form("Contact")
		Rs("PreviewImg") = Request.Form("PreviewImg")
		Rs("Site_1") = Request.Form("Site_1")
		Rs("Site_2") = Request.Form("Site_2")
		Rs("Site_3") = Request.Form("Site_3")
		Rs("username") = Newasp.memberName
		Rs.Update
		Rs.Close
		SQL = "select * from [NC_User] where userid=" & CLng(Newasp.memberid) & ""
		Rs.Open SQL, conn, 1, 3
		Rs("money") = Rs("money") + CInt(GroupSet(1))
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Response.Write "<script>alert('恭喜你 " & Newasp.memberName & " !\n 添加软件 " & Request.Form("softname") & " 成功!');location.replace('publish.asp')</script>"
	End If
End Sub
%>
publish.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 publish.asp 源码文件，采用 ASP 编程语言编写，共 397 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?