+ -
当前位置:首页 → 问答吧 → 求一个asp写入SQL数据库的实例

求一个asp写入SQL数据库的实例

时间:2011-02-17

来源:互联网

在网上找了很多发现都不能用,有一个实例靠谱一点,但却一直报错,在add.asp中。
还是在这求一个asp写入SQL的数据库实例,只需要几个字段,能够写入服务器上的SQL2000的表里面去

这个是网上找的案例,可惜一直报错
复制内容到剪贴板
代码:
Asp:实现对SQL SERVER 数据库的操作
---- 目前管理信息系统已从传统的客户机/服务器(C/S)模式转向了浏览器/服务器(B/S)模式,特别是微软公司推出它的新产品ASP语言之后,这种转变更加迅猛。管理信息系统的核心是对数据库进行包括添加、修改和查询等等操作,ASP提供的ADO数据库接口控件,使得程序员再也勿需编写复杂的CGI程序了,而只要用几句简单的语句即可实现以上操作。目前有很多介绍用ASP开发网络数据库的程序例子,但绝大部分是利用ACCESS作底层数据库。相对于ACCESS而言,SQL SERVER数据库系统要复杂得多,因此在程序开发中需要多做一些工作。笔者结合自己开发管理信息系统的经验,在此试举一例,与感兴趣的朋友共同交流。
---- 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",具体内容如下:

作者: fkuesept   发布时间: 2011-02-17

add.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>追加一条新记录</title> </head> <body> <% if request.form("cmdok")="确定" then %> <% set dbconnection=server.createobject ("adodb.connection") dbconnection.open"test","www","www963741" sqlquery="insert""c_mindset" (mindset_id,company_id) values ('request.form("Txtbiaoti")',' request.form("Txtneirong")') set recadd=dbconnection.execute(sqlquery) %> <% else %> <p align="center">追加记录</p> <form method="POST" action=""> <p>文件名:<input name="mindset_id" type="text" id="mindset_id" size="20"></p> <p>文件内容:</p> <p> <textarea name="company_id" cols="60" rows="3" id="company_id"></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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>无标题文档</title> </head> <body> <% 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>
 提示:您可以先修改部分代码再运行
[ 本帖最后由 fkuesept 于 2011-2-17 14:35 编辑 ]

作者: fkuesept   发布时间: 2011-02-17