<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<%
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 & "
请指定要修改的软件ID
"
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 & "
找不到文章
"
else
if rsSoft("Editor")=request.Cookies("asp163")("UserName") then
if rsSoft("Passed")=True then
FoundErr=True
ErrMsg=ErrMsg & "
软件已经被审核通过，你不能再进行修改！
"
end if
else
FoundErr=True
ErrMsg=ErrMsg & "
你不能修改其他人添加的软件！
"
end if
end if
if FoundErr=True then
call WriteErrMsg()
else
ClassID=rsSoft("ClassID")
%>
修改软件
<%
end if
rsSoft.close
set rsSoft=nothing
call CloseConn()
%>