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

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

数据库编程

开发平台：

ASP/ASPX

HS_Second.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 Second_rs,mytype,order,sqlstatement,order_status,tClass,HouseStyleArray,HouseStyle,Decoration,UseFor,Floor,FloorType,equip
  35. Dim BelongType,Structure
  36. Dim id_order,usefor_order,Class_order,price_order,time_order
  37. session("audit")=request.querystring("audit")
  38. order=request.QueryString("order")
  39. mytype=trim(request.QueryString("type"))
  40. if mytype="" then
  41. mytype=1
  42. End if
  43. if session("orderstatus")="" then
  44. session("orderstatus")="asc"
  45. End if
  46. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,i
  47. '---------------------------------分页定义
  48. int_RPP=15 '设置每页显示数目
  49. int_showNumberLink_=8 '数字导航显示数目
  50. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  51. str_nonLinkColor_="#999999" '非热链接颜色
  52. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  53. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  54. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  55. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  56. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  57. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  58. '--------------------------------------------------
  59. select case order
  60. case "orderbyid" 
  61. if session("audit")="1"  then 
  62. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where  Usernumber='"&session("FS_UserNumber")&"' and Audited=1 order by sid "&session("orderstatus")
  63. else 
  64. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' order by sid "&session("orderstatus")
  65. end if
  67. case "orderbyusefor" 
  68. if session("audit")="1"  then 
  69. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' and Audited=1 order by UseFor "&session("orderstatus")
  70. else
  71. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second  where Usernumber='"&session("FS_UserNumber")&"' order by UseFor "&session("orderstatus")
  72. end if
  74. case "orderbyclass" 
  75. if session("audit")="1"  then 
  76. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' and Audited=1 order by Class "&session("orderstatus")
  77. else
  78. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' order by Class "&session("orderstatus")
  79. end if
  81. case "orderbyprice" 
  82. if session("audit")="1"  then
  83. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' and Audited=1 order by Price "&session("orderstatus")
  84. else
  85. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' order by Price "&session("orderstatus")
  86. End if
  88. case "orderbytime" 
  89. if session("audit")="1"  then
  90. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' and Audited=1 order by PubDate "&session("orderstatus")
  91. else
  92. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' order by PubDate "&session("orderstatus")
  93. End if
  95. case else 
  96. if session("audit")="1"  then
  97. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second where Usernumber='"&session("FS_UserNumber")&"' and Audited=1 order by sid desc"
  98. else
  99. sqlstatement="select SID,Class,UserNumber,Label,UseFor,FloorType,BelongType,HouseStyle,Structure,Area,BuildDate,Price,CityArea,Address,Floor,Position,Decoration,LinkMan,Contact,equip,Remark,PubDate,Audited,PicNumber from FS_HS_Second  where Usernumber='"&session("FS_UserNumber")&"' order by sid desc"
  100. End if
  101. end select
  102. '排序状态
  103. Function changeOrderStatus()
  104. Dim order_desc
  105. if session("orderstatus")="asc" then
  106. session("orderstatus")="desc"
  107. order_desc="<font color='red'>↑</font>"
  108. else
  109. session("orderstatus")="asc"
  110. order_desc="<font color='red'>↓</font>"
  111. End if
  112. select case order
  113. case "orderbyid"    id_order=order_desc
  114. usefor_order=""
  115. Class_order=""
  116. price_order=""
  117. time_order=""
  119. case "orderbyusefor" usefor_order=order_desc
  120.  id_order=""
  121.  class_order=""
  122.  price_order=""
  123.  time_order=""
  125. case "orderbyclass" Class_order=order_desc
  126. id_order=""
  127. time_order=""
  128. usefor_order=""
  129. price_order=""
  131. case "orderbyprice" price_order=order_desc
  132. id_order=""
  133. Class_order=""
  134. time_order=""
  135. usefor_order=""
  137. case "orderbytime"  time_order=order_desc
  138. id_order=""
  139. Class_order=""
  140. usefor_order=""
  141. price_order=""
  142. end select
  143. End Function
  144. if trim(order)<>"" then
  145. changeOrderStatus()
  146. End if%>
  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"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  175.         <tr>
  176.           <td class="xingmu" align="center" <%if not isCorp() then Response.Write("style=""display:none""")%>><a href="houseManage.asp">楼盘信息</a></td>
  177.           <td class="xingmu" align="center"><a href="HS_Tenancy.asp">租赁信息</a></td>
  178.           <td class="xingmu" align="center"><a href="HS_Second.asp" style="color:#FF0000">二手房信息</a></td>
  179.         <tr>
  180.           <td colspan="3"><table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  181.               <tr>
  182.                 <td class="xingmu" colspan="4">二手房信息&nbsp;|&nbsp;<a href="#" onClick="history.back()">后退</a>&nbsp;|&nbsp;<a href="#" class="sd" title="选中复选框，查看个人二手房" onClick="linkShowclass();showclass();">已审核</a>
  183.                   <input type="checkbox" name="ifaudit" id="audit" value="" onClick="showclass()" <%if session("audit")="1"  then response.Write("checked")%>/></td>
  184.               </tr>
  185.             </table>
  186.             <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  187.               <tr>
  188.                 <td class="hback_1" align="center" width="10%"><a href="HS_Second.asp?order=orderbyid&type=<%=mytype%>&class=<%=session("class")%>" class="sd">编号<%=id_order%></a></td>
  189.                 <td class="hback_1" align="center" width="20%"><a href="HS_Second.asp?order=orderbyusefor&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">用途<%=usefor_order%></a></td>
  190.                 <td class="hback_1" align="center" width="15%"><a href="HS_Second.asp?order=orderbyclass&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">类型<%=class_order%></a></td>
  191.                 <td class="hback_1" align="center" width="15%"><a href="HS_Second.asp?order=orderbyprice&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">价格<%=price_order%></a></td>
  192.                 <td class="hback_1" align="center" width="15%"><a href="HS_Second.asp?order=orderbytime&type=<%=mytype%>&audit=<%=session("audit")%>" class="sd">发布时间<%=time_order%></a></td>
  193.                 <td class="hback_1" align="center" width="20%"><a href="#" class="sd">操作</a></td>
  194.                 <td class="hback_1" align="center" width="5%"><input type="checkbox" value="" name="Secondlist"  onclick="selectAll(document.all('Secondlist'))"/></td>
  195.               </tr>
  196.               <%
  197. Set Second_rs=Server.CreateObject(G_FS_RS)
  198. Second_rs.open sqlstatement,Conn,1,1
  199. If Not Second_rs.eof then
  200. '分页使用-----------------------------------
  201. Second_rs.PageSize=int_RPP
  202. cPageNo=NoSqlHack(Request.QueryString("page"))
  203. If cPageNo="" Then cPageNo = 1
  204. If not isnumeric(cPageNo) Then cPageNo = 1
  205. cPageNo = Clng(cPageNo)
  206. If cPageNo<=0 Then cPageNo=1
  207. If cPageNo>Second_rs.PageCount Then cPageNo=Second_rs.PageCount 
  208. Second_rs.AbsolutePage=cPageNo
  209. End if
  210. Dim audit
  211. for i=0 to int_RPP
  212. if Second_rs.eof then exit for
  213. select case Second_rs("Class")
  214. case "1"  tClass="个人"
  215. case "2"  tClass="中介"
  216. end select
  217. if Second_rs("UseFor")="1" then
  218. UseFor="住房"
  219. elseif Second_rs("UseFor")="2" then
  220. UseFor="写字间"
  221. Else
  222. UseFor="其他"
  223. end if
  224. if Second_rs("audited")="1" then
  225. audit="已审核"
  226. else
  227. audit="<font color='red'>未审核</font>"
  228. End if
  229. Response.Write("<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>"&vbcrlf)
  230. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&Second_rs("sid")&"','2_detail"&Second_rs("sid")&"','3_detail"&Second_rs("sid")&"','4_detail"&Second_rs("sid")&"')"">"&Second_rs("sid")&"</td>"&vbcrlf)
  231. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&Second_rs("sid")&"','2_detail"&Second_rs("sid")&"','3_detail"&Second_rs("sid")&"','4_detail"&Second_rs("sid")&"')"">"&UseFor&"</td>"&vbcrlf)
  232. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&Second_rs("sid")&"','2_detail"&Second_rs("sid")&"','3_detail"&Second_rs("sid")&"','4_detail"&Second_rs("sid")&"')"">"&tClass&"</td>"&vbcrlf)
  233. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&Second_rs("sid")&"','2_detail"&Second_rs("sid")&"','3_detail"&Second_rs("sid")&"','4_detail"&Second_rs("sid")&"')"">￥"&Second_rs("price")&"元/月</td>"&vbcrlf)
  234. response.Write("<td align='center' class='hback' onmousedown=""Element.toggle('1_detail"&Second_rs("sid")&"','2_detail"&Second_rs("sid")&"','3_detail"&Second_rs("sid")&"','4_detail"&Second_rs("sid")&"')"">"&Second_rs("PubDate")&"</td>"&vbcrlf)
  235. response.Write("<td align='center' class='hback'><span id='audit"&Second_rs("sid")&"'>"&audit&"</span>&nbsp;|&nbsp;<span id='edit"&Second_rs("sid")&"'><a href='HS_Second_Edit.asp?action=edit&id="&Second_rs("sid")&"'>修改</a></span>&nbsp;|&nbsp;<span id='delete"&Second_rs("sid")&"'><a href='#' class='sd' onclick=""deleteAction('delete"&Second_rs("sid")&"','"&Second_rs("sid")&"')"">删除</a></span></td>"&vbcrlf)
  236. response.Write("<td align='center' class='hback' onmousedown='document.body.onmousedown=null'><input type='checkbox' name='Secondlist' value='"&Second_rs("sid")&"'</td>"&vbcrlf)
  237. response.Write("</tr>"&vbcrlf)
  238. Response.Write("<tr id=""1_detail"&Second_rs("sid")&""" style=""display:none"">"&vbcrlf)
  239. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  240. Response.Write("├位置："&Second_rs("Position")&"&nbsp;|&nbsp;区县："&Second_rs("CityArea")&vbcrlf)
  241. response.Write("</td>"&vbcrlf)
  242. response.Write("</tr>"&vbcrlf)
  243. '户型处理
  244. if trim(Second_rs("HouseStyle"))<>"" then
  245. HouseStyleArray=split(Second_rs("HouseStyle"),",")
  246. HouseStyle=HouseStyleArray(0)&"室"&HouseStyleArray(1)&"厅"&HouseStyleArray(2)&"卫"
  247. else
  248. HouseStyle="暂无信息"
  249. End if
  250. '楼层处理
  251. if trim(Second_rs("Floor"))<>"" then
  252. Floor="总"&split(Second_rs("Floor"),",")(0)&"层，第"&split(Second_rs("Floor"),",")(1)&"层"
  253. else
  254. Floor="暂无信息"
  255. end if
  256. '楼层类型
  257. if Second_rs("FloorType")="1" then 
  258. FloorType="多层"
  259. Else
  260. FloorType="单层"
  261. End if
  262. '处理装修情况
  263. select case Second_rs("Decoration")
  264. case "1" Decoration="简单装修"
  265. case "2" Decoration="中档装修"
  266. case "3" Decoration="高档装修"
  267. case else  Decoration="暂无信息"
  268. end select
  269. '处理设施
  270. if Second_rs("equip")<>"" then
  271. equip=replace(replace(replace(replace(replace(replace(Second_rs("equip"),"l","通水"),"m","电"),"n","气"),"x","电话"),"y","光纤"),"z","宽带")
  272. else
  273. equip="无相关信息"
  274. End if
  275. '产权性质
  276. if Second_rs("BelongType")="1" then
  277. BelongType="商品房"
  278. else
  279. BelongType="集资房"
  280. End if
  281. '1钢筋混凝土结构、2砖混结构、3砖木结构、4简易结构
  282. select case Second_rs("Structure")
  283. case "1" Structure="钢筋混凝土"
  284. case "2" Structure="砖混"
  285. case "3" Structure="砖木"
  286. case "4" Structure="简易"
  287. End select
  288. response.Write("<tr id=""2_detail"&Second_rs("sid")&""" style=""display:none"">"&vbcrlf)
  289. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  290. Response.Write("├户型："&HouseStyle&"&nbsp;|&nbsp;性质："&BelongType&"&nbsp;|&nbsp;结构："&Structure&"&nbsp;|&nbsp;面积："&Second_rs("Area")&"平米&nbsp;|&nbsp;楼层信息：["&FloorType&"]"&Floor&vbcrlf)
  291. response.Write("</td>"&vbcrlf)
  292. Response.Write("</tr>"&vbcrlf)
  293. response.Write("<tr id=""3_detail"&Second_rs("sid")&""" style=""display:none"">"&vbcrlf)
  294. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  295. Response.Write("├配套设施："&equip&"&nbsp;|&nbsp;装修情况："&Decoration&"&nbsp;|&nbsp;建筑面积："&Second_rs("BuildDate")&vbcrlf)
  296. response.Write("</td>"&vbcrlf)
  297. Response.Write("</tr>"&vbcrlf)
  298. response.Write("<tr id=""4_detail"&Second_rs("sid")&""" style=""display:none"">"&vbcrlf)
  299. response.Write("<td colspan='7' class='hback'>"&vbcrlf)
  300. response.Write("├联系人："&Second_rs("LinkMan")&"&nbsp;|&nbsp;联系方式："&Second_rs("Contact")&vbcrlf)
  301. response.Write("</td>"&vbcrlf)
  302. Response.Write("</tr>"&vbcrlf)
  303. response.Write("</div>"&vbcrlf)
  304. Second_rs.movenext
  305. next
  306. %>
  307.               <tr>
  308.                 <td colspan="7" align="right" class="hback"><button onClick="javascript:location='HS_Second_Edit.asp?action=add'">发布信息</button>
  309.                   <button onClick="deleteBatAction()">批量删除</button></td>
  310.               </tr>
  311.               <%
  312. Response.Write("<tr>"&vbcrlf)
  313. Response.Write("<td align='right' colspan='7'  class=""hback"">"&fPageCount(Second_rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
  314. Response.Write("</tr>"&vbcrlf)
  315. %>
  316.             </table></td>
  317.         </tr>
  318.       </table></td>
  319.   </tr>
  320.   <tr class="back">
  321.     <td height="20"  colspan="2" class="xingmu"><div align="left">
  322.         <!--#include file="../Copyright.asp" -->
  323.       </div></td>
  324.   </tr>
  325. </table>
  326. </body>
  327. </html>
  328. <%
  329. Set Fs_User = Nothing
  330. Set User_Conn=nothing
  331. Set Conn=nothing
  332. Second_rs.close
  333. Set Second_rs=nothing
  334. %>
  335. <script language="javascript">
  336. function linkShowclass()
  337. {
  338. if($('audit').checked)
  339. {
  340. $('audit').checked=false;
  341. }else
  342. {
  343. $('audit').checked=true;
  344. }
  346. }
  347. function showclass()
  348. {
  349. if($('audit').checked)
  350. {
  351. location="HS_Second.asp?audit=1&type=<%=mytype%>";
  352. }
  353. else
  354. {
  355. location="HS_Second.asp?audit=&type=<%=mytype%>";
  356. }
  357. }
  358. //删除
  359. function deleteAction(container,id)
  360. {
  361. var url="HS_Second_Action.asp?rad="+Math.random();
  362. var param="action=delete"+"&id="+id;
  363. if(confirm("确认要删除该条信息？"))
  364. var myAjax = new Ajax.Request(url,{method: 'get', parameters: param, onComplete: showResponse});
  365. function showResponse(originalRequest)
  366. {
  367. var value= originalRequest.responseText;
  368. if(value=="ok")
  369. {
  370. $(container).parentNode.parentNode.style.display='none';
  371. $('recordcount').innerHTML=parseInt($('recordcount').innerHTML)-1
  372. alert('删除成功！')
  373. }
  374. else
  375. {
  376. alert("发生异常，请与客服人员联系！");
  377. }
  378. }
  379. }
  380. //批量删除
  381. function deleteBatAction()
  382. {
  383. var url="HS_Second_Action.asp?rad="+Math.random();
  384. var elements=document.all('Secondlist');
  385. var id="";
  386. var count=0;
  387. for(var i=1;i<elements.length;i++)
  388. {
  389. if(elements[i].checked)
  390. {
  391. id=elements[i].value+","+id;
  392. if(elements[i].parentNode.parentNode.style.display!="none")
  393. count+=1;
  394. }
  395. }
  396. if(id.length<2)
  397. {
  398. alert("请选择要删除的记录！");
  399. return;
  400. }
  401. param="action=delete"+"&id="+id;
  402. if(confirm("确认要删除该条信息？"))
  403. var myAjax = new Ajax.Request(url,{method: 'get', parameters: param, onComplete: showResponse});
  404. function showResponse(originalRequest)
  405. {
  406. var value= originalRequest.responseText;
  407. if(value=="ok")
  408. {
  409. for(var i=1;i<elements.length;i++)
  410. {
  411. if(elements[i].checked)
  412. {
  413. elements[i].parentNode.parentNode.style.display='none';
  414. }
  415. }
  416. $('recordcount').innerHTML=parseInt($('recordcount').innerHTML)-count;
  417. alert(count+'条信息删除成功！')
  418. count=0;
  419. }
  420. else
  421. {
  422. alert("发生异常，请与客服人员联系！");
  423. }
  424. }
  425. }
  426. </script>
  427. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->