user_soft.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

	<%Next%>
	<tr class="tdbg">
		<td colspan="2" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick="CheckAll(this.form)" value="checkbox">选中所有</td>
		<td colspan="7"><% Call InfoManegeOptionBottom("soft") %></td>
	</tr>
</form>
</table>
<%
End Sub

Sub EditMain()
	Dim rsInfo,strCusTom,ShortcutMenu
	Dim sSoftType,sSoftLanguage,sCopyrightType,sOperatingSystem,sAuthor,sKeyword
	strCusTom		= Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
	sSoftType		= Split(strCusTom(0),"$")
	sSoftLanguage	= Split(strCusTom(1),"$")
	sCopyrightType	= Split(strCusTom(2),"$")
	sOperatingSystem= Split(strCusTom(3),"$")
	sAuthor			= Split(strCusTom(4),"$")
	sKeyword		= Split(strCusTom(5),"$")
	if Action="Modify" then
		InfoID			= Cl.GetClng(request("InfoID"))
		if InfoID=0 then Cl.ShowErr("<li>请指定要修改的"&Cl.ChannelItemName&"ID</li>")
		sql="select * from Cl_Soft where InfoID=" & InfoID & ""
		Set rsInfo= Cl.Execute(sql)
		if rsInfo.bof and rsInfo.eof then
			Cl.ShowErr("<li>找不到"&Cl.ChannelItemName&"</li>")
		else
			ClassID	= rsInfo("ClassID")
			set tClass=Cl.Execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster From Cl_Class where ChannelID="&ChannelID&" and ClassID=" & ClassID)
			if tClass.bof and tClass.eof then
				tClass.Close :Set tClass=Nothing
				Cl.ShowErr("<li>找不到指定的栏目</li>")
			else
				ClassName	= tClass(0) : RootID	= tClass(1)
				ParentID	= tClass(2) : Depth		= tClass(3)
				ParentPath	= tClass(4) : ClassMaster= tClass(5) 
				tClass.Close :Set tClass=Nothing
				if Not Cl.TrueChannelPurview_U(1,ChannelID) then
					dim sTempP,IsTruePurview
					sTempP=Split(ParentPath & "," & ClassID,",")
					IsTruePurview=False
					if rsInfo("Status")=1 then
						for i=1 to Ubound(sTempP)
							IsTruePurview = Cl.TrueClassPurview_U(1,ChannelID,sTempP(i))
							if IsTruePurview Then Exit For
						Next
					elseif rsInfo("Editor")=Cl.MemberName then
						IsTruePurview=True
					else
						for i=1 to Ubound(sTempP)
							IsTruePurview = Cl.TrueClassPurview_U(2,ChannelID,sTempP(i))
							if IsTruePurview Then Exit For
						Next
					end if
					if Not IsTruePurview then
						Cl.ShowErr("<li>您无权修改或查看此栏目或资料！</li>")
					end if
				end if
			end if
		end if
		ClassID			= rsInfo("ClassID")
		SpecialID		= rsInfo("SpecialID")
		Prefixion		= rsInfo("Prefixion")
		SoftName		= rsInfo("SoftName")
		SoftVersion		= rsInfo("SoftVersion")
		FontType		= rsInfo("FontType")
		FontColor		= rsInfo("FontColor")
		SoftType		= rsInfo("SoftType")
		SoftLanguage	= rsInfo("SoftLanguage")
		CopyrightType	= rsInfo("CopyrightType")
		OperatingSystem	= rsInfo("OperatingSystem")
		Author			= rsInfo("Author")
		AuthorEmail		= rsInfo("AuthorEmail")
		AuthorHomepage	= rsInfo("AuthorHomepage")
		DemoUrl			= rsInfo("DemoUrl")
		Keyword			= rsInfo("Keyword")
		PicUrl			= rsInfo("PicUrl")
		UseServer		= rsInfo("UseServer")
		FileAddress		= rsInfo("FileAddress")
		DownloadUrls	= rsInfo("DownloadUrl")
		UploadFiles		= rsInfo("UploadFiles")
		SoftSize		= rsInfo("SoftSize")
		SoftPassword	= rsInfo("SoftPassword")
		Intro			= rsInfo("Intro")
		OnTop			= rsInfo("OnTop")
		Hot				= rsInfo("Hot")
		Elite			= rsInfo("Elite")
		Stars			= rsInfo("Stars")
		Hits			= rsInfo("Hits")
		DayHits			= rsInfo("DayHits")
		WeekHits		= rsInfo("WeekHits")
		MonthHits		= rsInfo("MonthHits")
		InfoGroup		= rsInfo("InfoGroup")
		InfoPoint		= rsInfo("InfoPoint")
		InfoMoney		= rsInfo("InfoMoney")
		BackPoint		= rsInfo("BackPoint")
		BackPointRate	= rsInfo("BackPointRate")
		BackMoney		= rsInfo("BackMoney")
		BackMoneyRate	= rsInfo("BackMoneyRate")
		UpdateTime		= rsInfo("UpdateTime")
		Status			= rsInfo("Status")
		rsInfo.close:set rsInfo=Nothing
	else
		ClassID			= Cl.GetClng(Request.Cookies("Soft")("ClassID"))
		SpecialID		= Trim(Request.Cookies("Soft")("SpecialID"))
		Prefixion		= Trim(Request.Cookies("Soft")("Prefixion"))
		SoftName		= ""
		SoftVersion		= ""
		FontType		= Cl.GetClng(Request.Cookies("Soft")("FontType"))
		FontColor		= Trim(Request.Cookies("Soft")("FontColor"))
		SoftType		= Trim(Request.Cookies("Soft")("SoftType"))
		SoftLanguage	= Trim(Request.Cookies("Soft")("SoftLanguage"))
		CopyrightType	= Trim(Request.Cookies("Soft")("CopyrightType"))
		OperatingSystem = Trim(Request.Cookies("Soft")("OperatingSystem"))
		If SoftType="" Then SoftType		= sSoftType(0)
		If SoftLanguage="" Then SoftLanguage	= sSoftLanguage(0)
		If CopyrightType="" Then CopyrightType	= sCopyrightType(0)
		If OperatingSystem="" Then 
			dim ii
			ii=ubound(sOperatingSystem)
			if ii>3 then ii=3
			if ii>-1 then OperatingSystem = sOperatingSystem(0)
			if ii>0 then
				for i=1 to ii
					OperatingSystem = OperatingSystem & "/"&sOperatingSystem(i)
				next
			end If
		End If
		Author			= Trim(Request.Cookies("Soft")("Author"))
		If Author = "" Then Author = sAuthor(0)
		AuthorEmail		= Trim(Request.Cookies("Soft")("AuthorEmail"))
		AuthorHomepage	= Trim(Request.Cookies("Soft")("AuthorHomepage"))
		DemoUrl			= Trim(Request.Cookies("Soft")("DemoUrl"))
		Keyword			= Trim(Request.Cookies("Soft")("Keyword"))
		If Keyword="" Then Keyword = sKeyword(0)
		PicUrl			= ""
		UseServer		= Cl.GetCbool(Request.Cookies("Soft")("UseServer"))
		FileAddress		= ""
		DownloadUrls	= ""
		UploadFiles		= ""
		SoftSize		= 0
		SoftPassword	=""
		Intro			= ""
		OnTop			= False
		Hot				= False
		Elite			= False
		Stars			= 3
		Hits			= 0
		DayHits			= 0
		WeekHits		= 0
		MonthHits		= 0
		InfoGroup		= Trim(Request.Cookies("Soft")("InfoGroup"))
		If InfoGroup="" Then InfoGroup = "5"
		InfoPoint		= Cl.GetClng(Request.Cookies("Soft")("InfoPoint"))
		InfoMoney		= Cl.GetClng(Request.Cookies("Soft")("InfoMoney"))
		BackPoint		= Cl.GetClng(Request.Cookies("Soft")("BackPoint"))
		BackPointRate	= Cl.GetClng(Request.Cookies("Soft")("BackPointRate"))
		BackMoney		= Cl.GetClng(Request.Cookies("Soft")("BackMoney"))
		BackMoneyRate	= Cl.GetClng(Request.Cookies("Soft")("BackMoneyRate"))
		UpdateTime		= Now()
		Status			= 1
	end if
%>
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
	document.myform.Intro.value=editor.Editor.document.body.innerHTML;
	if (document.myform.ClassID.value=="0")
	{
		alert("<%=Cl.ChannelItemName%>所属栏目为外部栏目或您无此栏目添加权限！");
		document.myform.ClassID.focus();
		return false;
	}
	if (document.myform.SoftName.value=="")
	{
		alert("<%=Cl.ChannelItemName%>名称不能为空！");
		document.myform.SoftName.focus();
		return false;
	}
	if (document.myform.Author.value=="")
	{
		alert("<%=Cl.ChannelItemName%>作者/开发商不能为空！");
		document.myform.Author.focus();
		return false;
	}
	if (document.myform.OperatingSystem.value=="")
	{
		alert("系统平台不能为空！");
		document.myform.OperatingSystem.focus();
		return false;
	}
	if (document.myform.Keyword.value=="")
	{
		alert("关键字不能为空！");
		document.myform.Keyword.focus();
		return false;
	}
	if (document.myform.Intro.value=="")
	{
		alert("<%=Cl.ChannelItemName%>简介不能为空！");
		editor.Editor.focus();
		return false;
	}
	if (document.myform.UseServer.checked==true)
	{
		if(document.myform.FileAddress.value=="")
		{
			alert("<%=Cl.ChannelItemName%>文件地址不能为空！");
			document.myform.FileAddress.focus();
			return false;
		}
	}
	else
	{
		if(document.myform.DownloadUrl.length==0)
		{
			alert("<%=Cl.ChannelItemName%>下载地址不能为空，最少要添加一条下载地址！");
			document.myform.DownloadUrl.focus();
			return false;
		}
		for(var i=0;i<document.myform.DownloadUrl.length;i++){
			if (document.myform.DownloadUrls.value=="") document.myform.DownloadUrls.value=document.myform.DownloadUrl.options[i].value;
			else document.myform.DownloadUrls.value+="@@@"+document.myform.DownloadUrl.options[i].value;
		}
	}
	for(var i=0;i<document.myform.TempUploadFiles.length;i++){
		if (document.myform.UploadFiles.value=="") document.myform.UploadFiles.value=document.myform.TempUploadFiles.options[i].value;
		else document.myform.UploadFiles.value+="@@@"+document.myform.TempUploadFiles.options[i].value;
	}
	return true;
}
</script>
<form action="User_Soft.asp" method="post" name="myform" target="_self" id="myform" onsubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
	<tr class="title">
	  <td height="22" align="center" colspan="4"><b><%if Action="Modify" then%>修改<%else%>添加<%end if%><%=Cl.ChannelItemName%></b></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" align="right"><strong>所属栏目：</strong></td>
		<td colspan="3">
			<select name="ClassID" style="width:200px;">
			<option value="0" selected="selected">请选择<%=Cl.ChannelItemName%>栏目</option>
			<%=ShowClass_Option(ChannelID,ClassID,0,1)%>
			</select>&nbsp;&nbsp;
			<font color="#FF0000"><strong>注意：</strong></font><font color="#0000FF">不能指定为外部栏目</font>
			&nbsp;&nbsp;
			<%if Action="Add" then%>
			<input type="checkbox" id="IsShowSpecial" onclick="chkShowSpecial();"> 指定专题
			<%end if%>
		</td>
	</tr>
	<tr class="tdbg" <%If Action="Add" Then Response.write " style='display:none;'"%> id="ShowSpecial">
		<td width="100" align="right"><strong>所属专题：</strong></td>
		<td colspan="2">
		<select name="SpecialID" id="SpecialID" multiple style="height:90px;width:200px;">
		<%=ShowSpecial_Option(ChannelID,SpecialID,1)%>
		</select>&nbsp;&nbsp
		  <font color="#FF0000"><strong>说明：</strong></font><font color="#0000FF">按“Shift”“Ctrl”可多选</font>
		</td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" align="right"><strong><%=Cl.ChannelItemName%>名称：</strong></td>
		<td colspan="3"><input name="SoftName" type="text" id="SoftName" value="<%=SoftName%>" size="80" maxlength="250" />
		<font color="#FF0000">*</font>&nbsp;<select name="FontType" id="FontType" onChange="updateTitleFont('SoftName');">
			<option value="0">字 形</option>
			<option value="0">规 则</option>
			<option value="1" <%if FontType=1 then response.write " selected"%>>粗 体</option>
			<option value="2" <%if FontType=2 then response.write " selected"%>>斜 体</option>
			<option value="3" <%if FontType=3 then response.write " selected"%>>粗+斜</option>
		  </select>&nbsp;
		  <input name="FontColor" type="hidden" id="FontColor" value="<%=FontColor%>" size="10" onclick="Getcolor(ColorBG,'FontColor');updateTitleFont('SoftName');" readonly="Readonly" /> 
		  <img border="0" src="../images/Gcolor.gif" style="cursor:pointer;background-Color:<%=FontColor%>;" onclick="Getcolor(this,'FontColor');updateTitleFont('SoftName');" title="选取标题颜色!" align="absmiddle" id="ColorBG" />&nbsp;
		  <script type="text/javascript">updateTitleFont('SoftName')</script>
		</td>
	</tr>
	<tr class="tdbg"<%=CheckUse("1",Cl.Channel.selectSingleNode("@disableitem").text)%>> 
		<td width="100" align="right"></td>
		<td colspan="3"><strong>版本：</strong><input name="SoftVersion" type="text" id="SoftVersion" size="30" maxlength="100" value="<%=SoftVersion%>" />
		&nbsp;
		  <input name="Check" type="button" id="Check" value="检测名称" onclick="CheckTitle('SoftName','<%=ChannelID%>');" /></td>