📄 ch15.asp
字号:
<%
HasADO = True
HasShop = True
HasTest = 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( "ch15/eShop.mdb" )
conn.Open Provider & DBPath
If Err.Number <> 0 Then
HasShop = False
Err.Clear
End If
Set conn = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = "Data Source=" & Server.MapPath( "ch15/Test.mdb" )
conn.Open Provider & DBPath
If Err.Number <> 0 Then
HasTest = 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>第 15 章 网上购物、网上考试</title>
</head>
<body background="B01.jpg" bgcolor="#FFFFFF">
<h3><font color="#800000">第 15 章 网上购物、网上考试</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="ch15/Main.asp">网上购物</a></p>
<blockquote>
<font color="#0000FF"><% If Not HasShop Then %>
</font><p><font color="#0000FF">您的系统还没有安装新版的
OLE DB 驱动程序及 ODBC 驱动程序，或是 ch15 目录没有 eShop.mdb
数据库，本节范例将无法执行！</font></p>
<p><font color="#0000FF"><% End If %> </font></p>
<p><!--webbot bot="ImageMap" startspan
rectangle=" (43,83) (125, 137) Viewasp.asp?Filename=ch15/Main.asp"
rectangle=" (136,12) (209, 67) Viewasp.asp?Filename=ch15/Buy.asp"
rectangle=" (318,10) (399, 65) Viewasp.asp?Filename=ch15/Add.asp"
rectangle=" (318,82) (399, 136) Viewasp.asp?Filename=ch15/Check.asp"
rectangle=" (317,148) (398, 203) Viewasp.asp?Filename=ch15/Clear.asp" src="ch15/15a.gif"
border="0" width="418" height="217" ismap --><MAP NAME="FrontPageMap"><AREA SHAPE="RECT" COORDS="43, 83, 125, 137" HREF="Viewasp.asp?Filename=ch15/Main.asp"><AREA SHAPE="RECT" COORDS="136, 12, 209, 67" HREF="Viewasp.asp?Filename=ch15/Buy.asp"><AREA SHAPE="RECT" COORDS="318, 10, 399, 65" HREF="Viewasp.asp?Filename=ch15/Add.asp"><AREA SHAPE="RECT" COORDS="318, 82, 399, 136" HREF="Viewasp.asp?Filename=ch15/Check.asp"><AREA SHAPE="RECT" COORDS="317, 148, 398, 203" HREF="Viewasp.asp?Filename=ch15/Clear.asp"></MAP><a href="../_vti_bin/shtml.exe/Kjasp/CH15.ASP/map"><img src="ch15/15a.gif" border="0" width="418" height="217" ismap usemap="#FrontPageMap"></a><!--webbot bot="ImageMap"
i-checksum="40929" endspan --></p>
</blockquote>
<p><a href="ch15/Enter.asp">网上考试</a></p>
<blockquote>
<font color="#0000FF"><% If Not HasTest Then %>
</font><p><font color="#0000FF">您的系统还没有安装新版的
OLE DB 驱动程序及 ODBC 驱动程序，或是 ch15 目录没有 Test.mdb
数据库，本节范例将无法执行！</font></p>
<p><font color="#0000FF"><% End If %> <!--webbot bot="ImageMap" startspan
rectangle=" (13,20) (87, 77) Viewasp.asp?Filename=ch15/Enter.asp"
rectangle=" (163,21) (237, 77) Viewasp.asp?Filename=ch15/Test.asp"
rectangle=" (316,20) (390, 77) Viewasp.asp?Filename=ch15/Score.asp" src="ch15/15b.gif"
border="0" width="402" height="191" ismap --><MAP NAME="FrontPageMap1"><AREA SHAPE="RECT" COORDS="13, 20, 87, 77" HREF="Viewasp.asp?Filename=ch15/Enter.asp"><AREA SHAPE="RECT" COORDS="163, 21, 237, 77" HREF="Viewasp.asp?Filename=ch15/Test.asp"><AREA SHAPE="RECT" COORDS="316, 20, 390, 77" HREF="Viewasp.asp?Filename=ch15/Score.asp"></MAP><a href="../_vti_bin/shtml.exe/Kjasp/CH15.ASP/map1"><img src="ch15/15b.gif" border="0" width="402" height="191" ismap usemap="#FrontPageMap1"></a><!--webbot bot="ImageMap"
i-checksum="644" endspan --></font></p>
</blockquote>
</blockquote>
<hr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -