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

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

数据库编程

开发平台：

ASP/ASPX

VS_Theme.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_InterFace/VS_Function.asp" -->
  5. <!--#include file="../../FS_Inc/Function.asp" -->
  6. <!--#include file="../../FS_Inc/Func_Page.asp" -->
  7. <%'Copyright (c) 2006 Foosun Inc. Code by awen ueuo.cn网络收藏夹
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. Dim Conn,VS_Rs,VS_Sql
  14. Dim AutoDelete,Months
  15. MF_Default_Conn 
  16. MF_Session_TF
  17. if not MF_Check_Pop_TF("VS003") then Err_Show
  19. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  20. int_RPP=15 '设置每页显示数目
  21. int_showNumberLink_=10 '数字导航显示数目
  22. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  23. str_nonLinkColor_="#999999" '非热链接颜色
  24. toF_="<font face=webdings>9</font>"    '首页 
  25. toP10_=" <font face=webdings>7</font>" '上十
  26. toP1_=" <font face=webdings>3</font>" '上一
  27. toN1_=" <font face=webdings>4</font>" '下一
  28. toN10_=" <font face=webdings>8</font>" '下十
  29. toL_="<font face=webdings>:</font>" '尾页
  30. ''得到相关表的值。
  31. Function Get_OtherTable_Value(This_Fun_Sql)
  32. Dim This_Fun_Rs
  33. if instr(This_Fun_Sql," FS_ME_")>0 then 
  34. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  35. else
  36. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  37. end if
  38. if not This_Fun_Rs.eof then 
  39. Get_OtherTable_Value = This_Fun_Rs(0)
  40. else
  41. Get_OtherTable_Value = ""
  42. end if
  43. if Err.Number>0 then 
  44. Err.Clear
  45. response.Redirect("../error.asp?ErrCodes=<li>Get_OtherTable_Value未能得到相关数据。错误描述："&Err.Type&"</li>") : response.End()
  46. end if
  47. set This_Fun_Rs=nothing 
  48. End Function
  49. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  50. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  51. Dim Get_Html,This_Fun_Rs,Text
  52. On Error Resume Next
  53. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  54. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  55. do while not This_Fun_Rs.eof 
  56. select case Get_Type
  57.   case 1
  58. ''<option>
  59. if instr(This_Fun_Sql,",") >0 then 
  60. Text = This_Fun_Rs(1)
  61. else
  62. Text = This_Fun_Rs(0)
  63. end if
  64. if trim(EquValue) = trim(This_Fun_Rs(0)) then 
  65. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  66. else
  67. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  68. end if
  69.   case else
  70. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function 
  71. end select
  72. This_Fun_Rs.movenext
  73. loop
  74. This_Fun_Rs.close
  75. Get_FildValue_List = Get_Html
  76. End Function 
  78. Function Get_While_Info(Add_Sql,orderby)
  79. Dim Get_Html,This_Fun_Sql,ii,db_ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  80. Str_Tmp = "TID,CID,Theme,Type,MaxNum,DisMode,StartDate,EndDate,ItemMOde"
  81. This_Fun_Sql = "select "&Str_Tmp&" from FS_VS_Theme"
  82. if request.QueryString("Act")="SearchGo" then 
  83. Arr_Tmp = split(Str_Tmp,",")
  84. for each Str_Tmp in Arr_Tmp
  85. Req_Str = NoSqlHack(Trim(request(Str_Tmp)))
  86. if Req_Str<>"" then 
  87. select case Str_Tmp
  88. case "Theme"
  89. ''字符
  90. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  91. case else
  92. ''数字,日期
  93. regxp = "|<|>|=|<=|>=|<>|"
  94. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  95. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  96. elseif instr(Req_Str,"*")>0 then 
  97. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  98. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  99. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  100. else
  101. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  102. end if
  103. end select 
  104. end if
  105. next
  106. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  107. end if
  108. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  109. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  110. Str_Tmp = ""
  111. 'response.Write(This_Fun_Sql)
  112. On Error Resume Next
  113. Set VS_Rs = CreateObject(G_FS_RS)
  114. VS_Rs.Open This_Fun_Sql,Conn,1,1
  115. if Err<>0 then 
  116. Err.Clear
  117. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  118. response.End()
  119. end if
  120. IF VS_Rs.eof THEN
  121.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  122. else
  123. VS_Rs.PageSize=int_RPP
  124. cPageNo=NoSqlHack(Request.QueryString("Page"))
  125. If cPageNo="" Then cPageNo = 1
  126. If not isnumeric(cPageNo) Then cPageNo = 1
  127. cPageNo = Clng(cPageNo)
  128. If cPageNo<=0 Then cPageNo=1
  129. If cPageNo>VS_Rs.PageCount Then cPageNo=VS_Rs.PageCount 
  130. VS_Rs.AbsolutePage=cPageNo
  132.   FOR int_Start=1 TO int_RPP 
  133. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  134. Get_Html = Get_Html & "<td align=""center""><a href=""VS_Theme.asp?Act=Edit&TID="&VS_Rs("TID")&""" title=""点击修改或查看详细"">"&VS_Rs("Theme")&"</a></td>" & vbcrlf
  135. Get_Html = Get_Html & "<td align=""center"">"&Get_OtherTable_Value("select ClassName from FS_VS_Class where CID= "&VS_Rs("CID"))&"</td>" & vbcrlf
  136. Get_Html = Get_Html & "<td align=""center"">"&Replacestr(VS_Rs("Type"),"1:单选,2:多选")&"</td>" & vbcrlf
  137. Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("MaxNum")&"</td>" & vbcrlf
  138. Get_Html = Get_Html & "<td align=""center"">"&Replacestr(VS_Rs("DisMode"),"1:直方图,2:饼图,3:折线图")&"</td>" & vbcrlf
  139. Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("StartDate")&"</td>" & vbcrlf
  140. Get_Html = Get_Html & "<td align=""center"">"&VS_Rs("EndDate")&"</td>" & vbcrlf
  141. Get_Html = Get_Html & "<td align=""center""><a href=""javascript:getCode('"&VS_Rs("TID")&"')"">代码</a></td>" & vbcrlf
  142. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""TID"" id=""TID"" value="""&VS_Rs("TID")&""" /></td>" & vbcrlf
  143. Get_Html = Get_Html & "</tr>" & vbcrlf
  144. VS_Rs.MoveNext
  145.   if VS_Rs.eof or VS_Rs.bof then exit for
  146.       NEXT
  147. END IF
  148. 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
  149. Get_Html = Get_Html & fPageCount(VS_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  150. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  151. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  152. Get_Html = Get_Html &"</td></tr>"
  153. VS_Rs.close
  154. Get_While_Info = Get_Html
  155. End Function
  157. Sub Del()
  158. if not MF_Check_Pop_TF("VS002") then Err_Show
  159. Dim Str_Tmp
  160. if request.QueryString("TID")<>"" then 
  161. Conn.execute("Delete from FS_VS_Theme where TID = "&NoSqlHack(request.QueryString("TID")))
  162. Conn.execute("Delete from FS_VS_Items where TID = "&NoSqlHack(request.QueryString("TID")))
  163. Conn.execute("Delete from FS_VS_Items_Result where TID = "&NoSqlHack(request.QueryString("TID")))
  164. Conn.execute("Delete from FS_VS_Steps where TID = "&NoSqlHack(request.QueryString("TID")))
  165. else
  166. Str_Tmp = NoSqlHack(request.form("TID"))
  167. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>"):response.End()
  168. Str_Tmp = replace(Str_Tmp," ","")
  169. Conn.execute("Delete from FS_VS_Theme where TID in ("&Str_Tmp&")")
  170. Conn.execute("Delete from FS_VS_Items where TID in ("&Str_Tmp&")")
  171. Conn.execute("Delete from FS_VS_Items_Result where TID in ("&Str_Tmp&")")
  172. Conn.execute("Delete from FS_VS_Steps where TID in ("&Str_Tmp&")")
  173. end if
  174. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Theme.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  175. End Sub
  176. ''================================================================
  177. Sub Save()
  178. if not MF_Check_Pop_TF("VS002") then Err_Show
  179. Dim Str_Tmp,Arr_Tmp,TID,MaxNum
  180. Str_Tmp = "CID,Theme,Type,DisMode,StartDate,EndDate,ItemMOde"
  181. Arr_Tmp = split(Str_Tmp,",")
  182. TID = NoSqlHack(request.Form("TID"))
  183. MaxNum = NoSqlHack(request.Form("MaxNum"))
  184. if not isnumeric(TID) or not TID<>"" then TID = 0
  185. if not isnumeric(MaxNum) or not MaxNum<>"" then MaxNum = 1
  186. VS_Sql = "select MaxNum,"&Str_Tmp&"  from FS_VS_Theme  where TID = "&TID
  187. Set VS_Rs = CreateObject(G_FS_RS)
  188. VS_Rs.Open VS_Sql,Conn,3,3
  189. if not VS_Rs.eof then 
  190. ''修改
  191. VS_Rs("MaxNum") = MaxNum
  192. for each Str_Tmp in Arr_Tmp
  193. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  194. next
  195. VS_Rs.update
  196. VS_Rs.close
  197. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Theme.asp?Act=Edit&TID="&TID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  198. else
  199. ''新增
  200. if Conn.execute("Select Count(*) from FS_VS_Theme where Theme='"&NoSqlHack(request.Form("Theme"))&"'")(0)>0 then 
  201. response.Redirect("../error.asp?ErrCodes=<li>你提交的数据已经存在，属于重复提交，请更换关键字。</li>"):response.End()
  202. end if
  203. VS_Rs.addnew
  204. VS_Rs("MaxNum") = MaxNum
  205. for each Str_Tmp in Arr_Tmp
  206. 'response.Write(Str_Tmp&":"&NoSqlHack(request.Form(Str_Tmp))&"<br>")
  207. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  208. next
  209. 'response.End()
  210. VS_Rs.update
  211. VS_Rs.close
  212. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Theme.asp?Act=Add&Theme="&request.Form("Theme") ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  213. end if
  214. End Sub
  215. %>
  216. <html xmlns="http://www.w3.org/1999/xhtml">
  217. <HEAD>
  218. <TITLE>FoosunCMS</TITLE>
  219. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  220. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  221. <script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  222. <script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
  223. <script language="JavaScript" src="../../FS_Inc/coolWindowsCalendar.js"></script>
  224. <script language="JavaScript">
  225. <!--
  226. //点击标题排序
  227. /////////////////////////////////////////////////////////
  228. var Old_Sql = document.URL;
  229. function OrderByName(FildName)
  230. {
  231. var New_Sql='';
  232. var oldFildName="";
  233. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  234. {
  235. if (Old_Sql.indexOf("=")>-1)
  236. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  237. else
  238. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  239. }
  240. else
  241. {
  242. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  243. for(var ii=0;ii<tmp_arr_.length;ii++)
  244. {
  245. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  246. {
  247. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  248. break;
  249. }
  250. }
  251. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  252. }
  253. //alert(New_Sql);
  254. location = New_Sql;
  255. }
  256. /////////////////////////////////////////////////////////
  257. -->
  258. </script>
  259. <head>
  260. <body>
  261. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  262.      <tr  class="hback"> 
  263.             
  264.     <td colspan="10" align="left" class="xingmu" >投票主题管理</td>
  265. </tr>
  266.   <tr  class="hback"> 
  267.     <td colspan="10" height="25">
  268.  <a href="VS_Theme.asp">管理首页</a> | <a href="VS_Theme.asp?Act=Add">新增</a> | <a href="VS_Theme.asp?Act=Search">查询</a>
  269. </td>
  270.   </tr>
  271. </table>
  272. <%
  273. '******************************************************************
  274. select case request.QueryString("Act")
  275. case "Add","Edit","Search"
  276. Add_Edit_Search
  277. case "View","SearchGo",""
  278. View
  279. case "Save"
  280. Save
  281. case "Del"
  282. Del
  283. case "OtherSet"
  284. OtherSet(request.QueryString("Sql"))
  285. case else
  286. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>错误的参数传递。</li>") : response.End()
  287. end select
  288. '******************************************************************
  289. Sub View()
  290. if not MF_Check_Pop_TF("VS003") then Err_Show
  291. %>
  292. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  293. <form name="form1" id="form1" method="post" action="?Act=Del">
  294.    <tr  class="hback"> 
  295.       <td align="center" class="xingmu"><a href="javascript:OrderByName('Theme')" class="sd"><b>调查主题</b></a> 
  296.         <span id="Show_Oder_Theme"></span></td>
  297.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('CID')" class="sd"><b>调查类别</b></a> 
  298.         <span id="Show_Oder_CID"></span></td>
  299.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('Type')" class="sd"><b>项目类型</b></a> 
  300.         <span id="Show_Oder_Type"></span></td>
  301.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('MaxNum')" class="sd"><b>最多选数</b></a> 
  302.         <span id="Show_Oder_MaxNum"></span></td>
  303.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('DisMode')" class="sd"><b>显示方式</b></a> 
  304.         <span id="Show_Oder_DisMode"></span></td>
  305.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('StartDate')" class="sd"><b>开始时间</b></a> 
  306.         <span id="Show_Oder_StartDate"></span></td>
  307.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('EndDate')" class="sd"><b>结束时间</b></a> 
  308.         <span id="Show_Oder_EndDate"></span></td>
  309.       <td align="center" class="xingmu" ><b>JS调用</b></td>
  310.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  311.     </tr>
  312.     <%
  313. response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  314. %>
  315.    </form>
  316. </table>
  317. <%End Sub
  318. Sub Add_Edit_Search()
  319. if not MF_Check_Pop_TF("VS003") then Err_Show
  320. Dim Bol_IsEdit,TID,CID,DisMode,sType,StartDate,EndDate,ItemMOde,MaxNum
  321. Bol_IsEdit = false
  322. if request.QueryString("Act")="Edit" then
  323. TID = request.QueryString("TID")
  324. if TID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的TID没有提供。</li>") : response.End()
  325. VS_Sql = "select TID,CID,Theme,Type,MaxNum,DisMode,StartDate,EndDate,ItemMOde from FS_VS_Theme where TID = "& TID
  326. Set VS_Rs = CreateObject(G_FS_RS)
  327. VS_Rs.Open VS_Sql,Conn,1,1
  328. if not VS_Rs.eof then 
  329. Bol_IsEdit = True
  330. CID = VS_Rs("CID")
  331. sType = VS_Rs("Type")
  332. DisMode = VS_Rs("DisMode")
  333. StartDate = VS_Rs("StartDate")
  334. EndDate = VS_Rs("EndDate")
  335. ItemMOde = VS_Rs("ItemMOde")
  336. MaxNum = VS_Rs("MaxNum")
  337. end if
  338. elseif request.QueryString("Act") = "Add" then 
  339. sType = 1
  340. DisMode = 1 
  341. StartDate = formatdatetime(now,0)
  342. EndDate = formatdatetime(dateadd("m",1,now),0) ''一个月
  343. ItemMOde = 1
  344. MaxNum = 1
  345. end if
  346. %>
  347. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  348.   <form name="form1" id="form1" method="post" <%if request.QueryString("Act")<>"Search" then response.Write("action=""?Act=Save"" onsubmit=""return chkinput();""") else response.Write("action=""?Act=SearchGo"" onsubmit=""SearchAdd();""") end if%>>
  349.     <tr  class="hback"> 
  350.       <td colspan="3" align="left" class="xingmu" >投票主题信息<%if Bol_IsEdit then  response.Write("<input type=""hidden"" name=""TID"" id=""TID"" value="""&VS_Rs("TID")&""">") end if%></td>
  351. </tr>
  352. <%if request.QueryString("Act")="Search" then %>
  354.     <tr class="hback"> 
  355.       <td width="100" align="right">自动编号</td>
  356.       <td>
  357.    <input type="text" name="TID" id="TID" size="11" maxlength="11">
  358.       </td>
  359.     </tr>
  360. <%end if%>
  361.     <tr  class="hback"> 
  362.       <td align="right">调查类别</td>
  363.       <td>
  364. <select name="CID" id="CID" onChange="Do.these('CID',function(){return isEmpty('CID','CID_Alt')})">
  365. <option value="">请选择</option>
  366. <%=Get_FildValue_List("select CID,ClassName from FS_VS_Class",CID,1)%>
  367. </select>
  368. <span id="CID_Alt"></span>
  369.   </td>
  370.     </tr>
  371.     <tr  class="hback"> 
  372.       <td align="right">调查主题</td>
  373.       <td>
  374. <input type="text" name="Theme" id="Theme" size="30" maxlength="50" onFocus="Do.these('Theme',function(){return isEmpty('Theme','Theme_Alt')})" onKeyUp="Do.these('Theme',function(){return isEmpty('Theme','Theme_Alt')})" value="<%if Bol_IsEdit then response.Write(VS_Rs("Theme")) end if%>">
  375. <span id="Theme_Alt"></span>
  376.   </td>
  377.     </tr>
  378.     <tr  class="hback"> 
  379.       <td align="right">项目类型</td>
  380.       <td>
  381. <select name="Type" id="Type" onChange="Do.these('Type',function(){return isEmpty('Type','Type_Alt')});this.options[this.selectedIndex].value=='2'?MaxNum.disabled=false:MaxNum.disabled=true;">
  382. <%=PrintOption(sType,":请选择,1:单选,2:多选")%>
  383. </select>
  384. <span id="Type_Alt"></span>
  385.   </td>
  386.     </tr>
  387.     <tr  class="hback"> 
  388.       <td align="right">最多选项个数</td>
  389.       <td>
  390. <input type="text" name="MaxNum" id="MaxNum" size="5" maxlength="4" onFocus="Do.these('MaxNum',function(){return isNumber('MaxNum','MaxNum_Alt','必须是正整数',true)})" onKeyUp="Do.these('MaxNum',function(){return isNumber('MaxNum','MaxNum_Alt','必须是正整数',true)})" value="<%=MaxNum%>">
  391. <span class="tx">最多选项个数,只针对多选</span>&nbsp;<span id="MaxNum_Alt"></span>
  392.   </td>
  393.     </tr>
  394.     <tr  class="hback"> 
  395.       <td align="right">显示方式</td>
  396.       <td> <select name="DisMode" id="DisMode" onChange="Do.these('DisMode',function(){return isEmpty('DisMode','DisMode_Alt')});">
  397.           <%=PrintOption(DisMode,":请选择,1:直方图,2:饼图,3:折线图")%> 
  398.         </select>
  399.         <span id="DisMode_Alt"></span> </td>
  400.     </tr>
  401.      <tr  class="hback"> 
  402.       <td align="right">开始时间</td>
  403.       <td>
  404.   <input name="StartDate" type="text" id="StartDate" style="WIDTH: 150px; HEIGHT: 22px"  onfocus="setday(this)" value="<%=StartDate%>" readonly="" maskType="longDate">
  405.   <IMG onClick="StartDate.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom">
  406.   </td>
  407.     </tr>
  408.    <tr  class="hback"> 
  409.       <td align="right">结束时间</td>
  410.       <td>
  411.   <input type="text" name="EndDate" id="EndDate" readonly=""  onfocus="setday(this)" style="WIDTH: 150px; HEIGHT: 22px" maskType="longDate" value="<%=EndDate%>">
  412.   <IMG onClick="EndDate.focus()" src="../../FS_Inc/calendar.bmp" align="absBottom">
  413.   </td>
  414.     </tr>
  415.     <tr  class="hback"> 
  416.       <td align="right">选项排列方式</td>
  417.       <td>
  418. <select name="ItemMOde" id="ItemMOde" onChange="Do.these('ItemMOde',function(){return isEmpty('ItemMOde','ItemMOde_Alt')});">
  419.  <%=PrintOption(ItemMOde,":请选择,0:横向排列,1:1选项/行(纵向),2:2选项/行,3:3选项/行,4:4选项/行,5:5选项/行,6:6选项/行,7:7选项/行,8:8选项/行,9:9选项/行,10:10选项/行,11:11选项/行,12:12选项/行")%>
  420. </select>
  421. <span id="ItemMOde_Alt"></span>
  422.   </td>
  423.     </tr>
  424.    <tr class="hback"> 
  425.       <td colspan="4">
  426.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  427.           <tr> 
  428.             <td align="center"> <input type="submit"value=" 确定提交 "/> 
  429.               &nbsp; <input type="reset" value=" 重置 " />
  430.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("VS_Theme.asp?Act=Del&TID="&TID)%>'">
  431.             </td>
  432.           </tr>
  433.         </table>
  434.       </td>
  435.     </tr>
  436.   </form>
  437. </table>
  438. <%
  439. End Sub
  440. set VS_Rs = Nothing
  441. Conn.close
  442. %>
  443. <script language="JavaScript">
  444. <!--//判断后将排序完善.字段名后面显示指示
  445. //打开后根据规则显示箭头
  446. var Req_FildName;
  447. if (Old_Sql.indexOf("filterorderby=")>-1)
  448. {
  449. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  450. for(var ii=0;ii<tmp_arr_.length;ii++)
  451. {
  452. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  453. {
  454. if(Old_Sql.indexOf("csed")>-1)
  455. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  456. else
  457. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  458. }
  459. }
  460. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  461. {
  462. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  463. {
  464. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  465. }
  466. else
  467. {
  468. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  469. }
  470. }
  471. }
  472. ///////////////////////////////////////////////////////// 
  473. function chkinput()
  474. {
  475. if (document.all.Type.value!='2' ) document.all.MaxNum.value='1';
  476. return isEmpty('Type','Type_Alt') && isNumber('MaxNum','MaxNum_Alt','必须是正整数',true) && isEmpty('Theme','Theme_Alt') && isEmpty('DisMode','DisMode_Alt') && isEmpty('CID','CID_Alt');
  477. }
  478. function SearchAdd()
  479. {
  480. if(document.all.StartDate.value) if (document.all.StartDate.value.indexOf('>=')<0) {document.all.StartDate.value='>=#'+document.all.StartDate.value+'#'};
  481. if(document.all.EndDate.value) if (document.all.EndDate.value.indexOf('<=')<0) {document.all.EndDate.value='<=#'+document.all.EndDate.value+'#'};
  482. }
  484. function getCode(jsid)
  485. {
  486. if (jsid!=""&&!isNaN(jsid))
  487. {
  488. OpenWindow('Frame.asp?PageTitle=获取JS调用代码&FileName=showJsPath.asp&JsID='+jsid,360,180,window);
  489. }else
  490. {
  491. alert("出现错误，请联系客服人员！")
  492. }
  494. }
  496. -->
  497. </script>
  500. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->