Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
Server.asp
Package: qiyeguanli.rar　[view]
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 5k
Category:

WEB(ASP,PHP,...)

Development Platform:

VBScript

Server.asp：Code Content
  1. <%@ LANGUAGE=VBScript CodePage=936%>
  2. <%option explicit%>
  3. <%Response.Buffer=True%>
  4. <!--#include file="Include/System.asp"-->
  5. <!--#include file="Include/StrLeft.asp"-->
  7. <!--#include file="Include/Head.asp" -->
  8. <TABLE cellPadding=0 cellSpacing=0 class='Middle_Title'>
  9. <TR> 
  10. <TD vAlign=top class='M_Left_Td'> 
  11. <table cellpadding="0" cellspacing="0" align="center" class='M_Left_Title'>
  12. <tr>
  13. <td valign="top">
  14. <% Call Left_Member() %>
  15. </td>
  16. </tr>
  17. </table> 
  18. </TD>
  19. <%if strSkins <= 200 and strSkins >= 1 then%>
  20. <TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
  21. <%
  22. elseif strSkins <= 250 and strSkins >= 201 then '新风格==============================================================
  23. %>
  24. <%end if%>
  25. <TD vAlign=top> 
  26. <TABLE cellPadding=0 cellSpacing=0 align='center' class='M_Center_Title'>
  27. <% Call Style_Adcolumn() '广告栏 %>
  29. <!-- 会员中心首页 -->
  30. <TR>
  31. <TD>
  32. <TABLE cellSpacing=0 cellPadding=0  align="center" class='MC_Pt_Title'>
  33. <TR>
  34. <TD class='MC_Pt_TD1'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  35. <TD class='MC_Pt_TD2'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  36. <TD class='MC_Pt_TD3'><SPAN class=Glow>
  37. 会员中心
  38. &nbsp;</SPAN></TD>
  39. <TD class='MC_Pt_TD4'><div align="right">
  40. &nbsp;</div></TD>
  41. <TD class='MC_Pt_TD5'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
  42. </TR>
  43. </TABLE>
  44. </TD>
  45. </TR>
  46. <TR> 
  47. <TD>
  48. <TABLE cellSpacing=0 cellPadding=0  align="center" class='MC_ServeNr_Title'>
  49. <tr> 
  50. <TD> <%If Session("UserName")="" Then %> <br> <br>
  51. <table width="100%" border="0" cellpadding="0" cellspacing="3">
  52. <tr> 
  53. <td width="19%" align="right"></td>
  54. <td width="81%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#006699"
  55. >对不起，您还没有登录，无法进入会员中心，请先登录！</font></p>
  56. <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#006699"
  57. >如果您还不是我们的会员，请立即<a href="UserReg.asp"><font color="#006699">注册</font></a>。</font></p></td>
  58. </tr>
  59. <tr> 
  60. <td width="19%" align="right"></td>
  61. <td width="81%"> <div align="center"> 
  62. <table class="main" cellSpacing="0" cellPadding="2" width="100%" border="0" height="1">
  63. <tbody>
  64. <tr> 
  65. <td width="100%" height="1"><% call ShowUserLogina() %></td>
  66. </tr>
  67. </tbody>
  68. </table>
  69. </div></td>
  70. </tr>
  71. <tr> 
  72. <td width="19%" align="right"></td>
  73. <td width="81%"><font color="#990000"><b><font color="#006699">会员中心有以下功能：</font></b></font></td>
  74. </tr>
  75. <tr> 
  76. <td width="19%" align="right"><font color="#666666">1、</font></td>
  77. <td width="81%"><font color="#666666">修改您的会员注册资料</font></td>
  78. </tr>
  79. <tr> 
  80. <td width="19%" align="right" height="14"><font color="#666666">2、</font></td>
  81. <td width="81%" height="14"> <p><font color="#666666">查询您的订单，以及订单的处理情况</font></p></td>
  82. </tr>
  83. <tr> 
  84. <td width="19%" align="right"><font color="#666666">3、</font></td>
  85. <td width="81%"><font color="#666666">专用私人留言簿，您可在此给我们留言和查看我们的回复</font></td>
  86. </tr>
  87. <tr> 
  88. <td height="25" align="right">&nbsp;</td>
  89. <td>&nbsp;</td>
  90. </tr>
  91. </table>
  92. <%else%>
  93. <TABLE width="85%" height="136" align="center" cellPadding=0 cellSpacing=0>
  94. <TR vAlign=top > 
  95. <TD  width="100%" height="18">
  96. <p><br><br><br></p>
  97. <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> 
  98. <b><font color="#F584B1">会员中心首页：</font></b> <br><br><br>
  99. <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><%=Session("UserName")%> 您好：<br> <br></p>
  100. <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">您现在已经进入会员服务中心，这里只有注册会员才能访问。您可在这里修改您的注册<BR>
  101. <BR>信息、给我们留言、查看我们对您留言的答复，也可以查询您的订单及订单处理情况。</p>
  102. </TD>
  103. </TR>
  104. <TR vAlign=top > 
  105. <TD  width="100%" height="15"> &nbsp;&nbsp;&nbsp; <p>&nbsp;</p></TD>
  106. </TR>
  107. </TABLE>
  108. <%end if%> 
  109. </TD>
  110. </TR>
  111. </table>
  112. </TD>
  113. </TR>
  114. <!-- 会员中心 END -->
  115. <TR> 
  116. <TD> 
  117. <TABLE cellSpacing=0 cellPadding=0 align="center"  class='MC_bottom_title'>
  118. <tr> 
  119. <td>
  120. </td>
  121. </tr>
  122. <tr><td class='MC_bottom_Td2'></td></tr>
  123. </table>
  124. </TD>
  125. </TR>
  126. <TR><TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
  127. </TABLE>
  128. </TD>
  129. <%if strSkins <= 200 and strSkins >= 1 then%>
  131. </TR>
  132. </TABLE>
  133. <!--#include file="Include/Foot.asp" -->
  134. <%
  135. elseif strSkins <= 250 and strSkins >= 201 then '新风格==============================================================
  136. %>
  137. <TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
  138. <TD vAlign=top background="../Skin/201/line-mid-glay.gif" width="6"><img border="0" src="../Skin/201/line-shadow-glay-
  140. mid.gif" width="6" height="146"></TD>
  141. <TD vAlign=top class='Mr_TitlePt'><% Call Right_Download() %></TD>
  142. </TR>
  143. </TABLE>
  144. <!--#include file="Include/Foot4.asp" -->
  145. <%end if%>