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

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

数据库编程

开发平台：

ASP/ASPX

main.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. <%
  8. Dim straction
  9. straction = Request("action")
  10. if straction="Unmessage" then
  11. User_Conn.execute("update FS_ME_Users set ismessage= 0 where UserNumber='"& Fs_User.UserNumber &"'")
  12. strShowErr = "<li>订阅本站资料取消</li>"
  13. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  14. Response.end
  15. Elseif straction = "ismessage" then
  16. User_Conn.execute("update FS_ME_Users set ismessage= 1 where UserNumber='"& Fs_User.UserNumber &"'")
  17. strShowErr = "<li>订阅本站资料成功</li>"
  18. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  19. Response.end
  20. Elseif straction = "Open" then
  21. User_Conn.execute("update FS_ME_Users set isOpen= 1 where UserNumber='"& Fs_User.UserNumber &"'")
  22. strShowErr = "<li>对外开放资料开启</li>"
  23. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  24. Response.end
  25. Elseif straction = "Close" then
  26. User_Conn.execute("update FS_ME_Users set isOpen= 0 where UserNumber='"& Fs_User.UserNumber &"'")
  27. strShowErr = "<li>对外开放资料取消</li>"
  28. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../main.asp")
  29. Response.end
  30. End if
  31. %>
  32. <html xmlns="http://www.w3.org/1999/xhtml">
  33. <title>User Manage Center-网站内容管理系统</title>
  34. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  35. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  36. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  37. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  38. <style type="text/css">
  39. <!--
  40. .STYLE1 {font-size: 14px}
  41. -->
  42. </style>
  43. <head></head>
  44. <body>
  46. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  47.   <tr>
  48.     <td>
  49.       <!--#include file="top.asp" -->
  50.     </td>
  51.   </tr>
  52. </table>
  53. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  54.     <tr class="back"> 
  55.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" -->
  56.     </td>
  57.     </tr>
  58.     <tr class="back"> 
  59.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  60.           <!--#include file="menu.asp" -->
  61.         </div></td>
  62.       <td width="82%" valign="top" class="hback"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  63.           <tr> 
  64.             <td width="60%"  valign="top"> 
  65.               <table width="98%" height="281" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  66.               <tr> 
  67.                 <td height="29" colspan="4"  class="hback_1"> <span class="bigtitle"><strong>·基本信息</strong></span><strong><a href="ShowUser.asp?UserNumber=<%=Fs_User.UserNumber%>" target="_blank">&lt;详细信息&gt;</a>　　　　　推荐：</strong><a href="award/award.asp?action=myaward">积分抽奖</a></td>
  68.               </tr>
  69.               <tr> 
  70.                 <td width="18%" height="24" class="hback"> <div align="center" class="hback">用户姓名</div></td>
  71.                 <td width="36%" class="hback"><%=Fs_User.RealName%></td>
  72.                 <td colspan="2" rowspan="7" class="hback"> <div align="center"></div>
  73.                   <div align="center"> 
  74.                     <%
  75.   Dim strHeadPicsizearr,strHeadPicsizearrw,strHeadPicsizearrh
  76.   if not isNull(Fs_User.HeadPicsize) then 
  77.   strHeadPicsizearr = split(Fs_User.HeadPicsize,",")
  78.   strHeadPicsizearrw = strHeadPicsizearr(0)
  79.   strHeadPicsizearrh = strHeadPicsizearr(1)
  80.   End if
  81.   if Trim(Fs_User.HeadPic) <>"" or len(Trim(Fs_User.HeadPic)) >0 then
  82.   %>
  83.                     <table width="42" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC" class="table">
  84.                       <tr> 
  85.                         <td height="40" bgcolor="#FFFFFF"><img src="<%=Fs_User.HeadPic%>" width="<% = strHeadPicsizearr(0)%>" height="<% = strHeadPicsizearr(1)%>"></td>
  86.                       </tr>
  87.                     </table>
  88.                   </div>
  89.                   <div align="center"></div></td>
  90.                 <%Else%>
  91.                 <img src="images/noHeadpic.gif" border="0"> 
  92.                 <%End if%>
  93.               </tr>
  94.               <tr> 
  95.                 <td height="24" class="hback"> <div align="center" class="hback">用户昵称</div></td>
  96.                 <td class="hback"><%=Fs_User.NickName%></td>
  97.               </tr>
  98.               <tr> 
  99.                 <td height="24" class="hback"> <div align="center" class="hback">用 户 名</div></td>
  100.                 <td class="hback"><%=Fs_User.UserName%></td>
  101.               </tr>
  102.               <tr> 
  103.                 <td height="24" class="hback"> <div align="center" class="hback">用户编号</div></td>
  104.                 <td class="hback"><%=Fs_User.UserNumber%></td>
  105.               </tr>
  106.               <tr> 
  107.                 <td height="24" class="hback"> <div align="center" class="hback">电子邮件</div></td>
  108.                 <td class="hback"><%=Fs_User.Email%> </td>
  109.               </tr>
  110.               <tr> 
  111.                 <td height="24" class="hback"> <div align="center" class="hback">登 陆 IP</div></td>
  112.                 <td height="24" class="hback"><%=Fs_User.LastLoginIP%></td>
  113.               </tr>
  114.               <tr> 
  115.                 <td height="24" class="hback"> <div align="center" class="hback">到期日期</div></td>
  116.                 <td class="hback"> <%
  117.    if Fs_User.CloseTime ="3000-1-1" then
  118.       Response.Write"没限制"
  119. Else
  120. Response.Write Fs_User.CloseTime
  121. End if
  122.   %> </td>
  123.               </tr>
  124.               <tr> 
  125.                 <td height="24" class="hback"> <div align="center" class="hback">登陆时间</div></td>
  126.                 <td class="hback"><%=Fs_User.LastLoginTime%></td>
  127.                 <td width="18%" class="hback"> <div align="center" class="hback">资料开放</div></td>
  128.                 <td width="28%" class="hback"> <%
  129.     if Fs_User.isOpen=0 then
  130. Response.Write("<a href=""main.asp?action=Open"">隐私</a>")
  131. Else
  132. Response.Write("<a href=""main.asp?action=Close"">开放</a>")
  133. End if
  134.   %> </td>
  135.               </tr>
  136.               <tr> 
  137.                 <td height="24" class="hback"><div align="center" class="hback">注册日期</div></td>
  138.                 <td class="hback"><%=Fs_User.RegTime%></td>
  139.                 <td class="hback"><div align="center" class="hback">订阅本站</div></td>
  140.                 <td class="hback"> <%
  141.     if Fs_User.ismessage=0 then
  142. Response.Write("<a href=main.asp?Action=ismessage>未定阅</a>")
  143. Else
  144. Response.Write("<a href=main.asp?action=Unmessage>已订阅</a>")
  145. End if
  146.   %> </td>
  147.               </tr>
  148.               <tr>
  149.                 <td height="24" class="hback"><div align="center" class="hback">登陆次数</div></td>
  150.                 <td class="hback"><%=Fs_User.NumLoginNum%></td>
  151.                 <td class="hback">&nbsp;</td>
  152.                 <td class="hback">&nbsp;</td>
  153.               </tr>
  154.             </table>
  155.               
  156.             <table width="98%" height="97" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  157.               <tr> 
  158.                 <td height="22" colspan="4" class="hback_1"><span class="bigtitle"><strong>·资源管理</strong></span></td>
  159.               </tr>
  160.               <tr> 
  161.                 <td width="18%" height="24" class="hback"><div align="center"><a href="infomanage.asp">我的专栏</a></div></td>
  162.                 <td width="82%" colspan="3" class="hback">
  163. <%
  164. Dim RsInfoObj
  165. Set RsInfoObj = server.CreateObject(G_FS_RS)
  166. RsInfoObj.open "select  Top 4 ClassID,ClassCName,ClassEName,ParentID,UserNumber,ClassTypes,AddTime,ClassContent From FS_ME_InfoClass where ParentID=0 and UserNumber='"& Fs_User.UserNumber&"' order by ClassID desc",User_Conn,1,1
  167.  if Not RsInfoObj.eof then
  168.  Do while Not RsInfoObj.eof
  169. Response.Write "<a href=""ShowInfoClass.asp?ClassID="& RsInfoObj("ClassID") & "&UserNumber=" & RsInfoObj("UserNumber") & """ Title=""" & RsInfoObj("ClassContent") & """>" & RsInfoObj("ClassCName") & "</a>┆"
  170.   RsInfoObj.movenext
  171.   Loop
  172. Response.Write "<a href=""infomanage.asp"">More..."
  173. Else
  174.    Response.Write("没有专栏，<a href=""infomanage.asp"" title=""建立专栏""><b>建立</b></a>")
  175. End if
  176. RsInfoObj.close:set RsInfoObj = nothing
  177.   %>
  178.                   </a> </td>
  179.               </tr>
  180.               <tr> 
  181.                 <td height="24" class="hback"><div align="center"><a href="GroupClass.asp">我的社群</a></div></td>
  182.                 <td colspan="3" class="hback"> <%
  183. Dim RsGroupObj
  184. Set RsGroupObj = server.CreateObject(G_FS_RS)
  185. RsGroupObj.open "select  Top 4 gdID,ClassID,Title,Content,UserNumber,isLock From FS_ME_GroupDebateManage where UserNumber='"& Fs_User.UserNumber&"' order by ClassID desc",User_Conn,1,1
  186.  if Not RsGroupObj.eof then
  187.  Do while Not RsGroupObj.eof
  188.   Response.Write "<a href=""Group_unit.asp?GDID="& RsGroupObj("gdID")& """ Title=""" & RsGroupObj("Content") & """>" & RsGroupObj("Title") & "</a>&nbsp;&nbsp;&nbsp;"&vbNewLine
  189.   if cbool(RsGroupObj("isLock")) then response.Write(" 等待审核... ")
  190.   Response.Write "<a href=""GroupClass.asp?Act=Edit&gdID="& RsGroupObj("gdID")& """>〖修改〗</a>&nbsp;&nbsp;&nbsp;"
  191.   RsGroupObj.movenext
  192.   Loop
  193. Response.Write "<a href=""GroupClass.asp"">More..."
  194. Else
  195.    Response.Write("没有社群，<a href=""GroupClass.asp?Act=Add"" title=""建立社群""><b>建立</b></a>")
  196. End if
  197. RsGroupObj.close:set RsGroupObj = nothing
  198.   %> </td>
  199.               </tr>
  200.             </table>
  201. <%If  Fs_User.isCorp = 0  then%>
  202.               <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  203.                 <tr> 
  204.                   <td height="28" colspan="4" class="hback_1"><span class="bigtitle"><strong>·企业资料</strong></span></td>
  205.                 </tr>
  206.                 <tr> 
  207.                   <td height="37" colspan="4" class="hback"> 
  208.                     <div align="left">您没开通企业资料！<a href="OpenCorp.asp">现在开通</a> 
  209.                     </div></td>
  210.                 </tr>
  211.               </table> 
  212.               <%Else%>          
  213.               <table width="98%"  border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  214.                 <tr> 
  215.                   <td height="26" colspan="4" class="hback_1"><span class="bigtitle"><strong>·企业资料</strong></span>     <a href="OpenCorp.asp" class="sd">修改</a></td>
  216.                 </tr>
  217. <%
  218. Dim RsCorpObj
  219. Set RsCorpObj = server.CreateObject(G_FS_RS)
  220. RsCorpObj.open "select  CorpID,C_Name,C_ShortName,C_Province,C_City,C_Address,C_PostCode,C_Tel,C_Fax,C_BankName,C_BankUserName,isYellowPage,isYellowPageCheck From FS_ME_CorpUser where UserNumber='"& Fs_User.UserNumber&"'",User_Conn,1,1
  221. if Not RsCorpObj.eof then
  222. %>
  223.                 <tr> 
  224.                   <td width="18%" height="24" class="hback"> <div align="center">公司名称</div></td>
  225.                   <td width="82%" colspan="3" class="hback"> <% = RsCorpObj("C_Name") %> </td>
  226.                 </tr>
  227.                 <tr> 
  228.                   <td height="24" class="hback"> <div align="center">公司简称</div></td>
  229.                   <td colspan="3" class="hback"> <% = RsCorpObj("C_ShortName") %> </td>
  230.                 </tr>
  231.                 <tr> 
  232.                   <td height="24" class="hback"> <div align="center">公司地址</div></td>
  233.                   <td colspan="3" class="hback"> <% = RsCorpObj("C_Province") &RsCorpObj("C_City") &RsCorpObj("C_Address")%>,&nbsp;&nbsp;邮编：<% = RsCorpObj("C_PostCode") %> </td>
  234.                 </tr>
  235.                 <tr> 
  236.                   <td height="24" class="hback"> <div align="center">公司电话</div></td>
  237.                   <td colspan="3" class="hback"> <% = RsCorpObj("C_Tel") %> </td>
  238.                 </tr>
  239.                 <tr> 
  240.                   <td height="24" class="hback"> <div align="center">公司传真</div></td>
  241.                   <td colspan="3" class="hback"> <% = RsCorpObj("C_Fax") %> </td>
  242.                 </tr>
  243.                 <tr> 
  244.                   <td height="24" class="hback"> <div align="center">银行帐户</div></td>
  245.                   <td colspan="3" class="hback">银行: <% = RsCorpObj("C_BankName") %>，帐号: <% = RsCorpObj("C_BankUserName") %> </td>
  246.                 </tr>
  247.                 <tr> 
  248.                   <td height="24" class="hback"> <div align="center">黄页开通</div></td>
  249.                   <td colspan="3" class="hback">
  250.   <%
  251.      if  RsCorpObj("isYellowPage") = 0 then
  252.   Response.Write("还没开通黄页，&nbsp;&nbsp;<a href=""Corp_Info.asp?CorpID="&RsCorpObj("CorpID") &"&YellowPage=Open""><b>开通</b></a>") 
  253.  Else
  254.    if RsCorpObj("isYellowPageCheck")=0 then
  255. Response.Write("已经开通黄页，&nbsp;&nbsp;还没通过")
  256. Else
  257. Response.Write("已经开通黄页，&nbsp;&nbsp;<a href=""Corp_Info.asp?CorpID="&RsCorpObj("CorpID") &"&YellowPage=Close""><b>关闭黄页功能</b>")
  258. End if
  259.  End if
  260.  %> </td>
  261.                 </tr>
  262.                 <%
  263. Else
  264.      Response.Write("<tr><td height=""40"" colspan=""4"" class=""hback""><b>是企业会员，但没找到企业资料</b></a></td></tr>")
  265. End if
  266. RsCorpObj.close
  267. Set RsCorpObj = nothing
  268. %>
  269.               </table>
  270.   <%End if%>
  271.     </td>
  272.             <td valign="top"> <table width="98%" height="176" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  273.                 <tr> 
  274.                   <td height="27"  class="hback_1"><span class="bigtitle"><strong>·最新公告</strong></span></td>
  275.                 </tr>
  276.                 <tr> 
  277.                   <td valign="top" class="hback">
  278.   <%
  279. Dim RsNewsObj
  280. Set RsNewsObj = server.CreateObject(G_FS_RS)
  281. RsNewsObj.open "select  Top 6 NewsID,Title,Content,Addtime,GroupID,NewsPoint,isLock From FS_ME_News where Islock=0 order by NewsID desc",User_Conn,1,1
  282.  if Not RsNewsObj.eof then
  283.  Do while Not RsNewsObj.eof
  284. Response.Write "<img src=""images/dot.gif"" border=""0""></img><a href=""ShowCallboard.asp?NewsID="& RsNewsObj("NewsID") & """ Title=""" & RsNewsObj("Content") & """>" & RsNewsObj("Title") & "</a>&nbsp;<font style=""font-size:9px"">("& year(RsNewsObj("Addtime"))&"-"&month(RsNewsObj("Addtime"))&"-"&day(RsNewsObj("Addtime")) &")</font><br>"
  285.   RsNewsObj.movenext
  286.   Loop
  287. Else
  288.    Response.Write("没有公告")
  289. End if
  290. RsNewsObj.close:set RsNewsObj = nothing
  291.   %>
  292.                     <table width="98%" border="0" cellspacing="0" cellpadding="0">
  293.                       <tr>
  294.                         <td><div align="right"><a href="callboard.asp">&gt;&gt;more..</a></div></td>
  295.                       </tr>
  296.                     </table> </td>
  297.                 </tr>
  298.               </table>
  299.               
  300.             <table width="98%" height="198" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  301.               <tr> 
  302.                   <td width="50%" height="27"  class="hback_1"><span class="bigtitle"><strong>·我的好友</strong></span></td>
  303.                 </tr>
  304.                 <tr> 
  305.                   
  306.                 <td height="167" valign="top" class="hback"> 
  307.                   <%
  308. Dim RsFriendObj
  309. Set RsFriendObj = server.CreateObject(G_FS_RS)
  310. RsFriendObj.open "select  Top 7 FriendID,UserNumber,FriendType,F_UserNumber,AddTime,Updatetime From FS_ME_Friends where UserNumber='"& Fs_User.UserNumber &"' and FriendType = 0 order by UpdateTime desc,FriendID desc",User_Conn,1,3
  311.  if Not RsFriendObj.eof then
  312.     Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
  313.  Do while Not RsFriendObj.eof
  314.   Dim Tmp_UserNumber,Tmp_UserName,strsendMail,RsTmpobj
  315. Set RsTmpobj = server.CreateObject(G_FS_RS)
  316. RsTmpobj.open "Select  top 1 NickName,UserName From FS_ME_Users where UserNumber = '"& RsFriendObj("F_UserNumber") &"'",User_Conn,1,1
  317. If Not RsTmpobj.eof then
  318. Tmp_UserNumber =RsTmpobj("NickName") 
  319. Tmp_UserName  =RsTmpobj("UserName") 
  320. Strsendmail ="<a href=message_write.asp?ToUserNumber="&RsFriendObj("F_UserNumber")&" title=""发送消息"">短信</a>&nbsp;|&nbsp;<a href=book_write.asp?ToUserNumber="&RsFriendObj("F_UserNumber")&"&M_Type=0 title=""发送留言"">留言</a>"
  321. Response.Write "<tr><td width=""70%""><img src=""images/dot.gif"" border=""0""></img><a href=""ShowUser.asp?UserNumber="& RsFriendObj("F_UserNumber") & """ target=""_blank"">" & Tmp_UserNumber & "("&Tmp_UserName&")</td><td align=""center"">"& Strsendmail &"</a></td></tr>"
  322.   RsFriendObj.movenext
  323. Else
  324. RsFriendObj.movenext
  325. End if
  326. Loop
  327. Response.Write("</table>")
  328. Else
  329.    Response.Write("没有好友")
  330. End if
  331. set RsTmpobj = nothing
  332. RsFriendObj.close
  333. set RsFriendObj = nothing
  334.   %>
  335.                   </td>
  336.                 </tr>
  337.               </table>
  339.             <table width="98%" height="124" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  340.               <tr> 
  341.                 <td width="50%" height="27"  class="hback_1"><span class="bigtitle"><strong>·排行</strong></span>(<a href="Top_User.asp?type=int" target="sys_Frame">积分</a>┊<a href="Top_User.asp?type=money" target="sys_Frame">金币</a>┊</span><a href="Top_User.asp?type=active" target="sys_Frame">最活跃</a>┊<a href="Top_User.asp?type=hits" target="sys_Frame">人气</a>)</td>
  342.               </tr>
  343.               <tr> 
  344.                 <td height="94" valign="top" class="hback"><iframe src="top_user.asp?type=int" name="sys_Frame" scrolling="no" frameborder="0" align="middle" width="100%" height="175"></iframe></td>
  345.               </tr>
  346.             </table>
  347.             
  348.           </td>
  349.           </tr>
  350.         </table></td>
  351.     </tr>
  352.     <tr class="back"> 
  353.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  354.           <!--#include file="Copyright.asp" -->
  355.         </div></td>
  356.     </tr>
  357. </table>
  358. </body>
  359. </html>
  360. <%
  361. Set Fs_User = Nothing
  362. %>
  363. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->