ASP网站制作之ASP情况下邮件列表功效的完成 （三）
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。 在会见办理页面之前必需经由身份验证。本完成中咱们用图3所示的secure.htm页面供办理员输出身份辨认码，若用户输出值非空则用Cookies来保留它。履行办理义务的页面是admin.asp，每当用户试图会见这个页面，上面的代码将反省这个Cookies与用户身份辨认码（这里是123456）是不是婚配，如婚配掉败则将该用户重定向到输出身份辨认码的secure.htm页面。< %
strPW1 = Request.Form("txtPW")
if strPW1 < > "" then
Response.Cookies("PassWord") = strPW1
end if 'strPW1 < > ""
strPW2 = Request.Cookies("PassWord")
If strPW2 < > "123456" Then
Response.Redirect("secure.htm")
End if 'strPW2 < > "123456"
%>
一旦办理员的身份验证经由过程，他们可以经由过程Admin.asp履行的操作包含：
检查Guests表中的一切纪录
编纂或
删除指定的纪录
向一切邮件列表中的用户发送邮件
办理页面admin.asp如图4所示。显示Guests表的纪录时先从数据库提取这些纪录，然后利用一个For Each ... Next布局遍历纪录集的字段纠合，提取字段名字并设置表格的表头。在这个页面中咱们不再显示Guest_ID字段，但每一个用户纪录的后面都加上了一个“删除”和“编纂”功效的链接。用户名字字段Guest_Name与邮件字段Guest_Email被转换为mailto链接，单击名字可以独自向该用户发送邮件。其它要格局化的字段还包含是不是发送邮件（Mail_List）和用户留言（Guest_Comment）。生成表头的代码为：
' 从数据库拔取纪录
strSQL_Select = "SELECT Guests.Guest_ID, Guests.Guest_Email, " & _
" Guests.Guest_Name, Guests.Mail_List, " & _
" Guests.Guest_Comment, Guests.Sign_Date " & _
" FROM Guests ORDER BY Guests.Guest_Name; "
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strDSNPath
Set rsGbook = oConn.Execute(strSQL_Select)
if rsGbook.BOF = True and rsGbook.EOF = True then
...数据库空提醒,略...
else
rsGbook.MoveFirst
%>
< table BORDER="0" cellpadding="5" cellspacing="2" align="center">
< tr>
< % for each Head in rsGbook.Fields
if Head.Name = "Guest_ID" then %>
..."删除"与"编纂"表头,略...
< % else %>
< td VALIGN="middle" align="center">< font face=Arial size=2>
< % select case Head.Name
case "Guest_Name"
Response.Write "名 字"
case "Mail_List"
Response.Write "邮件列表"
case "Guest_Comment"
Response.Write "留 言"
end select
%>
< /font>< HR>< /td>
< % end if 'Head.Name = "Guest_ID"
next %>
< /tr>
为在表格的其他地位显示用户注册纪录，咱们用两个嵌套的轮回遍历一切纪录的一切字段，即在一个Do While ...轮回外面嵌入一个For Each ... Next 轮回。数据的格局化任务放在For Each ... Next轮回内。其完成代码类如：
< % Do While Not rsGbook.EOF %>
< tr>
< % For Each Field in rsGbook.Fields
if Field.Name = "Guest_ID" then %>
< td VALIGN="middle" ALIGN="center">
...删除功效的链接,略...
< /td>
< td VALIGN="middle" ALIGN="center">
...编纂功效的链接,略...
< /td>
< % else %>
< td VALIGN="middle" align="center">
< % if isNull(Field) then
Response.Write " "
else
if Field.Name = "Guest_Name" then
Response.Write ...用户名字的mailto链接,略...
elseif Field.Name = "Mail_List" then
...输入"是"或"否",略...
elseif Field.Name = "Guest_Comment" then
...输入用户留言,略...
end if 'Field.Name
end if 'isNull(Field)%>
< /td>
< % end if 'Field.Name = "Guest_ID"
Next
rsGbook.MoveNext %>
< /tr>
< % loop %>
< /table>
如今咱们已把数据库纪录显示在表格中了。单击表格中的图形链接可以会见edit_record.asp和delete_record.asp，这两个文件分离供应纪录的编纂和删除功效。起首咱们来看看删除功效的完成：
< %
iGuestID = Request.Querystring("ID")
if iGuestID < > "" then
'从数据库删除由ID标识的纪录
strSQL_Delete = "DELETE FROM Guests " & _
" WHERE Guest_ID=" & iGuestID
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strDSNPath
on error resume next
oConn.Execute strSQL_Delete
oConn.Close
Set oConn = Nothing
if err.number < > 0 then
Response.Redirect("admin.asp?Error_Del=True")
else
Response.Redirect("admin.asp?Error_Del=False")
end if
else
Response.Redirect("admin.asp")
end if 'iGuestID < > ""
%>
上述代码与unsubscribe.asp中的代码十分类似，实践上二者完成的义务也很相似。这里的ID是必需的，它标识了请求删除的纪录。实践的删除义务经由过程DELETE SQL号令完成。
更新纪录页面edit_record.asp所用的代码略微庞杂一点，其界面如图5所示。这里要用到两个SQL语句：第一个SQL SELECT语句从数据库拔取需求编纂的纪录；第二个SQL UPDATE语句将办理员编纂了局保留到数据库。这里咱们不再详细剖析完成进程，请拜见本文所附代码及其正文。
asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 那么，ASP.Net有哪些改进呢？ ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]