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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
in_topmb.asp
资源名称：002_classroom_sourcecodes.rar　[点击查看]
上传用户：stone001
上传日期：2016-10-28
资源大小：685k
文件大小：5k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

in_topmb.asp：源码内容
  1. <%
  3. dim u_ID,u_sex,u_power,u_newmsg
  4. dim u_regdate
  5. dim u_icn,u_sf
  7. sqlstr="SELECT ID,sex,regdate,power,fobdate,newmsg FROM tblmates WHERE name='"&u_name&"'"
  8. rs.open sqlstr,conn,1,1
  9. '判断是否存在
  10. if rs.eof AND rs.bof then
  11. Session.Abandon
  12. Response.Redirect "log_err.asp?cmd=twosys"
  13. end if
  14. u_ID=rs("ID")
  15. u_sex=rs("sex")
  16. u_regdate=FormatDateTime(rs("regdate"),2)
  17. u_power=rs("power")
  18. u_fobdate=rs("fobdate")
  19. if isNULL(rs("newmsg")) then
  20. u_newmsg=0
  21. else
  22. u_newmsg=rs("newmsg")
  23. end if
  24. rs.close
  28. IF u_power<2 THEN
  29. if u_sex=true then
  30. u_icn="img/icn_gg.gif"
  31. else
  32. u_icn="img/icn_mm.gif"
  33. end if
  34. ELSE
  35. u_icn="img/icn_adm1.gif"
  36. END IF
  38. Select Case u_power
  39. Case 0
  40. u_sf="待审"
  41. Case 2
  42. u_sf="管理员"
  43. Case Else
  44. u_sf="成员"
  45. End Select
  47. '总管判断
  48. IF u_name=DEF_sysadm THEN
  49. u_icn="img/icn_admsys.gif"
  50. u_sf="总管"
  51. END IF
  52. %>
  54. <table align="center" width="700" height="95" border="0" cellspacing="0" cellpadding="0"><tr>
  55. <td width="100" height="100%" align="center">
  56. <img align="absmiddle" src="<% =DEF_logo %>" width="100" height="90" border="0" vspace="0" hspace="0">
  57. </td>
  58. <td width="300" align="center">
  59. <%
  60. IF right(DEF_top,3)="swf" THEN
  61. %>
  62. <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
  63.  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
  64.  WIDTH="<% =DEF_top_w %>" HEIGHT="<% =DEF_top_h %>" id="welcome" ALIGN="">
  65.  <PARAM NAME=movie VALUE="<% =DEF_top %>"> 
  66.  <PARAM NAME=quality VALUE=high>
  67.  <EMBED src="<% =DEF_top %>" quality=high  WIDTH="<% =DEF_top_w %>" HEIGHT="<% =DEF_top_h %>" NAME="welcome" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
  68. </OBJECT>
  69. <%  ELSE %>
  70. <img align="absmiddle" src="<% =DEF_top %>" border="0" onMouseOver="javascript:if(this.width>280)this.width=280;" onLoad="javascript:if(this.width>280)this.width=280;">
  71. <%
  72. END IF %>
  73. </td>
  74. <td>
  75. <table align="center" width="100%" height="86" cellspacing="0" cellpadding="0" style="border:2px solid <% =bg1 %>; background-color:<% =bg3 %>" class="intbl"><tr>
  76. <td width="200" height="100%">
  77. <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" style="padding-left:4px; padding-top:1px">
  78. <tr><td width="100%" height="25%">
  79. <img src="<% =u_icn %>" border="0" align="absmiddle">&nbsp;<font class="ft1"><% =u_name %></font>
  80. <% if u_name=DEF_sysadm then %>
  81. <a href="sys_confirm.asp" class="ccjh">【后台】</a>
  82. <% end if %>
  84. </td></tr>
  85. <tr><td width="100%" height="25%">
  86. <img src="img/icn_sms.gif" border="0" align="absmiddle">
  87. <% if u_newmsg=0 then %>
  88. <a href="msgbox.asp">新 消 息 [0]</a>
  89. <% else %>
  90. <% if InStr(1,Request.ServerVariables("URL"),"msg",1)=0 then %>
  91. <bgsound src="sound/msg.wav" loop="1">
  92. <% end if %>
  93. <a href="msgbox.asp" target="_blank"><span style="behavior:url(font.htc)">有 消 息 </span>[<font class="ft1"><b><% =u_newmsg %></b></font>]</a>
  94. <% end if %>
  96. &nbsp;&nbsp;<img src="img/icn_fj.gif" border="0" align="absmiddle">&nbsp;<a href="fjlist.asp">共享附件</a>
  97. </td></tr>
  98. <tr><td width="100%" height="25%">
  99. <img src="img/icn_info.gif" border="0" align="absmiddle">&nbsp;<a href="uinfo.asp">成员中心</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  100. <img src="img/icn_help.gif" border="0" align="absmiddle">&nbsp;<a href="uhelp.asp">班级规则</a>
  101. </td></tr>
  102. <tr><td width="100%" height="25%" align="right">
  103. [身份：<font class="ft1"><% =u_sf %></font>]
  104. &nbsp;&nbsp;&nbsp;&nbsp;<a href="logout.asp">[退出登录]</a>
  105. &nbsp;&nbsp;
  106. </td></tr>
  107. </table>
  108. </td>
  109. <td height="100%">
  110. <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" class="intbl">
  111. <tr><td width="100%"><a href="phbook.asp" class="btn"><img src="img/skin/<% =defstyle %>/btn_photo.gif" border="0" alt="班级相册<br>(正式成员版面)"></a></td></tr>
  112. <tr><td width="100%"><a href="txbook.asp" class="btn"><img src="img/skin/<% =defstyle %>/btn_txb.gif" border="0" alt="班级通讯簿<br>(正式成员版面)"></a></td></tr>
  113. <tr><td width="100%"><a href="talkbook.asp" class="btn"><img src="img/skin/<% =defstyle %>/btn_bbs.gif" border="0" alt="班级讨论区"></a></td></tr>
  114. </table>
  115. </td>
  116. </tr></table>
  117. </td>
  118. </tr></table>
  120. <table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="border:2px solid <% =bg1 %>; border-bottom:none; background-color:<% =bg3 %>"><tr>
  121. <td width="50%" height="100%">
  122. <b>&nbsp;<% =DEF_classname %></b>
  123. </td>
  124. <td width="50%" align="right">
  125. <b>班级网址：<a href="index.asp"><% =DEF_weburl %></a>&nbsp;</b>
  126. </td>
  127. </tr></table>