user_photo.asp

正版创力4.1SQL商业版!!!ASP版。

			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")
		PhotoName		= rsInfo("PhotoName")
		Keyword			= rsInfo("Keyword")
		Author			= rsInfo("Author")
		AuthorEmail		= rsInfo("AuthorEmail")
		AuthorHomepage	= rsInfo("AuthorHomepage")
		PicUrl			= rsInfo("PicUrl")
		PhotoUrl		= rsInfo("PhotoUrl")
		UploadFiles		= rsInfo("UploadFiles")
		Intro			= rsInfo("Intro")
		OnTop			= rsInfo("OnTop")
		Hot				= rsInfo("Hot")
		Elite			= rsInfo("Elite")
		IsDownLoad		= rsInfo("IsDownLoad")
		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("Photo")("ClassID"))
		SpecialID		= Trim(Request.Cookies("Photo")("SpecialID"))
		Prefixion		= Trim(Request.Cookies("Photo")("Prefixion"))
		PhotoName		= ""
		Keyword			= Trim(Request.Cookies("Photo")("Keyword"))
		If Keyword="" Then Keyword = sKeyword(0)
		Author			= Trim(Request.Cookies("Photo")("Author"))
		If Author = "" Then Author = sAuthor(0)
		AuthorEmail		= Trim(Request.Cookies("Photo")("AuthorEmail"))
		AuthorHomepage	= Trim(Request.Cookies("Photo")("AuthorHomepage"))
		PicUrl			= ""
		PhotoUrl		= ""
		UploadFiles		= ""
		Intro			= ""
		OnTop			= False
		Hot				= False
		Elite			= False
		IsDownLoad		= False
		Stars			= 3
		Hits			= 0
		DayHits			= 0
		WeekHits		= 0
		MonthHits		= 0
		InfoGroup		= Trim(Request.Cookies("Photo")("InfoGroup"))
		If InfoGroup="" Then InfoGroup = "5"
		InfoPoint		= Cl.GetClng(Request.Cookies("Photo")("InfoPoint"))
		InfoMoney		= Cl.GetClng(Request.Cookies("Photo")("InfoMoney"))
		BackPoint		= Cl.GetClng(Request.Cookies("Photo")("BackPoint"))
		BackPointRate	= Cl.GetClng(Request.Cookies("Photo")("BackPointRate"))
		BackMoney		= Cl.GetClng(Request.Cookies("Photo")("BackMoney"))
		BackMoneyRate	= Cl.GetClng(Request.Cookies("Photo")("BackMoneyRate"))
		UpdateTime		= Now()
		Status			= 1
	end if
