ch16_messages.asp

来自「javascript source code part1」· ASP 代码 · 共 69 行

ASP
69 行
字号 
<%@ LANGUAGE=JavaScript %>
<HTML>
<BODY>
<CENTER>
	<H2>Message Board</H2>
	<FORM	NAME="form1" METHOD=post
			ACTION="Ch16_NewMessage.asp" TARGET=_top>

		<INPUT	TYPE="submit"
				VALUE="Create New Message"
				NAME=submit1>
	</FORM>
	<STRONG>
		Click the message subject link to
		view the full message
	</STRONG>

<TABLE BORDER=1>
<TR>
	<TH>Message Subject</TH>
	<TH>Posted By</TH>
	<TH>Posted On</TH>
</TR>
<%
var months = new Array("Jan","Feb","Mar","Apr","May","Jun",
					   "Jul","Aug","Sep","Oct","Nov","Dec");
var postedDate;
var lsSQL = "SELECT MessageId, UserName, MessageSubject, " +
			"DatePosted FROM Message " +
			"ORDER BY MessageId DESC"
var adoRS = Server.CreateObject("ADODB.Recordset")
adoRS.Open(lsSQL,"DSN=MessageBoardDSN")

while (adoRS.EOF == false)
{
	Response.Write("<TR><TD width=400>" +
					"<A href='Ch16_MessageBody.asp?MessageId=" +
					adoRS("MessageId") +
					"' target=messagebody>" +
					adoRS("MessageSubject") +
					"</A></TD>")

	Response.Write("<TD width=100>" +
					adoRS("UserName") +
					"</TD>")

postedDate = new Date(adoRS("DatePosted"))
postedDate =		postedDate.getDate() + " "
				+	months[postedDate.getMonth()] + " "
				+	postedDate.getFullYear();

	Response.Write("<TD width=100>" +
					postedDate +
					"</TD></TR>" )

	adoRS.MoveNext();
}

adoRS.Close()
adoRS = null;

%>

</TABLE>

</CENTER>
</BODY>
</HTML>

ch16_messages.asp - 源码说明

本页面展示了「javascript source code part1」中的 ch16_messages.asp 源码文件，采用 ASP 编程语言编写，共 69 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与JavaScript相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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