Este artículo presenta cómo crear un calendario basado en la web, y proporciona a los desarrolladores que no están familiarizados con ActiveServerPages (ASP), SQL y ADO para introducir el proceso de construcción de un sitio web, y también proporciona a los desarrolladores experimentados consejos sobre la escalabilidad del sitio web.
Con el desarrollo de aplicaciones web, los calendarios basados en la web son cada vez más valorados, y los calendarios basados en la web son útiles para mostrar eventos importantes como plazos o horarios, o mostrar quién está tomando tiempo libre cuándo. Este artículo describe cómo usar ASP dentro de IIS y SQLServer para construir un calendario muy simple basado en la web y le permite compartir su horario con otros o administrar un grupo de calendario de personas.
Establecer SQL Server
Para el calendario web, solo necesitamos guardar una cadena de texto que indique la naturaleza del evento en el lado del servidor, y la cadena tiene hasta 100 caracteres. El código fuente de diseño es el siguiente:
Calendario.sql
-Crear una mesa
createTableChedule
(
IDSCHEDULESMALIntIdentityPrimaryKey,
dtDatesMallDateTimeNotnull,
VCentVarchar (100) NotNull
)
ir
-Procedimiento almacenado
CreateProCeduregetSchedule (@nmonthtinyint,@nyearsmalllint)
como
SelectIDSchedule, Convert (Varchar, DatePart (DD, Dtdate)) 'Nday', VCEVVE
desde el schedule
wheredatePart (yy, dtdate) =@nyearanddatepart (mm, dtdate) =@nmonth
OrderByDatePart (DD, Dtdate)
ir
CreateProCedureAdDevent (@VCDateVarchar (20),@VCentVarchar (100))
como
inserción
seleccionar@vcdate,@vcevent
ir
CreateProceduredElesevent (@IDSChedulesmalint)
como
DeleteSchedulewhereIDSchedule =@idschedule
ir
Diseño de un cliente ASP
La siguiente figura es la principal interfaz de usuario del calendario web, donde los usuarios pueden ver qué eventos están programados. Además, use el enlace en la parte inferior para voltear el calendario por mes.
El código de implementación de ASP es el siguiente:
encabezado.asp
<@Idioma = "VBScript"
HabilsessionState = falso%>
<%
'Propósito: el encabezado incluye archivos utilizados para iniciar todas las páginas
'También incluye funciones globales
OpcionExpliCit
Respuesta.Buffer = True
Respuesta.expires = 0
Subdoader (strtitle)
%>
<html>
<Evista>
<Metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<title> EventCalendar-<%= strtitle%> </title>
</ablo>
<BodyBGColor = "White" Link = "Blue" Link = "Blue" Vlink = "Blue">
<baseFontface = "Verdana, Arial">
<center> <h1> EventCalendar </h1>