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

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

数据库编程

开发平台：

ASP/ASPX

HS_Tenancy.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <!--#include file="../../FS_Inc/Func_page.asp" -->
  6. <!--#include file="../lib/strlib.asp" -->
  7. <!--#include file="../lib/UserCheck.asp" -->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.liu
  9. Dim straction
  10. straction = Request("action")
  11. if straction="Unmessage" then
  12. User_Conn.execute("update FS_ME_Users set ismessage= 0 where UserNumber='"& Fs_User.UserNumber &"'")
  13. strShowErr = "<li>订阅本站资料取消</li>"
  14. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  15. Response.end
  16. Elseif straction = "ismessage" then
  17. User_Conn.execute("update FS_ME_Users set ismessage= 1 where UserNumber='"& Fs_User.UserNumber &"'")
  18. strShowErr = "<li>订阅本站资料成功</li>"
  19. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  20. Response.end
  21. Elseif straction = "Open" then
  22. User_Conn.execute("update FS_ME_Users set isOpen= 1 where UserNumber='"& Fs_User.UserNumber &"'")
  23. strShowErr = "<li>对外开放资料开启</li>"
  24. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  25. Response.end
  26. Elseif straction = "Close" then
  27. User_Conn.execute("update FS_ME_Users set isOpen= 0 where UserNumber='"& Fs_User.UserNumber &"'")
  28. strShowErr = "<li>对外开放资料取消</li>"
  29. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  30. Response.end
  31. End if
  32. %>
  33. <%
  34. Dim tenancy_rs,mytype,order,sqlstatement,order_status,tClass,HouseStyleArray,HouseStyle,Decoration,UseFor,Floor,equip
  35. Dim id_order,usefor_order,Class_order,price_order,time_order
  36. session("audit")=request.querystring("audit")
  37. order=request.QueryString("order")
  38. mytype=trim(request.QueryString("type"))
  39. if mytype="" then
  40. mytype=1
  41. End if
  42. if session("orderstatus")="" then
  43. session("orderstatus")="asc"
  44. End if
  45. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,i
  46. '---------------------------------分页定义
  47. int_RPP=15 '设置每页显示数目
  48. int_showNumberLink_=8 '数字导航显示数目
  49. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  50. str_nonLinkColor_="#999999" '非热链接颜色
  51. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  52. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  53. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  54. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  55. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  56. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  57. '--------------------------------------------------
  58. select case order
  59. case "orderbyid" 
  60. if session("audit")="1" then 
  61. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' and Audited=1 and order by tid "&session("orderstatus")
  62. else 
  63. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' order by tid "&session("orderstatus")
  64. end if
  66. case "orderbyusefor" 
  67. if session("audit")="1" then 
  68. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' and Audited=1 order by UseFor "&session("orderstatus")
  69. else
  70. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy  where UserNumber='"&session("FS_UserNumber")&"' order by UseFor "&session("orderstatus")
  71. end if
  73. case "orderbyclass" 
  74. if session("audit")="1" then 
  75. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' and Audited=1 order by Class "&session("orderstatus")
  76. else
  77. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' order by Class "&session("orderstatus")
  78. end if
  80. case "orderbyprice" 
  81. if session("audit")="1" then
  82. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where Audited=1 order by Price "&session("orderstatus")
  83. else
  84. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' order by Price "&session("orderstatus")
  85. End if
  87. case "orderbytime" 
  88. if session("audit")="1" then
  89. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' and Audited=1 order by PubDate "&session("orderstatus")
  90. else
  91. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' order by PubDate "&session("orderstatus")
  92. End if
  94. case else 
  95. if session("audit")="1" then
  96. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' and Audited=1 order by tid desc"
  97. else
  98. sqlstatement="select tid,UseFor,class,Position,CityArea,Price,HouseStyle,Area,Floor,BuildDate,equip,Decoration,LinkMan,Contact,Period,Remark,PubDate,Audited,UserNumber  from FS_HS_Tenancy where UserNumber='"&session("FS_UserNumber")&"' order by tid desc"
  99. End if
  100. end select
  101. '排序状态
  102. Function changeOrderStatus()
  103. Dim order_desc
  104. if session("orderstatus")="asc" then
  105. session("orderstatus")="desc"
  106. order_desc="<font color='red'>↑</font>"
  107. else
  108. session("orderstatus")="asc"
  109. order_desc="<font color='red'>↓</font>"
  110. End if
  111. select case order
  112. case "orderbyid"    id_order=order_desc
  113. usefor_order=""
  114. Class_order=""
  115. price_order=""
  116. time_order=""
  118. case "orderbyusefor" usefor_order=order_desc
  119.  id_order=""
  120.  class_order=""
  121.  price_order=""
  122.  time_order=""
  124. case "orderbyclass" Class_order=order_desc
  125. id_order=""
  126. time_order=""
  127. usefor_order=""
  128. price_order=""
  130. case "orderbyprice" price_order=order_desc
  131. id_order=""
  132. Class_order=""
  133. time_order=""
  134. usefor_order=""
  136. case "orderbytime"  time_order=order_desc
  137. id_order=""
  138. Class_order=""
  139. usefor_order=""
  140. price_order=""
  141. end select
  142. End Function
  143. if trim(order)<>"" then
  144. changeOrderStatus()
  145. End if
  146. %>
  147. <html xmlns="http://www.w3.org/1999/xhtml">
  148. <title>User Manage Center-网站内容管理系统</title>
  149. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  150. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  151. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  152. <link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  153. <head>
  154. <script language="javascript" src="../../FS_Inc/CheckJs.js"></script>
  155. <script language="javascript" src="../../FS_Inc/prototype.js"></script>
  156. <script language="javascript" src="../../FS_Inc/PublicJS.js"></script>
  157. </head>
  158. <body>
  159. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  160.   <tr>
  161.     <td><!--#include file="../top.asp" -->
  162.     </td>
  163.   </tr>
  164. </table>
  165. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  166.   <tr class="back">
  167.     <td   colspan="2" class="xingmu" height="26"><!--#include file="../Top_navi.asp" -->
  168.     </td>
  169.   </tr>
  170.   <tr class="back">
  171.     <td width="18%" valign="top" class="hback"><div align="left">
  172.         <!--#include file="../menu.asp" -->
  173.       </div></td>
  174.     <td width="82%" valign="top" class="hback">
  175. <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  176.         <tr>
  177.           <td class="xingmu" align="center" <%if not isCorp() then Response.Write("style=""display:none""")%>><a href="houseManage.asp">楼盘信息</a></td>
  178.           <td class="xingmu" align="center"><a href="HS_Tenancy.asp" style="color:#FF0000">租赁信息</a></td>
  179.           <td class="xingmu" align="center"><a href="HS_Second.asp" >二手房信息</a></td>
  180.         <tr>
  181.           <td colspan="3">
  182.   <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  183. <tr>
  184. <td class="xingmu" colspan="4">租赁信息 <a href="#" onClick="history.back()">后退</a> <a href="#" class="sd" title="选中复选框，查看已审核信息" onClick="linkShowaudit();showaudit();">已审核信息</a>
  185.   <input type="checkbox" name="myaudit" id="audit" value="" onClick="showaudit()" <%if session("audit")="1" then response.Write("checked")%>/></td>
  186. </tr>
  187. </table>
  188. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  189. <tr>
  190. <td class="hback_1" align="center" width="10%"><a href="HS_Tenancy.asp?order=orderbyid&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">编号<%=id_order%></a></td>
  191. <td class="hback_1" align="center" width="20%"><a href="HS_Tenancy.asp?order=orderbyusefor&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">用途<%=usefor_order%></a></td>
  192. <td class="hback_1" align="center" width="15%"><a href="HS_Tenancy.asp?order=orderbyclass&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">类型<%=class_order%></a></td>
  193. <td class="hback_1" align="center" width="15%"><a href="HS_Tenancy.asp?order=orderbyprice&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">价格<%=price_order%></a></td>
  194. <td class="hback_1" align="center" width="15%"><a href="HS_Tenancy.asp?order=orderbytime&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">发布时间<%=time_order%></a></td>
  195. <td class="hback_1" align="center" width="20%"><a href="#" class="sd">操作</a></td>
  196. <td class="hback_1" align="center" width="5%"><input type="checkbox" value="" name="tenancylist"  onclick="selectAll(document.all('tenancylist'))"/></td>
  197. </tr>
  198. <%
  199. Set tenancy_rs=Server.CreateObject(G_FS_RS)
  200. tenancy_rs.open sqlstatement,Conn,1,1
  201. If Not tenancy_rs.eof then
  202. '分页使用-----------------------------------
  203. tenancy_rs.PageSize=int_RPP
  204. cPageNo=NoSqlHack(Request.QueryString("page"))
  205. If cPageNo="" Then cPageNo = 1
  206. If not isnumeric(cPageNo) Then cPageNo = 1
  207. cPageNo = Clng(cPageNo)
  208. If cPageNo<=0 Then cPageNo=1
  209. If cPageNo>tenancy_rs.PageCount Then cPageNo=tenancy_rs.PageCount 
  210. tenancy_rs.AbsolutePage=cPageNo
  211. End if
  212. Dim audit
  213. for i=0 to int_RPP
  214. if tenancy_rs.eof then exit for
  215. select case tenancy_rs("Class")
  216. case "1"  tClass="出租"
  217. case "2"  tClass="求租"
  218. case "3"  tClass="出售"
  219. case "4"  tClass="求购"
  220. case "5"  tClass="合租"
  221. case "6"  tClass="转让" 
  222. end select
  223. if tenancy_rs("UseFor")="1" then
  224. UseFor="住房"
  225. else
  226. UseFor="写字间"
  227. end if
  228. if tenancy_rs("audited")="1" then
  229. audit="已审核"
  230. else
  231. audit="<font color='red'>未审核</font>"
  232. End if
  233. Response.Write("<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>"&vbcrlf)
  234. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&tenancy_rs("TID")&"','2_detail"&tenancy_rs("TID")&"','3_detail"&tenancy_rs("TID")&"','4_detail"&tenancy_rs("TID")&"')"">"&tenancy_rs("TID")&"</td>"&vbcrlf)
  235. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&tenancy_rs("TID")&"','2_detail"&tenancy_rs("TID")&"','3_detail"&tenancy_rs("TID")&"','4_detail"&tenancy_rs("TID")&"')"">"&UseFor&"</td>"&vbcrlf)
  236. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&tenancy_rs("TID")&"','2_detail"&tenancy_rs("TID")&"','3_detail"&tenancy_rs("TID")&"','4_detail"&tenancy_rs("TID")&"')"">"&tClass&"</td>"&vbcrlf)
  237. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&tenancy_rs("TID")&"','2_detail"&tenancy_rs("TID")&"','3_detail"&tenancy_rs("TID")&"','4_detail"&tenancy_rs("TID")&"')"">￥"&tenancy_rs("price")&"元/月</td>"&vbcrlf)
  238. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&tenancy_rs("TID")&"','2_detail"&tenancy_rs("TID")&"','3_detail"&tenancy_rs("TID")&"','4_detail"&tenancy_rs("TID")&"')"">"&tenancy_rs("PubDate")&"</td>"&vbcrlf)
  239. response.Write("<td align='center' class='hback'><span id='audit"&tenancy_rs("TID")&"'>"&audit&"</span>&nbsp;|&nbsp;<span id='edit"&tenancy_rs("TID")&"'><a href='HS_Tenancy_Edit.asp?action=edit&id="&tenancy_rs("TID")&"'>修改</a></span>&nbsp;|&nbsp;<span id='delete"&tenancy_rs("TID")&"'><a href='#' class='sd' onclick=""deleteAction('delete"&tenancy_rs("TID")&"','"&tenancy_rs("TID")&"')"">删除</a></span></td>"&vbcrlf)
  240. response.Write("<td align='center' class='hback' onmousedown='document.body.onmousedown=null'><input type='checkbox' name='tenancylist' value='"&tenancy_rs("TID")&"'</td>"&vbcrlf)
  241. response.Write("</tr>"&vbcrlf)
  242. Response.Write("<tr id=""1_detail"&tenancy_rs("TID")&""" style=""display:none"">"&vbcrlf)
  243. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  244. Response.Write("├位置："&tenancy_rs("Position")&"&nbsp;|&nbsp;区县："&tenancy_rs("CityArea")&vbcrlf)
  245. response.Write("</td>"&vbcrlf)
  246. response.Write("</tr>"&vbcrlf)
  247. '户型处理
  248. if trim(tenancy_rs("HouseStyle"))<>"" then
  249. HouseStyleArray=split(tenancy_rs("HouseStyle"),",")
  250. HouseStyle=HouseStyleArray(0)&"室"&HouseStyleArray(1)&"厅"&HouseStyleArray(2)&"卫"
  251. else
  252. HouseStyle="暂无信息"
  253. End if
  254. '楼层处理
  255. if trim(tenancy_rs("Floor"))<>"" then
  256. Floor="总"&split(tenancy_rs("Floor"),",")(0)&"层，第"&split(tenancy_rs("Floor"),",")(1)&"层"
  257. else
  258. Floor="暂无信息"
  259. end if
  260. response.Write("<tr id=""2_detail"&tenancy_rs("TID")&""" style=""display:none"">"&vbcrlf)
  261. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  262. Response.Write("├户型："&HouseStyle&"&nbsp;|&nbsp;面积："&tenancy_rs("Area")&"平米&nbsp;|&nbsp;楼层："&Floor&vbcrlf)
  263. response.Write("</td>"&vbcrlf)
  264. Response.Write("</tr>"&vbcrlf)
  265. '处理装修情况
  266. select case tenancy_rs("Decoration")
  267. case "1" Decoration="简单装修"
  268. case "2" Decoration="中档装修"
  269. case "3" Decoration="高档装修"
  270. case else  Decoration="暂无信息"
  271. end select
  272. '处理设施
  273. if tenancy_rs("equip")<>"" then
  274. equip=replace(replace(replace(replace(replace(replace(tenancy_rs("equip"),"l","通水"),"m","电"),"n","气"),"x","电话"),"y","光纤"),"z","宽带")
  275. else
  276. equip="无相关信息"
  277. End if
  278. response.Write("<tr id=""3_detail"&tenancy_rs("TID")&""" style=""display:none"">"&vbcrlf)
  279. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  280. Response.Write("├配套设施："&equip&"&nbsp;|&nbsp;装修情况："&Decoration&vbcrlf)
  281. response.Write("</td>"&vbcrlf)
  282. Response.Write("</tr>"&vbcrlf)
  284. response.Write("<tr id=""4_detail"&tenancy_rs("TID")&""" style=""display:none"">"&vbcrlf)
  285. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  286. response.Write("├联系人："&tenancy_rs("LinkMan")&"&nbsp;|&nbsp;联系方式："&tenancy_rs("Contact")&vbcrlf)
  287. response.Write("</td>"&vbcrlf)
  288. Response.Write("</tr>"&vbcrlf)
  289. response.Write("</div>"&vbcrlf)
  290. tenancy_rs.movenext
  291. next
  292. %>
  293. <tr>
  294. <td colspan="7" align="right" class="hback">
  295. <button onClick="javascript:location='HS_Tenancy_Edit.asp?action=add'">发布信息</button>&nbsp;
  296. <button onClick="auditBatAction('audit')">批量审核</button>&nbsp;
  297. <button onClick="auditBatAction('unaudit')">批量撤消审核</button>&nbsp;
  298. <button onClick="deleteBatAction()">批量删除</button>&nbsp;
  299. </td>
  300. </tr>
  301. <%
  302. Response.Write("<tr>"&vbcrlf)
  303. Response.Write("<td align='right' colspan='7'  class=""hback"">"&fPageCount(tenancy_rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
  304. Response.Write("</tr>"&vbcrlf)
  305. %>
  306. </table>
  307.   </td>
  308.         </tr>
  309.       </table></td>
  310.   </tr>
  311.   <tr class="back">
  312.     <td height="20"  colspan="2" class="xingmu"><div align="left">
  313.         <!--#include file="../Copyright.asp" -->
  314.       </div></td>
  315.   </tr>
  316. </table>
  317. </body>
  318. </html>
  319. <%
  320. Set Fs_User = Nothing
  321. Set User_Conn=nothing
  322. Set Conn=nothing
  323. tenancy_rs.close
  324. Set tenancy_rs=nothing
  325. %>
  326. <script language="javascript">
  327. function linkShowaudit()
  328. {
  329. if($('audit').checked)
  330. $('audit').checked=false;
  331. else
  332. $('audit').checked=true;
  334. }
  335. function showaudit()
  336. {
  337. if($('audit').checked)
  338. {
  339. location="HS_Tenancy.asp?audit=1";
  340. }else
  341. {
  342. location="HS_Tenancy.asp?audit=0";
  343. }
  344. }
  345. //操作
  346. //删除
  347. function deleteAction(container,id)
  348. {
  349. var url="HS_Quotation_Open_Action.asp?rad="+Math.random();
  350. var param="action=delete"+"&id="+id;
  351. if(confirm("确认要删除该条信息？"))
  352. var myAjax = new Ajax.Request(url,{method: 'get', parameters: param, onComplete: showResponse});
  353. function showResponse(originalRequest)
  354. {
  355. var value= originalRequest.responseText;
  356. if(value=="ok")
  357. {
  358. $(container).parentNode.parentNode.style.display='none';
  359. $('recordcount').innerHTML=parseInt($('recordcount').innerHTML)-1
  360. alert('删除成功！')
  361. }
  362. else
  363. {
  364. alert("发生异常，请与客服人员联系！");
  365. }
  366. }
  367. }
  368. //批量删除
  369. function deleteBatAction()
  370. {
  371. var url="HS_Quotation_Open_Action.asp?rad="+Math.random();
  372. var elements=document.all('quotationlist');
  373. var id="";
  374. var count=0;
  375. for(var i=1;i<elements.length;i++)
  376. {
  377. if(elements[i].checked)
  378. {
  379. id=elements[i].value+","+id;
  380. if(elements[i].parentNode.parentNode.style.display!="none")
  381. count+=1;
  382. }
  383. }
  384. if(id.length<2)
  385. {
  386. alert("请选择要删除的记录！");
  387. return;
  388. }
  389. param="action=delete"+"&id="+id;
  390. if(confirm("确认要删除该条信息？"))
  391. var myAjax = new Ajax.Request(url,{method: 'get', parameters: param, onComplete: showResponse});
  392. function showResponse(originalRequest)
  393. {
  394. var value= originalRequest.responseText;
  395. if(value=="ok")
  396. {
  397. for(var i=1;i<elements.length;i++)
  398. {
  399. if(elements[i].checked)
  400. {
  401. elements[i].parentNode.parentNode.style.display='none';
  402. }
  403. }
  404. $('recordcount').innerHTML=parseInt($('recordcount').innerHTML)-count;
  405. alert(count+'条信息删除成功！')
  406. count=0;
  407. }
  408. else
  409. {
  410. alert("发生异常，请与客服人员联系！");
  411. }
  412. }
  413. }
  414. </script>
  415. </html>
  416. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->