⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_nopass.asp

📁 淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序
💻 ASP
字号:
🔍 
<!--#include file="Inc/Const.asp"-->
<%
dim Action,InfoID,rsInfo,sqlInfo,sModuleName

if Not Cl.TrueChannelPurview_U(3,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
InfoID=Cl.GetClng(request("InfoID"))
if InfoID=0 then Cl.ShowErr("<li>请指定要修改的资料ID</li>")
Cl.Load_ChannelSetting(ChannelID)
Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
Case 1
	sqlInfo = "Select InfoID,ClassID,Title,Status From Cl_Article where InfoID=" & InfoID
Case 2
	sqlInfo = "Select InfoID,ClassID,SoftName,Status From Cl_Soft where InfoID=" & InfoID
Case 3
	sqlInfo = "Select InfoID,ClassID,PhotoName,Status From Cl_Photo where InfoID=" & InfoID
Case 4
	sqlInfo = "Select InfoID,ClassID,MovieName,Status From Cl_Movie where InfoID=" & InfoID
Case 5
	sqlInfo = "Select InfoID,ClassID,ProductName,Status From Cl_Product where InfoID=" & InfoID
Case 6
	sqlInfo = "Select InfoID,ClassID,Title,Status From Cl_Supply where InfoID=" & InfoID
End Select
Set rsInfo = Cl.Execute(sqlInfo)
if rsInfo.bof and rsInfo.eof then
	rsInfo.close:set rsInfo=Nothing
	Cl.ShowErr("<li>找不到指定资料</li>")
End if
if rsInfo(3)=1 then
	rsInfo.close:set rsInfo=Nothing
	Cl.ShowErr("<li>文章已经被审核通过，如确要退回，请选取消审核。</li>")
end if
if Not Cl.TrueChannelPurview_U(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_U(2,ChannelID,sTempP(i))
		if IsTruePurview Then Exit For
	Next
	Set sRs=Nothing
	if Not IsTruePurview then
		rsInfo.close:set rsInfo=Nothing
		Cl.ShowErr("<li>您无权修改或查看此栏目或资料！</li>")
	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)="你的答案是错误的,和本套练习不配套.请你重新将答案标定正确,谢谢你的上传，感谢你对学科网校的支持！"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>退稿原因</title>
<link rel="stylesheet" type="text/css" href="../Skins/Css/Admin.Css">
<script language="JavaScript" type="text/javascript">
function ChkNoPasstxt()
{
    if(document.myform.nopasstxt.value==''){
	confirm('退稿原因不能为空');
	return false;
	}
}
</script>
<script language="VBScript" type="text/vbscript">
function SelectWhy(sid)
	dim obj,obj2
	obj=document.myform.nopasstxt.value
	obj2=document.getElementById("Whys("&sid&")").innerHTML
	if obj="" then
	document.myform.nopasstxt.value=obj2
	else
	document.myform.nopasstxt.value=obj & Vbcrlf & obj2
	end if
end function
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan=3 align="center"><strong><b>退回<%=Cl.Channel.selectSingleNode("@channelitemname").text%></b></td>
  </tr>
	<form method="POST" name="myform" action="User_Property.asp?ChannelID=<%=ChannelID%>&InfoID=<%=InfoID%>&Action=nopassed" Onsubmit="return ChkNoPasstxt();">
	<tr>
		<td class="tdbg" width="80" align="right"><strong><%=Cl.Channel.selectSingleNode("@channelitemname").text%>标题：</strong></td>
		<td class="tdbg"><input Name=Title size=60 type=text ReadOnly value="<%=rsInfo(2)%>"></td>
		<td rowspan=2 class="tdbg">
		<ol>
		<%for i=0 to Ubound(Whys)%>
		<li><a href="#" onclick="SelectWhy(<%=i%>)"><div id="Whys(<%=i%>)"><%=Whys(i)%></div></a></li>
		<%next%>
		</ol>
		</td>
	</tr>
	<tr valign=top>
		<td class="tdbg" width="80" align="right"><br /><br /><strong>退回原因：</strong></td>
		<td class="tdbg" width="380"><textarea name="nopasstxt" id="nopasstxt" cols="50" rows="28"></textarea>
		<br /><font color="blue">说明：限250字节内，多余部分系统自动清除。</font>
		</td>
	</tr>
  <tr align="center">
	<td class="tdbg" colspan=3>
	<input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>">
	<input name="Save" type="submit" id="Save" value=" 确认退回 " style="cursor:hand;">
	</td></tr>
</form>
</table>
</body>
</html>
<%
rsInfo.close:set rsInfo=Nothing
CloseAllObj
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>

⌨️ 快捷键说明

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