📄 textbox.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="functions/datetime.asp" -->
<!--#include file="functions/editpost.asp" -->
<%
Response.Buffer = True 

Dim strMode
Dim strMessage
Dim lngPostID
Dim strQuoteUsername
Dim strQuoteMessage	
Dim lngQuoteUserID

strMode = Request.QueryString("mode")
lngPostID = CLng(Request.QueryString("POID"))
If strMode = "edit" or strMode="editTopic" Then
	strSQL = "SELECT timespost.Message "
	strSQL = strSQL & "FROM timespost "
	strSQL = strSQL & "WHERE timespost.postid=" & lngPostID & ";"
	rsConn.Open strSQL, adoCon 
	strMessage = rsConn("Message")
	rsConn.Close
ElseIf strMode = "quote" Then
	strSQL = "SELECT timesuser.userid, timesuser.Username, timespost.Message "
	strSQL = strSQL & "FROM timespost INNER JOIN timesuser ON timespost.userid = timesuser.userid "
	strSQL = strSQL & "WHERE timespost.postid = " & CLng(Request.QueryString("pid"))
	rsConn.Open strSQL, adoCon 
	strQuoteUsername = rsConn("Username")
	strQuoteMessage = rsConn("Message")
	lngQuoteUserID = CLng(rsConn("userid"))
	rsConn.Close
	If lngQuoteUserID = 2 Then
		strSQL = "SELECT timesguest.Name FROM timesguest WHERE timesguest.postid = " & CLng(Request.QueryString("pid")) & ";"
		rsConn.Open strSQL, adoCon	
		If NOT rsConn.EOF Then strQuoteUsername = rsConn("Name")
		rsConn.Close
	End If
	strMessage = "[QUOTE=" & strQuoteUsername & "]"
	strMessage = strMessage & strQuoteMessage
	strMessage = strMessage & "[/QUOTE]"	
ElseIf strMode = "PM" AND Session("PmMessage") <> "" AND Request.QueryString("code") = "edit" Then
	strMessage = Session("PmMessage")
	Session("PmMessage") = Null 
End If
If Request.QueryString("code") = "reply" Then
	strSQL = "SELECT timesmess.*, timesuser.Username "
	strSQL = strSQL & "FROM timesmess, timesuser "
	strSQL = strSQL & "WHERE timesuser.userid = timesmess.bbsid AND timesmess.messid=" & lngPostID & " AND timesmess.userid=" & lngLoggedInUserID & ";"
	rsConn.Open strSQL, adoCon 
	strMessage = "<br /><br /><br />-- 上一条短信 --"
	strMessage = strMessage & "<br /><b>来自 :</b> " & rsConn("Username") 
	strMessage = strMessage & "<br /><b>发送于 :</b> " & DateFormat(CDate(rsConn("messdtm")), saryDateTimeData) & " " & TimeFormat(CDate(rsConn("messdtm")), saryDateTimeData) & "<br /><br />"
	strMessage = strMessage & rsConn("messmessage")
	rsConn.Close
End If
If NOT strMessage = "" Then strMessage = Replace(strMessage, """ border=""0"" target=""_blank"">", """>", 1, -1, 1)
If NOT strMessage = "" Then strMessage = Replace(strMessage, """ border=""0"">", """>", 1, -1, 1)
If strMode = "edit" OR strMode="editTopic" OR strMode = "quote" Then
	If InStr(1, strMessage, "<edited>", 1) Then strMessage = removeEditorAuthor(strMessage)
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000000" class="text" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = strMessage %></body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -