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

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

数据库编程

开发平台：

ASP/ASPX

ShowInfoClass.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_Inc/Function.asp" -->
  4. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <!--#include file="../FS_Inc/Func_Page.asp" -->
  8. <%
  9. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo,strpage,i_ii
  10. Dim SQL_list,rs_l,str_title,str_id,str_addtime,str_lockTF,type_s,novalue
  11. int_RPP=20 '设置每页显示数目
  12. int_showNumberLink_=8 '数字导航显示数目
  13. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  14. str_nonLinkColor_="#999999" '非热链接颜色
  15. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  16. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  17. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  18. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  19. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  20. toL_="<font face=webdings title=""最后一页"">:</font>"
  21. %>
  22. <html xmlns="http://www.w3.org/1999/xhtml">
  23. <title>专栏管理-网站内容管理系统</title>
  24. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  25. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  26. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  27. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  28. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  29. <head>
  30. <body>
  31. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  32.   <tr>
  33.     <td>
  34.       <!--#include file="top.asp" -->
  35.     </td>
  36.   </tr>
  37. </table>
  38. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  39.   
  40.     <tr class="back"> 
  41.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  42.     </tr>
  43.     <tr class="back"> 
  44.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  45.           <!--#include file="menu.asp" -->
  46.         </div></td>
  47.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  48.         <tr class="hback"> 
  49.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  50.             <a href="main.asp">会员首页</a> &gt;&gt; 专栏</td>
  51.         </tr>
  52.       </table> 
  53.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  54.         <tr class="hback"> 
  55.           <td colspan="2" class="xingmu">专栏管理</td>
  56.         </tr>
  57.         <tr class="hback"> 
  58.           <%
  59.   dim rs,classid,usernumber,s_type
  60.   classid = NoSqlHack(Request.QueryString("ClassID"))
  61.   usernumber = NoSqlHack(Request.QueryString("UserNumber"))
  62.   if classid="" or not isnumeric(classid) or usernumber="" then
  63. strShowErr = "<li>错误的参数</li>"
  64. Response.Redirect("lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  65. Response.end
  66.   end if
  67.   set rs = Server.CreateObject(G_FS_RS)
  68.   rs.open "select ClassID,ClassCName,ClassEName,ParentID,UserNumber,ClassTypes,AddTime,ClassContent From FS_ME_InfoClass where Classid="& classid &" and UserNumber='"& usernumber &"'",User_Conn,1,3
  69.   if rs.eof then
  70. strShowErr = "<li>找不到记录</li>"
  71. Response.Redirect("lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  72. Response.end
  73.   end if
  74.   %>
  75.           <td colspan="2" class="hback"> </td>
  76.         </tr>
  77.         <tr class="hback"> 
  78.           <td width="20%" class="hback_1"><div align="right">专栏名称</div></td>
  79.           <td width="80%" class="hback"><%=rs("ClassCName")%></td>
  80.         </tr>
  81.         <tr class="hback"> 
  82.           <td class="hback_1"><div align="right">专栏创建日期</div></td>
  83.           <td class="hback"><%=rs("addtime")%></td>
  84.         </tr>
  85.         <tr class="hback"> 
  86.           <td class="hback_1"><div align="right">专栏所属类型</div></td>
  87.           <td class="hback">
  88.   <%
  89. select case rs("ClassTypes")
  90. case 0
  91. s_type = "新闻文学类"
  92. case 1
  93. s_type = "下载"
  94. case 2
  95. s_type = "商品"
  96. case 3
  97. s_type = "房产"
  98. case 4
  99. s_type = "供求"
  100. case 5
  101. s_type = "求职"
  102. case 6
  103. s_type = "招聘"
  104. case 7
  105. s_type = "生活日志"
  106. end select
  107. Response.Write s_type
  108.  %>
  109.  </td>
  110.         </tr>
  111.         <tr class="hback">
  112.           <td height="38" class="hback_1"> 
  113.             <div align="right">专栏描述</div></td>
  114.           <td class="hback"><%=rs("ClassContent")%></td>
  115.         </tr>
  116.       </table>
  117.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  118.         <tr> 
  119.           <td colspan="4" class="hback_1">专栏下列表<span class="tx">(如果要修改，请在相应子系统下去修改)</span></td>
  120.         </tr>
  121.         <tr class="hback_1"> 
  122.           <td width="38%"><div align="center"><strong>名称</strong></div></td>
  123.           <td width="35%"><div align="center"><strong>创建日期</strong></div></td>
  124.           <td width="16%"><div align="center"><strong>类型</strong></div></td>
  125.           <td width="11%"><div align="center"><strong>状态</strong></div></td>
  126.         </tr>
  127.         <%
  128. strpage=request("page")
  129. if len(strpage)=0 Or strpage<1 or trim(strpage)=""Then:strpage="1":end if
  130. set rs_l= Server.CreateObject(G_FS_RS)
  131. select case rs("ClassTypes")
  132. case 0
  133. SQL_list = "select ContID,ContTitle,AddTime,AuditTF From FS_ME_InfoContribution where UserNumber='"& usernumber &"' and ClassID="&rs("ClassID")&""
  134. rs_l.open SQL_list,User_Conn,1,3
  135. if rs_l.eof then
  136. call no_s()
  137. else
  138. call no_s_1()
  139. end if
  140. case 1
  141.  
  142. case 2
  143.  
  144. case 3
  145.  
  146. case 4
  147. SQL_list = "select ID,PubTitle,AddTime,isPass,MyClassID From FS_SD_News where UserNumber='"& usernumber &"' and MyClassID="&rs("ClassID")&""
  148. rs_l.open SQL_list,Conn,1,3
  149. if rs_l.eof then
  150. call no_s()
  151. else
  152. call no_s_1()
  153. end if
  154. case 5
  155.  
  156. case 6
  158. case 7
  159.  
  160. end select
  161. sub no_s()
  162.    rs_l.close
  163.    set rs_l=nothing
  164.    Response.Write"<tr  class=""hback""><td colspan=""4""  class=""hback"" height=""40"">没有记录。</td></tr>"
  165. end sub
  166. sub no_s_1()
  167. rs_l.PageSize=int_RPP
  168. cPageNo=NoSqlHack(Request.QueryString("Page"))
  169. If cPageNo="" Then cPageNo = 1
  170. If not isnumeric(cPageNo) Then cPageNo = 1
  171. cPageNo = Clng(cPageNo)
  172. If cPageNo<=0 Then cPageNo=1
  173. If cPageNo>rs_l.PageCount Then cPageNo=rs_l.PageCount 
  174. rs_l.AbsolutePage=cPageNo
  175. for i_ii=1 to rs_l.pagesize
  176. if rs_l.eof Then exit For 
  177.   select case rs("ClassTypes")
  178. case 0
  179. str_title=rs_l("ContTitle")
  180. str_id = rs_l("ContID")
  181. str_addtime =rs_l("AddTime")
  182. str_lockTF=rs_l("AuditTF")
  183. type_s = "投稿"
  184. case 1
  185.  
  186. case 2
  187.  
  188. case 3
  189.  
  190. case 4
  191. str_title=rs_l("PubTitle")
  192. str_id = rs_l("ID")
  193. str_addtime =rs_l("AddTime")
  194. str_lockTF=rs_l("isPass")
  195. type_s = "供求"
  196. case 5
  197.  
  198. case 6
  200. case 7
  201.  
  202. end select
  203. %>
  204.         <tr class="hback"> 
  205.           <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
  206.               <tr> 
  207.                 <td width="7%"><img src="Images/folderopened.gif" width="16" height="16"></td>
  208.                 <td width="93%" valign="bottom"> <% = str_title %> </td>
  209.               </tr>
  210.             </table></td>
  211.           <td><div align="center"> 
  212.               <% = str_addtime %>
  213.             </div></td>
  214.           <td><div align="center"> 
  215.               <% = type_s %>
  216.             </div></td>
  217.           <td><div align="center"> 
  218.               <% 
  219.   select case rs("ClassTypes")
  220. case 0
  221. if str_lockTF=1 then:response.Write("已审核"):else:response.Write("<span class=""tx"">未审核</span>"):end if
  222. case 1
  223.  
  224. case 2
  225.  
  226. case 3
  227.  
  228. case 4
  229. if str_lockTF=1 then:response.Write("已审核"):else:response.Write("<span class=""tx"">未审核</span>"):end if
  230. case 5
  231.  
  232. case 6
  234. case 7
  235.  
  236. end select
  237.     %>
  238.             </div></td>
  239.         </tr>
  240.         <%
  241. rs_l.movenext
  242. next
  243. %>
  244.         <tr class="hback"> 
  245.           <td colspan="4"><div align="right"> 
  246.               <%response.Write "<p>"&  fPageCount(rs_l,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo) %>
  247.             </div></td>
  248.         </tr>
  249.         <%
  250. rs_l.close:set rs_l=nothing
  251. end sub
  252. %>
  253.       </table></td>
  254.     </tr>
  256.     <tr class="back"> 
  257.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  258.           <!--#include file="Copyright.asp" -->
  259.         </div></td>
  260.     </tr>
  261.  
  262. </table>
  263. </body>
  264. </html>
  265. <%
  266. rs.close:set rs=nothing
  267. Set Fs_User = Nothing
  268. %>
  269. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->