因胸联盟 发表于 2015-1-16 22:12:44

ASP网页设计ASP基本进修：access+asp 实习一

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。access实习一：
创建一复杂数据库的增加、显现、查询功效完成注：[接纳access2000+asp,数据库：customer.mdb(字段:公司名（字符型）、德律风（数据型）、传真（数据型）、种别（字符型）、接洽人（字符型）、备注（字符型））]
<在winxppro+iis5.1情况下完成测试>
页面代码以下：---add.html----
<html>
<head>
<title>增加数据库纪录</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF">
<palign="center"><fontsize="5">增加数据库纪录</font></p>
<formmethod="post"action="adddatabase.asp">
<divalign="center">
<tablewidth="46%"border="0">
<tr>
<tdwidth="28%">
<divalign="right">公司名:</div>
</td>
<tdwidth="72%">
<inputtype="text"name="CompanyName">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">德律风：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Tel">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">传真：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Fax">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">种别：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Classes">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">接洽人：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Cname">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">备注：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Backups">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right"></div>
</td>
<tdwidth="72%">
<inputtype="submit"name="Submit"value="Submit">
<inputtype="reset"name="reset"value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
---adddatabase.asp---
<html>
<head>
<title>增加数据库纪录</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF">
<palign="center"><fontsize="5">增加数据库纪录</font></p>
<formmethod="post"action="adddatabase.asp">
<divalign="center">
<tablewidth="46%"border="0">
<tr>
<tdwidth="28%">
<divalign="right">公司名:</div>
</td>
<tdwidth="72%">
<inputtype="text"name="CompanyName">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">德律风：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Tel">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">传真：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Fax">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">种别：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Classes">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">接洽人：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Cname">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right">备注：</div>
</td>
<tdwidth="72%">
<inputtype="text"name="Backups">
</td>
</tr>
<tr>
<tdwidth="28%">
<divalign="right"></div>
</td>
<tdwidth="72%">
<inputtype="submit"name="Submit"value="Submit">
<inputtype="reset"name="reset"value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
---addnewdatabase.asp---
<%
rs.AddNew
rs("公司名")=CompanyName
rs("德律风")=Tel
rs("传真")=Fax
rs("种别")=Classes
rs("接洽人")=Cname
rs("备注")=Backups
rs.Update
%>
---viewdatabase.asp---
<%
setdbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath=Server.MapPath("customer.mdb")
dbconnection.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Dbpath创建与数据库的毗连，与上同。
SQL="select*fromcustomersOrderBy公司名DESC"
SETCustomerList=dbconnection.EXECUTE(sql)
%>
<html>
<body>
<FONTSIZE="5"><center>数据库纪录</center></FONT>
<CENTER>
<TABLEBORDER=1>
<tr>
<td>公司名</td>
<td>德律风</td>
<td>传真</td>
<td>种别</td>
<td>接洽人</td>
<td>备注</td>
</tr>
<%DOWHILENOTCustomerList.EOF
检测纪录是不是到了最初一条。EOF暗示EndofFile。
%>
<TR>
<TD><%=CustomerList("公司名")%></TD>
<TD><%=CustomerList("德律风")%></TD>
<TD><%=CustomerList("传真")%></TD>
<TD><%=CustomerList("种别")%></TD>
<TD><%=CustomerList("接洽人")%></TD>
<TD><%=CustomerList("备注")%></TD>
</TR>

<%
CustomerList.movenext
loop
假如还没有到最初一条则指针挪动到下一条。用DoWhile...Loop轮回一一获得一切的纪录。
%>
</TABLE>
</CENTER>
<center>
<inputtype="button"value="增加数据">
</center>
</BODY>
</HTML>
===================
所呈现成绩办理办法：
1.
<%
setdbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath=Server.MapPath("customer.mdb")
dbconnection.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Dbpath创建与数据库的毗连，与上同。
SQL="select*fromcustomersOrderBy公司名DESC"
SETCustomerList=dbconnection.EXECUTE(sql)
%>
1).SQL="select*fromcustomersOrderBy公司名DESC",傍边若字段名“公司名”写错，如写成“公司”，则呈现以下毛病提醒：
毛病范例：
MicrosoftOLEDBProviderforODBCDrivers(0x80040E10)
参数不敷，等候是1。
/viewdatabase.asp,第6行
把字段名更正与数据库字段准确的字段名。如许可一般显现准确的信息，如在用到网路猪扫瞄器时，会没法显现出默许项的add.html页面。缘故原由不分明
而在MircrosoftInternetExplorer和MyIe和火狐扫瞄器时能够一般显现到预期了局。
2.
<%
Setrs=Server.CreateObject("ADODB.Recordset")
rs.Open"customers",dbconnection,adOpenDynamic,3
%>
1).adOpenDynamic,3
当以上的这个语句短少时，将会失掉以下了局：
毛病范例：
ADODB.Recordset(0x800A0CB3)
以后纪录集不撑持更新。这多是供应程序的限定，也多是选定锁定范例的限定。
/adddatabase.asp,第26行
如许看来Recordset设置值傍边，“adOpenDynamic,3”一样地不成短少。固然这傍边的“3”寄义应当是：以后数据纪录只读，可自在挪动。换成"2"也能够，而换成“1”大概不必，将不克不及一般显现预期了局
会显现成如上边的毛病范例：
ADODB.Recordset(0x800A0CB3)
以后纪录集不撑持更新
==========================================================
摘录：sql="select*from用户where帐号="&zh&"or姓名="&name&""
Setrs=Server.CreateObject("ADODB.Recordset")
rs.opensql,conn,1,1
1，1是一样平常的查询！3，3是能够分页的！2，2我没用过！
===============================================
asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。

再见西城 发表于 2015-1-25 23:17:07

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

山那边是海 发表于 2015-2-4 13:20:44

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

老尸 发表于 2015-2-9 23:31:34

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

愤怒的大鸟 发表于 2015-2-28 08:24:19

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

不帅 发表于 2015-3-9 21:39:35

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

小魔女 发表于 2015-3-17 02:07:51

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

小女巫 发表于 2015-3-17 02:07:54

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

灵魂腐蚀 发表于 2015-3-17 02:07:54

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

因胸联盟 发表于 2015-3-23 16:53:05

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。
页: [1]
查看完整版本: ASP网页设计ASP基本进修：access+asp 实习一