Este artigo apresenta como criar um calendário baseado na Web e fornece aos desenvolvedores que não estão familiarizados com o ActiveServerPages (ASP), SQL e ADO para introduzir o processo de criação de um site e também fornece aos desenvolvedores experientes dicas sobre a escalabilidade do site.
Com o desenvolvimento de aplicativos da Web, os calendários baseados na Web são cada vez mais valorizados e os calendários baseados na Web são úteis para exibir eventos importantes, como prazos ou horários, ou mostrar quem está tirando uma folga quando. Este artigo descreve como usar o ASPS no IIS e no SQLServer para criar um calendário baseado na Web muito simples e permite que você compartilhe sua programação com outras pessoas ou gerencie um grupo de calendário de pessoas.
Estabelecer servidor SQL
Para o calendário da Web, precisamos salvar apenas uma sequência de texto indicando a natureza do evento no lado do servidor, e a string tem até 100 caracteres. O código -fonte do design é o seguinte:
Calendário.sql
-Crie uma tabela
CreateTableschedule
(
idschedulesmalintIdentityPrimaryKey,
dtdatesmalldatetimeNotNull,
vceventvarchar (100) NotNull
)
ir
-Procedimento armazenado
CreateProcedureGetSchedule (@nMmonthtinyint,@nyearsmalllint)
como
SelectIdSchedule, Convert (Varchar, DatePart (DD, Dtdate)) 'Nday', VCEVENT
FromSchedule
WheredatePart (yy, dtdate) =@nyearanddatePart (mm, dtdate) =@nMONTH
OrderByDatePart (DD, Dtdate)
ir
CreateProcedUreadDevent (@vcdatevarchar (20),@vceventvarchar (100))
como
insertSchedule
Selecione@vcdate,@vcevent
ir
CreateProcedeleGeeTevent (@idschedulesmalint)
como
deleteSchedulewHeridSchedule =@idschedule
ir
Projetando um cliente ASP
A figura a seguir é a principal interface do usuário do calendário da Web, onde os usuários podem ver quais eventos estão agendados. Além disso, use o link na parte inferior para virar o calendário por mês.
O código de implementação do ASP é o seguinte:
cabeçalho.asp
<@Idioma = "VBScript"
EnablesessionState = false%>
<%
'Objetivo: o cabeçalho inclui arquivos usados para iniciar todas as páginas
'Incluem também funções globais
OptionExplicit
Response.Buffer = true
Response.Expires = 0
SubdoHeader (strtitle)
%>
<html>
<head>
<Metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<title> EventCalendar-<%= strtitle%> </title>
</head>
<bodbggcolor = "white" link = "azul" link = "azul" vlink = "azul">
<basefontface = "Verdana, Arial">
<Center> <H1> EventCalendar </h1>