newstar - 2008-7-7 10:15:00
附件: 您所在的用户组无法下载或查看附件版本：FooSun V4.0 SP5
涉及页面：
\Admin\Label\FL_C_label.asp
\FS_InterFace\Other_Public.asp
修改：\Admin\Label\FL_C_label.asp
图片友情连接 108行
<tr>
<td class="hback"><div align="right">输出格式</div></td>
<td class="hback">
<select name="out_char" id="out_char" >
<option value="out_Table">普通格式</option>
<option value="out_DIV">DIV+CSS格式</option>
</select></td>
</tr>
<tr>
<td class="hback"><div align="right">排序</div></td>
<td class="hback">
<select name="orderby" id="orderby" >
<option value="AddTime">时 间</option>
<option value="F_OrderID">权 重</option>
<option value="ID">ID</option>
</select>
<select name="orderstr" id="orderstr" >
<option value="desc">降序</option>
<option value="asc">升序</option>
</select></td>
</tr>
169行
retV+='打开窗口$' + obj.Openstyle.value ;
retV+='┆排序$' + obj.orderby.value+ ','+ obj.orderstr.value ;
文字友情连接 225行（上一步修改后）
<tr>
<td class="hback"><div align="right">输出格式</div></td>
<td class="hback">
<select name="out_char" id="out_char" >
<option value="out_Table">普通格式</option>
<option value="out_DIV">DIV+CSS格式</option>
<option value="out_free">自由格式</option>
</select></td>
</tr>
<tr>
<td class="hback"><div align="right">排序</div></td>
<td class="hback">
<select name="orderby" id="orderby" >
<option value="AddTime">时 间</option>
<option value="F_OrderID">权 重</option>
<option value="ID">ID</option>
</select>
<select name="orderstr" id="orderstr" >
<option value="desc">降序</option>
<option value="asc">升序</option>
</select></td>
</tr>
286行
retV+='打开窗口$' + obj.Openstyle.value ;
retV+='┆排序$' + obj.orderby.value+ ','+ obj.orderstr.value ;
\FS_InterFace\Other_Public.asp 38行
case "picfl"
if ubound(f_array)<>14 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=PicFL(f_Lablechar,"picfl"):end if
case "wordfl"
if ubound(f_array)<>14 then:get_LableChar="标签错误,by Foosun.cn":else:get_LableChar=WordFL(f_Lablechar,"wordfl"):end if
'调用图片友情连接 下
Dim ClassSql,openstyle,f_openstyle
Dim OrderbyStr
table_array=split(f_Lablechar,"┆")
CodeNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
siteName = split(split(f_Lablechar,"┆")(2),"$")(1)
colsNumber = split(split(f_Lablechar,"┆")(3),"$")(1)
pizsize = split(split(f_Lablechar,"┆")(4),"$")(1)
Select_class_pic= Trim(split(split(f_Lablechar,"┆")(12),"$")(1))
openstyle=split(split(f_Lablechar,"┆")(13),"$")(1)
OrderbyStr=replace(split(split(f_Lablechar,"┆")(14),"$")(1),","," ")
set rs = Conn.execute("select top "&CodeNumber&" id,ClassID,F_Name,F_PicUrl,F_Url From FS_FL_FrendList where F_Lock=0 and F_Type=0" & ClassSql & " order by "&OrderbyStr&"")'显示指定类别的连接或显示所有类别下的连接
'文字友情连接 下
dim CodeNumber,TitleCSS,colsNumber,pizsize,rs,lefttitle,Select_class_word,ClassSql,openstyle,f_openstyle
Dim OrderbyStr
table_array=split(f_Lablechar,"┆")
CodeNumber = split(split(f_Lablechar,"┆")(1),"$")(1)
colsNumber = split(split(f_Lablechar,"┆")(2),"$")(1)
lefttitle = split(split(f_Lablechar,"┆")(4),"$")(1)
Select_class_word=split(split(f_Lablechar,"┆")(12),"$")(1)
openstyle=split(split(f_Lablechar,"┆")(13),"$")(1)
OrderbyStr=replace(split(split(f_Lablechar,"┆")(14),"$")(1),","," ")
If CodeNumber="" Then CodeNumber=0
set rs = Conn.execute("select top "&CodeNumber&" ClassID,F_Name,F_Url From FS_FL_FrendList where F_Lock=0 and F_Type=1 "&ClassSql&" order by "&OrderbyStr&"")'显示指定类别的连接或显示没有类别时的所有连接