display_event.asp

来自「不错的事件管理软件,能够添加事件等。您有事让它帮忙管理好」· ASP 代码 · 共 57 行

ASP
57 行
字号 
<%@ LANGUAGE=VBSCRIPT %>
<%Option Explicit%>

<%
Dim MyName
Dim DB_CONNECTIONSTRING
Dim objRecordset
Dim EventToShow
%>

	<!--#include file="adovbs.inc"-->

<%
MyName = Session("Firstname") & " " & Session("LastName")

DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("users.mdb") & ";"

Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open "calendar", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

EventToShow = CInt(Request.QueryString("ID"))

		If Not objRecordset.EOF Then

			objRecordset.MoveFirst
			Do Until objRecordset.Fields("ID") = EventToShow
				objRecordset.MoveNext
			Loop
		End If

Session("EventToEdit") = EventToShow
%>

<html>


Date:</b> <%= objRecordset.Fields("Month") & "/" & objRecordset.Fields("Day") & "/" & objRecordset.Fields("Year") %><p>

<b>Subject:</b> <%= objRecordset.Fields("Subject") %><p>

<b>Message:</b> <%= objRecordset.Fields("Message") %><p>

<b>Added By:</b> <%= objRecordset.Fields("AddedBy") & " on " & objRecordset.Fields("DateAdded")%>

<p>&nbsp;</p>

  <form method="post" action="edit_event.asp">
	<input type="submit" name="btnEditEvent" value="Edit/Delete Event">
  </form>

</body>
</html>

<%
objRecordset.Close
Set objRecordset = Nothing
%>

display_event.asp - 源码说明

本页面展示了「不错的事件管理软件,能够添加事件等。您有事让它帮忙管理好」中的 display_event.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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