📄 display_event.asp

📁 不错的事件管理软件,能够添加事件等。您有事让它帮忙管理好

💻 ASP

字号:

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -