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

📄 ch13.asp

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

Set conn = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = "Data Source=" & Server.MapPath( "ch13/Opinion.mdb" )
conn.Open Provider & DBPath
If Err.Number <> 0 Then 
   HasOp = 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>第 13 章 网上投票、网上问卷调查</title>
</head>

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

<h3><font color="#800000">第 13 章 网上投票、网上问卷调查</font> </h3>

<blockquote>
  <font color="Blue"><% If Not HasADO Then %>
<p>您的系统没用安装 ADO 对象，本章范例将无法执行！</p>
  <p><% End If %> </font><font color="#800000"><a href="ch13/Y2000.asp">网上投票(第一版)</a> <a
  href="Viewasp.asp?Filename=ch13/Y2000.asp">(查看 Y2000.asp 源代码)</a></font></p>
  <p><font color="#800000"><a href="ch13/Y2000v2.asp">网上投票(第二版)</a> <a
  href="Viewasp.asp?Filename=ch13/Y2000v2.asp">(查看 Y2000v2.asp 源代码)</a></font></p>
  <p><font color="#800000"><a href="ch13/Y2000v3.asp">网上投票(第三版)</a> <a
  href="Viewasp.asp?Filename=ch13/Y2000v3.asp">(查看 Y2000v3.asp 源代码)</a></font></p>
  <blockquote>
    <font color="Blue"><% If Not HasY2000 Then %>
<p>您的系统还没有安装新版的 OLE DB 驱动程序及 ODBC 
    驱动程序，或是 ch13 目录没有 Y2000.mdb 
    数据库，本节范例将无法执行！</p>
    <p><% End If %> </font></p>
    <p><img src="ch13/13a.gif" width="423" height="230"></p>
  </blockquote>
  <p><a href="ch13/Opinion.asp"><font color="#800000">网上问卷调查</font></a></p>
  <blockquote>
    <font color="Blue"><% If Not HasOp Then %>
<p>您的系统还没有安装新版的 OLE DB 驱动程序及 ODBC 
    驱动程序，或是 ch13 目录没有 Opinion.mdb 
    数据库，本节范例将无法执行！</p>
    <p><% End If %> </font><!--webbot bot="ImageMap" startspan
    rectangle=" (62,10) (137, 66)  Viewasp.asp?Filename=ch13/Opinion.asp"
    rectangle=" (331,9) (407, 62)  Viewasp.asp?Filename=ch13/OpSave.asp"
    rectangle=" (60,112) (135, 167)  Viewasp.asp?Filename=ch13/OpShow.asp" src="ch13/13b.gif"
    border="0" width="418" height="200" ismap --><MAP NAME="FrontPageMap"><AREA SHAPE="RECT" COORDS="62, 10, 137, 66" HREF="Viewasp.asp?Filename=ch13/Opinion.asp"><AREA SHAPE="RECT" COORDS="331, 9, 407, 62" HREF="Viewasp.asp?Filename=ch13/OpSave.asp"><AREA SHAPE="RECT" COORDS="60, 112, 135, 167" HREF="Viewasp.asp?Filename=ch13/OpShow.asp"></MAP><a href="../_vti_bin/shtml.exe/Kjasp/CH13.ASP/map"><img src="ch13/13b.gif" border="0" width="418" height="200" ismap usemap="#FrontPageMap"></a><!--webbot bot="ImageMap"
    i-checksum="7304" endspan --></p>
  </blockquote>
</blockquote>

<hr>
</body>
</html>

⌨️ 快捷键说明

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