📄 admin_softinfo.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件配置SendMessages.asp 最后部分的参数
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/CHAR.asp" -->
<!-- #include file="inc/function.asp" -->
<!-- #include file="Create_Soft_View_inc.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(myform)
{

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

	if (myform.catalogid.value == "")
	{
		alert("软件所属分类不能为空！");
		myform.catalogid.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.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=0 onkeydown='if(event.keyCode==13 && event.ctrlKey)myform.submit()'>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
  <tr>
    <td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td> 
    <td  class="b1" valign="top"> 
      <%	
  if cUserName="" then
   msgtitle="添加软件失败"
   msginfo="<li>你没有登录系统。<li><a href=""User.Asp"">点此登录系统</a></li>"
  call Sysmsg(msgtitle,msginfo)  
  else 
  set rs=server.createobject("adodb.recordset")
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  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   
  Set fso=nothing
  set rs=nothing
  end if
  
  sub chkUser(isEdit)
      if isEdit=True then
	     if not chkSoftEdit(cUserName,trim(request("SoftID"))) then
		    msgtitle="修改软件失败"
            msginfo="<li>你没有权限修改他人添加的软件。</li><li>如有问题请联系管理员。</li>"
            call Sysmsg(msgtitle,msginfo)
		 elseif  chkSoftEdit(cUserName,trim(request("SoftID"))) then
		    call myform(isEdit)
		 end if
	  elseif isEdit=False then
	         call myform(isEdit)
	  end if
  end sub
      
sub SaveModify()
	sql="select * from SoftDown_SoftInfo where SoftID="&request.form("SoftID")
	rs.open sql,conn,1,3
	rs("SoftName")=checkstr(request.form("SoftName"))
	rs("SoftVer")=checkstr(request.form("SoftVer"))
	splCatalogID=split(trim(request.form("catalogid")),",")
	rs("RootID")=splCatalogID(0)
	rs("CatalogID")=splCatalogID(1)
	rs("CatalogName")=splCatalogID(2)
	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("Email")=checkstr(trim(request.form("Email")))
	rs("RegURL")=checkstr(trim(request.form("RegURL")))
	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")=Now()
	if Request.Form("isCommend")=1 then rs("isCommend")=1 else rs("isCommend")=0 end if
	if Request.Form("isTop")=1 then rs("isTop")=1 else rs("isTop")=0 end if
	rs.update
	rs.close
	
	dim sply_ID,sply_LinkName,sply_Address,sply_TypeID,sply_Special,sply_UserClass
	dim splLinkName,splAddress,splTypeID,splSpecial,splUserClass,ii
	if Trim(Request.Form("y_ID"))<>"" then
		sply_ID=split(Request.Form("y_ID"),",")
		sply_LinkName=split(Request.Form("y_LinkName"),",")
		sply_Address=split(Request.Form("y_Address"),",")
		sply_TypeID=split(Request.Form("y_TypeID"),",")
		sply_Special=split(Request.Form("y_Special"),",")
		sply_UserClass=split(Request.Form("y_UserClass"),",")
		for ii = 0 to ubound(sply_ID)
		if not (sply_Address(ii)="" or sply_Address(ii)=" ") then
			sql="select * from SoftDown_SoftLink where ID="&sply_ID(ii)
			rs.open sql,conn,1,3
			rs("LinkName")=Trim(sply_LinkName(ii))
	   		rs("Address")=Trim(sply_Address(ii))
			rs("TypeID")=Trim(sply_TypeID(ii))
			rs("Special")=Trim(sply_Special(ii))
			rs("UserClass")=Trim(sply_UserClass(ii))
			rs.update
			rs.close
		end if
		next
	end if
	
	if Request.Form("selID")<>"" then conn.execute("delete from SoftDown_SoftLink where ID in ("&Request.Form("selID")&")")
	   
	if Request.Form("address")<>"" then
		splLinkName=split(Request.Form("LinkName"),",")
		splAddress=split(Request.Form("Address"),",")
		splTypeID=split(Request.Form("TypeID"),",")
		splSpecial=split(Request.Form("Special"),",")
		splUserClass=split(Request.Form("UserClass"),",")
		for iii = 0 to ubound(splAddress)
		if not (splAddress(iii)="" or splAddress(iii)=" ") then
			sql="select * from SoftDown_SoftLink where (ID is null)"
			rs.open sql,conn,1,3
			rs.addnew
			rs("LinkName")=Trim(splLinkName(iii))
			rs("Address")=Trim(splAddress(iii))
			rs("SoftID")=request.form("SoftID")
			rs("Hits")=0
			rs("DateTime")=Now()
			rs("TypeID")=Trim(splTypeID(iii))
			rs("Special")=Trim(splSpecial(iii))
			rs("UserClass")=Trim(splUserClass(iii))
			rs.update
			rs.close
		end if
		next
	end if
	   
	sql="select ID,Header,Footer,SoftView_htm from SoftDown_Template where isActive=true"
	isTemplate=false
	rs.open sql,conn,1,1 
	if not(rs.eof and rs.bof) then
		HtmlTemplate=rs("Header")&rs("SoftView_htm")&rs("Footer")
		isTemplate=true
	end if
	rs.close
	if isTemplate then msginfo=Create_SoftView(request("SoftID"),HtmlTemplate)	
	
	sql="update SoftDown_Catalog set isUpdate=1 where CatalogId=" & splCatalogID(1)
	if trim(request.form("updateTime"))="yes" then conn.execute sql
	sql="update SoftDown_Catalog set isUpdate=1 where CatalogId=" & splCatalogID(0)
	if trim(request.form("updateTime"))="yes" then conn.execute sql	
	
	msgtitle="保存修改成功"
	msginfo=msginfo&"<li><a href=""Admin_SoftInfo.asp"">接着继续添加新软件</a></li>"
	msginfo=msginfo&"<li><a href=""Admin_SoftInfo.asp?CatalogID="&splCatalogID(1)&""">继续在分类："&splCatalogID(2)&"中添加新软件</a></li>"
	call Sysmsg(msgtitle,msginfo) 
end sub 
	
sub SaveAdd()
	sql="select * from SoftDown_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"))
	splCatalogID=split(trim(request.form("catalogid")),",")
	rs("RootID")=splCatalogID(0)
	rs("CatalogID")=splCatalogID(1)
	rs("CatalogName")=splCatalogID(2)
	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("Email")=checkstr(trim(request.form("Email")))
	rs("RegURL")=checkstr(trim(request.form("RegURL")))
	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 Request.Form("isCommend")=1 then rs("isCommend")=1 else rs("isCommend")=0 end if
	if Request.Form("isTop")=1 then rs("isTop")=1 else rs("isTop")=0 end if
	rs("DayHits")=0
	rs("DayDate")=Now()
	rs("WeekHits")=0
	rs("WeekDate")=Now()
	rs("MonthHits")=0
	rs("MonthDate")=Now()
12 3 下一页
⌨️ 快捷键说明

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