关于新云下载系统6中的后台发布软件管理的问题请教！

[batistutafans]

一般说来，在后台不同管理员发布的信息互相都能看到的，现在我想把新云下载系统6中的后台发布软件功能给修改一下，就是每个管理员登陆成功后只能对他发布的软件进行管理，其他管理员发布的软件对他不可见，这个如何能实现呢？附上部分代码以及相关说明：
说明：
管理员从后台登陆成功后生成几个session，如下：
Sub chklogin()
Dim adminname, password
adminname = Trim(Replace(request("adminname"), "'", ""))
password = NC_Encode.md5(Trim(Replace(request("password"), "'", "")))
If Newasp.IsValidStr(Request("adminname")) = False Then
Errmsg = Errmsg + "<li>用户名中含有非法字符。</li>"
Founderr = true
Exit Sub
End If
If Newasp.IsValidPassword(Request("password")) = False Then
Errmsg = Errmsg + "<li>密码中含有非法字符。</li>"
Founderr = true
Exit Sub
End If
If request("verifycode") = "" Then
errmsg = errmsg + "<br>" + "<li>请返回输入确认码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr = true
Exit Sub
ElseIf session("getcode") = "9999" Then
session("getcode") = ""
errmsg = errmsg + "<br>" + "<li>请不要重复提交，如需重新登陆请返回登陆页面。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr = true
Exit Sub
ElseIf CStr(session("getcode"))<>CStr(Trim(request("verifycode"))) Then
errmsg = errmsg + "<br>" + "<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr = true
Exit Sub
End If
session("getcode") = ""
If adminname = "" Or password = "" Then
founderr = true
Errmsg = Errmsg + "<br>" + "<li>请输入您的用户名或密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
Exit Sub
End If
If founderr Then Exit Sub
Set rs = conn.Execute("select * from " & Admintable & " where adminname='"&adminname&"'")
If rs.EOF And rs.bof Then
rs.Close
Set rs = Nothing
founderr = true
errmsg = "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。<b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
Exit Sub
Else
If rs("isActive") = 0 Then
founderr = true
errmsg = "你的用户名已被锁定,你不能登陆!请联系管理员."
Exit Sub
End If
If Trim(rs("password"))<>password Then
founderr = true
errmsg = "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=login.asp>重新输入</a>您的密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
Exit Sub
Else
Session(Newasp.CacheName & "AdminName") = rs("adminname")
session(Newasp.CacheName & "Purview") = rs("Purview")
session(Newasp.CacheName & "Flag") = rs("Flag")
session(Newasp.CacheName & "adminid") = rs("id")
session("username1122") = rs("adminname") /这是我自行添加的
conn.Execute("update " & Admintable & " set Logintime="&Newasp.SqlString&",loginip='"&Newasp.GetUserip&"' where adminname='"&adminname&"'")
rs.Close
Set rs = Nothing
response.redirect("admin_index.asp")
End If
End If

End Sub

[batistutafans]

而管理软件发布的页面admin_software.asp可以发布软件，修改软件信息和删除软件信息，代码如下：
<%
Dim isEdit
Dim skycnid
Dim Rs1
Dim Rs2
Dim softTitle
Dim SortName
Dim sortid
Dim rootid
Dim selSoftid
Dim SiteRs
Dim pubSoftID
Dim strSortid
Dim strskycnid
Dim totalPut
Dim strSortName
Dim j
Dim TxtContent
Dim keyword
Dim findword
Dim ii
Dim datNowTime
Dim ParentID
Dim strParent
Dim Child
Dim depth
Dim maxperpage
Dim CurrentPage
Dim totalnumber
Dim Pcount
Dim i
Dim n
Dim pagestart
Dim pageend
Dim maxpagecount
Dim ArraySoftid
Dim selSortid
Dim pagination
Dim GotoPageType
Dim SoftBody
Dim NC_Create
Set NC_Create = New Create_SoftInfo_Cls
Server.ScriptTimeout = 9999
NC_Admin.AdminChk = "11"
NC_Admin.Check
Newasp.admin_header
pagination = 0
GotoPageType = 0
Set Rs = Server.CreateObject("adodb.recordset")
Set Rs1 = Server.CreateObject("adodb.recordset")
Set Rs2 = Server.CreateObject("adodb.recordset")
Set SiteRs = Server.CreateObject("adodb.recordset")
Select Case Trim(Request("action"))
Case "add"
isEdit = False
Call setclass(isEdit)
Case "edit"
isEdit = True
Call setclass(isEdit)
Case "save"
Call saveAdd
Case "modify"
Call savemodify
Case "delsite"
Call delsite
Case Else
Call SoftMain
End Select
If Founderr = True Then
NC_Admin.Error_Msg (ErrMsg)
End If
Newasp.admin_footer

