文件列表:

2006\AD\UploadAdPic (0, 2006-05-23)
2006\AD\ADCount.asp (773, 2006-05-18)
2006\AD\ADShow.asp (3861, 2006-05-18)
2006\AD\ADTemplate\Template_Banner.js (6739, 2006-05-18)
2006\AD\ADTemplate\Template_Code.js (1565, 2006-05-18)
2006\AD\ADTemplate\Template_Fixed.js (5802, 2006-05-18)
2006\AD\ADTemplate\Template_Float.js (8969, 2006-05-18)
2006\AD\ADTemplate\Template_Move.js (6515, 2006-05-18)
2006\AD\ADTemplate\Template_Pop.js (8586, 2006-05-18)
2006\AD\ADTemplate (0, 2006-05-23)
2006\AD (0, 2006-05-23)
2006\Admin\Databackup (0, 2006-05-23)
2006\Admin\Admin_Admin.asp (1465, 2006-05-18)
2006\Admin\Admin_Advertisement.asp (109, 2006-05-18)
2006\Admin\Admin_Announce.asp (104, 2006-05-18)
2006\Admin\Admin_AreaCollection.asp (110, 2006-05-18)
2006\Admin\Admin_Article.asp (103, 2006-05-18)
2006\Admin\Admin_ArticleCreate.asp (100, 2006-05-18)
2006\Admin\Admin_ArticleJS.asp (105, 2006-05-18)
2006\Admin\Admin_Bank.asp (104, 2006-05-18)
2006\Admin\Admin_Bankroll.asp (108, 2006-05-18)
2006\Admin\Admin_Cache.asp (101, 2006-05-18)
2006\Admin\Admin_Card.asp (104, 2006-05-18)
2006\Admin\Admin_Channel.asp (103, 2006-05-18)
2006\Admin\Admin_ChannelPurview.asp (7081, 2006-05-18)
2006\Admin\Admin_CheckSameTitle.asp (110, 2006-05-18)
2006\Admin\Admin_ChkCode.asp (1178, 2006-05-24)
2006\Admin\Admin_ChkPurview.asp (8390, 2006-05-18)
2006\Admin\Admin_City.asp (100, 2006-05-18)
2006\Admin\Admin_Class.asp (101, 2006-05-18)
2006\Admin\Admin_Client.asp (102, 2006-05-18)
2006\Admin\Admin_Collection.asp (106, 2006-05-18)
2006\Admin\Admin_CollectionHistory.asp (113, 2006-05-18)
2006\Admin\Admin_CollectionManage.asp (112, 2006-05-18)
2006\Admin\Admin_CollectionPreview.asp (403, 2006-05-18)
2006\Admin\Admin_Comment.asp (103, 2006-05-18)
2006\Admin\Admin_CommonCode.asp (2952, 2006-05-18)
2006\Admin\Admin_CompareFilesOnline.asp (114, 2006-05-18)
2006\Admin\Admin_Complain.asp (104, 2006-05-18)
2006\Admin\Admin_ConsumeLog.asp (106, 2006-05-18)
... ...

<%@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 %>

近期下载者：

相关文件：

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

收藏者：