ASP网站制作之一个供应用户输出时代的尽好程序之(二)...
SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。DateSelect.asp创建一个日历格局的。。。<%@LANGUAGE="VBSCRIPT"%>
<%
CodeWrittenbyD.ScottHand
Ifanyerrorsarefound,please
e-mailscott_hand@pobox.comwith
theerrorandthewaytheerror
wascaused
***Purpose:************
*Thisisapagebuilttoshowcalendarfunctionality.
*Description:
*Thisistheinstantiatedfiletoto
*allowtheusertoselectadate.
***********************
IfRequest.Querystring("Page")""Then
PageName=Request.Querystring("Page")
Session("PageName")=PageName
Else
PageName=Session("PageName")
EndIf
IfRequest.Querystring("Form")""Then
FormName=Request.Querystring("Form")
Session("FormName")=FormName
Else
FormName=Session("FormName")
EndIf
IfRequest.Querystring("Element")""Then
ElementName=Request.Querystring("Element")
Session("ElementName")=ElementName
Else
ElementName=Session("ElementName")
EndIf
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualInterDev1.0">
<METAHTTP-EQUIV="Content-Type"content="text/html;charset=iso-8859-1">
<TITLE>SelectDate</TITLE>
</HEAD>
<BODYBGColor="#ded6c5"alink="#526B84"vlink="#526B84">
<SCRIPTLANGUAGE="javascript">
functioncalpopulate(dte){
window.opener.<%=formname&"."&elementname%>.value=dte;
self.close()
}
</SCRIPT>
<%
IfIsDate(Request.QueryString("Date"))Then
BuildDate=Request.QueryString("Date")
Else
IfRequest.Querystring("BMonth")=""Then
BMonth=Month(Now)
Else
BMonth=Request.Querystring("BMonth")
EndIf
IfRequest.QueryString("BYear")""Then
BuildDate=BMonth&"/"&"1"&"/"&_
Request.QueryString("BYear")
Else
BuildDate=BMonth&"/"&"1"&"/"&Right(Year(Now),2)
EndIf
EndIf
Session("CurrentDate")=BuildDate
Thisgivesthepositionofweekdayforthatdate
BuildDayValue=Weekday(BuildDate)
CurrentMonth=Month(BuildDate)
%>
<center>
<table>
<tr>
<tdcolspan="7"align="center">
<hr>
<fontsize=2><b><%=MonthName(CurrentMonth)%><%=Year(BuildDate)%></b>
<br>
<%
BuildDate=DateAdd("d",-1,BuildDate)
IfCurrentMonth<12then
NextMonth=CurrentMonth+1&"&BYear="&Year(BuildDate)
Else
NextMonth="1&BYear="&Year(DateAdd("yyyy",1,BuildDate))
Endif
IfCurrentMonth>1then
PreviousMonth=CurrentMonth-1&"&BYear="&Year(BuildDate)
Else
PreviousMonth="12&BYear="&Year(DateAdd("yyyy",-1,BuildDate))
EndIf
%>
<ahref="DateSelect.asp?BMonth=<%=PreviousMonth%>"><font
size=-2><--Previous</a>
<ahref="DateSelect.asp?BMonth=<%=NextMonth%>"><fontsize=-2>Next--></a>
<hr></td>
</tr>
<tr>
<td><fontsize="-3">Su</td><td><fontsize="-3">Mo</td><td><font
size="-3">Tu</td><td><fontsize="-3">We</td><td><font
size="-3">Th</td><td><fontsize="-3">Fr</td><td><fontsize="-3">Sa</td>
</tr>
<tr>
<tr>
<%
DayPosition=1
Nowloopthroughtablebuildwithblanksuntilfirstdayofmonth
isinposition
ForI=1toBuildDayValue-1
%>
<td><fontsize="-3"></td>
<%
DayPosition=DayPosition+1
Next
DoUntilCurrentMonthMonth(BuildDate)
%>
<%
WhileDayPosition8
%>
<tdalign="center"<%IfDay(BuildDate)=Day(Now)ThenResponse.Write"bgcolor=""#FFFFFF"""%>
calpopulate("&Month(BuildDate)&"/"&Day(BuildDate)&"/"&Right(Year
(BuildDate),2)%>)"><fontsize="-3">
<ahref=""><%=Day(BuildDate)%></a>
</td>
<%
DayPosition=DayPosition+1
BuildDate=DateAdd("d",1,BuildDate)
IfCurrentMonthMonth(BuildDate)then
DayPosition=8
EndIf
Wend
DayPosition=1
%>
</tr><tr>
<%
Loop
%>
</tr>
</table>
</center>
</BODY>
</HTML>
asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。
页:
[1]