📄 admin_softinfo.asp

📁 网络电视免费版
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!-- #include file="config.asp" -->
<HTML><HEAD><TITLE>节目详细信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(myform)
{

if (myform.SoftName.value == "")
	{
		alert("节目名称不能为空！");
		myform.SoftName.focus();
		return (false);
	}

	if (myform.cateid.value == "")
	{
		alert("节目所属大类不能为空！");
		myform.cateid.focus();
		return (false);
	}
	if (myform.subcateid.value == "")
	{
		alert("节目所属小类不能为空！");
		myform.subcateid.focus();
		return (false);
	}

	if (myform.System.value == "")
	{
		alert("节目运行环境不能为空！");
		myform.System.focus();
                return (false);
	}
	if (myform.SoftSize.value == "")
	{
		alert("节目大小不能为空！");
		myform.SoftSize.focus();
                return (false);
	}
	
	if (checktext(myform.SoftSize.value))
	{
		alert("节目大小要求输入数字即可 !");
	myform.SoftSize.select();
    myform.SoftSize.focus();
	myform.SoftSize.value="";
		return (false);
	}
	
	if (myform.Rank.value == "")
	{
		alert("节目等级不能为空！");
		myform.Rank.focus();
                return (false);
	}
	if (myform.LicenceType.value == "")
	{
		alert("节目授权类型不能为空！");
		myform.LicenceType.focus();
                return (false);
	}
	
	if (myform.SoftFrom.value == "")
	{
		alert("节目作者网址不能为空！");
		myform.SoftFrom.focus();
                return (false);
	}
	if (myform.SoftType.value == "")
	{
		alert("节目类型不能为空！");
		myform.SoftType.focus();
                return (false);
	}
	if (myform.Language.value == "")
	{
		alert("节目语言不能为空！");
		myform.Language.focus();
                return (false);
	}	

	if (myform.content.value == "")
	{
		alert("节目简介内容不能为空！");
		myform.content.focus();
                return (false);
	}

}

