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

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

数据库编程

开发平台：

ASP/ASPX

PublicManage.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="../lib/strlib.asp" -->
  6. <!--#include file="../lib/UserCheck.asp" -->
  7. <!--#include file="../../FS_Inc/Func_Page.asp" -->
  8. <%
  9. '获得留言
  10. dim book_rs,new_count
  11. set book_rs= Server.CreateObject(G_FS_RS)
  12. book_rs.open "Select count(BookID) From FS_ME_Book where M_ReadUserNumber='"&Fs_User.UserNumber&"' and M_ReadTF=0 and M_Type=2",User_Conn,1,3
  13.  if book_rs(0)>0 then
  14.  new_count = "<span class=""tx""><b>您有新留言"& book_rs(0) &"</b></span>"
  15.  else
  16.  new_count =  book_rs(0)
  17.  end if
  18. book_rs.close:set book_rs = nothing
  19. if Request("Action")="del" then
  20. if trim(replace(Request("id")," ",""))="" then
  21. strShowErr = "<li>请至少选择一项</li>"
  22. Response.Redirect(""& s_savepath &"/lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  23. Response.end
  24. end if
  25. Conn.execute("Delete from FS_SD_News where id in ("& replace(Request("id")," ","") &") and UserNumber='"& Fs_User.UserNumber &"'")
  26. strShowErr = "<li>删除成功</li>"
  27. Response.Redirect(""& s_savepath &"/lib/success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="& s_savepath &"/supply/PublicManage.asp")
  28. Response.end
  29. end if
  30. if NoSqlHack(Request.QueryString("Refresh"))="1" then
  31. dim u_rs
  32. set u_rs= Server.CreateObject(G_FS_RS)
  33. u_rs.open "select EditTime,id from FS_SD_News where id="& NoSqlHack(Request.QueryString("id")) &" and UserNumber='"& Fs_User.UserNumber &"'",Conn,1,3
  34. u_rs("EditTime")=now
  35. u_rs.update
  36. u_rs.close:set u_rs=nothing
  37. strShowErr = "<li>重发成功</li>"
  38. Response.Redirect(""& s_savepath &"/lib/success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="& s_savepath &"/supply/PublicManage.asp")
  39. Response.end
  40. end if
  41. if NoSqlHack(Request("UserLock"))="1" then
  42. if trim(replace(Request("id")," ",""))="" then
  43. strShowErr = "<li>请至少选择一项</li>"
  44. Response.Redirect(""& s_savepath &"/lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  45. Response.end
  46. end if
  47. Conn.execute("Update FS_SD_News set islock=1 where id in ("& replace(Request("id")," ","") &") and UserNumber='"& Fs_User.UserNumber &"'")
  48. strShowErr = "<li>撤消成功</li>"
  49. Response.Redirect(""& s_savepath &"/lib/success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="& s_savepath &"/supply/PublicManage.asp")
  50. Response.end
  51. end if
  52. if NoSqlHack(Request("UserLock"))="0" then
  53. if trim(replace(Request("id")," ",""))="" then
  54. strShowErr = "<li>请至少选择一项</li>"
  55. Response.Redirect(""& s_savepath &"/lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  56. Response.end
  57. end if
  58. Conn.execute("Update FS_SD_News set islock=0 where id in ("& replace(Request("id")," ","") &") and UserNumber='"& Fs_User.UserNumber &"'")
  59. strShowErr = "<li>提交成功，等待审核</li>"
  60. Response.Redirect(""& s_savepath &"/lib/success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="& s_savepath &"/supply/PublicManage.asp")
  61. Response.end
  62. end if
  63. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,strpage,rs,i
  64. int_RPP=20 '设置每页显示数目
  65. int_showNumberLink_=8 '数字导航显示数目
  66. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  67. str_nonLinkColor_="#999999" '非热链接颜色
  68. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  69. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  70. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  71. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  72. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  73. toL_="<font face=webdings title=""最后一页"">:</font>"
  74. dim tmp_lock,tmp_valite,tmp_uselock,tmp_valite_1,para_rs,g_tmp
  75. set para_rs=Conn.execute("select top 1 warnTime from FS_SD_Config")
  76. if para_rs.eof then
  77. response.Write("找不到供求配置信息")
  78. response.end
  79. set para_rs=nothing
  80. else
  81. g_tmp=para_rs(0)
  82. if request.QueryString("usvalite")="1" then
  83. tmp_valite_1 =  " and (datevalue(editTime)+ValidTime)-datevalue(now)<="&para_rs(0)&" and (datevalue(editTime)+ValidTime)>=datevalue(now)"
  84. else
  85. tmp_valite_1=""
  86. end if
  87. set para_rs=nothing
  88. end if
  89. strpage=request("page")
  90. 'if len(strpage)=0 Or strpage<1 or trim(strpage)=""Then:strpage="1":end if
  91. %>
  92. <html xmlns="http://www.w3.org/1999/xhtml">
  93. <title>User Manage Center-网站内容管理系统</title>
  94. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  95. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  96. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  97. <link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  98. <head>
  99. </head>
  100. <body>
  102. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  103.   <tr>
  104.     <td>
  105.       <!--#include file="../top.asp" -->
  106.     </td>
  107.   </tr>
  108. </table>
  109. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  110.     <tr class="back"> 
  111.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="../Top_navi.asp" -->
  112.     </td>
  113.     </tr>
  114.     <tr class="back"> 
  115.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  116.           <!--#include file="../menu.asp" -->
  117.         </div></td>
  118.       <td width="82%" valign="top" class="hback">
  119.   <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  120.         <tr class="hback"> 
  121.           <td  valign="top">你的位置：<a href="../../">网站首页</a> &gt;&gt; <a href="../main.asp">会员首页</a> 
  122.             &gt;&gt; <a href="PublicManage.asp">供求系统</a> &gt;&gt; 供求信息管理</td>
  123.         </tr>
  124.         <tr class="hback"> 
  125.           <td  valign="top"><a href="PublicSupply.asp">发布信息</a>┆<a href="PublicManage.asp">管理信息</a>┆<a href="PublicManage.asp#top10">你的信息浏览排行(TOP10)</a>┆<a href="PublicManage.asp#new">最新供求信息</a>┆<a href="PublicManage.asp#rec">供求推荐</a>┆<a href="../Book.asp?M_type=2">我的新留言(<%=new_count%>)</a></td>
  126.         </tr>
  127.       </table>
  128.      
  129.         
  130.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  131.         <tr class="hback">
  132.           <td width="10%"><span class="tx">强烈推荐</span></td> 
  133.           <td width="90%">
  134.   <a href=" " id="printWord" ></a><%
  135.    dim i_loop
  136. set rs= Server.CreateObject(G_FS_RS)
  137. if G_IS_SQL_DB=0 Then
  138. rs.open "select  top 6 ID,PubTitle,PubType,Addtime,hits,PubAddress,EditTime,UserNumber From FS_SD_News where isLock=0 and isPass=1 and (datevalue(editTime)+ValidTime)>datevalue(now) and OrderID=2 order by EditTime desc,id desc",Conn,1,3
  139. Else
  140. rs.open "select  top 6 ID,PubTitle,PubType,Addtime,hits,PubAddress,EditTime,UserNumber From FS_SD_News where isLock=0 and isPass=1 and convert(nvarchar(10),editTime+ValidTime,120)>convert(nvarchar(10),getDate(),120) and OrderID=2 order by EditTime desc,id desc",Conn,1,3
  141. End if
  142. if rs.eof then
  143. response.Write("<span class=""tx"">没推荐信息</span>")
  144. else
  145. i_loop=0
  146.   %>
  147.   <script language="JavaScript">
  148. var PublicTime = 3500; 
  149. var TextTime = 20; 
  150. var infoi = 0;
  151. var txti = 0;
  152. var txttimer;
  153. var infotimer;
  154. var publictitle = new Array(); 
  155. var publichref = new Array(); 
  156. <%do while not rs.eof %>
  157. publictitle[<%=i_loop%>] = "<%=Fs_User.GetFriendName(rs("UserNumber"))%>:<%=rs("PubTitle")%>[<%=rs("EditTime")%>]";
  158. publichref[<%=i_loop%>] = "../../Supply/Supply.asp?id=<%=rs("id")%>";
  159. <%rs.movenext%>
  160. <%i_loop=i_loop+1%>
  161. <%loop%>
  162. <%rs.close:set rs=nothing%>
  163. function showinfo()
  164. {
  165. var endstr = "_"
  166. hwinfotr = publictitle[infoi];
  167. infolink = publichref[infoi];
  168. if(txti==(hwinfotr.length-1)){endstr="";}
  169. if(txti>=hwinfotr.length){
  170. clearInterval(txttimer);
  171. clearInterval(infotimer);
  172. infoi++;
  173. if(infoi>=publictitle.length){
  174. infoi = 0
  175. }
  176. infotimer = setInterval("showinfo()",PublicTime);
  177. txti = 0;
  178. return;
  179. }
  180. clearInterval(txttimer);
  181. document.getElementById("printWord").href=infolink;
  182. document.getElementById("printWord").innerHTML = hwinfotr.substring(0,txti+1)+endstr;
  183. txti++;
  184. txttimer = setInterval("showinfo()",TextTime);
  185. }
  186. showinfo();
  187. </script>
  188. <%end if%>
  189.   </td>
  190.         </tr>
  191.       </table>
  192.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  193.         <form name="myForm" method="post" action="">
  194.           <tr> 
  195.             <td height="23" colspan="8" class="hback_1"><a href="PublicManage.asp">全部信息</a>┆<a href="PublicManage.asp?islock=0">已审核</a>┆<a href="PublicManage.asp?islock=1">未审核</a>┆<a href="PublicManage.asp?User_lock=1">用户锁定</a>┆<a href="PublicManage.asp?User_lock=0">用户未锁定</a>┆<a href="PublicManage.asp?valite=1">过期信息</a>┆<a href="PublicManage.asp?usvalite=1" title="有效期小于<%=g_tmp%>天的信息">即将过期的信息</a></td>
  196.           </tr>
  197.           <tr> 
  198.             <td width="4%" class="hback_1"><div align="center"> 
  199.                 <input name="chkall" type="checkbox" id="chkall" onClick="CheckAll(this.form);" value="checkbox" title="点击选择所有或者撤消所有选择">
  200.               </div></td>
  201.             <td width="27%" class="hback_1"><div align="center"><strong>标题</strong></div></td>
  202.             <td width="13%" class="hback_1"><div align="center"><strong>收录专栏</strong></div></td>
  203.             <td width="11%" class="hback_1"><div align="center"><strong>到期时间</strong></div></td>
  204.             <td width="21%" class="hback_1"><div align="center"><strong>操作</strong></div></td>
  205.             <td width="8%" class="hback_1"><div align="center"><strong>审核结果</strong></div></td>
  206.             <td width="8%" class="hback_1"><strong>用户锁定</strong></td>
  207.             <td width="8%" class="hback_1"><div align="center"><strong>点击</strong></div></td>
  208.           </tr>
  209.           <%
  210.    if Request.QueryString("islock")="0" then
  211. tmp_lock=" and ispass=1"
  212. elseif Request.QueryString("islock")="1" then
  213. tmp_lock=" and ispass=0"
  214. else
  215. tmp_lock=""
  216. end if
  217. if Request.QueryString("User_lock")="1" then
  218. tmp_uselock = " and islock=1"
  219. elseif Request.QueryString("User_lock")="0" then
  220. tmp_uselock = " and islock=0"
  221. else
  222. tmp_uselock = " "
  223. end if
  224. if Request.QueryString("valite")="1" then
  225. tmp_valite = " and (datevalue(editTime)+ValidTime)<datevalue(now)"
  226. else
  227. tmp_valite = " "
  228. end if
  229. set rs = Server.CreateObject(G_FS_RS)
  230. rs.open "select id,PubTitle,EditTime,ValidTime,ispass,islock,hits,MyClassID from FS_SD_News where UserNumber='"& Fs_User.UserNumber&"' " &tmp_lock & tmp_valite & tmp_uselock& tmp_valite_1 &" order by EditTime desc,OrderID desc,id desc",Conn,1,3
  231. if rs.eof then
  232.    rs.close
  233.    set rs=nothing
  234.    Response.Write"<tr  class=""hback""><td colspan=""8""  class=""hback"" height=""40"">没有记录。</td></tr>"
  235. else
  236. rs.PageSize=int_RPP
  237. cPageNo=NoSqlHack(Request.QueryString("Page"))
  238. If cPageNo="" Then cPageNo = 1
  239. If not isnumeric(cPageNo) Then cPageNo = 1
  240. cPageNo = Clng(cPageNo)
  241. If cPageNo<=0 Then cPageNo=1
  242. If cPageNo>rs.PageCount Then cPageNo=rs.PageCount 
  243. rs.AbsolutePage=cPageNo
  244. for i=1 to rs.pagesize
  245. if rs.eof Then exit For 
  246.   %>
  247.           <tr  onMouseOver=overColor(this) onMouseOut=outColor(this)>
  248.             <td class="hback"><input name="id" type="checkbox" id="id" value="<%=rs("id")%>"></td>
  249.             <td class="hback"><a href="<% = Replace("/"&G_VIRTUAL_ROOT_DIR&"/" ,"//","/")%>Supply/Supply.asp?id=<%=rs("id")%>" target="_blank"><%=rs("PubTitle")%></a></td>
  250.             <td class="hback"><div align="center"> 
  251.                 <%
  252. dim rs_z
  253. set rs_z = User_Conn.execute("select ClassID,ClassCName From FS_ME_InfoClass where ClassID="& rs("MyClassID")&" and UserNumber='"&Fs_User.UserNumber&"'")
  254. if rs_z.eof then
  255. response.Write "--"
  256. else
  257. Response.Write "<a href=../ShowInfoClass.asp?ClassID="& rs_z("Classid")&"&UserNumber="& Fs_User.UserNumber &">" &rs_z("ClassCName")&"</a>"
  258. end if
  259. %>
  260.               </div></td>
  261.             <td class="hback"><div align="center"><%=datevalue(rs("EditTime"))+rs("ValidTime")%></div></td>
  262.             <td class="hback"><div align="center"><a href="PublicSupplyEdit.asp?id=<%=rs("id")%>&Action=edit">修改</a> 
  263.                 <a href="PublicManage.asp?id=<%=rs("id")%>&Refresh=1">重发</a> 
  264.                 <a href="PublicSupplyEdit.asp?id=<%=rs("id")%>&Action=Copy">复制</a> 
  265.                 <%if rs("islock")=0 then%>
  266.                 <a href="PublicManage.asp?id=<%=rs("id")%>&UserLock=1"  onClick="{if(confirm('确定要撤消吗？n撤消后前台将不能显示')){return true;}return false;}">撤消</a> 
  267.                 <%else%>
  268.                 <a href="PublicManage.asp?id=<%=rs("id")%>&UserLock=0"  onClick="{if(confirm('确定要撤消吗？n撤消后前台将不能显示')){return true;}return false;}">提交</a> 
  269.                 <%end if%>
  270.                 <a href="PublicManage.asp?id=<%=rs("id")%>&Action=del"  onClick="{if(confirm('确定要删除吗？')){return true;}return false;}">删除</a> 
  271.               </div></td>
  272.             <td class="hback"><div align="center"> 
  273.                 <%if rs("ispass")=1 then:response.Write"已审核":else:Response.Write"<span class=""tx"">未审核</span>":end if%>
  274.               </div></td>
  275.             <td class="hback"><div align="center"> 
  276.                 <%if rs("islock")=1 then:response.Write("<span class=""tx"">已撤消</span>"):else:Response.Write("未锁定"):end if%>
  277.               </div></td>
  278.             <td class="hback"><div align="center"><%=rs("hits")%></div></td>
  279.           </tr>
  280.           <%
  281.   rs.movenext
  282.   next
  283.   %>
  284.           <tr  class="hback"> 
  285.             <td colspan="8"><div align="right"> 
  286.                 <%
  287. response.Write "<p>"&  fPageCount(rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)
  288. %>
  289.                 <input name="Action" type="hidden" id="Action">
  290.                 <input name="UserLock" type="hidden" id="UserLock">
  291.                 <input type="button" name="Submit" value="删除"  onClick="document.myForm.Action.value='del';{if(confirm('确定清除您所选择的记录吗？')){this.document.myForm.submit();return true;}return false;}">
  292.                 <input type="button" name="Submit2" value="撤消信息"  onClick="document.myForm.UserLock.value='1';{if(confirm('确定撤消信息吗？n撤消后将不能显示')){this.document.myForm.submit();return true;}return false;}">
  293.                 <input type="button" name="Submit3" value="提交信息"  onClick="document.myForm.UserLock.value='0';{if(confirm('确定重新提交信息吗？')){this.document.myForm.submit();return true;}return false;}">
  294.               </div></td>
  295.           </tr>
  296.           <% 
  297.   rs.close:set rs=nothing
  298.   end if
  299.   %>
  300.         </form>
  301.       </table>
  302.       <a name="top10"></a>
  303. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  304.         <tr> 
  305.           <td colspan="5" class="xingmu"> 
  306.             <table width="98%" border="0" cellspacing="0" cellpadding="0">
  307.               <tr>
  308.                 <td width="2%" valign="top"><strong><img src="../Images/folderclosed.gif" width="16" height="16"></strong></td>
  309.                 <td width="98%" valign="bottom" class="xingmu"><strong>你的信息被浏览排行前10名</strong> 
  310.                 </td>
  311.               </tr>
  312.             </table></td>
  313.         </tr>
  314.         <tr> 
  315.           <td width="9%" class="hback_1"><div align="center"><strong>类型</strong></div></td>
  316.           <td width="33%" class="hback_1"><div align="center"><strong>标题</strong></div></td>
  317.           <td width="23%" class="hback_1"><div align="center"><strong>发布日期</strong></div></td>
  318.           <td width="18%" class="hback_1"><div align="center"><strong>到期日期</strong></div></td>
  319.           <td width="17%" class="hback_1"><div align="center"><strong>点击</strong></div></td>
  320.         </tr>
  321.         <%
  322. set rs= Server.CreateObject(G_FS_RS)
  323. rs.open "select  top 10 ID,PubTitle,PubType,Addtime,ValidTime,EditTime,hits,UserNumber From FS_SD_News where UserNumber='"& Fs_User.UserNumber &"' order by hits desc,id desc",Conn,1,3
  324. do while not rs.eof 
  325. %>
  326.         <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
  327.           <td class="hback"> <div align="center"> 
  328.               <%
  329.   select Case rs("PubType")
  330.    case 0
  331. response.Write("供应")
  332. case 1
  333. response.Write("<span class=""tx"">求购</span>")
  334. case 2
  335. response.Write("合作")
  336. case 3
  337. response.Write("代理")
  338. case else
  339. Response.Write("其他")
  340.  end select
  341.   %>
  342.             </div></td>
  343.           <td class="hback"><div align="left"><a href="<% = Replace("/"&G_VIRTUAL_ROOT_DIR&"/" ,"//","/")%>Supply/Supply.asp?id=<%=rs("id")%>" target="_blank"><%=rs("PubTitle")%></a></div></td>
  344.           <td class="hback"><div align="center"><%=rs("Addtime")%></div></td>
  345.           <td class="hback"><div align="center"><%=datevalue(rs("EditTime"))+rs("ValidTime")%></div></td>
  346.           <td class="hback"><div align="center"><a href=ShowUser.asp?UserNumber=<%=rs("UserNumber")%> target="_blank"><%=rs("hits")%></a></div></td>
  347.         </tr>
  348.         <%
  349. rs.movenext
  350. loop
  351. rs.close:set rs=nothing
  352. %>
  353.       </table>
  354.       <a name="new"></a> <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  355.         <tr> 
  356.           <td colspan="5" class="xingmu"> 
  357.             <table width="98%" border="0" cellspacing="0" cellpadding="0">
  358.               <tr> 
  359.                 <td width="2%" valign="top"><strong><img src="../Images/folderclosed.gif" width="16" height="16"></strong></td>
  360.                 <td width="98%" valign="bottom"  class="xingmu"><strong>最新供求信息20条</strong></td>
  361.               </tr>
  362.             </table></td>
  363.         </tr>
  364.         <tr> 
  365.           <td width="9%" class="hback_1"><div align="center"><strong>类型</strong></div></td>
  366.           <td width="33%" class="hback_1"><div align="center"><strong>标题</strong></div></td>
  367.           <td width="23%" class="hback_1"><div align="center"><strong>发布日期</strong></div></td>
  368.           <td width="18%" class="hback_1"><div align="center"><strong>地区</strong></div></td>
  369.           <td width="17%" class="hback_1"><div align="center"><strong>发布人</strong></div></td>
  370.         </tr>
  371.         <%
  372. set rs= Server.CreateObject(G_FS_RS)
  373. if G_IS_SQL_DB=0 Then
  374. rs.open "select  top 20 ID,PubTitle,PubType,Addtime,hits,PubAddress,UserNumber From FS_SD_News where isLock=0 and isPass=1 and (datevalue(editTime)+ValidTime)>datevalue(now) order by EditTime desc,id desc",Conn,1,3
  375. Else
  376. rs.open "select  top 20 ID,PubTitle,PubType,Addtime,hits,PubAddress,UserNumber From FS_SD_News where isLock=0 and isPass=1 and convert(nvarchar(10),editTime+ValidTime,120)>convert(nvarchar(10),getDate(),120) order by EditTime desc,id desc",Conn,1,3
  377. End if
  378. do while not rs.eof 
  379. %>
  380.         <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
  381.           <td class="hback"> <div align="center"> 
  382.               <%
  383.   select Case rs("PubType")
  384.    case 0
  385. response.Write("供应")
  386. case 1
  387. response.Write("<span class=""tx"">求购</span>")
  388. case 2
  389. response.Write("合作")
  390. case 3
  391. response.Write("代理")
  392. case else
  393. Response.Write("其他")
  394.  end select
  395.   %>
  396.             </div></td>
  397.           <td class="hback"><div align="left"><a href="<% = Replace("/"&G_VIRTUAL_ROOT_DIR&"/" ,"//","/")%>Supply/Supply.asp?id=<%=rs("id")%>" target="_blank"><%=rs("PubTitle")%></a></div></td>
  398.           <td class="hback"><div align="center"><%=rs("Addtime")%></div></td>
  399.           <td class="hback"><div align="center"><%=rs("PubAddress")%></div></td>
  400.           <%if rs("UserNumber")="0" then%>
  401.           <td class="hback"><div align="center">管理员</div></td>
  402.           <%else%>
  403.           <td class="hback"><div align="center"><a href=ShowUser.asp?UserNumber=<%=rs("UserNumber")%> target="_blank"><%=Fs_User.GetFriendName(rs("UserNumber"))%></a></div></td>
  404.           <%end if%>
  405.         </tr>
  406.         <%
  407. rs.movenext
  408. loop
  409. rs.close:set rs=nothing
  410. %>
  411.       </table>
  412.       <a name="rec" id="rec"></a> 
  413.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  414.         <tr> 
  415.           <td colspan="5" class="xingmu"> 
  416.             <table width="98%" border="0" cellspacing="0" cellpadding="0">
  417.               <tr> 
  418.                 <td width="2%" valign="top"><strong><img src="../Images/folderclosed.gif" width="16" height="16"></strong></td>
  419.                 <td width="98%" valign="bottom" class="xingmu"><strong>最新推荐信息20条</strong></td>
  420.               </tr>
  421.             </table></td>
  422.         </tr>
  423.         <tr> 
  424.           <td width="9%" class="hback_1"><div align="center"><strong>类型</strong></div></td>
  425.           <td width="33%" class="hback_1"><div align="center"><strong>标题</strong></div></td>
  426.           <td width="23%" class="hback_1"><div align="center"><strong>发布日期</strong></div></td>
  427.           <td width="18%" class="hback_1"><div align="center"><strong>地区</strong></div></td>
  428.           <td width="17%" class="hback_1"><div align="center"><strong>发布人</strong></div></td>
  429.         </tr>
  430.         <%
  431. set rs= Server.CreateObject(G_FS_RS)
  432. if G_IS_SQL_DB=0 Then
  433. rs.open "select  top 20 ID,PubTitle,PubType,Addtime,hits,PubAddress,UserNumber From FS_SD_News where isLock=0 and isPass=1 and (datevalue(editTime)+ValidTime)>datevalue(now) and OrderID=1 order by EditTime desc,id desc",Conn,1,3
  434. Else
  435. rs.open "select  top 20 ID,PubTitle,PubType,Addtime,hits,PubAddress,UserNumber From FS_SD_News where isLock=0 and isPass=1 and convert(nvarchar(10),editTime+ValidTime,120)>convert(nvarchar(10),getDate(),120) and OrderID=1 order by EditTime desc,id desc",Conn,1,3
  436. End if
  437. do while not rs.eof 
  438. %>
  439.         <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
  440.           <td class="hback"> <div align="center"> 
  441.               <%
  442.   select Case rs("PubType")
  443.    case 0
  444. response.Write("供应")
  445. case 1
  446. response.Write("<span class=""tx"">求购</span>")
  447. case 2
  448. response.Write("合作")
  449. case 3
  450. response.Write("代理")
  451. case else
  452. Response.Write("其他")
  453.  end select
  454.   %>
  455.             </div></td>
  456.           <td class="hback"><div align="left"><a href="<% = Replace("/"&G_VIRTUAL_ROOT_DIR&"/" ,"//","/")%>Supply/Supply.asp?id=<%=rs("id")%>" target="_blank"><%=rs("PubTitle")%></a></div></td>
  457.           <td class="hback"><div align="center"><%=rs("Addtime")%></div></td>
  458.           <td class="hback"><div align="center"><%=rs("PubAddress")%></div></td>
  459.           <%if rs("UserNumber")="0" then%>
  460.           <td class="hback"><div align="center">管理员</div></td>
  461.           <%else%>
  462.           <td class="hback"><div align="center"><a href=ShowUser.asp?UserNumber=<%=rs("UserNumber")%> target="_blank"><%=Fs_User.GetFriendName(rs("UserNumber"))%></a></div></td>
  463.           <%end if%>
  464.         </tr>
  465.         <%
  466. rs.movenext
  467. loop
  468. rs.close:set rs=nothing
  469. %>
  470.       </table></td>
  471.     </tr>
  472.     <tr class="back"> 
  473.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  474.           <!--#include file="../Copyright.asp" -->
  475.         </div></td>
  476.     </tr>
  477. </table>
  478. </body>
  479. </html>
  480. <script language="JavaScript" type="text/JavaScript">
  481. function CheckAll(form)  
  482.   {  
  483.   for (var i=0;i<form.elements.length;i++)  
  484.     {  
  485.     var e = myForm.elements[i];  
  486.     if (e.name != 'chkall')  
  487.        e.checked = myForm.chkall.checked;  
  488.     }  
  489. }
  490. </script>
  492. <%
  493. Set Fs_User = Nothing
  494. %>
  495. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->