📄 ch14.asp

📁 Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明
💻 ASP
字号:
<%
HasADO = True
HasPwd = True
HasRoom = True

On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
If Err.Number <> 0 Then 
   HasADO = False
   Err.Clear
End If
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"

DBPath = "Data Source=" & Server.MapPath( "ch14/UsersPwd.mdb" )
conn.Open Provider & DBPath  & ";Jet OLEDB:Database Password=kj6688" 
If Err.Number <> 0 Then 
   HasPwd = False
   Err.Clear
End If

Set conn = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = "Data Source=" & Server.MapPath( "ch14/Chatroom.mdb" )
conn.Open Provider & DBPath
If Err.Number <> 0 Then 
   HasRoom = False
   Err.Clear
End If
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>第 14 章　会员管理、聊天室</title>
</head>

<body background="B01.jpg" bgcolor="#FFFFFF">

<h3><font color="#800000">第 14 章　会员管理、聊天室</font> </h3>

<blockquote>
  <font Color="Blue"><% If Not HasADO Then %>
<p>您的系统没用安装 ADO 对象，本章范例将无法执行！</p>
  <p><% End If %> </font><font color="#0000FF">会员管理</font></p>
  <blockquote>
    <font Color="Blue"><% If Not HasPwd Then %>
<p>您的系统还没有安装新版的 OLE DB 驱动程序及 ODBC 
    驱动程序，或是 ch14 目录没有 UsersPwd.mdb 
    数据库，本节范例将无法执行！</p>
    <p><% End If %> </font><a href="ch14/OnlyYou.asp">OnlyYou.asp</a><font color="#800000" size="2"><strong>(本范例只适用于 
    NT Server)</strong></font> -- 以 NT 用户登录之后，才可以进入</p>
    <p><a href="ch14/Input.asp">Input.asp</a> -- 利用加密数据库来验证登录信息</p>
    <p><a href="ch14/Page1.asp">Page1.asp</a> -- 利用 Login.asp 加密, 网页一</p>
    <p><a href="ch14/Page2.asp">Page2.asp</a> -- 利用 Login.asp 加密, 网页二</p>
    <p><a href="ch14/Page3.asp">Page3.asp</a> -- 利用 Login.asp 加密, 
    指定加密之数据库</p>
    <p><a href="ch14/Ex/vbtips.asp">vbtips.asp</a> -- 利用 Login.asp 加密, 练习</p>
    <p><a href="ch14/Member.htm">即时加入会员</a></p>
    <blockquote>
      <p><!--webbot bot="ImageMap" startspan
      rectangle=" (12,18) (99, 82)  Viewasp.asp?Filename=ch14/Member.htm"
      rectangle=" (278,18) (362, 81)  Viewasp.asp?Filename=ch14/Join.asp"
      rectangle=" (15,114) (99, 177)  Viewasp.asp?Filename=ch14/Forget.asp" src="ch14/14a.gif"
      border="0" width="400" height="266" ismap --><MAP NAME="FrontPageMap"><AREA SHAPE="RECT" COORDS="12, 18, 99, 82" HREF="Viewasp.asp?Filename=ch14/Member.htm"><AREA SHAPE="RECT" COORDS="278, 18, 362, 81" HREF="Viewasp.asp?Filename=ch14/Join.asp"><AREA SHAPE="RECT" COORDS="15, 114, 99, 177" HREF="Viewasp.asp?Filename=ch14/Forget.asp"></MAP><a href="../_vti_bin/shtml.exe/Kjasp/CH14.ASP/map"><img src="ch14/14a.gif" border="0" width="400" height="266" ismap usemap="#FrontPageMap"></a><!--webbot bot="ImageMap"
      i-checksum="16088" endspan --></p>
    </blockquote>
  </blockquote>
  <p><a href="ch14/Enter.asp">聊天室</a></p>
  <blockquote>
    <font Color="Blue"><% If Not HasRoom Then %>
<p>您的系统还没有安装新版的 OLE DB 驱动程序及 ODBC 
    驱动程序，或是 ch14 目录没有 Chatroom.mdb 
    数据库，本节范例将无法执行！</p>
    <p><% End If %> </font></p>
    <p><!--webbot bot="ImageMap" startspan
    rectangle=" (15,27) (89, 81)  Viewasp.asp?Filename=ch14/Enter.asp"
    rectangle=" (132,4) (421, 19)  Viewasp.asp?Filename=ch14/Chatroom.htm"
    rectangle=" (145,27) (219, 81)  Viewasp.asp?Filename=ch14/Talk.asp"
    rectangle=" (142,132) (216, 188)  Viewasp.asp?Filename=ch14/View.asp"
    rectangle=" (338,133) (416, 189)  Viewasp.asp?Filename=ch14/Setup.asp" src="ch14/14b.gif"
    border="0" width="436" height="232" ismap --><MAP NAME="FrontPageMap1"><AREA SHAPE="RECT" COORDS="15, 27, 89, 81" HREF="Viewasp.asp?Filename=ch14/Enter.asp"><AREA SHAPE="RECT" COORDS="132, 4, 421, 19" HREF="Viewasp.asp?Filename=ch14/Chatroom.htm"><AREA SHAPE="RECT" COORDS="145, 27, 219, 81" HREF="Viewasp.asp?Filename=ch14/Talk.asp"><AREA SHAPE="RECT" COORDS="142, 132, 216, 188" HREF="Viewasp.asp?Filename=ch14/View.asp"><AREA SHAPE="RECT" COORDS="338, 133, 416, 189" HREF="Viewasp.asp?Filename=ch14/Setup.asp"></MAP><a href="../_vti_bin/shtml.exe/Kjasp/CH14.ASP/map1"><img src="ch14/14b.gif" border="0" width="436" height="232" ismap usemap="#FrontPageMap1"></a><!--webbot bot="ImageMap"
    i-checksum="64923" endspan --></p>
  </blockquote>
</blockquote>

<hr>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -