< html > < head > < meta http-equiv="Content-Language" content="zh-cn" > < 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 > < 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=