Private Sub SoftMain()
Dim srtSortingMenu
Dim bookmark
Dim srtSortingList
If Not IsEmpty(Request("selSoftid")) Then
ArraySoftid = Request("selSoftid")
ArraySoftid = Split(ArraySoftid, "||")
selSoftid = ArraySoftid(0)
selSortid = Request("selSoftid")
Select Case Request("action")
Case "del"
Call batdel
Case "dele"
Call batdele
Case "move"
Call batmove
Case "isCommend"
Call isCommend
Case "noCommend"
Call noCommend
Case "indate"
Call upindate
Case "CreateHtml"
Call BatCreateHtml
Case "istop"
Call isTop
Case "notop"
Call noTop
Case Else
Response.Write "无效参数！"
Response.Write
End Select
End If
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "<!--//" & vbCrLf
Response.Write "function SelectAll() {" & vbCrLf
Response.Write Chr(9) & "for (var i=0;i<document.selform.selSoftid.length;i++) {" & vbCrLf
Response.Write Chr(9) & Chr(9) & "var e=document.selform.selSoftid[i];" & vbCrLf
Response.Write Chr(9) & Chr(9) & "e.checked=!e.checked;" & vbCrLf
Response.Write Chr(9) & "}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "<!--//" & vbCrLf
Response.Write "function Juge(myform)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "if (myform.keyword.value == """")" & vbCrLf
Response.Write Chr(9) & "{" & vbCrLf
Response.Write Chr(9) & Chr(9) & "alert(""请输入要查询的关键字!"");" & vbCrLf
Response.Write Chr(9) & Chr(9) & "myform.keyword.focus();" & vbCrLf
Response.Write Chr(9) & Chr(9) & "return (false);" & vbCrLf
Response.Write Chr(9) & "}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">"
Response.Write " <tr>"
Response.Write " <th colspan=""5"">软件管理</th></tr>"
Response.Write " <tr><form method=Post name=""myform"" action=""admin_software.asp"" onSubmit=""return Juge(this)"">"
Response.Write " <td class=forumrow height=""22"" colspan=""5"">"
Response.Write "查询： <input align=""absmiddle"" name=""keyword"" type=""text"" id=""keyword"" size=""30"">  查询方法:"
Response.Write " <select size=""1"" name=""key"">"
Response.Write " <option value=""topic"">软件名称</option>"
Response.Write " <option value=""body"">软件说明</option>"
Response.Write " <option value="""">不限条件</option>"
Response.Write " </select>"
Response.Write " <input type=""submit"" name=""Submit"" align=""absmiddle"" value=""查 询..."" class=button>"
Response.Write " </td></tr></form>"
Response.Write " <tr>"
Response.Write " <th nowrap>选择</th><th width=""70%"">软件标题　"
srtSortingMenu = SortingJumpMenu
srtSortingMenu = Replace(srtSortingMenu, "{SortID=" & Request("clasid") & "}", "selected")
Response.Write srtSortingMenu
Response.Write "</th><th nowrap>修改软件</th><th nowrap>推 荐</th><th nowrap>整理时间</th></tr>"
If Request("clasid") <> "" Then
SQL = "select sortid,SortName,skycnid,rootid,depth,ParentID,strParent,Child from [NC_SoftSort] where sortid = " & Request("clasid")
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
If Rs.bof And Rs.EOF Then
Response.Write "Sorry！没有找到任何软件信息。或者您选择了错误的系统参数!"
Response.Write
Else
strSortName = Rs("SortName")
sortid = Rs("sortid")
rootid = Rs("rootid")
depth = Rs("depth")
ParentID = Rs("ParentID")
strParent = Rs("strParent")
Child = Rs("Child")
End If
Rs.Close
Else
strSortName = "全部软件"
End If
keyword = Newasp.HTMLEncodes(Request("keyword"))
maxperpage = 20 '###每页显示数
If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
Response.Write "错误的系统参数!请输入整数"
Response.End
End If
If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
If CInt(CurrentPage) = 0 Then CurrentPage = 1
If Not IsNull(keyword) And keyword <> "" Then
keyword = Replace(Replace(Replace(keyword, "'", "‘"), "<", "<"), ">", ">")
If Request("key") = "topic" Then
findword = "softname like '%" & keyword & "%'"
ElseIf Request("key") = "body" Then
findword = "content like '%" & keyword & "%'"
Else
findword = "softname like '%" & keyword & "%' or content like '%" & keyword & "%'"
End If
SQL = "select * from NC_SoftInfo where " & findword & " "
SQL = SQL & " order by isTop desc,softTime desc"
Else
If Request("clasid") <> "" Then
If depth <> 0 Then
Dim Rss, AllSortID,ParentStr
Set Rss = Newasp.Execute("select * from NC_SoftSort where strParent like '%"& sortid &"%'")
If Rss.EOF And Rss.bof Then
AllSortID = sortid
Else
Do While Not Rss.EOF
ParentStr = Split(Rss("strParent"), ",")
For i = 0 To UBound(ParentStr)
If CLng(ParentStr(i)) = sortid Then
AllSortID = AllSortID & Rss("sortid") &","
Exit For
End If
Next
Rss.movenext
Loop
AllSortID = AllSortID & sortid
End If
Rss.Close
Set Rss = Nothing
SQL = "select * from NC_SoftInfo where isLock=0 and sortid in (" & AllSortID & ") order by isTop desc,softTime desc,softid desc"
Else
SQL = "select * from NC_SoftInfo where isLock=0 and rootid=" & rootid & " order by isTop desc,softTime desc,softid desc"
End If

[batistutafans]

Else
SQL = "select * from NC_SoftInfo where isLock=0 order by isTop desc,softTime desc,softid desc"
End If
End If
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
If Rs.bof And Rs.EOF Then
Response.Write "<tr><td colspan=5 class=forumrow>还没有找到任何软件！</td></tr>"
Else
If pagination = 0 Then
totalnumber = Rs.recordcount
If (totalnumber Mod maxperpage) = 0 Then
Pcount = totalnumber \ maxperpage
Else
Pcount = totalnumber \ maxperpage + 1
End If
Rs.MoveFiRst
If CurrentPage > Pcount Then CurrentPage = Pcount
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage = Empty Then CurrentPage = 1
Rs.Move (CurrentPage - 1) * maxperpage
bookmark = Rs.bookmark
i = 0
Else
totalnumber = Rs.recordcount
Rs.pagesize = maxperpage
maxpagecount = Rs.pagecount '###记录总页数
Rs.absolutepage = CurrentPage '###当前页数
pagestart = CurrentPage - 2
pageend = CurrentPage + 2
If pagestart < 1 Then
pagestart = 1
End If
If pageend > maxpagecount Then
pageend = maxpagecount
End If
If (totalnumber Mod maxperpage) = 0 Then
Pcount = totalnumber \ maxperpage
Else
Pcount = totalnumber \ maxperpage + 1
End If
Rs.MoveFiRst
If CurrentPage > Pcount Then CurrentPage = Pcount
If CurrentPage < 1 Then CurrentPage = 1
Rs.Move (CurrentPage - 1) * maxperpage
bookmark = Rs.bookmark
i = 0
End If
j = (CurrentPage - 1) * maxperpage + 1
Response.Write " <tr>"
Response.Write " <td height=""22"" colspan=""5"" class=""forumRowHighlight"">"
Call showpage
Response.Write "</td>"
Response.Write Chr(9) & "</tr>"
Response.Write "<form name=""selform"" method=""post"" action="""">"
Do While Not Rs.EOF And i < CInt(maxperpage)
Response.Write " <tr>"
Response.Write " <td class=forumrow nowrap align=""center""><input type=""checkbox"" name=""selSoftid"" value="""
Response.Write Rs("softid")
Response.Write """ title='"
Response.Write j
Response.Write "'>"
Response.Write j
Response.Write "</td>"
Response.Write " <td height=""22"" class=""forumrow"">"
If Rs("istop") = 0 Or Rs("istop") = Empty Then
Response.Write "<IMG SRC=""images/folder.gif"" WIDTH=""16"" HEIGHT=""16"" BORDER=0 ALT=""开放的软件"">"
Else
Response.Write "<IMG SRC=""images/istop.gif"" WIDTH=""15"" HEIGHT=""17"" BORDER=0 ALT=""置顶的软件"">"
End If
Response.Write Chr(9) & " [<a href=?clasid="
Response.Write Rs("sortid")
Response.Write ">"
Response.Write Rs("SortName")
Response.Write "</a>] <a href='"
If CInt(Newasp.Setting(5)) = 0 Then
Response.Write "../software/catalog"
Response.Write Rs("sortid")
Response.Write "/"
Response.Write Rs("softid")
Response.Write ".html"
Else
Response.Write "../software.asp?id="
Response.Write Rs("softid")
End If
Response.Write "' target=_blank>"
Response.Write Rs("softname")
Response.Write " "
Response.Write Rs("softver")
Response.Write "</a>"
If Rs("isMember") <> 0 Then Response.Write "<IMG SRC=""images/vip.gif"" WIDTH=""12"" HEIGHT=""11"" BORDER=0 ALT=""会员软件"">"
Response.Write Chr(9) & Chr(9) & " </td>"
Response.Write " <td class=forumrow align=""center""><a href=?action=edit&softid="
Response.Write Rs("softid")
Response.Write "&sortid="
Response.Write Rs("sortid")
Response.Write ">编 辑</a>"
Response.Write "<font color=""#FF0000"">"
Response.Write Rs("skycnid")
Response.Write "</font>"
Response.Write "</td>"
Response.Write " <td class=forumrow align=""center"">"
Response.Write Chr(9) & " "
If Rs("isCommend") = 0 Then
Response.Write Chr(9) & " <IMG SRC=""images/folder.gif"" WIDTH='16' HEIGHT='16' BORDER=0 ALT='开放软件'>"
Response.Write Chr(9) & " "
Else
Response.Write Chr(9) & " <IMG SRC='images/jing.gif' WIDTH='18' HEIGHT='18' BORDER=0 ALT='推荐软件'>"
Response.Write Chr(9) & " "
End If
Response.Write "</td>"
Response.Write " <td class=forumrow align=""center"" nowrap>"
If Rs("softTime") >= Date Then
Response.Write "<font color=""#FF3300"">"
Response.Write FormatDateTime(Rs("softTime"), 2)
Response.Write "</font>"
Else
Response.Write FormatDateTime(Rs("softTime"), 2)
End If
Response.Write "</td></tr>"
Rs.movenext
i = i + 1
j = j + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close
Response.Write " <tr>"
Response.Write " <td height=""22"" class=""forumrow"">管理</td>"
Response.Write " <td height=""22"" colspan=""3"" class=""forumrow""><a href=""javascript:SelectAll()"">全选/反选</a><input type=""checkbox"" name=""checkbox"" value=""checkbox"" onClick=""javascript:SelectAll()"">"
Response.Write " <input type=""radio"" name=""action"" value=""move"">批量移动 ->"
srtSortingList = Newasp.SortingJumpList
srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
Response.Write srtSortingList
Response.Write " "
If CInt(Newasp.Setting(5)) = 0 Then Response.Write "<input type=""radio"" name=""action"" value=""CreateHtml"">批量生成(HTML)"
Response.Write "　<BR>"
Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""del"">彻底删除"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""dele"">放入回收站"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""isCommend"">设置推荐"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""noCommend"">取消推荐"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""istop"">软件置顶"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""notop"">取消置顶"
Response.Write Chr(9) & "<input type=""radio"" name=""action"" value=""indate"">更新时间"
Response.Write "</td>"
Response.Write " <td height=""22"" class=""forumrow""><input type=""submit"" name=""Submit"" value=""执行操作"" class=button onclick=""{if(confirm('您确定执行的操作吗?')){this.document.selform.submit();return true;}return false;}""></td>"
Response.Write " </tr></form>"
Response.Write " <tr>"
Response.Write " <td height=""22"" colspan=""5"" class=""forumRowHighlight"">"
Call showpage
Response.Write "</td></tr>"
Response.Write "</table>"
End Sub

Private Sub setclass(isEdit)
Dim NC_HtmlEdit
Dim srtSortingList
Dim RunSystem
Dim SoftType
Dim Re
Set NC_HtmlEdit = New HtmlEditor_Cls
If isEdit Then
SQL = "select * from NC_SoftInfo where softid=" & Request("softid")
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
sortid = CStr(Rs("sortid"))
rootid = CStr(Rs("rootid"))
softTitle = "编辑软件"
If CInt(Newasp.Setting(19)) = 1 Then
SoftBody = Server.HTMLEncode(Rs("Content"))
Else
SoftBody = Rs("Content")
End If
Set Re = New RegExp
Re.IgnoreCase =true
Re.Global=True
Re.Pattern="\[br\]"
SoftBody = Re.Replace(SoftBody,"")
Re.Pattern="\[align=right\](.*)\[\/align\]"
SoftBody = Re.Replace(SoftBody,"")
Set Re = Nothing
Else
softTitle = "添加软件"
End If

[batistutafans]

Response.Write "<script language=""javascript"">" & vbCrLf
Response.Write "<!--//" & vbCrLf
Response.Write Chr(9) & "function ToRunsystem(addTitle) {" & vbCrLf
Response.Write Chr(9) & Chr(9) & "var revisedTitle;" & vbCrLf
Response.Write Chr(9) & Chr(9) & "var currentTitle;" & vbCrLf
Response.Write Chr(9) & Chr(9) & "currentTitle = document.myform.RunSystem.value;" & vbCrLf
Response.Write Chr(9) & Chr(9) & "revisedTitle = currentTitle+addTitle;" & vbCrLf
Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.value=revisedTitle;" & vbCrLf
Response.Write Chr(9) & Chr(9) & "document.myform.RunSystem.focus();" & vbCrLf
Response.Write Chr(9) & "return; }" & vbCrLf
Response.Write "//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script src=images/checksave.js type=text/javascript></script>"
Response.Write "<div onkeydown=CtrlEnter()>"
Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""tableBorder"">"
Response.Write "<form name=""myform"" method=""post"" action=""admin_software.asp"" onSubmit=""return CheckSoft(this)"">"
Response.Write " <input type=""Hidden"" name=""action"" value='"
If isEdit Then
Response.Write "modify"
Else
Response.Write "save"
End If
Response.Write "'>"
Response.Write Chr(9) & Chr(9) & " "
If CInt(Newasp.Setting(19)) = 1 Then
Response.Write Chr(9) & Chr(9) & " <input type=""hidden"" name=""content1"" id=body value="""
If isEdit Then
Response.Write SoftBody
End If
Response.Write """>"
Response.Write Chr(9) & Chr(9) & " "
End If
Response.Write " "
If isEdit Then
Response.Write " <input type=""Hidden"" name=""softid"" value='"
Response.Write CStr(Request("softid"))
Response.Write "'>"
Response.Write " "
End If
Response.Write " <tr>"
Response.Write " <th colspan=""2"">"
Response.Write softTitle
Response.Write " 注意事项</th>"
Response.Write " </tr>"
Response.Write "<tr>"
Response.Write "<td colspan=""2"" class=""forumRowHighlight"">"
Response.Write "<p><B>注意</B>：<BR>①添加软件时请先选择分类，不能选择一级分类做为软件分类；<BR>"
Response.Write "②添加或者修改软件简介时需要HTML语法支持，请在基本设置开启HTML编辑器，文本编辑器会过滤所有的HTML标签；如果您以前添加的软件简介使用了HTML编辑器，请修改的时候一定要使用HTML编辑器；<BR>"
Response.Write "③HTML编辑器和文本编辑器都不支持UBB代码。"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write " <tr>"
Response.Write " <th colspan=""2"">"
Response.Write softTitle
Response.Write "</th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""15%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">软件分类：</td>"
Response.Write " <td width=""85%"" class=""forumRow"">"
srtSortingList = Newasp.SortingJumpList
srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
Response.Write srtSortingList
Response.Write Chr(9) & " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">软件名称：</td>"
Response.Write " <td class=""forumRow""><input name=""softname"" type=""text"" size=""40"" value='"
If isEdit Then
Response.Write Rs("softname")
End If
Response.Write "'> 版本: <input name=""softver"" type=""text"" size=""20"" value="""
If isEdit Then
Response.Write Rs("softver")
End If
Response.Write """></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">运行环境：</td>"
Response.Write " <td class=""forumRow""><input name=""RunSystem"" type=""text"" size=""50"" value="""
If isEdit Then
Response.Write Rs("RunSystem")
Else
Response.Write Newasp.Setting(45)
End If
Response.Write """><BR>"
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>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">软件类型：</td>"
Response.Write " <td class=""forumRow"">"
SoftType = Split(Newasp.Setting(35), ",")
For i = 0 To UBound(SoftType)
Response.Write "<input type=""radio"" name=""SoftType"" value=""" & Trim(SoftType(i)) & """ "
If isEdit Then
If SoftType(i) = Rs("SoftType") Then Response.Write " checked"
Else
If i = 0 Then Response.Write " checked"
End If
Response.Write ">" & Trim(SoftType(i)) & " "
If i = 6 Then Response.Write "<br>"
Next
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">界面预览：</td>"
Response.Write " <td class=""forumRow""><input id=image2 name=""PreviewImg"" type=""text"" size=""40"" value="""
If isEdit Then
Response.Write Rs("PreviewImg")
End If
Response.Write """><font color=""#808080""> 软件界面预览图片，大小不定</font></td>"
Response.Write " </tr"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">缩略图：</td>"
Response.Write " <td class=""forumRow""><input id=image1 name=""Softimg"" type=""text"" size=""30"" value="""
If isEdit Then
Response.Write Rs("softimg")
End If
Response.Write """><font color=""#808080""> 软件的缩略图，建议大小为：120×95 px</font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td colspan=2 class=""forumRow""><iframe name=""image"" frameborder=0 width='100%' height='42' scrolling=no src=upfile.asp?type=image&upnum=2></iframe></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">软件大小：</td>"
Response.Write " <td class=""forumRow""> <input type=""text"" name=""SoftSize"" size=""14"" onkeyup=if(isNaN(this.value))this.value='' value='"
If isEdit Then
Response.Write Trim(Rs("SoftSize"))
End If
Response.Write "'> <input name=""SizeUnit"" type=""radio"" value=""KB"" checked>"
Response.Write " KB"
Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"">"
Response.Write " MB <font color=""#FF0000"">！</font>"
Response.Write " 解压密码:<input type=""text"" name=""Decode"" size=""15"" maxlength=""100"" value='"
If isEdit Then
Response.Write Trim(Rs("Decode"))
End If
Response.Write "'> <font color=""#808080"">没有请留空</font> </td>"
Response.Write " </tr>"
Response.Write " <tr>"

[moodboy1982]

就凭代码是不可能完成任务的！！！

你必须在数据库中加一个权限的字段。

[moodboy1982]

没有人会仔细看你这么多代码的。