开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
All_Label_style.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：33k
源码类别：

数据库编程

开发平台：

ASP/ASPX

All_Label_style.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="../../FS_InterFace/HS_Function.asp" -->
  7. <!--#include file="../../FS_InterFace/AP_Function.asp" -->
  8. <%
  9. Response.Buffer = True
  10. Response.Expires = -1
  11. Response.ExpiresAbsolute = Now() - 1
  12. Response.Expires = 0
  13. Response.CacheControl = "no-cache"
  14. Dim Conn,obj_Label_Rs,SQL,strShowErr,str_CurrPath,sRootDir
  15. MF_Default_Conn
  16. 'session判断
  17. MF_Session_TF 
  18. Dim str_StyleName,txt_Content,Labelclass_SQL,obj_Labelclass_rs,obj_Count_rs
  19. Dim Label_Sub
  20. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  21. if Session("Admin_Is_Super") = 1 then
  22. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  23. Else
  24. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  25. End if
  26. Label_Sub = NoSqlHack(Request.QueryString("Label_Sub"))
  27. str_StyleName = Trim(Request.Form("StyleName"))
  28. txt_Content = Trim(Request.Form("TxtFileds"))
  29. 'txt_Content = replace(txt_Content,"{DS_","{DS:")
  30. if Request.Form("Action") = "Add_save" then
  31. if str_StyleName ="" or txt_Content ="" then
  32. strShowErr = "<li>请填写完整</li>"
  33. Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  34. Response.end
  35. end if
  36. set obj_Count_rs = server.CreateObject(G_FS_RS)
  37. obj_Count_rs.Open "Select StyleName,Content,AddDate from FS_MF_Labestyle Order by id desc",Conn,1,3
  38. if Not obj_Count_rs.eof then
  39. if obj_Count_rs.recordcount>50 then
  40. strShowErr = "<li>您建立的样式已经超过50个。你将不能再增加n如果需要增加，请删除部分样式</li>"
  41. Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=All_Label_style.asp?Action=Add&Label_Sub="&Request.Form("Label_Sub")&"")
  42. Response.end
  43. end if
  44. end if
  45. Labelclass_SQL = "Select StyleName,Content,AddDate,StyleType from FS_MF_Labestyle where StyleName ='"& str_StyleName &"'"
  46. Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
  47. obj_Labelclass_rs.Open Labelclass_SQL,Conn,1,3
  48. if obj_Labelclass_rs.eof then
  49. obj_Labelclass_rs.addnew
  50. obj_Labelclass_rs("StyleName") = str_StyleName
  51. obj_Labelclass_rs("content") = txt_Content
  52. obj_Labelclass_rs("AddDate") =now
  53. obj_Labelclass_rs("StyleType") =Request.Form("Label_Sub")
  54. obj_Labelclass_rs.update
  55. else
  56. strShowErr = "<li>此样式名称重复,请重新输入</li>"
  57. Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  58. Response.end
  59. end if
  60. obj_Labelclass_rs.close:set obj_Labelclass_rs =nothing
  61. strShowErr = "<li>添加成功</li>"
  62. Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=Label/All_Label_style.asp?Label_Sub="& Request.Form("Label_Sub")&"")
  63. Response.end
  64. elseif Request.Form("Action") = "Add_edit" then
  65. Labelclass_SQL = "Select StyleName,Content,AddDate from FS_MF_Labestyle where id ="& NosqlHack(Request.Form("ID")) 
  66. Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
  67. obj_Labelclass_rs.Open Labelclass_SQL,Conn,1,3
  68. if not obj_Labelclass_rs.eof then
  69. obj_Labelclass_rs("StyleName") = str_StyleName
  70. obj_Labelclass_rs("content") = txt_Content
  71. 'obj_Labelclass_rs("AddDate") =now
  72. obj_Labelclass_rs.update
  73. End if
  74. obj_Labelclass_rs.close:set obj_Labelclass_rs =nothing
  75. strShowErr = "<li>修改成功</li>"
  76. Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=Label/All_Label_style.asp?Label_Sub="& Request.Form("Label_Sub")&"")
  77. Response.end
  78. end if
  79. if Request.QueryString("DelTF")="1" then
  80. Conn.execute("Delete From FS_MF_Labestyle where StyleType='"& Request.QueryString("Label_Sub")&"' and id="&NoSqlHack(Request.QueryString("id")))
  81. strShowErr = "<li>删除成功</li>"
  82. Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=Label/All_Label_style.asp?Label_Sub="& Request.Form("Label_Sub")&"")
  83. Response.end
  84. end if
  85. %>
  86. <html>
  87. <head>
  88. <title>标签管理</title>
  89. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  90. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  91. </head>
  92. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  93. <script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
  94. <script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
  95. <script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
  96. <body>
  97. <table width="98%" height="81" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  98. <tr class="hback" >
  99. <td width="100%" height="20"  align="Left" class="xingmu">引用样式管理</td>
  100. </tr>
  101. <tr class="hback" >
  102. <td class="hback" align="center">
  103. <div align="left"><a href="../Templets_List.asp">模板管理</a>
  104. <%
  105. if Request.QueryString("TF") = "NS" then
  106. Response.Write("┆<a href=News_Label.asp target=_self>返回标签管理</a>") 
  107. elseif Request.QueryString("TF") = "DS" then
  108. Response.Write("┆<a href=Down_Label.asp target=_self>返回标签管理</a>") 
  109. elseif Request.QueryString("TF") = "SD" then
  110. Response.Write("┆<a href=supply_Label.asp target=_self>返回标签管理</a>") 
  111. elseif Request.QueryString("TF") = "HS" then
  112. Response.Write("┆<a href=House_Label.asp target=_self>返回标签管理</a>") 
  113. elseif Request.QueryString("TF") = "AP" then
  114. Response.Write("┆<a href=job_Label.asp target=_self>返回标签管理</a>") 
  115. elseif Request.QueryString("TF") = "MS" then
  116. Response.Write("┆<a href=Mall_Label.asp target=_self>返回</a>") 
  117. else
  118. Response.Write("") 
  119. end if
  120. %>
  121. ┆<a href="All_Label_Style.asp" target="_self">所有样式</a> <a href="../../help?Label=MF_Label_style" target="_blank" style="cursor:help;"><img src="../Images/_help.gif" width="50" height="17" border="0"></a></div>
  122. </td>
  123. </tr>
  124. <tr class="hback" >
  125. <td valign="top" class="hback"><strong>分类:</strong> <a href="All_Label_style.asp?Label_Sub=NS" title="浏览 新闻系统 标签引用样式" target="_self">新闻系统</a><a href="All_Label_Style.asp?Action=Add&Label_Sub=NS" title="创建 新闻系统 标签引用样式" target="_self"><img src="../Images/addstyle.gif" border="0"></a> <a href="All_Label_style.asp?Label_Sub=DS" title="浏览 下载系统 标签引用样式" target="_self">下载系统</a><a href="All_Label_Style.asp?Action=Add&Label_Sub=DS" title="创建 下载系统 标签引用样式" target="_self"><img src="../Images/addstyle.gif" border="0"></a> <%if Request.Cookies("FoosunSUBCookie")("FoosunSUBSD")=1 then%><a href="All_Label_style.asp?Label_Sub=SD" title="浏览 供求系统 标签引用样式" target="_self">供求系统</a><a href="All_Label_Style.asp?Action=Add&Label_Sub=SD" title="创建 供求系统 标签引用样式" target="_self"><img src="../Images/addstyle.gif" border="0"></a><%end if%> <%if Request.Cookies("FoosunSUBCookie")("FoosunSUBHS")=1 then%><a href="All_Label_style.asp?Label_Sub=HS" title="浏览 房产楼盘 标签引用样式" target="_self">房产楼盘</a><a href="All_Label_Style.asp?Action=Add&Label_Sub=HS" title="创建 房产楼盘 标签引用样式" target="_self"><img src="../Images/addstyle.gif" border="0"></a><%end if%><%if Request.Cookies("FoosunSUBCookie")("FoosunSUBAP")=1 then%> <a href="All_Label_style.asp?Label_Sub=AP" title="浏览 招聘求职 标签引用样式" target="_self">招聘求职</a><a href="All_Label_Style.asp?Action=Add&Label_Sub=AP" title="创建 招聘求职 标签引用样式" target="_self"><img src="../Images/addstyle.gif" border="0"></a><%End if%> <%if Request.Cookies("FoosunSUBCookie")("FoosunSUBMS")=1 then%><a href="All_Label_style.asp?Label_Sub=MS" title="浏览 商城B2C 标签引用样式" target="_self">商城B2C</a><a href="All_Label_Style.asp?Action=Add&Label_Sub=MS" title="创建 商城B2C 标签引用样式" target="_self"><img src="../Images/addstyle.gif" border="0"></a><%end if%> </td>
  126. </tr>
  127. </table>
  128. <%
  129.   Select Case Request.QueryString("Action")
  130.    Case "Add"
  131. Call Add()
  132. Case "Add_Save"
  133. Call Add_Save()
  134. Case else
  135. Call Main()
  136. End Select
  137. Sub Main()
  138. %>
  139. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  140. <%dim tmp_Label_Sub
  141. Set obj_Label_Rs = server.CreateObject(G_FS_RS)
  142. if trim(Label_Sub) <>"" then:tmp_Label_Sub = "and StyleType='"& Label_Sub &"'":else:tmp_Label_Sub = "":end if
  143. SQL = "Select  ID,StyleName,LoopContent,Content,AddDate,StyleType  from FS_MF_Labestyle where id>0 "& tmp_Label_Sub &" Order by id desc"
  144. obj_Label_Rs.Open SQL,Conn,1,3
  145. do while Not obj_Label_Rs.eof
  146. %>
  147. <tr class="hback">
  148. <td width="37%" class="hback">· <a href="All_Label_style.asp?Action=Add&type=edit&id=<%= obj_Label_Rs("id")%>&Label_Sub=<%= obj_Label_Rs("StyleType")%>"  target="_self">
  149. <% = obj_Label_Rs("StyleName") %>
  150. </a></td>
  151. <td width="31%" class="hback"   id=item$pval[CatID]) style="CURSOR: hand"  onmouseup="opencat(Label<%=obj_Label_Rs("ID")%>);"  language=javascript>引用样式查看</td>
  152. <td width="16%">
  153. <% = obj_Label_Rs("StyleType")%>
  154. </td>
  155. <td width="16%"><a href="All_Label_style.asp?id=<%=obj_Label_Rs("ID")%>&Label_Sub=<%=obj_Label_Rs("StyleType")%>&DelTF=1" onClick="{if(confirm('确定删除此引用样式吗？')){return true;}return false;}">删除</a></td>
  156. </tr>
  157. <tr id="Label<%=obj_Label_Rs("ID")%>" style="display:none"  class="hback">
  158. <td height="42" colspan="4"  class="hback">
  159. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  160. <tr>
  161. <td height="48" class="hback">
  162. <%
  163. Dim regEx,result
  164. Set regEx = New RegExp '
  165. regEx.Pattern = "<img(.+?)>" '  
  166. regEx.IgnoreCase = false ' 
  167. regEx.Global = True '  
  168. result = regEx.replace(obj_label_Rs("Content"),"<img src='../images/default.png'/>") 
  169. Response.Write(result)
  170.   %>
  171. </td>
  172. </tr>
  173. </table>
  174. </td>
  175. </tr>
  176. <%
  177. obj_Label_Rs.movenext
  178. Loop
  179. obj_Label_Rs.close:set obj_Label_Rs = nothing
  180. %>
  181. <tr  class="hback">
  182. <td height="21" colspan="4"  class="hback"><span class="tx">点击样式标题修改样式</span> </td>
  183. </tr>
  184. </table>
  185. <div align="center"></div>
  186. <p>
  187. <%
  188. End Sub
  189. %>
  190. <%
  191.   Sub Add()
  192.      dim str_id,tmp_id,tmp_StyleName,tmp_Content,tmp_Action
  193.   str_id = NoSqlHack(Request.QueryString("id"))
  194.   if Request.QueryString("type")="edit" then
  195. Set obj_Label_Rs = server.CreateObject(G_FS_RS)
  196. obj_Label_Rs.Open "Select  ID,StyleName,LoopContent,Content,AddDate,StyleType  from FS_MF_Labestyle where id="& str_id &"",Conn,1,3
  197.    tmp_id = obj_Label_Rs("id")
  198. tmp_StyleName = obj_Label_Rs("StyleName")
  199. tmp_Content = obj_Label_Rs("Content")
  200. tmp_Action = "Add_edit"
  201.   Else
  202.    tmp_id = ""
  203. tmp_StyleName = ""
  204. tmp_Content = ""
  205. tmp_Action = "Add_save"
  206.   End if
  207. %>
  208. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  209. <tr class="xingmu">
  210. <td colspan="2" class="xingmu"><a name="Add" id="Add"></a>创建标签引用样式(最多允许建立50个样式)</td>
  211. </tr>
  212. <form name="Label_Form" method="post" action="" target="_self" onSubmit="return Label_Form_sumit(this);">
  213. <tr class="hback">
  214. <td width="13%">
  215. <div align="right"> 样式名称</div>
  216. </td>
  217. <td width="87%">
  218. <input name="StyleName" type="text" id="StyleName" size="40" value="<% = tmp_StyleName %>">
  219. <input name="id" type="hidden" id="id" value="<% = tmp_id %>">
  220. </td>
  221. </tr>
  222. <tr class="hback">
  223. <td>
  224. <div align="right">插入字段</div>
  225. </td>
  226. <td>
  227. <%
  228. Dim Label_Sub
  229. Label_Sub = NoSqlHack(Request.QueryString("Label_Sub"))
  230. select case Label_Sub
  231. case "NS"
  232. Call NS_select()
  233. case "DS"
  234. Call DS_select()
  235. case "SD"
  236. Call SD_select()
  237. case "HS"
  238. Call HS_select()
  239. case "AP"
  240. Call AP_select()
  241. case "MS"
  242. Call MS_select()
  243. case else
  244. Call NS_select()
  245. end select
  246. %>
  247. </tr>
  248. <tr class="hback" <%if request.QueryString("Label_Sub")<>"DS" then response.Write("style=""display:'none';""") else response.Write("style=""display:'';"" ") end if%>> </tr>
  249. <tr class="hback">
  250. <td>
  251. <div align="right">样式内容</div>
  252. </td>
  253. <td>
  254. <!--编辑器开始-->
  255. <pre id="idTemporary" name="idTemporary" style="display:none"><%=Server.HTMLEncode(tmp_Content)%></pre>
  256. <script language="JavaScript">
  257. <!--
  258. var FS_Edit1 = new InnovaEditor("FS_Edit1");
  259. FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_ADMIN_DIR %>/CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',670,450)";
  260. FS_Edit1.width="100%";
  261. FS_Edit1.height="280";
  262. FS_Edit1.btnFlash=true;
  263. FS_Edit1.btnMedia=true;        
  264. FS_Edit1.btnCustomTag=true;
  265. FS_Edit1.btnHTMLSource=true;
  266. FS_Edit1.btnXHTMLSource=false;
  267. FS_Edit1.arrCustomTag=[["Fs:Page","[FS:PAGE]"]];
  268. FS_Edit1.RENDER($("idTemporary").innerHTML);
  269. //-->
  270. </script>
  271. <textarea name="TxtFileds" style="display:none" ></textarea>
  272. <!--编辑器结束-->
  273. </td>
  274. </tr>
  275. <tr class="hback">
  276. <td>&nbsp;</td>
  277. <td><span class="tx">特别提醒。对于高级技术人员（对html相当熟悉的人员），你可以在标签引用样式里随心所欲的写html样式，达到灵活处理前台页面的效果；对于对html不太熟悉的人员，请查看帮助文档或者插入简单的标签样式就可以！</span></td>
  278. </tr>
  279. <tr class="hback">
  280. <td>&nbsp;</td>
  281. <td>
  282. <%
  283.  if tmp_Action = "Add_save" then
  284. dim obj_Count_rs_1,tmp_str,tmp_display
  285. Set obj_Count_rs_1 = server.CreateObject(G_FS_RS)
  286. obj_Count_rs_1.Open "Select StyleName,Content,AddDate from FS_MF_Labestyle where StyleType='NS' Order by id desc",Conn,1,3
  287. if Not obj_Count_rs_1.eof then
  288. if obj_Count_rs_1.recordcount>50 then
  289. tmp_str = "--标签样式已经超过50个,不能创建。"
  290. tmp_display = "disabled"
  291. Else
  292. tmp_str = ""
  293. tmp_display = ""
  294. End if
  295. Else
  296. tmp_str = ""
  297. tmp_display = ""
  298. End if
  299.  Else
  300. tmp_str = ""
  301. tmp_display = ""
  302.  End if
  303.   %>
  304. <input type="submit" name="Submit" value="保存样式<% = tmp_str %>"<% = tmp_display %> >
  305. <input name="Action" type="hidden" id="Action" value="<% = tmp_Action %>">
  306. <input name="Label_Sub" type="hidden" value="<%=Request.QueryString("Label_Sub")%>">
  307. <input type="reset" name="Submit2" value="重置">
  308. </td>
  309. </tr>
  310. </form>
  311. </table>
  312. <script language="JavaScript" type="text/JavaScript">
  313. function Label_Form_sumit(FormObj)
  314. {
  315. if(FormObj.StyleName.value == "")
  316. {
  317. alert("请填写标签名称")
  318. FormObj.StyleName.focus();
  319. return false;
  320. }
  321. FormObj.TxtFileds.value = FS_Edit1.getHTMLBody();
  322. if(FormObj.TxtFileds.value == "")
  323. {
  324. alert("请输入标签样式内容")
  325. return false;
  326. }
  327. return true;
  328. }
  329. function Insertlabel_Sel(Lable_obj)
  330. {
  331. if(Lable_obj.options[Lable_obj.selectedIndex].value==''){
  332. return false;
  333. }else{
  334. InsertEditor(Lable_obj.options[Lable_obj.selectedIndex].value);
  335. }
  336. }
  337. function InsertEditor(InsertValue)
  338. {
  339. FS_Edit1.insertHTML(InsertValue);
  340. }
  341. </script>
  342. <%
  343. End Sub
  344. sub NS_select()
  345. '得到自定义字段
  346. dim ns_D_rs,ns_list
  347. ns_list = ""
  348. set ns_D_rs = Server.CreateObject(G_FS_RS)
  349. ns_D_rs.open "select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='NS'",Conn,1,3
  350. if ns_D_rs.eof then
  351. ns_list =ns_list& "<option value="">没有自定义字段</option>"
  352. ns_D_rs.close:set ns_D_rs=nothing
  353. else
  354. do while not ns_D_rs.eof 
  355. ns_list = ns_list & "<option value=""{NS=Define|"&ns_D_rs("D_Coul")&"}"">"& ns_D_rs("D_Name")&"</option>"
  356. ns_D_rs.movenext
  357. loop
  358. ns_D_rs.close:set ns_D_rs=nothing
  359. end if
  360. %>
  361. <select name="NewsFields" onChange="Insertlabel_Sel(this)">
  362. <option value="" style="background:#88AEFF;color:000000">┄┄基本字段┄┄</option>
  363. <option value="{NS:FS_ID}">自动编号</option>
  364. <option value="{NS:FS_NewsID}">NewsID</option>
  365. <option value="<a href={NS:FS_NewsURL}>{NS:FS_NewsTitle}</a>"> 新闻标题</option>
  366. <option value="{NS:FS_NewsURL}"> 新闻访问路径</option>
  367. <option value="{NS:FS_CurtTitle}"> 新闻副标题</option>
  368. <option value="{NS:FS_NewsNaviContent}"> 新闻导读</option>
  369. <option value="{NS:FS_Content}"> 新闻内容</option>
  370. <option value="{NS:FS_AddTime}"> 新闻添加日期</option>
  371. <option value="{NS:FS_Author}"> 新闻作者</option>
  372. <option value="{NS:FS_Editer}"> 新闻责任编辑</option>
  373. <option value="" style="background:#88AEFF;color:000000">┄┄预定义字段┄┄</option>
  374. <option value="{NS:FS_hits}">点击数</option>
  375. <option value="{NS:FS_KeyWords}">关键字</option>
  376. <option value="{NS:FS_TxtSource}"> 新闻来源</option>
  377. <option value="{NS:FS_SmallPicPath}">图片新闻的图片地址(小图)</option>
  378. <option value="{NS:FS_PicPath}">图片新闻的图片地址(大图)</option>
  379. <option value="{NS:FS_FormReview}">评论表单</option>
  380. <option value="{NS:FS_ReviewURL}">评论字样(带地址)</option>
  381. <option value="{NS:FS_ShowComment}">显示评论列表</option>
  382. <option value="{NS:FS_AddFavorite}">加入收藏</option>
  383. <option value="{NS:FS_SendFriend}">发送给好友</option>
  384. <option value="{NS:FS_SpecialList}">所属专题列表</option>
  385. <option value="{NS:FS_PrevPage}"> 上一篇新闻</option>
  386. <option value="{NS:FS_NextPage}"> 下一篇新闻</option>
  387. <option value="" style="background:#88AEFF;color:000000">┄┄栏目可定义字段┄┄</option>
  388. <option value="{NS:FS_ClassName}">栏目中文名称</option>
  389. <option value="{NS:FS_ClassURL}">栏目访问路径</option>
  390. <option value="{NS:FS_ClassNaviPicURL}">栏目导航图片地址</option>
  391. <option value="{NS:FS_ClassNaviDescript}">栏目导航说明</option>
  392. <option value="" style="background:#88AEFF;color:000000">┄┄专题可定义字段┄┄</option>
  393. <option value="{NS:FS_SpecialName}">专题中文名称</option>
  394. <option value="{NS:FS_SpecialURL}">专题访问路径</option>
  395. <option value="{NS:FS_SpecialNaviPicURL}">专题导航图片地址</option>
  396. <option value="{NS:FS_SpecialNaviDescript}">专题导航说明</option>
  397. <option value="" style="background:#88AEFF;color:000000">┄┄新闻自定义字段┄┄</option>
  398. <%=ns_list%>
  399. </select>
  400. <%end sub%>
  401. <%sub DS_select()%>
  402. <select name="NewsFields" onChange="Insertlabel_Sel(this)">
  403. <option value="" style="background:#88AEFF;color:000000">┄┄基本字段┄┄</option>
  404. <option value="{DS:FS_ID}">自动编号</option>
  405. <option value="{DS:FS_DownLoadID}">DownLoadID</option>
  406. <option value="<a href={DS:FS_DownURL}>{DS:FS_Name}</a>">下载标题</option>
  407. <option value="{DS:FS_Description}">下载简介</option>
  408. <option value="{DS:FS_AddTime}">添加时间</option>
  409. <option value="{DS:FS_EditTime}">修改时间</option>
  410. <option value="{DS:FS_SystemType}">系统平台</option>
  411. <option value="{DS:FS_Accredit}">下载授权</option>
  412. <option value="{DS:FS_Version}">版本</option>
  413. <option value="{DS:FS_Appraise}">星级评价</option>
  414. <option value="{DS:FS_FileSize}">文件大小</option>
  415. <option value="{DS:FS_Language}">语言</option>
  416. <option value="{DS:FS_PassWord}">解压密码</option>
  417. <!--<option value="{DS:FS_Property}">下载性质</option>-->
  418. <option value="{DS:FS_Provider}">开发商</option>
  419. <option value="{DS:FS_ProviderUrl}">提供者Url地址</option>
  420. <option value="{DS:FS_EMail}">联系人EMAIL</option>
  421. <option value="{DS:FS_Types}">下载类型</option>
  422. <option value="{DS:FS_OverDue}">过期天数</option>
  423. <option value="{DS:FS_ConsumeNum}">消费点数</option>
  424. <option value="{DS:FS_Address$&amp;lt;br /&amp;gt;}">下载地址</option>
  425. <option value="" style="background:#88AEFF;color:000000">┄┄预定义字段┄┄</option>
  426. <option value="{DS:FS_Hits}">点击数</option>
  427. <option value="{DS:FS_ClickNum}">下载次数</option>
  428. <option value="{DS:FS_Pic}">显示图片地址</option>
  429. <option value="{DS:FS_FormReview}">评论表单</option>
  430. <option value="{DS:FS_ShowComment}">显示评论列表</option>
  431. <option value="{DS:FS_AddFavorite}">加入收藏</option>
  432. <option value="{DS:FS_SendFriend}">发送给好友</option>
  433. <option value="{DS:FS_DownURL}">下载访问路径</option>
  434. <option value="" style="background:#88AEFF;color:000000">┄┄栏目可定义字段┄┄</option>
  435. <option value="{DS:FS_ClassName}">栏目中文名称</option>
  436. <option value="{DS:FS_ClassURL}">栏目访问路径</option>
  437. <option value="{DS:FS_ClassNaviPicURL}">栏目导航图片地址</option>
  438. <option value="{DS:FS_ClassNaviDescript}">栏目导航说明</option>
  439. <option value="{DS:FS_ClassKeywords}">栏目关键字</option>
  440. <option value="{DS:FS_Classdescription}">栏目描述</option>
  441. </select>
  442. <br />
  443. <span class="tx">下载地址:关于用法需要特别说明一下.默认插入的是:{DS:FS_Address$&lt;br /&gt;}
  444. ,{DS:FS_Address是固定字符.不能变.若要加分割符则“$你的分割符”，支持HTML代码，可以简写$1表示$&lt;br /&gt;、
  445. $2表示$&ampnbsp;、$3表示$&lt;/tr&gt;&lt;tr&gt; ； $1:10和$&lt;br /&gt;:10表示
  446. 分割符为连续的10个&lt;br /&gt;以此类推。</span>
  447. <%end sub%>
  448. <%sub SD_select()%>
  449. <span class="hback">
  450. <select name="NewsFields" onChange="Insertlabel_Sel(this)">
  451. <option value="" style="background:#88AEFF;color:000000">┄┄基本字段┄┄</option>
  452. <option value="{SD:FS_title}">标题</option>
  453. <option value="{SD:FS_URL}">供求联接路径</option>
  454. <option value="{SD:FS_PubType}">类型</option>
  455. <option value="{SD:FS_PubContent}">内容</option>
  456. <option value="{SD:FS_Keyword}">关键字</option>
  457. <option value="{SD:FS_CompType}">经营方式</option>
  458. <option value="{SD:FS_PubNumber}">产品数量</option>
  459. <option value="{SD:FS_PubPrice}">产品价格</option>
  460. <option value="{SD:FS_PubPack}">包装说明</option>
  461. <option value="{SD:FS_Pubgui}">产品规格</option>
  462. <option value="{SD:FS_PubPic_1}">图片一地址</option>
  463. <option value="{SD:FS_PubPic_2}">图片二</option>
  464. <option value="{SD:FS_PubPic_3}">图片三</option>
  465. <option value="{SD:FS_Addtime}">发布时间</option>
  466. <option value="{SD:FS_EditTime}">最后更新时间</option>
  467. <option value="{SD:FS_ValidTime}">有效时间</option>
  468. <option value="{SD:FS_PubAddress}">产地</option>
  469. <option value="{SD:FS_AreaID}">地区</option>
  470. <option value="{SD:FS_Fax}">联系传真</option>
  471. <option value="{SD:FS_User}">发布会员用户名</option>
  472. <option value="{SD:FS_tel}">联系电话</option>
  473. <option value="{SD:FS_Mobile}">移动电话</option>
  474. <option value="{SD:FS_otherLink}">其他联系方式</option>
  475. <option value="{SD:FS_hits}">点击</option>
  476. <option value="{SD:FS_review}">发表评论</option>
  477. <option value="{SD:FS_reviewcontent}">评论内容</option>
  478. </select>
  479. </span>
  480. <%end sub%>
  481. <%sub HS_select()
  482. dim hs_D_rs,hs_list
  483. hs_list = ""
  484. set hs_D_rs = Server.CreateObject(G_FS_RS)
  485. hs_D_rs.open "select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='HS'",Conn,1,3
  486. if hs_D_rs.eof then
  487. hs_list =hs_list& "<option value="""">没有自定义字段</option>"
  488. hs_D_rs.close:set hs_D_rs=nothing
  489. else
  490. do while not hs_D_rs.eof 
  491. hs_list = hs_list & "<option value=""{NS=Define|"&hs_D_rs("D_Coul")&"}"">"& hs_D_rs("D_Name")&"</option>"
  492. hs_D_rs.movenext
  493. loop
  494. hs_D_rs.close:set hs_D_rs=nothing
  495. end if
  496.   %>
  497. <select name="HouseFields" onChange="Insertlabel_Sel(this)">
  498. <option value="" style="background:#88AEFF;color:000000">┄┄基本字段┄┄</option>
  499. <option value="{all:HS_FS_ID}">自动编号</option>
  500. <option value="{all:HS_FS_Price}">报价</option>
  501. <option value="{all:HS_FS_PubDate}"> 发布时间</option>
  502. <option value="{all:HS_FS_UserNumber}"> 发布人</option>
  503. <option value="" style="background:#88AEFF;color:000000">┄┄预定义字段┄┄</option>
  504. <option value="{HS_FS_FormReview}">评论表单</option>
  505. <option value="{HS_FS_ReviewURL}">评论字样地址</option>
  506. <option value="{HS_FS_ShowComment}">显示评论列表</option>
  507. <option value="{HS_FS_AddFavorite}">加入收藏</option>
  508. <option value="{HS_FS_SendFriend}">发送给好友</option>
  509. <option value="{HS_FS_HouseURL}"> 信息访问路径</option>
  510. </select>
  511. <select name="LouFields" onChange="Insertlabel_Sel(this)">
  512. <option value="" style="background:#88AEFF;color:000000">┄┄楼盘信息┄┄</option>
  513. <option value="{Lou:HS_FS_HouseName}">楼盘名称</option>
  514. <option value="{Lou:HS_FS_Position}">楼盘位置</option>
  515. <option value="{Lou:HS_FS_Direction}">楼盘方位</option>
  516. <option value="{Lou:HS_FS_Class}">项目类别</option>
  517. <option value="{Lou:HS_FS_OpenDate}">开盘日期</option>
  518. <option value="{Lou:HS_FS_PreSaleRange}">预售范围</option>
  519. <option value="{Lou:HS_FS_Status}">房屋状况</option>
  520. <option value="{Lou:HS_FS_introduction}">房屋介绍</option>
  521. <option value="{Lou:HS_FS_Contact}"> 联系方式</option>
  522. <option value="{Lou:HS_FS_hits}">点击数</option>
  523. <option value="{Lou:HS_FS_Pic}">图片</option>
  524. </select>
  525. <select name="SecondFields" onChange="Insertlabel_Sel(this)">
  526. <option value="" style="background:#88AEFF;color:000000">┄┄二手信息┄┄</option>
  527. <option value="{Second:HS_FS_UseFor}">用途</option>
  528. <option value="{Second:HS_FS_FloorType}">住宅类别</option>
  529. <option value="{Second:HS_FS_BelongType}">产权性质</option>
  530. <option value="{Second:HS_FS_HouseStyle}">户型</option>
  531. <option value="{Second:HS_FS_Structure}">建筑结构</option>
  532. <option value="{Second:HS_FS_Area}">建筑面积</option>
  533. <option value="{Second:HS_FS_BuildDate}">建筑年代</option>
  534. <option value="{Second:HS_FS_CityArea}">区县</option>
  535. <option value="{Second:HS_FS_Address}">地址</option>
  536. <option value="{Second:HS_FS_Floor}">楼层</option>
  537. <option value="{Second:HS_FS_Decoration}">装修情况</option>
  538. <option value="{Second:HS_FS_equip}">配套设施</option>
  539. <option value="{Second:HS_FS_Remark}">备注</option>
  540. <option value="{Second:HS_FS_Contact}"> 联系方式</option>
  541. <option value="{Second:HS_FS_Pic}">图片</option>
  542. </select>
  543. <select name="TenancyFields" onChange="Insertlabel_Sel(this)">
  544. <option value="" style="background:#88AEFF;color:000000">┄┄租赁信息┄┄</option>
  545. <option value="{Tenancy:HS_FS_UseFor}">使用性质</option>
  546. <option value="{Tenancy:HS_FS_Class}">类型</option>
  547. <option value="{Tenancy:HS_FS_CityArea}">区县</option>
  548. <option value="{Tenancy:HS_FS_HouseStyle}">户型</option>
  549. <option value="{Tenancy:HS_FS_Area}">建筑面积</option>
  550. <option value="{Tenancy:HS_FS_Period}">有效期</option>
  551. <option value="{Tenancy:HS_FS_HouseStyle}">户型</option>
  552. <option value="{Tenancy:HS_FS_Floor}">楼层</option>
  553. <option value="{Tenancy:HS_FS_BuildDate}">建筑年代</option>
  554. <option value="{Tenancy:HS_FS_Decoration}">装修情况</option>
  555. <option value="{Tenancy:HS_FS_equip}">配套设施</option>
  556. <option value="{Tenancy:HS_FS_Remark}">备注</option>
  557. <option value="{Tenancy:HS_FS_Contact}"> 联系方式</option>
  558. <option value="{Tenancy:HS_FS_Pic}">图片</option>
  559. </select>
  560. <%end sub%>
  561. <%sub AP_select()
  562. dim ap_D_rs,ap_list
  563. ap_list = ""
  564. set ap_D_rs = Server.CreateObject(G_FS_RS)
  565. ap_D_rs.open "select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='AP'",Conn,1,3
  566. if ap_D_rs.eof then
  567. ap_list =ap_list& "<option value="""">没有自定义字段</option>"
  568. ap_D_rs.close:set ap_D_rs=nothing
  569. else
  570. do while not ap_D_rs.eof 
  571. ap_list = ap_list & "<option value=""{NS=Define|"&ap_D_rs("D_Coul")&"}"">"& ap_D_rs("D_Name")&"</option>"
  572. ap_D_rs.movenext
  573. loop
  574. ap_D_rs.close:set ap_D_rs=nothing
  575. end if   
  576.   %>
  577. <select name="APFields" onChange="Insertlabel_Sel(this)">
  578. <option value="" style="background:#88AEFF;color:000000">┄┄预定义字段┄┄</option>
  579. <option value="{AP:FS_FormReview}">评论表单</option>
  580. <option value="{AP:FS_ReviewURL}">评论字样地址</option>
  581. <option value="{AP:FS_ShowComment}">显示评论列表</option>
  582. <option value="{AP:FS_AddFavorite}">加入收藏</option>
  583. <option value="{AP:FS_SendFriend}">发送给好友</option>
  584. <option value="" style="background:#88AEFF;color:000000">┄┄人才自定义字段┄┄</option>
  585. <%=ap_list%>
  586. </select>
  587. <SELECT name="APFields_1" onChange="Insertlabel_Sel(this)">
  588. <option value="" style="background:#88AEFF;color:000000">┄招聘信息基本字段┄</option>
  589. <option value="{INV:AP:FS_ID}">自动编号</option>
  590. <option value="{INV:AP:FS_UserNumber}">公司名称</option>
  591. <option value="{INV:AP:FS_JobName}">职位名称</option>
  592. <option value="{INV:AP:FS_JobDescription}">职位描述</option>
  593. <option value="{INV:AP:FS_ResumeLang}">简历接受语言</option>
  594. <option value="{INV:AP:FS_WorkCity}">工作地点</option>
  595. <option value="{INV:AP:FS_PublicDate}">发布日期</option>
  596. <option value="{INV:AP:FS_EndDate}">有效日期</option>
  597. <option value="{INV:AP:FS_NeedNum}">招聘人数</option>
  598. <option value="{INV:AP:FS_APURL}"> 信息访问路径</option>
  599. </SELECT>
  600. <SELECT name="APFields_2" onChange="Insertlabel_Sel(this)">
  601. <option value="" style="background:#88AEFF;color:000000">┄人才信息基本字段┄</option>
  602. <option value="{TO:AP:FS_ID}">自动编号</option>
  603. <option value="{TO:AP:FS_UserNumber}">用户编号</option>
  604. <option value="{TO:AP:FS_UserName}">用户名</option>
  605. <option value="{TO:AP:FS_Sex}">性别</option>
  606. <option value="{TO:AP:FS_Pic}">图片</option>
  607. <option value="{TO:AP:FS_Birthday}">生日</option>
  608. <option value="{TO:AP:FS_CertificateClass}">证件类型</option>
  609. <option value="{TO:AP:FS_CertificateNo}">证件号码</option>
  610. <option value="{TO:AP:FS_CurrentWage}">目前年薪</option>
  611. <option value="{TO:AP:FS_CurrencyType}">币种</option>
  612. <option value="{TO:AP:FS_WorkAge}">工作年限</option>
  613. <option value="{TO:AP:FS_Province}">所在省</option>
  614. <option value="{TO:AP:FS_City}">所在市</option>
  615. <option value="{TO:AP:FS_HomeTel}">家庭电话</option>
  616. <option value="{TO:AP:FS_CompanyTel}">公司电话</option>
  617. <option value="{TO:AP:FS_Mobile}">手机</option>
  618. <option value="{TO:AP:FS_Email}">电子邮件</option>
  619. <option value="{TO:AP:FS_QQ}">QQ</option>
  620. <option value="{TO:AP:FS_click}">浏览数</option>
  621. <option value="{TO:AP:FS_lastTime}">最后修改时间</option>
  622. </SELECT>
  623. <%end sub%>
  624. <%sub MS_select()
  625. '得到自定义字段
  626. dim ms_D_rs,ms_list
  627. ms_list = ""
  628. set ms_D_rs = Server.CreateObject(G_FS_RS)
  629. ms_D_rs.open "select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='MS'",Conn,1,1
  630. if ms_D_rs.eof then
  631. ms_list ="<option value="""">没有自定义字段</option>"
  632. ms_D_rs.close:set ms_D_rs=nothing
  633. else
  634. do while not ms_D_rs.eof 
  635. ms_list = ms_list & "<option value=""{MS=Define|"&ms_D_rs("D_Coul")&"}"">"& ms_D_rs("D_Name")&"</option>"
  636. ms_D_rs.movenext
  637. loop
  638. ms_D_rs.close:set ms_D_rs=nothing
  639. end if
  640. %>
  641. <select name="ProductsFields" onChange="Insertlabel_Sel(this)">
  642. <option value="" style="background:#88AEFF;color:000000">┄┄基本字段┄┄</option>
  643. <option value="{MS:FS_ID}">自动编号</option>
  644. <option value="{MS:FS_ProductTitle}"> 商品名称</option>
  645. <option value="{MS:FS_Barcode}"> 商品条形码</option>
  646. <option value="{MS:FS_Serialnumber}">产品序列号</option>
  647. <option value="{MS:FS_ProductURL}">商品浏览访问路径</option>
  648. <option value="{MS:FS_Stockpile}"> 商品库存</option>
  649. <option value="{MS:FS_OldPrice}"> 市场价格</option>
  650. <option value="{MS:FS_NewPrice}"> 实际价格</option>
  651. <option value="{MS:FS_ProductContent}"> 商品描述</option>
  652. <option value="{MS:FS_RepairContent}"> 保修条款</option>
  653. <option value="{MS:FS_AddTime}"> 商品添加日期</option>
  654. <option value="{MS:FS_AddMember}"> 商品添加者</option>
  655. <option value="{MS:FS_ProductAddress}"> 产品产地</option>
  656. <option value="{MS:FS_MakeFactory}"> 生产厂商</option>
  657. <option value="{MS:FS_MakeTime}"> 制造日期</option>
  658. <option value="{MS:FS_saleNumber}"> 售出数量</option>
  659. <option value="{MS:FS_SaleStyle}"> 销售形式</option>
  660. <option value="{MS:FS_DiscountStartDate}"> 打折开始时间</option>
  661. <option value="{MS:FS_DiscountEndDate}"> 打折结束时间</option>
  662. <option value="{MS:FS_Discount}"> 折扣率</option>
  663. <option value="" style="background:#88AEFF;color:000000">┄┄可定义字段┄┄</option>
  664. <option value="{MS:FS_hits}">点击数</option>
  665. <option value="{MS:FS_KeyWords}">关键字(带连接的搜索)</option>
  666. <option value="{MS:FS_TitleKeyWords}">关键字(用于搜索引擎搜索)</option>
  667. <option value="{MS:FS_TxtSource}"> 商品来源</option>
  668. <option value="{MS:FS_SmallPicPath}">商品图片(小图)</option>
  669. <option value="{MS:FS_PicPath}">商品图片(大图)</option>
  670. <option value="{MS:FS_ShopBagURL}">购物车地址</option>
  671. <option value="{MS:FS_FormReview}">评论表单</option>
  672. <option value="{MS:FS_ReviewTF}">标题后显示评论字样</option>
  673. <option value="{MS:FS_ShowComment}">显示评论列表</option>
  674. <option value="{MS:FS_AddFavorite}">加入收藏</option>
  675. <option value="{MS:FS_SendFriend}">发送给好友</option>
  676. <option value="{MS:FS_SpecialList}">所属专题列表</option>
  677. <!--<option value="{MS:FS_ProductURL}"> 新闻访问路径</option>-->
  678. <!--<option value="" style="background:#88AEFF;color:000000">┄┄栏目可定义字段┄┄</option>-->
  679. <option value="{MS:FS_ClassName}">栏目中文名称</option>
  680. <option value="{MS:FS_ClassURL}">栏目浏览访问路径</option>
  681. <option value="{MS:FS_ClassNaviPicURL}">栏目导航图片</option>
  682. <option value="{MS:FS_ClassNaviContent}">栏目导航说明</option>
  683. <option value="{MS:FS_ClassKeywords}">栏目关键字(用于商城栏目的终极列表，优化搜索引擎)</option>
  684. <option value="{MS:FS_Classdescription}">栏目描述(用于商城栏目的终极列表，优化搜索引擎)</option>
  685. <!--<option value="{MS:FS_Classdescription}">栏目描述</option>-->
  686. <!--<option value="" style="background:#88AEFF;color:000000">┄┄专题可定义字段┄┄</option>-->
  687. <option value="{MS:FS_SpecialName}">专题中文名称</option>
  688. <!-- <option value="{MS:FS_SpecialURL}">专题浏览访问路径</option>-->
  689. <option value="{MS:FS_SpecialNaviPicURL}">专题导航图片</option>
  690. <option value="{MS:FS_SpecialNaviDescript}">专题导航说明</option>
  691. <option value="" style="background:#88AEFF;color:000000">┄┄自定义字段┄┄</option>
  692. <%=ms_list%>
  693. </select>
  694. <%end sub%>
  695. </body>
  696. <% 
  697. Sub Add_Save()
  699. End Sub
  700. Set Conn=nothing
  701. %>
  702. </html>
  703. <script language="JavaScript" type="text/JavaScript">
  704. function opencat(cat)
  705. {
  706.   if(cat.style.display=="none"){
  707.      cat.style.display="";
  708.   } else {
  709.      cat.style.display="none"; 
  710.   }
  711. }
  712. </script>
  713. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->