ASP语言实现对SQLSER5ER数据库的操作

作者：袖梨 2023-09-06

目前有很多介绍用ASP开发网络数据库的程序例子，但绝大部分是利用ACCESS作底层数据库。相对于ACCESS而言，SQLSERVER数据库系统要复杂得多，因此在程序开发中需要多做一些工作。笔者结合自己开发管理信息系统的经验，在此试举一例，与感兴趣的朋友共同交流

目前管理信息系统已从传统的客户机/服务器（C/S）模式转向了浏览器/服务器（B/S）模式，特别是微软公司推出它的新产品ASP语言之后，这种转变更加迅猛。管理信息系统的核心是对数据库进行包括添加、修改和查询等等操作，ASP提供的ADO数据库接口控件，使得程序员再也勿需编写复杂的CGI程序了，而只要用几句简单的语句即可实现以上操作。

1、系统环境

PII 350，Ram 64M，WINNT Server 4.0,Service Pack4, IIS 4.0, SQL Server7.0。

2、系统功能

通过使用IE浏览器，在网上实现对《办公文件》数据表记录的添加和查询。

3、功能实现

(1)数据表的设置

①启动SQL Server7.0的Enterprise Manager,在Databases 目录下增加一个新子目录"test"；

②在"test"下增加一个new table，名为"办公文件"，字段设置：文件名，char,100,允许空；文件内容，char,4000，允许空。

③在SQL Server中增加一个用户，名为hxl, 密码为123，登录模式为SQL 登录，将其默认登录数据库设为"test"；

④在"test"数据库下增加一个新用户，名为hxl,其角色设为"Dbowner"。

(2)ODBC 链接

①在控制面板中，打开ODBC数据源，选择系统DSN项，单击"添加"；

②选择"SQL Server"数据源，命名为"test"；

③选择登录模式为SQL Server验证，登录标志为"hxl"，密码为"123"；

④将默认数据库高为"test",再测试数据库链接，接通即可。

(3)程序文件

为了实现系统功能，在这里编辑了3个程序文件，分别为"index.html"、"add.asp"和"query.asp"，具体内容如下：

①index.html:系统首页，包括两个选项，一是追加记录，二是查询，用户可单击两者之一，即可进入相应的操作过程。以下是源程序：

<html><head><meta http-equiv="Content-Language"content="zh-cn" ><meta http-equiv="Content-Type" content="text/html; charset=gb2312" ><meta name="GENERATOR" content="MicrosoftFrontPage 4.0" ><meta name="ProgId" content="FrontPage.Editor.Document" ><title>示例程序</title ></head><body><p align="center"><font size="5" color="#008000">欢迎使用用ASP语言对SQL SERVER数据库操作示例</font ></P><p align="center">　</P><p align="center"><a href="add.asp">追加记录< /a ></p><p align="center"><a href="query.asp">查询</a></p></body></html>

②add.asp:实现对《办公文件》数据表记录的添加。页面中含有一个单行文本框（Txtbiaoti）和一个滚动文本框(Txtneirong)，分别用来输入文件标题和文件内容。此外，页面中还应有两个按钮，"确定（Cmdok）"和"重写（Cmdcancel）",单击"确定"完成记录追加，单击"重写"重新输入内容。以下是源程序：

<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 4.0" ><meta name="ProgId" content="FrontPage.Editor.Document"><title>追加一条新记录</title></head><body><% if request.form("cmdok")="确定" then % ><%set dbconnection=server.createobject("adodb.connection") dbconnection.open"test","hxl","123"sqlquery="insert "办公文件"(文件名,文件内容)values ('request.form("Txtbiaoti")','request.form("Txtneirong")') set recadd=dbconnection.execute(sqlquery) % > <% else % ><p align="center" >追加记录</p><form method="POST" action=""> <p>文件名：< input type="text"name="Txtbiaoti" size="20"></p><p>文件内容：</p><p> < textarea rows="3" name="Txtneirong" cols="60" >< /textarea ></p> <p align="center" ><input type="submit"value="确定" name="Cmdok"><input type="reset" value="重写" name="Cmdcancel"></p></form><% end if%></body></html>

③query.asp:实现对《办公文件》数据表记录的查询。程序仅实现对《办公文件》中"文件名"的查询，查询结果用一个表单（Table）列出。以下是源程序：

<html><head><meta http-equiv="Content-Type" content="text/html;charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>检索文件< /title></head><body bgcolor="#ffffdd"><%set dbconnection=server.createobject("adodb.connection")dbconnection.open "test","hxl","123"sqlquery="SELECT 文件名 FROM 办公文件 "set resultlist=dbconnection.execute(sqlquery)%><center> <font color="red"><%=request("selectsource")%></font><font color="#008000" size="5"><b>有以下文件可供阅览</b></font><hr size="5"><table border="1"><tr><td width="200" align="center"><b>文件名 </b> </td></tr><% do while not resultlist.eof %> <tr>< td valign=center width="200"><%=resultlist("文件名")% ></a></td></tr><% resultlist.movenext loop resultlist.close%></center></TABLE></body></html>

总结

用IE打开index.html或将文件发布到站点，进行相应的操作，即可实现对SQL Server数据库系统中《办公文件》数据表记录的追加和查询，至此系统目标已经达到。