📄 transcript.asp
字号:
<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
Dim vStartLine, vChatTranscript
Dim vRoomNo
Dim vLanguage, vTranscriptTitle
%>
<!-- #INCLUDE FILE="inifiles.asp" -->
<%
Dim strLanguage
Application("INIFile") = LoadINIFile(Server.MapPath("chat_ini.asp"))
vLanguage = "" & IniFileValue(Application("INIFile"), "Languages", "ChatLanguage")
vTranscriptTitle = IniFileValue(Application("INIFile"), vLanguage, "langTranscriptTitle")
vRoomNo = Session("RoomNo")
vStartLine = CLng(Session("StartLine"))
vChatTranscript = GetTranscript(vStartLine)
Function GetTranscript(byVal vStartLine)
Dim vCurrentLine, vChatLines
Dim vNewLines, vLine
Dim vPrivatePrefix, vLineText
vPrivatePrefix = "/msg " & Session("ChatName") & " "
vCurrentLine = Application("ChatLineCount" & vRoomNo)
vChatLines = Application("ChatLines" & vRoomNo)
For vLine = vStartLine To vCurrentLine - 1
vLineText = vChatLines(vLine)
If Instr(vLineText, "/msg ") = 1 Then
If Instr(vLineText, vPrivatePrefix) = 1 Then
vNewLines = vNewLines & "Private>" & Right(vLineText, Len(vLineText) - Len(vPrivatePrefix)) & Chr(13)
End If
Else
vNewLines = vNewLines & vLineText & Chr(13)
End If
Next
GetTranscript = Replace(vNewLines, Chr(13), "<BR>")
End Function
%>
<html>
<body bgcolor="#FFFFFF">
<div align="center">
<p><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="+1"><%=vTranscriptTitle%></font></b></font></p>
<p align="left"><%=vChatTranscript%></p>
</div>
</body>
</html>
<%
Response.Flush
Response.End
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -