文件列表:

Images\Admin_Login2.gif (10121, 2006-09-25)
Images\Annouce_r1_c1.gif (1416, 2006-09-25)
Images\Annouce_r2_c1.gif (12002, 2006-09-25)
Images\Annouce_r3_c1.gif (7099, 2006-09-25)
Images\Annouce_r3_c2.gif (162, 2006-09-25)
Images\Annouce_r3_c3.gif (2286, 2006-09-25)
Images\Annouce_r4_c1.gif (84, 2006-09-25)
Images\Annouce_r5_c1.gif (1661, 2006-09-25)
Images\Annouce_r6_c1.gif (6851, 2006-09-25)
Images\Article_elite.gif (56, 2006-09-25)
Images\Blog_elite.gif (118, 2006-09-25)
Images\Blog_hot.gif (220, 2006-09-25)
Images\Blog_ontop.gif (72, 2006-09-25)
Images\D_1.gif (73, 2006-09-25)
Images\D_2.gif (52, 2006-09-25)
Images\Head.Fix (54, 2006-09-25)
Images\Photo_common.gif (307, 2006-09-25)
Images\Photo_elite.gif (307, 2006-09-25)
Images\Photo_ontop.gif (72, 2006-09-25)
Images\Product_common.gif (118, 2006-09-25)
Images\Product_elite.gif (118, 2006-09-25)
Images\Product_ontop.gif (118, 2006-09-25)
Images\Rss.gif (133, 2006-09-25)
Images\STYLE.CSS (1452, 2006-09-25)
Images\Soft_common.gif (73, 2006-09-25)
Images\Soft_elite.gif (73, 2006-09-25)
Images\Soft_ontop.gif (72, 2006-09-25)
Images\Special_List2.gif (169, 2006-09-25)
Images\Special_List3.gif (81, 2006-09-25)
Images\Special_List4.gif (65, 2006-09-25)
Images\Special_List5.gif (183, 2006-09-25)
Images\Special_List6.gif (197, 2006-09-25)
Images\Special_List7.gif (72, 2006-09-25)
Images\Special_List8.gif (60, 2006-09-25)
Images\Special_List9.gif (60, 2006-09-25)
Images\Star.gif (61, 2006-09-25)
Images\TEAM.gif (125, 2006-09-25)
Images\Urgent.gif (370, 2006-09-25)
Images\UserLogin.gif (130, 2006-09-25)
Images\User_Login.gif (329, 2006-09-25)
... ...

<%@language=vbscript codepage=936 %> <% Option Explicit Response.buffer = True %> <% FoundErr = False ErrMsg = "" If CheckUserLogined() = False Then Call CloseConn Response.Redirect "User_Login.asp" End If Call Read If FoundErr = True Then Response.Write WriteErrMsg(ErrMsg, ComeUrl) End If Call CloseConn Private Sub Read() Dim MessageID, rs, rsNext, NextID, NextSender MessageID = PE_CLng(Trim(Request("MessageID"))) If MessageID = 0 Then FoundErr = True ErrMsg = ErrMsg & "

指定的短消息ID错误！

" Exit Sub End If Conn.Execute ("update PE_Message set Flag=1 where Incept='" & UserName & "' and ID=" & MessageID) Conn.Execute ("update PE_User set UnreadMsg=UnreadMsg-1 where UserName='" & UserName & "'") Set rsNext = Conn.Execute("select ID,Sender from PE_Message where Incept='" & UserName & "' and Flag=0 and IsSend=1 and ID>" & MessageID & " order by SendTime") If Not (rsNext.BOF And rsNext.EOF) Then NextID = rsNext(0) NextSender = rsNext(1) End If Set rsNext = Nothing Set rs = Conn.Execute("select * from PE_Message where (Incept='" & UserName & "' or Sender='" & UserName & "') and ID=" & MessageID) If rs.BOF And rs.EOF Then FoundErr = True ErrMsg = ErrMsg & "

找不到指定的短消息

" Set rs = Nothing Exit Sub End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " If NextID <> "" Then Response.Write " " End If Response.Write "

阅 读 短 消 息

" Response.Write "   " Response.Write "  " Response.Write "  " Response.Write " " Response.Write "

" Response.Write " 在" & rs("SendTime") & "，" & rs("Sender") & "给您发送短消息！ " Response.Write "

消息主题：" & PE_HTMLEncode(rs("Title")) Response.Write "

" & rs("Content") & "

" Response.Write " [读取下一条信息]" Response.Write "

" Response.Write "" Response.Write "" rs.Close Set rs = Nothing End Sub Public Function PE_HTMLEncode(ByVal fString) If IsNull(fString) Or Trim(fString) = "" Then PE_HTMLEncode = "" Exit Function End If fString = Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, Chr(32), " ") fString = Replace(fString, Chr(9), " ") fString = Replace(fString, Chr(34), """) fString = Replace(fString, Chr(39), "'") fString = Replace(fString, Chr(13), "") fString = Replace(fString, Chr(10) & Chr(10), "

") fString = Replace(fString, Chr(10), "
") PE_HTMLEncode = fString End Function %>

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：