admin_mov_add_07.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

<%Sub Add7
Dim ChannelID,ClassID,SpecialID,OnTop,Elite,Stars,ShowCommentlink,Script_Iframe,Script_Object,Script_Script,Script_Class,Script_Div,Script_Table,Script_Tr,Script_td,Script_Span,Script_Img,Script_Font,Script_A,Script_Html
Dim CollectionNum,CollectionType,SaveFiles,CollecOrder,Passed,Flag,Hot,Hits,FileSavebType,FileSavebNum,FileSavebStr,SaveNameTypeb,SaveDir,SoftPoint

ChannelID=Request.Form("ChannelID")
ClassID=Request.Form("ClassID")
SpecialID=Request.Form("SpecialID")
Hot=Request.Form("Hot")
Hits=Request.Form("Hits")
OnTop=Request.Form("OnTop")
Elite=Request.Form("Elite")
Stars=Request.Form("Stars")

Script_Iframe=Request.Form("Script_Iframe")
Script_Object=Request.Form("Script_Object")
Script_Script=Request.Form("Script_Script")
Script_Class=Request.Form("Script_Class")
Script_Div=Request.Form("Script_Div")
Script_Table=Request.Form("Script_Table")
Script_Tr=Request.Form("Script_Tr")
Script_td=Request.Form("Script_td")
Script_Span=Request.Form("Script_Span")
Script_Img=Request.Form("Script_Img")
Script_Font=Request.Form("Script_Font")
Script_A=Request.Form("Script_A")
Script_Html=Request.Form("Script_Html")
CollectionNum=Request.Form("CollectionNum")
CollectionType=Request.Form("CollectionType")
SaveFiles=Request.Form("SaveFiles")
CollecOrder=Request.Form("CollecOrder")
Passed=Request.Form("Passed")
Flag=Request.Form("Flag")
FileSavebType=Request.Form("FileSavebType")
FileSavebNum=Request.Form("FileSavebNum")
FileSavebStr=Request.Form("FileSavebStr")
SaveNameTypeb=Request.Form("SaveNameTypeb")
SoftPoint=Request.Form("SoftPoint")
SaveDir=Replace(Request.Form("SaveDir"),"/","")
SaveDir=Replace(SaveDir,"\","")
If ItemName="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请输入项目名称</li>" 
End if
If ChannelID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置所属频道</li>" 
End if
If ClassID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置所属频道</li>" 
End if
If SaveDir="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置保存目录</li>" 
End if

If FoundErr<>True Then
   SqlItem="Select * from Item Where ItemID=" & ItemID
   Set RsItem=server.CreateObject("adodb.recordset")
   RsItem.Open SqlItem,ConnItem,2,3

	RsItem("ChannelID")=ChannelID
	RsItem("ClassID")=ClassID
	RsItem("SpecialID")=SpecialID
	RsItem("Hot")=PPTF(Hot)
	RsItem("Hits")=Hits
	RsItem("OnTop")=PPTF(OnTop)
	RsItem("Elite")=PPTF(Elite)
	RsItem("Stars")=Stars
	RsItem("ShowCommentlink")=PPTF(ShowCommentlink)
	RsItem("Script_Iframe")=PPTF(Script_Iframe)
	RsItem("Script_Object")=PPTF(Script_Object)
	RsItem("Script_Script")=PPTF(Script_Script)
	RsItem("Script_Class")=PPTF(Script_Class)
	RsItem("Script_Div")=PPTF(Script_Div)
	RsItem("Script_Table")=PPTF(Script_Table)
	RsItem("Script_Tr")=PPTF(Script_Tr)
	RsItem("Script_td")=PPTF(Script_td)
	RsItem("Script_Span")=PPTF(Script_Span)
	RsItem("Script_Img")=PPTF(Script_Img)
	RsItem("Script_Font")=PPTF(Script_Font)
	RsItem("Script_A")=PPTF(Script_A)
	RsItem("Script_Html")=PPTF(Script_Html)
	RsItem("CollectionNum")=CollectionNum
	RsItem("CollectionType")=CollectionType
	RsItem("SaveFiles")=SaveFiles
	RsItem("CollecOrder")=PPTF(CollecOrder)
	RsItem("Passed")=PPTF(Passed)
	RsItem("FileSavebType")=FileSavebType
	RsItem("FileSavebNum")=FileSavebNum
	RsItem("FileSavebStr")=FileSavebStr
	RsItem("SaveNameTypeb")=SaveNameTypeb
	RsItem("SaveDir")=SaveDir
	RsItem("SoftPoint")=SoftPoint
	
	
	
	if Flag="True" then		
		RsItem("Flag")=True
	End if
	
	RsItem.UpDate
	RsItem.Close
	Set RsItem=Nothing
End If




If FoundErr=True Then
   Call WriteErrMsg(ErrMsg)
   Response.End
End if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
	<tr class="tdbg">
		<td width="70" height="30"><strong>管理导航：</strong></td>
		<td height="30"><a href="Admin_mov_Manage.asp">管理首页</a> >> <a href="Admin_mov_Add.asp?Type=modify&ItemID=<%=ItemID%>">基本设置</a> >> <a href="Admin_mov_Add.asp?action=Add1&Type=modify&ItemID=<%=ItemID%>">列表设置</a> >> <a href="Admin_mov_Add.asp?action=Add2&Type=modify&ItemID=<%=ItemID%>">链接设置</a> >> <a href="Admin_mov_Add.asp?action=Add3&Type=modify&ItemID=<%=ItemID%>">正文设置</a> >> <a href="Admin_mov_Add.asp?action=Add4&Type=modify&ItemID=<%=ItemID%>">采样测试</a> >> <a href="Admin_mov_Add.asp?action=Add5&Type=modify&ItemID=<%=ItemID%>">属性设置</a> >> <font color=red>完成</font></td>
	</tr>
</table><br>
<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>
  <tr align='center' class='title'><td height='22'><strong>恭喜您！</strong></td></tr>
  <tr class='tdbg'><td height='100' valign='top' align='center'><br><font color=red><%=ItemName%></font>  采集项目已成功建立 ！</td></tr>
  <tr align='center' class='tdbg'><td></td></tr>
</table>
<!--<meta http-equiv="refresh" content=3;url="Admin_mov_Manage.asp" >-->
<%End Sub%>