?? display_event.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> </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 + -