%>
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
	if (document.myform.ClassID.value=="0")
	{
		alert("<%=Cl.ChannelItemName%>所属栏目为外部栏目或您无此栏目添加权限！");
		document.myform.ClassID.focus();
		return false;
	}
	if (document.myform.PhotoName.value=="")
	{
		alert("<%=Cl.ChannelItemName%>名称不能为空！");
		document.myform.PhotoName.focus();
		return false;
	}
	if (document.myform.Keyword.value=="")
	{
		alert("关键字不能为空！");
		document.myform.Keyword.focus();
		return false;
	}
	if (document.myform.PicUrl.value=="")
	{
		alert("缩略图地址不能为空！");
		document.myform.PicUrl.focus();
		return false;
	}
	if (document.myform.PhotoUrl.length==0)
	{
		alert("<%=Cl.ChannelItemName%>地址不能为空！");
		document.myform.PhotoUrl.focus();
		return false;
	}
	for(var i=0;i<document.myform.PhotoUrl.length;i++){
		if (document.myform.PhotoUrls.value=="") document.myform.PhotoUrls.value=document.myform.PhotoUrl.options[i].value;
		else document.myform.PhotoUrls.value+="@@@"+document.myform.PhotoUrl.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_Photo.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="3"><strong><%if Action="Modify" then%>修改<%else%>添加<%end if%><%=Cl.ChannelItemName%></strong></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" align="right"><strong>所属栏目：</strong></td>
		<td colspan="2">
			<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="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="2"><input name="PhotoName" type="text" id="PhotoName" value="<%=PhotoName%>" size="65" maxlength="250" /> 
		  <font color="#FF0000">*</font>&nbsp;<select name="FontType" id="FontType" onChange="updateTitleFont('PhotoName');">
			<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('PhotoName');" readonly="Readonly" /> 
		  <img border="0" src="../images/Gcolor.gif" style="cursor:pointer;background-Color:<%=FontColor%>;" onclick="Getcolor(this,'FontColor');updateTitleFont('PhotoName');" title="选取标题颜色!" align="absmiddle" id="ColorBG" />&nbsp;
		  <script type="text/javascript">updateTitleFont('PhotoName')</script>&nbsp;<input name="Check" type="button" id="Check" value="检测名称" onClick="CheckTitle('PhotoName','<%=ChannelID%>');" /></td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" align="right"><strong>关 键 字：</strong></td>
		<td colspan="2"><input name="Keyword" type="text" id="Keyword" value="<%=Keyword%>" size="80" maxlength="255" /> 
		<font color="#FF0000">*</font>&nbsp;&nbsp;<a onclick="SelectCustom('Keyword',<%=ChannelID%>,0,1)" style="cursor:hand;"><font color="#66666">Select...</font></a><br /> 
		  <font color="#0066cc">用来查找相关<%=Cl.ChannelItemName%>，可输入多个关键字，中间用<font color="#FF6600">“|”</font>隔开。不能出现&quot;&quot;'*?,.()等字符。</font></td>
	</tr>
	<tr class="tdbg"<%=CheckUse("1",Cl.Channel.selectSingleNode("@disableitem").text)%>> 
		<td width="100" align="right"><strong><%=Cl.ChannelItemName%>作者：</strong></td>
		<td colspan="2"><strong>姓名：</strong><input name="Author" type="text" id="Author" size="30" maxlength="100" value="<%=Author%>" /> &nbsp;&nbsp;<a onclick="SelectCustom('Author',<%=ChannelID%>,1,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>&nbsp;&nbsp;
		  <strong>信箱：</strong><input name="AuthorEmail" type="text" id="AuthorEmail" size="32" maxlength="100" value="<%=AuthorEmail%>" /><br />
		  <strong>主页：</strong><input name="AuthorHomepage" type="text" id="AuthorHomepage" size="72" maxlength="100" value="<%=AuthorHomepage%>" /></td>
	</tr>
	<%=ShowField(Action,InfoID,3)%>
	<tr class="tdbg"> 
		<td width="100" align="right"><strong>缩 略 图：</strong></td>
		<td colspan="2"><input name="PicUrl" type="text" id="PicUrl" size="80" maxlength="200" value="<%=PicUrl%>" onclick="doPreview('PicUrl','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')" />&nbsp;&nbsp;
			 <input type="checkbox" id="IsShowUploadFiles" onclick="chkShowUploadFiles();"> 查看已上传文件
		<br /> 
			<iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=0&Obj=PicUrl&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe></td>
	</tr>
	<tr class="tdbg" id="ShowUploadFiles" style="display:none;"> 
		<td width="100" align="right"><strong>已 上 传：</strong></td>
		<td><select name="TempUploadFiles" style="width:500;height:132" size="2" onclick="doPreview('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')"><%
			dim sUploadFiles
			sUploadFiles = Trim(UploadFiles)
			if Instr(sUploadFiles,"@@@") >0 then
				sUploadFiles = Split(sUploadFiles,"@@@")
				for i=0 to Ubound(sUploadFiles)
			%>
				<option value="<%=sUploadFiles(i)%>"><%=sUploadFiles(i)%></option>
			<%
				Next
			elseif sUploadFiles<>"" then
			%>
			<option value="<%=sUploadFiles%>"><%=sUploadFiles%></option>
			<%end if%></select><br />
			<input type="button" name="SetDefaultPic" value="设为首页图片" onclick="SetPicUrl('TempUploadFiles','PicUrl');" />
			<input type="button" name="InsEditor" value="插入编辑器" onclick="InsertEditor('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>');" />
			<input type="hidden" name="UploadFiles" value="" />
		</td>
		<td width="180">
			<fieldset style="height:100%">
			<legend>预览</legend>
			<table border="0" cellpadding="0" cellspacing="1" width="180" height="150" valign="top">
			<tr><td align="center" valign="middle" id="tdPreview" height="100%">

			</td>
			</tr>
			</table>
			</fieldset>
	  </td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" align="right"><strong><%=Cl.ChannelItemName%>地址：</strong></td>
		<td colspan="2">
			<input type="hidden" name="PhotoUrls" value="" />
			<select name="PhotoUrl" style="width:95%;height:146" size="2" ondblclick="return ModifyUrl('图片地址','PhotoUrl');">
			<%
			dim StrPhotoUrl
			StrPhotoUrl=Trim(PhotoUrl)
			if Instr(StrPhotoUrl,"@@@") >0 then
				StrPhotoUrl=Split(StrPhotoUrl,"@@@")
				for i=0 to Ubound(StrPhotoUrl)
			%>
				<option value="<%=StrPhotoUrl(i)%>"><%=StrPhotoUrl(i)%></option>
			<%
				Next
			ElseIf StrPhotoUrl<>"" then
			%>
			<option value="<%=StrPhotoUrl%>"><%=StrPhotoUrl%></option>
			<%end if%>
			</select> <font color="#FF0000">*</font> <br />
			<input type="button" name="addurl" value="添加<%=Cl.ChannelItemName%>地址" onclick="AddUrl('<%=Cl.ChannelItemName%>地址','PhotoUrl');" />
			<input type="button" name="addurl" value="修改当前地址" onclick="ModifyUrl('<%=Cl.ChannelItemName%>地址','PhotoUrl');" />
			<input type="button" name="addurl" value="删除当前地址" onclick="DelUrl('<%=Cl.ChannelItemName%>地址','PhotoUrl');" />
			<input type="button" name="upurl" value="↑" onclick="UpUrl('<%=Cl.ChannelItemName%>地址','PhotoUrl');" />
		  <input type="button" name="downurl" value="↓" onclick="DownUrl('<%=Cl.ChannelItemName%>地址','PhotoUrl');" /><br />
		  <iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=4&Obj=PhotoUrl&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe>
		</td>
	</tr>
	<tr class="tdbg"> 
		<td width="100" align="right" valign="middle"><strong><%=Cl.ChannelItemName%>简介：</strong></td>
		<td colspan="2"><textarea name="Intro" style="display:none"><%=Intro%></textarea>
		<iframe id="editor" src="../Editor/Editor.asp?id=Intro&style=other&cid=<%=ChannelID%>&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="95%" height="350"></iframe>
		</td>
	</tr>
	<!--
	<tr class="tdbg"> 
		<td width="100" align="right"><strong><%=Cl.ChannelItemName%>属性：</strong></td>
		<td colspan="2"> <input name="OnTop" type="checkbox" id="OnTop" value="yes" <%if OnTop=True then response.write " checked"%> />
		  固顶<%=Cl.ChannelItemName%>&nbsp;&nbsp;&nbsp; <input name="Hot" type="checkbox" id="Hot" value="yes" <%if Hot=True then response.write " checked"%> />
		  热门<%=Cl.ChannelItemName%>&nbsp;&nbsp;&nbsp; <input name="Elite" type="checkbox" id="Elite" value="yes"<%if Elite=True then response.write " checked"%> />
		  推荐<%=Cl.ChannelItemName%>&nbsp;&nbsp;&nbsp; <input name="IsDownLoad" type="checkbox" id="IsDownLoad" value="yes"<%if IsDownLoad=True then response.write " checked"%> />
		  允许下载&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
		  <strong>评分等级：</strong> <select name="Stars" id="Stars">
			<option value="5" <%if Stars=5 then response.write " selected"%>>★★★★★</option>
			<option value="4" <%if Stars=4 then response.write " selected"%>>★★★★</option>
			<option value="3" <%if Stars=3 then response.write " selected"%>>★★★</option>