welcome.asp

电子商务网络购物系统

<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True
Dim rsPmMessage
Dim intForumID

If blnPrivateMessages = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If intGroupID = 2 OR blnActiveMember = False Then 
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If

Set rsPmMessage = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Count(timesmess.messid) AS CountOfPM FROM timesmess "
strSQL = strSQL & "WHERE timesmess.readed = 0 AND timesmess.userid = " & lngLoggedInUserID & ";"
rsPmMessage.Open strSQL, adoCon
intNumOfNewPM = CInt(rsPmMessage("CountOfPM"))
rsPmMessage.Close
strSQL = "SELECT TOP 1 timesmess.messdtm, timesuser.Username "
strSQL = strSQL & "FROM timesuser INNER JOIN timesmess ON timesuser.userid = timesmess.bbsid "
strSQL = strSQL & "WHERE timesmess.readed = 0 AND timesmess.userid = " & lngLoggedInUserID & " "
strSQL = strSQL & "ORDER BY timesmess.messdtm DESC;"
rsPmMessage.Open strSQL, adoCon
%>
<title>查看短信</title>	

  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr> 
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="welcome.asp" target="_self" class="boldLink">查看短信</a><br /></td>
  </tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="2" align="center">
 <tr> 
  <td width="50%"><span class="lgText"><img src="images/subject.gif" alt="主题" align="absmiddle"> 短信:欢迎来到你的信箱</span></td>
  <td align="right" width="50%"><a href="inbox.asp" target="_self"><img src="images/inbox.gif" alt="短信:收件夹" border="0"></a>&nbsp;<a href="outbox.asp" target="_self"><img src="images/outbox.gif" alt="短信:发件夹" border="0"></a>&nbsp;<a href="friendlist.asp" target="_self"><img src="images/friends.gif" alt="通讯录" border="0"></a>&nbsp;<a href="newmess.asp" target="_self"><img src="images/newmess.gif" alt="写新短信" border="0"></a></td>
 </tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTableBorderColour %>" align="center">
 <tr>
  <td>
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="14" bgcolor="<% = strTableBgColour %>">
    <tr>
     <td bgcolor="<% = strTableTitleColour %>" height="25" class="tHeading" background="<% = strTableTitleBgImage %>"><% = "欢迎" & " " & strLoggedInUsername & " " & "查看你的短信" %></td>
    </tr>
    <tr> 
     <td bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" class="text">
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="text">
       <tr> 
        <td class="text">你可以在这里接收短信,而且你的短信不会被任何其他会员看到.<br/><br/></td>
       </tr>

       <tr> 
        <td><span class="tHeading">收件箱状况<br />
         </span> 
         <table width="100%" border="0" cellspacing="0" cellpadding="4">
          <tr> 
           <td width="3%"><%
If NOT rsPmMessage.EOF Then  %>
<img src="images/full.gif">
<% Else %>
<img src="images/empty.gif">
<% End If  %>
</td> <td width="96%" class="text"><%
If NOT rsPmMessage.EOF Then %>
<span class="bold">你的收件夹中有 <%= intNumOfNewPM %> 条新短信</span> <a href="inbox.asp" target="_self">查看短信</a><br />
最后一个给你发短信的是<%= rsPmMessage("Username") %> 发表于 <%= DateFormat(rsPmMessage("messdtm"), saryDateTimeData) %>  <%= TimeFormat(rsPmMessage("messdtm"), saryDateTimeData) %><br />
<% Else	 %>
你暂时没有短信<a href="inbox.asp" target="_self">查看短信</a>
<% End If %></td>
         </tr>
         </table>
        </td>
       </tr>
       <tr>
        <td>&nbsp;</td>
       </tr>
       <tr> 
        <td><span class="tHeading">短信概要</span></td>
       </tr>
       <tr> 
        <td class="text"><span class="bold">收件夹: </span>在这里你可以接收短信和查看删除短信.</td>
       </tr>
       <tr> 
        <td class="text"><span class="bold">发件夹: </span>这里可以给好友发送短信</td>
       </tr>
       <tr> 
        <td class="text"><span class="bold">通讯录: </span>在这里你可以从你的好友列表增加或删除论坛会员.你还可以禁止某个用户给你发短信.</td>
       </tr>
       <tr> 
        <td class="text"><span class="bold">新短信:</span>在这里你可以发短信给论坛其他会员.</td>
       </tr>
      </table>
     </td>
    </tr>
   </table>
  </td>
 </tr>

</td>
 </tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="4" align="center">
 <tr>
  <form>
   <td>
    <!-- #include file="includes/forumjump.asp" -->
   </td>
  </form>
 </tr>
</table>
<br /><br />
<%
rsPmMessage.Close
Set rsPmMessage = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<!-- #include file="includes/footer.asp" -->