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

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

数据库编程

开发平台：

ASP/ASPX

DefineTable_Info_Manage.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_Inc/Func_page.asp" -->
  7. <%'Copyright (c) 2006 Foosun Inc. Code by awen www.ueuo.cn 网络收藏夹
  8. Dim Conn,NS_DefineTable_RS_obj,VClass_Sql,sRootDir,str_CurrPath
  9. MF_Default_Conn
  10. 'session判断
  11. MF_Session_TF
  12. if not MF_Check_Pop_TF("MF_Define") then Err_Show
  13. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  14. int_RPP=15 '设置每页显示数目
  15. int_showNumberLink_=10 '数字导航显示数目
  16. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  17. str_nonLinkColor_="#999999" '非热链接颜色
  18. toF_="<font face=webdings>9</font>"    '首页 
  19. toP10_=" <font face=webdings>7</font>" '上十
  20. toP1_=" <font face=webdings>3</font>" '上一 
  21. toN1_=" <font face=webdings>4</font>" '下一
  22. toN10_=" <font face=webdings>8</font>" '下十     
  23. toL_="<font face=webdings>:</font>" '尾页
  24. '******************************************************************
  25. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  26. if Session("Admin_Is_Super") = 1 then
  27. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR 
  28. Else
  29. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  30. End if
  32. Function morestr(str,length)
  33. if isnull(str) then morestr="":exit function
  34. if len(str)>length then 
  35. morestr = left(str,length)&" ..."
  36. else
  37. morestr = str
  38. end if
  39. End Function
  40.   
  41. Function Get_While_Info(Add_Sql,orderby)
  42. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp  ,int_Tmp_i,New_ClassID,ClassID,D_Value
  43. Str_Tmp = "DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType"
  44. This_Fun_Sql = "select "&Str_Tmp&" from FS_MF_DefineTable"
  45. if request.QueryString("Act")="SearchGo" then 
  46. for int_Tmp_i = 4 to 1 step -1
  47. New_ClassID = request.Form("vclass"&int_Tmp_i)
  48. if New_ClassID<>"" then exit for
  49. next
  50. if New_ClassID="[ChangeToTop]" then New_ClassID=0
  51. if New_ClassID<>"" then 
  52. ClassID = New_ClassID
  53. else
  54. ClassID = request.Form("frm_ClassID")
  55. end if
  56. if ClassID<>"" then New_Search_Str = and_where( New_Search_Str ) &" ClassID = "&ClassID
  58. D_Value = request.Form("frm_D_Value_1")
  59. if D_Value="" then D_Value = request.Form("frm_D_Value")
  60. if D_Value<>"" then New_Search_Str = and_where( New_Search_Str ) &" D_Value = '"&D_Value&"'"
  62. Arr_Tmp = split(Str_Tmp,",")
  63. for each Str_Tmp in Arr_Tmp
  64. if Trim(request("frm_"&Str_Tmp))<>"" then 
  65. Req_Str = NoSqlHack(Trim(request("frm_"&Str_Tmp)))
  66. select case Str_Tmp
  67. case "DefineID","ClassID","D_Type","D_isNull"
  68. ''数字,日期
  69. regxp = "|<|>|=|<=|>=|<>|"
  70. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  71. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  72. elseif instr(Req_Str,"*")>0 then 
  73. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  74. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  75. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  76. else
  77. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  78. end if
  79. case else
  80. ''字符
  81. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  82. end select 
  83. end if
  84. next
  85. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  86. end if
  87. if Add_Sql<>"" then
  88. Add_Sql = Decrypt(Add_Sql)
  89.  This_Fun_Sql = and_where(This_Fun_Sql) &" "& Add_Sql
  90. end if 
  91. if orderby<>"" then 
  92. This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  93. else
  94. This_Fun_Sql = This_Fun_Sql &"  Order By DefineID desc"
  95. end if
  96. 'response.Write(This_Fun_Sql)
  97. 'response.End()
  98. Str_Tmp = ""
  99. On Error Resume Next
  100. Set NS_DefineTable_RS_obj = CreateObject(G_FS_RS)
  101. NS_DefineTable_RS_obj.Open This_Fun_Sql,Conn,1,1
  102. if Err<>0 then 
  103. Err.Clear
  104. response.Redirect("error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  105. response.End()
  106. end if
  107. IF  NS_DefineTable_RS_obj.eof THEN
  108.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  109. else
  110. NS_DefineTable_RS_obj.PageSize=int_RPP
  111. cPageNo=NoSqlHack(Request.QueryString("Page"))
  112. If cPageNo="" Then cPageNo = 1
  113. If not isnumeric(cPageNo) Then cPageNo = 1
  114. cPageNo = Clng(cPageNo)
  115. If cPageNo<=0 Then cPageNo=1
  116. If cPageNo>NS_DefineTable_RS_obj.PageCount Then cPageNo=NS_DefineTable_RS_obj.PageCount 
  117. NS_DefineTable_RS_obj.AbsolutePage=cPageNo
  119.   FOR int_Start=1 TO int_RPP 
  120. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  121. Get_Html = Get_Html & "<td align=""center""><a href=""DefineTable_Info_Manage.asp?Act=Edit&DefineID="&NS_DefineTable_RS_obj("DefineID")&""" class=""otherset"" title='点击修改'>"&NS_DefineTable_RS_obj("D_Name")&"</a></td>" & vbcrlf
  122. for ii=3 to 8
  123. select case ii
  124. case 4 
  125. select case NS_DefineTable_RS_obj(ii) 
  126. case 0
  127. Str_Tmp="单行文本"
  128. case 1
  129. Str_Tmp="多行文本"
  130. case 2
  131. Str_Tmp="单选"
  132. case 3
  133. Str_Tmp="多选"
  134. case 4
  135. Str_Tmp="下拉列表"
  136. case 5
  137. Str_Tmp="数字类型"
  138. case 6
  139. Str_Tmp="日期"
  140. end select
  141. Str_Tmp = "<a href=""DefineTable_Info_Manage.asp?Act=View&Add_Sql="& server.URLEncode(Encrypt( "D_Type="&NS_DefineTable_RS_obj(ii) ))&""" title=""点击查看同类"">"&Str_Tmp&"</a>"
  142. case 5
  143. if NS_DefineTable_RS_obj(ii)=1 then 
  144. Str_Tmp = "<input  type=""checkbox"" name=""Other_D_isNull"" title=""点击改为可空"" checked onclick=""javascript:location='DefineTable_Info_Manage.asp?Act=OtherSet&SetSql="& server.URLEncode(Encrypt( "D_isNull=0" ))&"&DefineID="&NS_DefineTable_RS_obj("DefineID") &"'"">"
  145. else
  146. Str_Tmp = "<input  type=""checkbox"" name=""Other_D_isNull"" title=""点击改为必填"" onclick=""javascript:location='DefineTable_Info_Manage.asp?Act=OtherSet&SetSql="& server.URLEncode( Encrypt("D_isNull=1") )&"&DefineID="&NS_DefineTable_RS_obj("DefineID") &"'"">"
  147. end if
  148. case 6
  149. Str_Tmp = morestr(NS_DefineTable_RS_obj(ii),30)
  150. if Str_Tmp<>"" then Str_Tmp = "<span style=""cursor:help"" title="""&NS_DefineTable_RS_obj(ii)&""">"&server.HTMLEncode( replace(Str_Tmp,vbcrlf,"<br />"))&"</span>"
  151. case 8
  152. select case NS_DefineTable_RS_obj(ii) 
  153. case "NS"
  154. Str_Tmp="新闻"
  155. case "MS"
  156. Str_Tmp="商城"
  157. case else
  158. Str_Tmp="[未知]"
  159. end select
  160. Str_Tmp = "<a href=""DefineTable_Info_Manage.asp?Act=View&Add_Sql="& server.URLEncode(Encrypt( "D_SubType='"&NS_DefineTable_RS_obj(ii)&"'" ))&""" title=""点击查看同类"">"&Str_Tmp&"</a>"
  161. case else
  162. Str_Tmp = NS_DefineTable_RS_obj(ii)
  163. end select
  164. Get_Html = Get_Html & "<td align=""center"">"& Str_Tmp & "</td>" & vbcrlf
  165. next
  166. Str_Tmp = NS_Fun_ExecSql("select DefineName from FS_MF_DefineTableClass where DefineID = "&NS_DefineTable_RS_obj("ClassID"),"[未分类]")
  167. Str_Tmp = "<a href=""DefineTable_Info_Manage.asp?Act=View&Add_Sql="& server.URLEncode(Encrypt( "ClassID="&NS_DefineTable_RS_obj("ClassID") ))&""" title=""点击查看同类"">"&Str_Tmp&"</a>"
  168. Get_Html = Get_Html & "<td align=""center"">"&Str_Tmp&"</td>" & vbcrlf
  169. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox""  name=""DefineID"" id=""DefineID"" value="""&NS_DefineTable_RS_obj("DefineID")&""" /></td>" & vbcrlf
  170. Get_Html = Get_Html & "</tr>" & vbcrlf
  171. NS_DefineTable_RS_obj.MoveNext
  172.   if NS_DefineTable_RS_obj.eof or NS_DefineTable_RS_obj.bof then exit for
  173.       NEXT
  174. END IF
  175. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  176. Get_Html = Get_Html & fPageCount(NS_DefineTable_RS_obj,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  177. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  178. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  179. NS_DefineTable_RS_obj.close
  180. Get_While_Info = Get_Html
  181. End Function
  183. Function NS_Fun_ExecSql(This_Fun_Sql,Def_Info)
  184. Dim Ns_This_Fun_Rs
  185. Set Ns_This_Fun_Rs = Conn.execute(This_Fun_Sql)
  186. If not Ns_This_Fun_Rs.eof then 
  187. NS_Fun_ExecSql = Ns_This_Fun_Rs(0)
  188. Else
  189. NS_Fun_ExecSql = Def_Info
  190. End if
  191. Ns_This_Fun_Rs.close
  192. set Ns_This_Fun_Rs=nothing
  193. End Function
  195. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  196. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  197. Dim Get_Html,This_Fun_Rs,Text
  198. On Error Resume Next
  199. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  200. If Err.Number <> 0 then Err.clear : response.Redirect("error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  201. do while not This_Fun_Rs.eof 
  202. select case Get_Type
  203.   case 1
  204. ''<option>
  205. if instr(This_Fun_Sql,",") >0 then 
  206. Text = This_Fun_Rs(1)
  207. else
  208. Text = This_Fun_Rs(0)
  209. end if
  210. if EquValue = This_Fun_Rs(0) then 
  211. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  212. else
  213. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  214. end if
  215.   case else
  216. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function 
  217. end select
  218. This_Fun_Rs.movenext
  219. loop
  220. This_Fun_Rs.close
  221. Get_FildValue_List = Get_Html
  222. End Function 
  224. Sub OtherSet()
  225. Dim SetSql
  226. SetSql = NoSqlHack(trim(Decrypt(request.QueryString("SetSql"))))
  227. if SetSql<>"" then 
  228. SetSql = "Update FS_MF_DefineTable set "& SetSql &" where DefineID="&request.QueryString("DefineID")
  229. Conn.execute( SetSql )
  230. response.Redirect("DefineTable_Info_Manage.asp")
  231. end if
  232. End Sub
  234. Sub Del()
  235. if not MF_Check_Pop_TF("MF022") then Err_Show
  236. Dim Str_Tmp
  237. if request.QueryString("DefineID")<>"" then 
  238. Conn.execute("Delete from FS_MF_DefineTable where DefineID = "&request.QueryString("DefineID"))
  239. else
  240. Str_Tmp = request.form("DefineID")
  241. if Str_Tmp="" then response.Redirect("error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>")
  242. Str_Tmp = replace(Str_Tmp," ","")
  243. Conn.execute("Delete from FS_MF_DefineTable where DefineID in ("&Str_Tmp&")")
  244. end if
  245. response.Redirect("Success.asp?ErrorUrl="&server.URLEncode( "DefineTable_Info_Manage.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  246. End Sub
  247. ''================================================================
  249. Sub Save()
  250. Dim Str_Tmp,Arr_Tmp,DefineID,int_Tmp_i,ClassID,New_ClassID,D_Value,ArrTmp1
  251. Str_Tmp = "D_Name,D_Coul,D_Type,D_isNull,D_Content,D_SubType"
  252. Arr_Tmp = split(Str_Tmp,",")
  253. DefineID = NoSqlHack(request.Form("DefineID"))
  254. if request.Form("frm_D_Name")="" or request.Form("frm_D_Coul")="" or request.Form("frm_D_Content")="" then 
  255. response.Redirect("error.asp?ErrCodes=<li>字段中文名，英文名和字段说明不能为空！！</li>") 
  256. response.End()
  257. end if
  258. for int_Tmp_i = 4 to 1 step -1
  259. New_ClassID = request.Form("vclass"&int_Tmp_i)
  260. if New_ClassID<>"" then exit for
  261. next
  262. if New_ClassID="[ChangeToTop]" then New_ClassID=0
  263. if New_ClassID<>"" then 
  264. ClassID = New_ClassID
  265. else
  266. ClassID = request.Form("frm_ClassID")
  267. end if
  268. if ClassID = "" then ClassID = 0
  269. if request.Form("frm_D_Type") = 4 then 
  270. D_Value = request.Form("frm_D_Value_1")
  271.   if D_Value="" then 
  272.    D_Value = "暂无"&vbcrlf&"默认值"
  273.   else
  274. if instr(D_Value,vbcrlf)=0 or len(D_Value)<4 then 
  275. response.Redirect("error.asp?ErrCodes=<li>当选择下拉时，必须至少有回车,并且字符必须4个以上。</li>") 
  276. response.End()
  277. else
  278. ArrTmp1 = split(D_Value,vbcrlf)
  279. for int_Tmp_i = lbound(ArrTmp1) to ubound(ArrTmp1)
  280. if isnull(ArrTmp1(int_Tmp_i)) or trim(ArrTmp1(int_Tmp_i)) = "" then 
  281. response.Redirect("error.asp?ErrCodes=<li>当选择下拉时，必须至少有回车,并且每一行的数据必须有效.</li><li>第"&int_Tmp_i+1&"行数据无效.因为仅有回车数据为空!</li>") 
  282. response.End()
  283. exit for 
  284. end if 
  285. next
  286. end if
  287.   end if
  288. elseif request.Form("frm_D_Type") = 5 then 
  289. D_Value = request.Form("frm_D_Value")
  290. if D_Value = "" then 
  291. D_Value = 0
  292. else
  293. if not isnumeric(D_Value) then 
  294. response.Redirect("error.asp?ErrCodes=<li>默认值必须是数字。</li>") 
  295. response.End()
  296. end if 
  297. end if
  298. elseif request.Form("frm_D_Type") = 6 then 
  299. D_Value = request.Form("frm_D_Value")
  300. if D_Value = "" then 
  301. D_Value = now()
  302. else
  303. if not isdate(D_Value) then 
  304. response.Redirect("error.asp?ErrCodes=<li>默认值必须是日期型。</li>") 
  305. response.End()
  306. end if 
  307. end if
  308. else
  309. D_Value = request.Form("frm_D_Value")
  310. end if
  311. if D_Value="" then D_Value  = "暂无"
  312. if not isnumeric(DefineID) or DefineID = "" then DefineID = 0 
  313. VClass_Sql = "select ClassID,D_Value,"&Str_Tmp&"  from FS_MF_DefineTable where DefineID="&DefineID
  314. Set NS_DefineTable_RS_obj = CreateObject(G_FS_RS)
  315. NS_DefineTable_RS_obj.Open VClass_Sql,Conn,3,3
  316. if DefineID > 0 then 
  317. ''修改
  318. NS_DefineTable_RS_obj("ClassID") = ClassID
  319. NS_DefineTable_RS_obj("D_Value") = D_Value
  320. for each Str_Tmp in Arr_Tmp
  321. NS_DefineTable_RS_obj(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  322. next
  323. NS_DefineTable_RS_obj.update
  324. NS_DefineTable_RS_obj.close
  325. response.Redirect("Success.asp?ErrorUrl="&server.URLEncode( "DefineTable_Info_Manage.asp?Act=Edit&DefineID="&DefineID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  326. else
  327. ''新增
  328. if Conn.execute("select count(*) from FS_MF_DefineTable where ClassID="&ClassID&" and D_Coul = '"&NoSqlHack(request.Form("frm_D_Coul"))&"'  and D_SubType = '"&NoSqlHack(request.Form("frm_D_SubType"))&"'")(0)>0 then 
  329. response.Redirect("error.asp?ErrCodes=<li>自定义字段名(英文名)不能重复。</li>") 
  330. response.End()
  331. end if
  332. NS_DefineTable_RS_obj.addnew
  333. NS_DefineTable_RS_obj("ClassID") = ClassID
  334. if D_Value<>"" then NS_DefineTable_RS_obj("D_Value") = D_Value
  335. for each Str_Tmp in Arr_Tmp
  336. NS_DefineTable_RS_obj(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  337. next
  338. NS_DefineTable_RS_obj.update
  339. NS_DefineTable_RS_obj.close
  340. response.Redirect("Success.asp?ErrorUrl="&server.URLEncode( "DefineTable_Info_Manage.asp?Act=Add&ClassID="&ClassID ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  341. end if
  342. End Sub
  343. ''=========================================================
  344. %>
  345. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  346. <html>
  347. <head>
  348. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  349. <title>自定义字段管理___Powered by foosun Inc.</title>
  350. <link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  351. </HEAD>
  352. <%if instr(",Edit,Add,Search,",","&request.QueryString("Act")&",")>0 then%>
  353. <script language="javascript" src="../FS_Inc/class_liandong.js" type="text/javascript"></script>
  354. <%end if%>
  355. <script language="JavaScript" src="../FS_Inc/PublicJS.js"></script>
  356. <script language="JavaScript" src="../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  357. <script language="JavaScript" type="text/JavaScript">
  358. <!--
  359. //点击标题排序
  360. /////////////////////////////////////////////////////////
  361. var Old_Sql = document.URL;
  362. function OrderByName(FildName)
  363. {
  364. var New_Sql='';
  365. var oldFildName="";
  366. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  367. {
  368. if (Old_Sql.indexOf("=")>-1)
  369. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  370. else
  371. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  372. }
  373. else
  374. {
  375. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  376. for(var ii=0;ii<tmp_arr_.length;ii++)
  377. {
  378. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  379. {
  380. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  381. break;
  382. }
  383. }
  384. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  385. }
  386. //alert(New_Sql);
  387. location = New_Sql;
  388. }
  389. /////////////////////////////////////////////////////////
  390. function selectAll(f,NoSelName)
  391. {
  392. for(i=0;i<f.length;i++)
  393. {
  394. if(f(i).type=="checkbox" && f(i)!=event.srcElement && f(i).name!=NoSelName)
  395. {
  396. f(i).checked=event.srcElement.checked;
  397. }
  398. }
  399. }
  400. -->
  401. </script>
  402. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  403. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  404.   <tr  class="hback"> 
  405.     <td class="xingmu" ><a href="#" onmouseover="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 张文 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>自定义字段</strong></a></td>
  406.   </tr>
  407.   <tr  class="hback">
  408.     <td class="hback" ><a href="DefineTable_Info_Manage.asp?Act=View" >管理首页</a>&nbsp;|&nbsp;
  409.       <a href="DefineTable_Info_Manage.asp?Act=Add" >新增</a> &nbsp;|&nbsp;
  410.       <a href="DefineTable_Info_Manage.asp?Act=Search">查询</a> &nbsp;|&nbsp;
  411.   <select name="select_D_SubType" onChange='var jumpvalue = this.options[this.selectedIndex].value;location="DefineTable_Info_Manage.asp?Act=View&Add_Sql="+jumpvalue;'>
  412.   <option value="">查看</option>
  413.   <option value="">所有</option>
  414.   <option value="<%=server.URLEncode(Encrypt("D_SubType = 'NS'"))%>">新闻</option>
  415.   <option value="<%=server.URLEncode(Encrypt("D_SubType = 'MS'"))%>">商城</option>
  416.   </select> &nbsp;|&nbsp;
  417.       <a href="DefineTable_Manage.asp">字段分类管理</a></td>
  418.   </tr>
  419. </table>
  420. <%
  421. '******************************************************************
  422. select case request.QueryString("Act")
  423. case "","View","SearchGo"
  424. View
  425. case "Add","Edit"
  426. Add_Edit
  427. case "Save"
  428. Save
  429. case "Del"
  430. Del
  431. case "Search"
  432. Search
  433. case "OtherSet"
  434. OtherSet
  435. end select
  437. '******************************************************************
  438. Sub View()%>
  439. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  440.   <form name="form1" id="form1" method="post" action="?Act=Del">
  441.     <tr  class="hback"> 
  442.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('D_Name')" class="sd"><b>〖中文名称〗</b></a> <span id="Show_Oder_D_Name" class="tx"></span></td>
  443.       <td align="center" class="xingmu"><a href="javascript:OrderByName('D_Coul')" class="sd"><b>字段名称</b></a> <span id="Show_Oder_D_Coul" class="tx"></span></td>
  444.   <td align="center" class="xingmu"><a href="javascript:OrderByName('D_Type')" class="sd"><b>字段类型</b></a> <span id="Show_Oder_D_Type" class="tx"></span></td>
  445.       <td align="center" class="xingmu"><a href="javascript:OrderByName('D_isNull')" class="sd"><b>是否可空</b></a> <span id="Show_Oder_D_isNull" class="tx"></span></td>
  446.       <td align="center" class="xingmu"><a href="javascript:OrderByName('D_Value')" class="sd"><b>默认值</b></a> <span id="Show_Oder_D_Value" class="tx"></span></td>
  447.   <td align="center" class="xingmu">说明</td>
  448.       <td align="center" class="xingmu"><a href="javascript:OrderByName('D_SubType')" class="sd"><b>所属系统</b></a> <span id="Show_Oder_D_SubType" class="tx"></span></td>
  449.   <td align="center" class="xingmu"><a href="javascript:OrderByName('ClassID')" class="sd"><b>所属分类</b></a> <span id="Show_Oder_ClassID" class="tx"></span></td>
  450.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form,'Other_D_isNull')" /></td>
  451.     </tr>
  452.     <%
  453. response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  454. %>
  455.   </form>
  456. </table>
  457. <%End Sub
  459. Sub Add_Edit()
  460. Dim DefineID,Bol_IsEdit,Edit_ClassID,D_Type
  461. Bol_IsEdit = false : Edit_ClassID =""
  462. if request.QueryString("Act")="Edit" then 
  463. if not MF_Check_Pop_TF("MF021") then Err_Show
  464. DefineID = request.QueryString("DefineID")
  465. if DefineID="" then response.Redirect("error.asp?ErrorUrl=&ErrCodes=<li>必要的DefineID没有提供</li>") : response.End()
  466. VClass_Sql = "select DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType from FS_MF_DefineTable where DefineID="&DefineID
  467. Set NS_DefineTable_RS_obj = CreateObject(G_FS_RS)
  468. NS_DefineTable_RS_obj.Open VClass_Sql,Conn,1,1
  469. if NS_DefineTable_RS_obj.eof then response.Redirect("error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  470. Bol_IsEdit = True
  471. Edit_ClassID=NS_DefineTable_RS_obj(1)
  472. D_Type=NS_DefineTable_RS_obj(4)
  473. else
  474. if not MF_Check_Pop_TF("MF021") then Err_Show
  475. Edit_ClassID=request.QueryString("ClassID")
  476. D_Type=0
  477. end if
  478. %>
  479. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  480.   <form name="form_Save" method="post" action="?Act=Save" onSubmit="return checkinput(this);">
  481.     <tr  class="hback"> 
  482.       <td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then response.Write("修改自定义字段信息<input type=""hidden"" name=""DefineID"" value="""&NS_DefineTable_RS_obj(0)&""">") else response.Write("新增自定义字段信息") end if%></td>
  483. </tr>
  484.     <tr  class="hback"> 
  485.       <td align="right">属于哪个系统</td>
  486.       <td>   
  487.   <select name="frm_D_SubType" datatype="require" msg="属于哪个系统必须选择。">
  488.   <option value="NS"<%if Bol_IsEdit then if NS_DefineTable_RS_obj(8)="NS" then response.Write(" selected") end if end if%>>新闻</option>
  489.   <option value="MS"<%if Bol_IsEdit then if NS_DefineTable_RS_obj(8)="MS" then response.Write(" selected") end if end if%>>商城</option>
  490.   </select>
  491.   <span class="tx">将该字段应用于哪个子系统中。</span></td>
  492.     </tr>
  494.     <tr  class="hback"<%if Edit_ClassID="" then response.Write("style=display:none") end if%>> 
  495.       <td align="right">所属类别</td>
  496.       <td>
  497.    <%if Edit_ClassID<>"" then 
  498. response.Write( NS_Fun_ExecSql("select DefineName from FS_MF_DefineTableClass where DefineID = "&Edit_ClassID,"[未分类]") )%>
  499. <input type="hidden" name="frm_ClassID" id="frm_ClassID" value="<%=Edit_ClassID%>">
  500. <input type="hidden" name="frm_ClassName" id="frm_ClassName" value="<%=NS_Fun_ExecSql("select DefineName from FS_MF_DefineTableClass where DefineID = "&Edit_ClassID,"[未分类]")%>">
  501. <%end if%>
  502. <span class="tx">若需变更类别请在下列下拉框中进行选择。</span>
  503.   </td>
  504.     </tr>
  505. <tr class="hback"> 
  506.       <td align="right">选择类别</td>
  507.       <td width="596">
  508. <SELECT NAME="vclass1" ID="vclass1" style="width:100px" <%if request.QueryString("Act")="Add" then%> datatype="Require" msg="类别必须选择"<%end if%>>
  509.      <OPTION></OPTION>
  510.     </SELECT>
  511. <!--   
  512. <!---联动菜单开始--- >
  513. <SELECT NAME="vclass1" ID="vclass1" onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');"  style="width:100px">
  514.          <OPTION></OPTION>
  515.     </SELECT>
  516. <SELECT NAME="vclass2" ID="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  517.          <OPTION></OPTION>
  518.     </SELECT>
  519. <SELECT NAME="vclass3" ID="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  520.         <OPTION></OPTION>
  521.     </SELECT>
  522. <SELECT NAME="vclass4" ID="vclass4" style="width:100px">
  523.      <OPTION></OPTION>
  524.     </SELECT>
  525. <!---联动菜单结束--- > -->
  526.   <span class="tx" id="vclass_Alt"></span>
  527.       </td>
  528.     </tr>
  529.     <tr  class="hback"> 
  530.       <td align="right">字段中文名称</td>
  531.       <td>
  532.   <input type="text" name="frm_D_Name" size="40" value="<%if Bol_IsEdit then response.Write(NS_DefineTable_RS_obj(2)) end if%>" datatype="Require" msg="必须填写">
  533.   </td>
  534.     </tr>
  535.     <tr  class="hback"> 
  536.       <td align="right">字段名（英文名）</td>
  537.       <td>
  538.   <input type="text" name="frm_D_Coul" size="40" value="<%if Bol_IsEdit then response.Write(NS_DefineTable_RS_obj(3)) end if%>" onKeyUp="value=value.replace(/[^a-zA-Z0-9_-]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9_-]/g,''))"  datatype="Require" msg="必须填写">
  539.   </td>
  540.     </tr>
  541.     <tr  class="hback"> 
  542.       <td align="right">字段类型</td>
  543.       <td>
  544. <select name="frm_D_Type" onChange="javascript:ChangeDefValueAreaType();">
  545. <%=PrintOption(D_Type,"0:单行文本,1:多行文本,4:下拉列表,5:数字类型,6:日期类型")%>
  546. </select>
  547.       </td>
  548.     </tr>
  549.     <tr  class="hback"> 
  550.       <td align="right">是否允许为空</td>
  551.       <td>
  552. <input name="frm_D_isNull" type="checkbox" value="1"<%if Bol_IsEdit then if NS_DefineTable_RS_obj(5)=1 then response.Write("  checked") end if else response.Write("  checked") end if%>>
  553.   </td>
  554.     </tr>
  555.     <tr  class="hback"> 
  556.       <td align="right">字段默认值</td>
  557.       <td id="td_D_Value_Def" style="display:''">   
  558.   <input type="text" name="frm_D_Value" size="40" value="<%if Bol_IsEdit then response.Write(NS_DefineTable_RS_obj("D_Value")) end if%>">
  559.   <input type="button" name="bnt_ChoosePic_rowBettween"  value="选择文件..." onClick="SelectFile();">
  560.      </td>
  561.       <td id="td_D_Value_1" style="display:'none'">   
  562.     <textarea name="frm_D_Value_1" rows="10" cols="40"><%if Bol_IsEdit then response.Write(NS_DefineTable_RS_obj("D_Value")) end if%></textarea>
  563.       <input type="button" name="bnt_ChoosePic_rowBettween"  value="选择文件..." onClick="SelectFile();">
  564.  </td> 
  565.     </tr>
  566.     <tr  class="hback"> 
  567.       <td align="right">字段名说明</td>
  568.       <td>
  569.   <textarea name="frm_D_Content" cols="40" datatype="LimitB" require="true" min="1" max="200" msg="必须在[1-200]个字节内。"><%if Bol_IsEdit then response.Write(NS_DefineTable_RS_obj(7)) end if%></textarea>
  570.   <span class="tx">字段名说明（使用规则说明）</span></td>
  571.     </tr>
  572.     <tr  class="hback"> 
  573.       <td colspan="4">
  574.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  575.           <tr> 
  576.             <td align="center"> <input type="submit" name="submit" value=" 保存 "> 
  577.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 ">
  578.               &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗?')) location = '<%=server.URLEncode("DefineTable_Info_Manage.asp?Act=Del&DefineID="&NosqlHack(request.QueryString("DefineID")))%>'">
  579. </td>
  580.           </tr>
  581.         </table>
  582.       </td>
  583.     </tr>
  584.   </form>
  585. </table>
  586. <%End Sub
  588. Sub Search()
  589. %>
  590. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  591.   <form name="form1" method="post" action="?Act=SearchGo">
  592.     <tr  class="hback"> 
  593.       <td colspan="3" align="left" class="xingmu" >自定义字段信息查询</td>
  594.     </tr>
  595.     <tr  class="hback"> 
  596.       <td align="right">ID号</td>
  597.       <td> <input type="text" name="frm_DefineID" size="40" value=""> 
  598.       </td>
  599.     </tr>
  601.     <tr  class="hback"> 
  602.       <td align="right">属于哪个系统</td>
  603.       <td>   
  604.   <select name="frm_D_SubType">
  605.   <option value="">所有</option>
  606.   <option value="NS">新闻</option>
  607.   <option value="MS">商城</option>
  608.   </select>
  609.   <span class="tx">将该字段应用于哪个子系统中。</span></td>
  610.     </tr>
  612.     <tr class="hback"> 
  613.       <td align="right">选择类别</td>
  614.       <td width="596"> 
  615. <SELECT NAME="vclass1" ID="vclass1" style="width:100px">
  616.      <OPTION></OPTION>
  617.     </SELECT>
  618. <!--   
  619. <!---联动菜单开始--- >
  620. <SELECT NAME="vclass1" ID="vclass1" onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');"  style="width:100px">
  621.          <OPTION></OPTION>
  622.     </SELECT>
  623. <SELECT NAME="vclass2" ID="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
  624.          <OPTION></OPTION>
  625.     </SELECT>
  626. <SELECT NAME="vclass3" ID="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
  627.         <OPTION></OPTION>
  628.     </SELECT>
  629. <SELECT NAME="vclass4" ID="vclass4" style="width:100px">
  630.      <OPTION></OPTION>
  631.     </SELECT>
  632. <!---联动菜单结束--- > -->
  633.         </td>
  634.     </tr>
  635.     <tr  class="hback"> 
  636.       <td align="right">字段中文名称</td>
  637.       <td> <input type="text" name="frm_D_Name" size="40" value=""> 
  638.       </td>
  639.     </tr>
  640.     <tr  class="hback"> 
  641.       <td align="right">字段名（英文名）</td>
  642.       <td> <input type="text" name="frm_D_Coul" size="40" value=""> 
  643.       </td>
  644.     </tr>
  645.     <tr  class="hback"> 
  646.       <td align="right">字段类型</td>
  647.       <td> <select name="frm_D_Type" onChange="javascript:ChangeDefValueAreaType();">
  648.       <option value="">请选择</option>
  649.           <option value="0">单行文本</option>
  650.           <option value="1">多行文本</option>
  651.           <option value="4">下拉列表</option>
  652.           <option value="5">数字类型</option>
  653.           <option value="6">日期</option>
  654.         </select> </td>
  655.     </tr>
  656.     <tr  class="hback"> 
  657.       <td align="right">是否允许为空</td>
  658.       <td> <input name="frm_D_isNull" type="checkbox" value="1"> </td>
  659.     </tr>
  660.     <tr  class="hback"> 
  661.       <td align="right">字段默认值</td>
  662.       <td id="td_D_Value_Def" style="display:''">   
  663.   <input type="text" name="frm_D_Value" size="40" value="">
  664.      </td>
  665.       <td id="td_D_Value_1" style="display:'none'">   
  666.     <textarea name="frm_D_Value_1" rows="10" cols="40"></textarea>
  667.      </td> 
  668.     </tr>
  669.     <tr  class="hback"> 
  670.       <td align="right">字段名说明</td>
  671.       <td> <textarea name="frm_D_Content" cols="40"></textarea> 
  672.         <span class="tx">限制为200个字符</span> </td>
  673.     </tr>
  674.     <tr  class="hback"> 
  675.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  676.           <tr> 
  677.             <td align="center"> <input type="submit" name="submit" value=" 执行查询 " /> 
  678.               &nbsp; <input type="reset" name="ReSet" value=" 重置 " /> 
  679.             </td>
  680.           </tr>
  681.         </table></td>
  682.     </tr>
  683.   </form>
  684. </table>
  685. <%End Sub%>
  686. </body>
  687. <script language="JavaScript">
  688. <!--//判断后将排序完善.字段名后面显示指示
  689. //打开后根据规则显示箭头
  690. var Req_FildName;
  691. if (Old_Sql.indexOf("filterorderby=")>-1)
  692. {
  693. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  694. for(var ii=0;ii<tmp_arr_.length;ii++)
  695. {
  696. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  697. {
  698. if(Old_Sql.indexOf("csed")>-1)
  699. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  700. else
  701. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  702. }
  703. }
  704. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  705. {
  706. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  707. {
  708. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  709. }
  710. else
  711. {
  712. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  713. }
  714. }
  715. }
  716. ///////////////////////////////////////////////////////// 
  718. function ChangeDefValueAreaType()
  719. {
  720. //耕具选择的值改变默认值的输入域
  721. if(document.all.frm_D_Type.value=='4')
  722. {
  723. td_D_Value_Def.style.display='none';
  724. td_D_Value_1.style.display='';
  725. }
  726. else
  727. {
  728. td_D_Value_Def.style.display='';
  729. td_D_Value_1.style.display='none';
  730. }
  731. if(document.all.frm_D_Type.value=='5')
  732. { //数字
  733. document.all.frm_D_Value.require="false";
  734. document.all.frm_D_Value.dataType="Range";
  735. document.all.frm_D_Value.min="-32760";
  736. document.all.frm_D_Value.max="32760";
  737. document.all.frm_D_Value.msg="数字必须在-32760~32760之间。";
  738. }
  739. if(document.all.frm_D_Type.value=='6')
  740. { //数字
  741. document.all.frm_D_Value.require="false";
  742. document.all.frm_D_Value.dataType="Date";
  743. document.all.frm_D_Value.format="ymd";
  744. document.all.frm_D_Value.msg="日期格式不正确。";
  745. }
  746. if(document.all.frm_D_Type.value=='0' || document.all.frm_D_Type.value=='1')
  747. {
  748. document.all.frm_D_Value.require="false";
  749. document.all.frm_D_Value.dataType="Require";
  750. document.all.frm_D_Value.msg="";
  751. }
  752. }
  753. function checkinput(obj)
  754. {
  755. if (Validator.Validate(obj,3) == true)
  756. {
  757. if (obj.frm_D_Type.value=='4')
  758. ///多行文本或下拉菜单,需要一行一个项目,回车换行。
  759. {
  760. var txt=obj.frm_D_Value_1.value;
  761. if  (txt=='') return true;
  762. if (!controlrow(txt))
  763. {
  764. alert('当选择多行,下拉时,默认值必须填写,并且一行一个记录.回车换行。n可能你输入的没有回车符号,或超过50行.或字符太短.');
  765. obj.frm_D_Value_1.focus();
  766. return false;
  767. }
  768. }
  769. }
  770. else
  771. return Validator.Validate(obj,3);
  772. }
  774. function controlrow(txt)   
  775. {
  776.   var count=0;   
  777.   var index=txt.indexOf("r");   
  778.   while(index!=-1)   
  779.   {          
  780.   count++; 
  781.   index=txt.indexOf("r",index+1);   
  782.   }   
  783.   if(count<1 || txt.length<4 || count>50)   
  784.   return false;
  785.   else
  786.      return true;   
  787. }   
  789. function SelectFile()     
  790. {
  791. //
  792.  var returnvalue = OpenWindow('CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window);
  793.  if (returnvalue!='')
  794.  {
  795.   var obj=event.srcElement.parentNode.firstChild;
  796. (obj.name.indexOf('_1')>-1)?obj.value+=returnvalue:obj.value=returnvalue;
  797.  }
  798. }
  800. -->
  801. </script>
  802. <%if instr(",Edit,Add,Search,",","&request.QueryString("Act")&",")>0 then%>
  803. <script language="javascript">
  804. <!-- 
  806. ChangeDefValueAreaType();
  808. //awen created
  809. //联动菜单---自定义字段类别   最多4级   --start 
  810. //数据格式 ID，父级ID，名称
  811. var array=new Array();
  812. <%dim NS_JS_Sql,NS_JS_RS,NS_JS_i
  813.   if request.QueryString("ClassID")<>"" then 
  814.    NS_JS_Sql="select DefineID,ParentID,DefineName from FS_MF_DefineTableClass where DefineID<>"&request.QueryString("ClassID")
  815.   else
  816.     NS_JS_Sql="select DefineID,ParentID,DefineName from FS_MF_DefineTableClass "
  817.   end if
  818.   set NS_JS_RS=Conn.execute(NS_JS_Sql)
  819.   NS_JS_i=0
  820.   do while not NS_JS_RS.eof
  821. %>
  822. array[<%=NS_JS_i%>]=new Array("<%=NS_JS_RS("DefineID")%>","<%=NS_JS_RS("ParentID")%>","<%=NS_JS_RS("DefineName")%>"); 
  823. <%
  824. NS_JS_RS.movenext
  825. NS_JS_i=NS_JS_i+1
  826. loop
  827. NS_JS_RS.close
  828. %>
  830. var liandong=new CLASS_LIANDONG_YAO(array)
  831. liandong.firstSelectChange("0","vclass1");
  832. liandong.close
  834. document.getElementById('vclass1').options.remove(1);
  835. /*
  836. liandong.subSelectChange("vclass1","vclass2");
  837. liandong.subSelectChange("vclass2","vclass3");
  838. liandong.subSelectChange("vclass3","vclass4");
  840. //---------------------------清除关联下拉框的内容
  841. function RemoveChildopt(obj,StrList)
  842. {
  843. var TmpArr = StrList.split(',');
  844. if(obj.selectedIndex<2)
  845. {
  846. for (var i=TmpArr.length-1 ; i>=0; i--)
  847. {
  848. //alert(TmpArr[i]);
  849. if (TmpArr[i]!='') 
  850. //清除下拉内容
  851. for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
  852. document.getElementById(TmpArr[i]).options.remove(j);
  853. }
  854. }
  855. } 
  856. */
  857. //end 
  858. -->
  859. </script>
  860. <%end if%>
  861. <%
  862. Set NS_DefineTable_RS_obj=nothing
  863. Conn.close
  864. Set Conn=nothing
  865. %>
  866. </html>