⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ch11.asp

📁 Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明
💻 ASP
字号:
🔍 
<%
HasADO = True
HasNews = True
HasGbook = 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( "ch11/News.mdb" )
conn.Open Provider & DBPath
If Err.Number <> 0 Then 
   HasNews = False
   Err.Clear
End If

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

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>第 11 章　访问留言板、新闻讨论组</title>
</head>

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

<h3><font color="#800000">第 11 章　访问留言板、新闻讨论组 </font></h3>

<blockquote>
  <font color="#0000FF"><% If Not HasADO Then %>
</font><p><font color="#0000FF">您的系统没用安装 ADO  
  对象，本章范例将无法执行！</font></p> 
  <p><font color="#0000FF"><% End If %> </font><a href="ch11/Gform.htm"><font color="#800000">访问留言板</font></a></p>
  <blockquote>
    <font color="#0000FF"><% If Not HasGbook Then %>
</font><p><font color="#0000FF">您的系统还没有安装新版的  
    OLE DB 驱动程序及 ODBC 驱动程序，或是 ch11 目录没有 Gbook.mdb  
    数据库，本节范例将无法执行！</font></p> 
    <p><font color="#0000FF"><% End If %> </font><font color="#800000"><map name="FPMap0">
    <area href="Viewasp.asp?Filename=ch11/Gform.htm" shape="rect" coords="76, 15, 150, 71">
    <area href="Viewasp.asp?Filename=ch11/Gform.asp" shape="rect" coords="316, 15, 391, 71">
    <area href="Viewasp.asp?Filename=ch11/Gbook.asp" shape="rect" coords="78, 114, 147, 166"></map><img rectangle="(78,114) (147, 166)  Viewasp.asp?Filename=ch11/Gbook.asp" src="ch11/11a.gif" border="0" width="438" height="200" usemap="#FPMap0"></font></p>
  </blockquote>
  <p><a href="ch11/Title.asp"><font color="#800000">新闻讨论组</font></a></p>
  <blockquote>
    <font color="#0000FF"><% If Not HasNews Then %>
</font><p><font color="#0000FF">您的系统还没有安装新版的  
    OLE DB 驱动程序及 ODBC 驱动程序，或是 ch11 目录没有 News.mdb  
    数据库，本节范例将无法执行！</font></p> 
    <p><font color="#0000FF"><% End If %> </font></p> 
    <p><font color="#800000"><map name="FPMap1">
    <area href="Viewasp.asp?Filename=ch11/Title.asp" shape="rect" coords="70, 8, 152, 64">
    <area href="Viewasp.asp?Filename=ch11/TitleNew.asp" shape="rect" coords="350, 7, 433, 63">
    <area href="Viewasp.asp?Filename=ch11/Detail.asp" shape="rect" coords="74, 161, 156, 218">
    <area href="Viewasp.asp?Filename=ch11/DetNew.asp" shape="rect" coords="352, 161, 435, 218"></map><img rectangle=" (74,161) (156, 218)  Viewasp.asp?Filename=ch11/Detail.asp" rectangle=" (352,161) (435, 218)  Viewasp.asp?Filename=ch11/DetNew.asp" src="ch11/11b.gif" border="0" width="444" height="231" usemap="#FPMap1"></font></p>
    <p><font color="#800000"><a href="ch11/Titlev2.asp">Titlev2.asp (将讨论主题限定在 
    50 笔)</a> <a href="Viewasp.asp?Filename=ch11/Titlev2.asp">(查看源代码)</a></font></p>
    <p><font color="#800000"><a href="ch11/Titlev3.asp">Titlev3.asp (限定两周以内的主题)</a> 
    <a href="Viewasp.asp?Filename=ch11/Titlev3.asp">(查看源代码)</a><br>
    </font><font color="#000000" size="2">(若两周以内没有任何人参与讨论，则没有记录)</font></p>
  </blockquote>
</blockquote>

<hr>
</body>
</html>

⌨️ 快捷键说明

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