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

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

数据库编程

开发平台：

ASP/ASPX

VS_Steps.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>"&This_Fun_Sql&"抱歉,传入的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 = "SID,TID,Steps,QuoteID"
  81. This_Fun_Sql = "select "&Str_Tmp&" from FS_VS_Steps"
  82. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  83. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  84. if request.QueryString("Act")="SearchGo" then 
  85. Arr_Tmp = split(Str_Tmp,",")
  86. for each Str_Tmp in Arr_Tmp
  87. Req_Str = NoSqlHack(Trim(request(Str_Tmp)))
  88. if Req_Str<>"" then 
  89. select case Str_Tmp
  90. case ""
  91. ''字符
  92. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  93. case else
  94. ''数字,日期
  95. regxp = "|<|>|=|<=|>=|<>|"
  96. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  97. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  98. elseif instr(Req_Str,"*")>0 then 
  99. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  100. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  101. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  102. else
  103. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  104. end if
  105. end select 
  106. end if
  107. next
  108. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  109. end if
  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_Steps.asp?Act=Edit&SID="&VS_Rs("SID")&""" title=""点击修改或查看详细"">"&VS_Rs("SID")&"</a></td>" & vbcrlf
  135. Get_Html = Get_Html & "<td align=""center"">"&Get_OtherTable_Value("select ItemName from FS_VS_Items where TID= "&VS_Rs("TID"))&"</td>" & vbcrlf
  136. Get_Html = Get_Html & "<td align=""center""><a href=""VS_Steps.asp?Act=Edit&SID="&VS_Rs("SID")&""" title=""点击修改或查看详细"">第"&VS_Rs("Steps")&"步</a></td>" & vbcrlf
  137. Get_Html = Get_Html & "<td align=""center"">"&Get_OtherTable_Value("select ItemName from FS_VS_Items where TID= "&VS_Rs("QuoteID"))&"</td>" & vbcrlf
  138. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""SID"" id=""SID"" value="""&VS_Rs("SID")&""" /></td>" & vbcrlf
  139. Get_Html = Get_Html & "</tr>" & vbcrlf
  140. VS_Rs.MoveNext
  141.   if VS_Rs.eof or VS_Rs.bof then exit for
  142.       NEXT
  143. END IF
  144. 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
  145. Get_Html = Get_Html & fPageCount(VS_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  146. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  147. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  148. Get_Html = Get_Html &"</td></tr>"
  149. VS_Rs.close
  150. Get_While_Info = Get_Html
  151. End Function
  153. Sub Del()
  154. if not MF_Check_Pop_TF("VS002") then Err_Show'权限判断
  155. Dim Str_Tmp
  156. if request.QueryString("SID")<>"" then 
  157. Conn.execute("Delete from FS_VS_Steps where SID = "&NoSqlHack(request.QueryString("SID")))
  158. else
  159. Str_Tmp = NoSqlHack(request.form("SID"))
  160. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>"):response.End()
  161. Str_Tmp = replace(Str_Tmp," ","")
  162. Conn.execute("Delete from FS_VS_Steps where SID in ("&Str_Tmp&")")
  163. end if
  164. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Steps.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  165. End Sub
  166. ''================================================================
  167. Sub Save()
  168. if not MF_Check_Pop_TF("VS002") then Err_Show
  169. Dim Str_Tmp,Arr_Tmp,SID,MaxNum
  170. Str_Tmp = "TID,Steps,QuoteID"
  171. Arr_Tmp = split(Str_Tmp,",")
  172. SID = NoSqlHack(request.Form("SID"))
  173. if not isnumeric(SID) or not SID<>"" then SID = 0
  174. VS_Sql = "select "&Str_Tmp&"  from FS_VS_Steps  where SID = "&SID
  175. Set VS_Rs = CreateObject(G_FS_RS)
  176. VS_Rs.Open VS_Sql,Conn,3,3
  177. if not VS_Rs.eof then 
  178. ''修改
  179. for each Str_Tmp in Arr_Tmp
  180. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  181. next
  182. VS_Rs.update
  183. VS_Rs.close
  184. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Steps.asp?Act=Edit&SID="&SID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  185. else
  186. ''新增
  187. if Conn.execute("Select Count(*) from FS_VS_Steps where TID="&NoSqlHack(request.Form("TID"))&" and  QuoteID="&NoSqlHack(request.Form("QuoteID")))(0)>0 then 
  188. response.Redirect("../error.asp?ErrCodes=<li>你提交的数据已经存在，属于重复提交，请更换关键字。</li>"):response.End()
  189. end if
  190. VS_Rs.addnew
  191. for each Str_Tmp in Arr_Tmp
  192. 'response.Write(Str_Tmp&":"&NoSqlHack(request.Form(Str_Tmp))&"<br>")
  193. VS_Rs(Str_Tmp) = NoSqlHack(request.Form(Str_Tmp))
  194. next
  195. 'response.End()
  196. VS_Rs.update
  197. VS_Rs.close
  198. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "Vote/VS_Steps.asp?Act=Add&TID="&request.Form("TID")&"&Steps="&request.Form("Steps") ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  199. end if
  200. End Sub
  201. %>
  202. <html xmlns="http://www.w3.org/1999/xhtml">
  203. <HEAD>
  204. <TITLE>FoosunCMS</TITLE>
  205. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  206. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  207. <script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  208. <script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
  209. <script language="JavaScript">
  210. <!--
  211. //点击标题排序
  212. /////////////////////////////////////////////////////////
  213. var Old_Sql = document.URL;
  214. function OrderByName(FildName)
  215. {
  216. var New_Sql='';
  217. var oldFildName="";
  218. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  219. {
  220. if (Old_Sql.indexOf("=")>-1)
  221. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  222. else
  223. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  224. }
  225. else
  226. {
  227. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  228. for(var ii=0;ii<tmp_arr_.length;ii++)
  229. {
  230. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  231. {
  232. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  233. break;
  234. }
  235. }
  236. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  237. }
  238. //alert(New_Sql);
  239. location = New_Sql;
  240. }
  241. /////////////////////////////////////////////////////////
  242. -->
  243. </script>
  244. <head>
  245. <body>
  246. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  247.      <tr  class="hback"> 
  248.             
  249.     <td colspan="10" align="left" class="xingmu" >多步投票管理</td>
  250. </tr>
  251.   <tr  class="hback"> 
  252.     <td colspan="10" height="25">
  253.  <a href="VS_Steps.asp">管理首页</a> | <a href="VS_Steps.asp?Act=Add">新增</a> | <a href="VS_Steps.asp?Act=Search">查询</a>
  254. </td>
  255.   </tr>
  256. </table>
  257. <%
  258. '******************************************************************
  259. select case request.QueryString("Act")
  260. case "Add","Edit","Search"
  261. Add_Edit_Search
  262. case "View","SearchGo",""
  263. View
  264. case "Save"
  265. Save
  266. case "Del"
  267. Del
  268. case "OtherSet"
  269. OtherSet(request.QueryString("Sql"))
  270. case else
  271. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>错误的参数传递。</li>") : response.End()
  272. end select
  273. '******************************************************************
  274. Sub View()
  275. if not MF_Check_Pop_TF("VS003") then Err_Show
  276. %>
  277. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  278. <form name="form1" id="form1" method="post" action="?Act=Del">
  279.    <tr  class="hback"> 
  280.       <td align="center" class="xingmu"><a href="javascript:OrderByName('SID')" class="sd"><b>[ID]</b></a> 
  281.         <span id="Show_Oder_SID"></span></td>
  282.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('TID')" class="sd"><b>调查主题</b></a> 
  283.         <span id="Show_Oder_TID"></span></td>
  284.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('Steps')" class="sd"><b>顺序号</b></a> 
  285.         <span id="Show_Oder_Steps"></span></td>
  286.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('QuoteID')" class="sd"><b>调用主题</b></a> 
  287.         <span id="Show_Oder_QuoteID"></span></td>
  288.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  289.     </tr>
  290.     <%
  291. response.Write( Get_While_Info( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  292. %>
  293.    </form>
  294. </table>
  295. <%End Sub
  296. Sub Add_Edit_Search()
  297. if not MF_Check_Pop_TF("VS003") then Err_Show
  298. Dim Bol_IsEdit,SID,TID,Steps,QuoteID
  299. Bol_IsEdit = false
  300. if request.QueryString("Act")="Edit" then
  301. SID = request.QueryString("SID")
  302. if SID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的SID没有提供。</li>") : response.End()
  303. VS_Sql = "select SID,TID,Steps,QuoteID from FS_VS_Steps where SID = "& SID
  304. Set VS_Rs = CreateObject(G_FS_RS)
  305. VS_Rs.Open VS_Sql,Conn,1,1
  306. if not VS_Rs.eof then 
  307. Bol_IsEdit = True
  308. TID = VS_Rs("TID")
  309. Steps = VS_Rs("Steps")
  310. QuoteID = VS_Rs("QuoteID")
  311. end if
  312. elseif request.QueryString("Act") = "Add" then 
  313. TID = request.QueryString("TID")
  314. Steps = request.QueryString("Steps")
  315. if Steps = "" then 
  316. Steps = 1
  317. else
  318. if isnumeric(Steps) then 
  319. Steps = cint(Steps)+1
  320. else
  321. Steps = 1
  322. end if
  323. end if
  324. QuoteID = ""
  325. end if
  326. %>
  327. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  328.   <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""") end if%>>
  329.     <tr  class="hback"> 
  330.       <td colspan="3" align="left" class="xingmu" >投票主题信息<%if Bol_IsEdit then  response.Write("<input type=""hidden"" name=""SID"" id=""SID"" value="""&VS_Rs("SID")&""">") end if%></td>
  331. </tr>
  332. <%if request.QueryString("Act")="Search" then %>
  334.     <tr class="hback"> 
  335.       <td width="100" align="right">自动编号</td>
  336.       <td>
  337.    <input type="text" name="SID" id="SID" size="11" maxlength="11">
  338.       </td>
  339.     </tr>
  340. <%end if%>
  341.     <tr  class="hback"> 
  342.       <td align="right">调查主题</td>
  343.       <td>
  344. <select name="TID" id="TID" onChange="Do.these('TID',function(){return isEmpty('TID','TID_Alt')})">
  345. <option value="">请选择</option>
  346. <%=Get_FildValue_List("select TID,Theme from FS_VS_Theme",TID,1)%>
  347. </select>
  348. <span id="TID_Alt"></span>
  349.   </td>
  350.     </tr>
  351.     <tr  class="hback"> 
  352.       <td align="right">顺序号</td>
  353.       <td>
  354. <input type="text" name="Steps" id="Steps" size="30" maxlength="3" onFocus="Do.these('Steps',function(){return isEmpty('Steps','Steps_Alt')&&isNumber('Steps','Steps_Alt','必须正整数',true)})" onKeyUp="Do.these('Steps',function(){return isEmpty('Steps','Steps_Alt')&&isNumber('Steps','Steps_Alt','必须正整数',true)})" value="<%=Steps%>">
  355. <span id="Steps_Alt"></span>
  356.   </td>
  357.     </tr>
  358.     <tr  class="hback"> 
  359.       <td align="right">调用主题</td>
  360.       <td>
  361. <select name="QuoteID" id="QuoteID" onChange="Do.these('QuoteID',function(){return isEmpty('QuoteID','QuoteID_Alt')})">
  362. <option value="">请选择</option>
  363. <%=Get_FildValue_List("select TID,Theme from FS_VS_Theme",QuoteID,1)%>
  364. </select>
  365. <span id="QuoteID_Alt"></span>
  366.   </td>
  367.     </tr>
  368.    <tr class="hback"> 
  369.       <td colspan="4">
  370.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  371.           <tr> 
  372.             <td align="center"> <input type="submit"value=" 确定提交 "/> 
  373.               &nbsp; <input type="reset" value=" 重置 " />
  374.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("VS_Steps.asp?Act=Del&SID="&SID)%>'">
  375.             </td>
  376.           </tr>
  377.         </table>
  378.       </td>
  379.     </tr>
  380.   </form>
  381. </table>
  382. <%
  383. End Sub
  384. set VS_Rs = Nothing
  385. Conn.close
  386. %>
  387. <script language="JavaScript">
  388. <!--//判断后将排序完善.字段名后面显示指示
  389. //打开后根据规则显示箭头
  390. var Req_FildName;
  391. if (Old_Sql.indexOf("filterorderby=")>-1)
  392. {
  393. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  394. for(var ii=0;ii<tmp_arr_.length;ii++)
  395. {
  396. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  397. {
  398. if(Old_Sql.indexOf("csed")>-1)
  399. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  400. else
  401. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  402. }
  403. }
  404. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  405. {
  406. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  407. {
  408. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  409. }
  410. else
  411. {
  412. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  413. }
  414. }
  415. }
  416. ///////////////////////////////////////////////////////// 
  417. function chkinput()
  418. {
  419. return isEmpty('TID','TID_Alt') && isEmpty('Steps','Steps_Alt') && isNumber('Steps','Steps_Alt','必须正整数',true) && isEmpty('QuoteID','QuoteID_Alt');
  420. }
  421. function SearchAdd()
  422. {
  423. if(document.all.StartDate.value) if (document.all.StartDate.value.indexOf('>=')<0) {document.all.StartDate.value='>=#'+document.all.StartDate.value+'#'};
  424. if(document.all.EndDate.value) if (document.all.EndDate.value.indexOf('<=')<0) {document.all.EndDate.value='<=#'+document.all.EndDate.value+'#'};
  425. }
  426. -->
  427. </script>
  430. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->