ASP网站制作之一个供应用户输出时代的尽好程序之(二)...

只看该作者 · 发表于 2015-1-16 22:27:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

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服务器，所以性能稳定性也一般

只看该作者 · 发表于 2015-1-19 13:09:00

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

只看该作者 · 发表于 2015-1-25 12:05:39

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

只看该作者 · 发表于 2015-2-2 22:00:31

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-2-8 08:50:17

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

只看该作者 · 发表于 2015-3-7 17:32:11

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

只看该作者 · 发表于 2015-3-15 10:13:04

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-3-22 00:11:20

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网站制作之一个供应用户输出时代的尽好程序之(二)...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子