📄 user_repass.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
字号:
<!--#include file="Inc/Const.asp"-->
<%
Dim InfoID,Action
InfoID	= Cl.GetClng(request("InfoID"))
Action	= Lcase(Trim(request("Action")))
if InfoID<=0 then Cl.ShowErr("<li>参数不足，请指定ID！</li>")
Cl.Load_ChannelSetting(ChannelID)
If Action="why" then
	WhyNoPass
else
	Repass
end if

Sub Repass()
	Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
	Case 1
		SQL = "Select InfoID,ClassID,Title,Passed,noPass,Editor From Cl_Article where InfoID=" & InfoID
	Case 2
		SQL = "Select InfoID,ClassID,SoftName,Passed,noPass,Editor From Cl_Soft where InfoID=" & InfoID
	Case 3
		SQL = "Select InfoID,ClassID,PhotoName,Passed,noPass,Editor From Cl_Photo where InfoID=" & InfoID
	Case 4
		SQL = "Select InfoID,ClassID,MovieName,Passed,noPass,Editor From Cl_Movie where InfoID=" & InfoID
	Case 5
		SQL = "Select InfoID,ClassID,ProductName,Passed,noPass,Editor From Cl_Product where InfoID=" & InfoID
	Case 6
		SQL = "Select InfoID,ClassID,Title,Passed,noPass,Editor From Cl_Supply where InfoID=" & InfoID
	End Select
	Set Rs = Server.CreateObject("ADODB.Recordset")
	OpenConn : Rs.open SQL,Conn,1,3
	if Rs.bof and Rs.eof then
		Cl.ShowErr("<li>找不到指定"&Cl.Channel.selectSingleNode("@channelitemname").text&"。</li>")
	else
		if Rs(5) <> Cl.MemberName then
			Cl.ShowErr("<li>提交文章“" & Rs(2) & "”失败。原因：此文章是其他网友发表的，你不能提交其他人的"&Cl.Channel.selectSingleNode("@channelitemname").text&"！</li>")
		end if
		if Rs(3)=True or Rs(4)=False then
			Cl.ShowErr("<li>提交文章“" & Rs(2) & "”失败。原因：此"&Cl.Channel.selectSingleNode("@channelitemname").text&"已经被审核通过，你不能再次提交！</li>")
		end if
	end if
	Rs("nopass")=False
	Rs.update
	Rs.Close : set Rs=Nothing
	Cl.OutMsg 0,Cl.Channel.selectSingleNode("@channelitemname").text&"已经成功重新提交，按确定返回！",ComeUrl
End Sub

Sub WhyNoPass()
	Dim sModuleName
	Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
	Case 1
		SQL = "Select InfoID,ClassID,Title,Passed,noPass,NoPassNum,nopasstxt,Editor From Cl_Article where InfoID=" & InfoID
		sModuleName="Article"
	Case 2
		SQL = "Select InfoID,ClassID,SoftName,Passed,noPass,NoPassNum,nopasstxt,Editor From Cl_Soft where InfoID=" & InfoID
		sModuleName="Soft"
	Case 3
		SQL = "Select InfoID,ClassID,PhotoName,Passed,noPass,NoPassNum,nopasstxt,Editor From Cl_Photo where InfoID=" & InfoID
		sModuleName="Photo"
	Case 4
		SQL = "Select InfoID,ClassID,MovieName,Passed,noPass,NoPassNum,nopasstxt,Editor From Cl_Movie where InfoID=" & InfoID
		sModuleName="Movie"
	Case 5
		SQL = "Select InfoID,ClassID,ProductName,Passed,noPass,NoPassNum,nopasstxt,Editor From Cl_Product where InfoID=" & InfoID
		sModuleName="Product"
	Case 6
		SQL = "Select InfoID,ClassID,Title,Passed,noPass,NoPassNum,nopasstxt,Editor From Cl_Supply where InfoID=" & InfoID
		sModuleName="Supply"
	End Select
	Set rs= Cl.Execute(SQL)
	if rs.bof and rs.eof then
		Cl.ShowErr("<li>找不到指定"&Cl.Channel.selectSingleNode("@channelitemname").text&"</li>")
	End if
	if Rs(7) <> Cl.MemberName then
		Cl.ShowErr("<li>提交文章“" & Rs(2) & "”失败。原因：此文章是其他网友发表的，你不能提交其他人的"&Cl.Channel.selectSingleNode("@channelitemname").text&"！</li>")
	end if
	if rs(3)=True or rs(4)=False then
		Cl.ShowErr("<li>"&Cl.Channel.selectSingleNode("@channelitemname").text&"已经被审核通过，并未退回。</li>")
	end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>退稿原因</title>
<link rel="stylesheet" type="text/css" href="../Skins/Css/User.Css">
</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" align="center"><strong><b>查看退稿原因</b></td>
  </tr>
  <tr align="center"> 
      <td class="tdbg">
          <table width="100%" border="0" cellpadding="2" cellspacing="1">
            <tr class="tdbg"> 
              <td width="150" align="right"><strong>稿件标题：</strong></td>
              <td><input Name=NoPassNum size=60 type=text ReadOnly value="<%=rs(2)%>"></td>
           </tr>
            <tr class="tdbg"> 
              <td width="150" align="right"><strong>退稿次数：</strong></td>
              <td><input Name=NoPassNum size=6 type=text ReadOnly value="<%=rs(5)%>"> 次</td>
           </tr>
            <tr class="tdbg"> 
              <td width="150" align="right"><strong>退稿原因：</strong></td>
              <td><textarea name="nopasstxt" id="nopasstxt" cols="50" rows="10" ReadOnly><%=rs(6)%></textarea>
			</td>
           </tr>
	  </table>
       </td>
  </tr>
  <tr align="center"> 
      <td class="tdbg">
          <input name="Modify" type="button" id="Modify" value=" 修&nbsp;&nbsp;改 " onClick="window.location.href='User_<%=sModuleName%>.asp?Action=Modify&ChannelID=<%=ChannelID%>&InfoID=<%=InfoID%>'">&nbsp;
		  <input name="Repass" type="button" id="Repass" value=" 重&nbsp;&nbsp;投 " onClick="window.location.href='User_RePass.asp?ChannelID=<%=ChannelID%>&InfoID=<%=InfoID%>'">&nbsp;
		  <input name="Cancel" type="button" id="Cancel" value=" 取&nbsp;&nbsp;消 " onClick="window.location.href='User_<%=sModuleName%>.asp?ChannelID=<%=ChannelID%>'">
       </td>
  </tr>
</table>
</body>
</html>
<%
rs.close:set rs=Nothing
End Sub
%>
<%
'===================================================
' CreateLive CMS Version 4.0
'							Powered by Aspoo.CoM
'===================================================
' Mail: support@aspoo.cn, Info@aspoo.cn
' Q  Q: 3315263, 596197794
' Msn : support@aspoo.cn, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>
⌨️ 快捷键说明

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