<%
dim Action,InfoID,rsInfo,sqlInfo,sModuleName
if Not Cl.TrueChannelPurview(3,ChannelID) then Admin_ShowErr("
您无此操作权限！
")
InfoID=Cl.ChkClng(Trim(request("InfoID")))
if InfoID=0 then Admin_ShowErr("
请指定要修改的资料ID
")
Cl.GetChannelSetting(ChannelID)
Select Case Clng(Cl.Channel_Setting(20))
Case 1
sqlInfo = "Select ArticleID,ClassID,Title,Passed From Cl_Article where ArticleID=" & InfoID
Case 2
sqlInfo = "Select SoftID,ClassID,SoftName,Passed From Cl_Soft where SoftID=" & InfoID
Case 3
sqlInfo = "Select PhotoID,ClassID,PhotoName,Passed From Cl_Photo where PhotoID=" & InfoID
Case 4
sqlInfo = "Select MovieID,ClassID,MovieName,Passed From Cl_Movie where MovieID=" & InfoID
Case 5
sqlInfo = "Select ProductID,ClassID,ProductName,Passed From Cl_Product where ProductID=" & InfoID
Case 6
sqlInfo = "Select TopicID,ClassID,Title,Passed From Cl_Topic where TopicID=" & InfoID
End Select
Set rsInfo = Cl.Execute(sqlInfo)
if rsInfo.bof and rsInfo.eof then
rsInfo.close:set rsInfo=Nothing
Admin_ShowErr("
找不到指定资料
")
End if
if rsInfo(3)=True then
rsInfo.close:set rsInfo=Nothing
Admin_ShowErr("
文章已经被审核通过，如确要退回，请选取消审核。
")
end if
if Not Cl.TrueChannelPurview(2,ChannelID) then
Dim sRs
Set sRs=Cl.Execute("select ParentPath From Cl_Class Where ClassID=" & rsInfo(1))
dim sTempP,IsTruePurview
sTempP=Split(sRs(0) & "," & rsInfo(1),",")
for i=1 to Ubound(sTempP)
IsTruePurview = Cl.TrueClassPurview(2,ChannelID,sTempP(i))
if IsTruePurview Then Exit For
Next
Set sRs=Nothing
if Not IsTruePurview then
rsInfo.close:set rsInfo=Nothing
Admin_ShowErr("
你无权修改此栏目下资料
")
end if
end if
Dim Whys(13)
Whys(0)="您的资料很好，只是所属栏目、标题、所属课程环节、关键字、课程内容等不太合适，请认真阅读《上传说明和流程》（在帮助中心里面），然后上传，谢谢合作! "
Whys(1)="对不起，网校已有相同资源，请您上传更新的资源哦!谢谢。"
Whys(2)="我相信您的资料更加适合于现行教材！！请上传到现行教材网校，谢谢。"
Whys(3)="谢谢您对网校的支持，请按照网校的《上传说明和流程》（在帮助中心里面）修改后再上传，辛苦您了。"
Whys(4)="您的这份资料不适合这个版本教材，请您上传到合适的栏目去，谢谢！"
Whys(5)="您好!资料内容略显单薄!麻烦您充实后再上传!非常感谢您的支持!"
Whys(6)="您的资料缺少答案，不方便会员自学，请补充答案后上传，谢谢。"
Whys(7)="您的课件的简介说的不太明白，请再补充一下。"
Whys(8)="请把您的资料的文档内容全部复制到课程内容中，谢谢。"
Whys(9)="请按照""标题+类型""的格式填写资料标题，如""《为人民服务》 课件""。"
Whys(10)="您的资料有些陈旧，请上传适合新课标的新资料。"
Whys(11)="您好！该资料无法打开，请您检查一下!建议不要上传带有密码之类的资料！欢迎上传优质原创资料!非常感谢您的支持!"
Whys(12)="你的资料很好，也正是我们网站所需要的，但麻烦您在百忙之余把资料做得再美观些好吗？我们都应该为把我们的网站建成精品网站而努力啊，谢谢你对本站的支持。"
Whys(13)="你的答案是错误的,和本套练习不配套.请你重新将答案标定正确,谢谢你的上传，感谢你对学科网校的支持！"
%>
退稿原因