function checktext(text)
{
	allValid = false;
		
	var checkOK = "0123456789";

	for (i = 0;  i < text.length;  i++)
	{
		ch = text.charAt(i);
		for (j = 0;  j < checkOK.length;  j++)
		if (ch == checkOK.charAt(j))
			break;
		if (j == checkOK.length)
		{
  		allValid = true;
			break;
		}
	}
return allValid;
}
//-->
</script>
<SCRIPT language=javaScript src="inc/ubbcode.js" type=text/javascript></SCRIPT>
<BODY leftMargin=0 topmargin="2" onkeydown='if(event.keyCode==13 && event.ctrlKey)myform.submit()'>
<%	
  if UserName="" then
   msgtitle="添加节目失败"
   msginfo="<li>你没有登录系统。<li><a href=""User.Asp"">点此登录系统</a></li>"
  call Sysmsg(msgtitle,msginfo)  
  else  	  
  select case request("action")
  case "add" 
       call SaveAdd()
  case "modify"  
       call SaveModify()
  case "edit" 
       isEdit=True
       call chkUser(isEdit)
  case else
       isEdit=False
      ' call myform(isEdit)
	   call chkUser(isEdit) 
  end select   	  
  end if
  
  sub chkUser(isEdit)
      if isEdit=True then
	      if not chkEditUser(UserName,trim(request("SoftID"))) then
		    msgtitle="修改节目失败"
            msginfo="<li>你没有权限修改他人添加的节目。</li><li>如有问题请联系管理员。</li>"
            call Sysmsg(msgtitle,msginfo) 
		 elseif  chkEditUser(UserName,trim(request("SoftID"))) then
		    call myform(isEdit)
		  end if
	  elseif isEdit=False then
	     if request("cateid")="" and request("subcateid")="" then
		     msgtitle="添加节目失败"
             msginfo="<li>你没有选择要添加节目的分类。"&_
             "<li><A href=""Admin_Category.asp""> 选择节目分类</A><br>"            
             call Sysmsg(msgtitle,msginfo) 		 
	     elseif not chkPubUser(UserName,request("subcateid")) then
		     msgtitle="添加节目失败"
             msginfo="<li>你没有在此分类中发布节目的权限。<li>如有问题请联系管理员</li>"
             call Sysmsg(msgtitle,msginfo) 
		 elseif chkPubUser(UserName,request("subcateid")) then
	         call myform(isEdit)
		 end if
	  end if
  end sub
      
  sub SaveModify()
      set rs=server.createobject("adodb.recordset")
	  sql="select * from "&CategoryName&"_SoftInfo where SoftID="&request.form("SoftID")
	   rs.open sql,conn,1,3
	   rs("SoftName")=checkstr(request.form("SoftName"))
	   rs("SoftVer")=checkstr(request.form("SoftVer"))
	   rs("CateID")=trim(request.form("CateID"))
	   rs("SubCateID")=trim(request.form("SubCateID"))
	   rs("Content")=request.form("content")
       rs("Images")=checkstr(trim(request.form("Images")))
	   rs("SoftViewImg")=checkstr(Trim(Request.Form("SoftViewImg")))
	   rs("SoftFrom")=checkstr(trim(request.form("SoftFrom")))
	   rs("LicenceType")=trim(request.form("LicenceType"))
	    if Trim(Request.Form("SizeUnit"))="MB" then
	    rs("SoftSize")=trim(request.form("SoftSize"))*1024
	    else
		rs("SoftSize")=trim(request.form("SoftSize"))
		end if
	   rs("Language")=Trim(Request.Form("Language"))
	   rs("System")=trim(request.form("System"))
	   rs("Rank")=trim(request.form("Rank"))
	   rs("SoftType")=trim(request.form("SoftType"))
	   if trim(request.form("updateTime"))="yes" then
	   rs("SoftTime")=date()
	   end if
	   rs.update
	   rs.close
	   set rs=nothing
	   msgtitle="保存修改成功"
	   msginfo="<li><a href=""Admin_SoftLink.asp?SoftID="&request.form("SoftID")&""">修改编辑节目的下载地址</a></li>"
	   call Sysmsg(msgtitle,msginfo) 
	end sub 
	
	sub SaveAdd()
      set rs=server.createobject("adodb.recordset")
	  sql="select * from "&CategoryName&"_SoftInfo where (SoftID is null)"
	  rs.open sql,conn,1,3
  	   rs.addnew
	   rs("SoftName")=checkstr(request.form("SoftName"))
	   rs("SoftVer")=checkstr(request.form("SoftVer"))
	   rs("CateID")=trim(request.form("CateID"))
	   rs("SubCateID")=trim(request.form("SubCateID"))
	   rs("Content")=request.form("content")
       rs("Images")=checkstr(trim(request.form("Images")))
	   rs("SoftViewImg")=checkstr(Trim(Request.Form("SoftViewImg")))
	   rs("SoftFrom")=checkstr(trim(request.form("SoftFrom")))
	   rs("LicenceType")=trim(request.form("LicenceType"))
	    if Trim(Request.Form("SizeUnit"))="MB" then
	    rs("SoftSize")=trim(request.form("SoftSize"))*1024
	    else
		rs("SoftSize")=trim(request.form("SoftSize"))
		end if
	   rs("Language")=Trim(Request.Form("Language"))
	   rs("System")=trim(request.form("System"))
	   rs("Rank")=trim(request.form("Rank"))
	   rs("SoftType")=trim(request.form("SoftType"))
	   rs("DayHits")=0
	   rs("DayDate")=Now()
	   rs("WeekHits")=0
	   rs("WeekDate")=Now()
	   rs("MonthHits")=0
	   rs("MonthDate")=Now()
	   rs("AllHits")=0
	   rs("isShow")=1
	   rs("SoftTime")=date()
	   rs("UserName")=UserName
           rs("avgGrade")=50
           rs("EssayNum")=0
	   rs.update
	   pubSoftID=rs("SoftID")	
	   rs.close
	   set rs=nothing
	   sql="update "&CategoryName&"_Cate set CateNum=CateNum+1 where CateId=" & trim(request.form("CateID"))
	  conn.execute sql
	   sql="update "&CategoryName&"_SubCate set SubCateNum=SubCateNum+1 where SubCateId=" & trim(request.form("SubCateID"))
	  conn.execute sql	  
	   msgtitle="添加节目成功"
	   msginfo="<li><a href=""Admin_SoftLink.Asp?SoftID="&pubSoftID&""">添加节目下载地址</a></li>"
	   call Sysmsg(msgtitle,msginfo)
	end sub
  
sub myform(isEdit)
 set rs=server.createobject("adodb.recordset")

     sql = "select * from "&CategoryName&"_SubCate order by subcateid asc"
     rs.open sql,conn,1,1
%> <SCRIPT language = "JavaScript">
    var onecount;
12 3 下一页
⌨️ 快捷键说明

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