Web数据库技术应用示例文档格式.docx

1、 table border=0 width=31% bgcolor=#00FF00trtd width=42% align=rightfont color=#0000FF数据库58%input type=text name=database size=17/tr用户名user_name密码/center/div/formselecttable3.asp% response.cookies（db）=Request.form（） db=request.cookies（user user=request.cookies（pasd pasd=request.cookies（if db and user

2、请选择表请选择表：/B/pcheck3.asprightmain select align=center name=table size=4 i=0 While Not rs0.EOF if i=0 then Response.WRITE option value=rs0.Fields（0）.Value & selectedrs0（name） &/option i=i+1 else end if rs0.MoveNext Wend/selectB浏览添加修改删除查询B0撤消/body/htmlcheck3.asp% response.buffer=true seltable=request.f

3、orm（response.cookies（table）=request.form（ select case seltable 此处设置按钮的去向 case response.redirect browstable3.aspadddb3.aspbdba3.aspdeldb3.aspseekdb3.asp end selectbrowstable3.asp!-#include file=conndb.asp -将Recordset 输出成HTML 的“表格” Sub RsToTable（ rs ） Part I：输出数据库的“表头” Response.Write CENTERTABLE BORDE

4、R=1TR BGCOLOR=#00FFFF For i=0 to rs.Fields.Count-1TD rs.Fields（i）.Name & /TD Next/TR Part II：输出数据库的“内容” While Not rs.EOF TR rs.Fields（i）.Value & rs.MoveNext/TABLE/CENTEREnd Sub charset=gb_2312-80meta name=GENERATORMicrosoft FrontPage 4.0数据库浏览程序 表：%=Table%hrsqlstr=select * from tableSet rs=conn.Execu

5、te（sqlstr） 或 Set rs=conn.Execute（table）RsToTable rsadddb3.aspSub inputform（ rs ） 设计数据输入表单form method=get action=table align=center BGCOLOR=#00FFFF fieldname=rs.Fields（i）.Name fieldlen=rs.fields（i）.definedsize ADO中field对象的属性:DefinedSize 返回字段定义的数据宽度 th align= width=fieldlen &FieldName &/th nexttdinput

6、 name=td colspan=rs.Fields.Count &_ align=input type=submit name=addyes value=添加reset撤消Function add（rs） For i=0 to rs.fields.count-1 fieldtype=rs.fields（i）.type Type 返回字段定义的数据类型代码 fvalue=Trim（request（fieldname） select case fieldtype case 129 char rs.fields（i）=fvalue case 6 currency 货币型 rs.fields（i）=

7、ccur（fvalue） case 7 date 日期型 rs.fields（i）=cdate（fvalue） case 5 double 双精度浮点型 rs.fields（i）=cdbl（fvalue） case 2 smallint 短整型（2字节） rs.fields（i）=cint（fvalue） case 3 integer 长整型（4字节） rs.fields（i）=clng（fvalue） case 4 single 单精度浮点型 rs.fields（i）=csng（fvalue） case 11 boolean 布尔型 rs.fields（i）=cbool（fvalue） ca

8、se 16 tinyint 单字节整型 rs.fields（i）=cbyte（fvalue） case 14 decimal 固定精度实型 rs.fields（i）=cdec（fvalue） Next if rs.Supports（adUpdate） then rs.update end if If Err Then add=0 Else add=1 End IfEnd Function数据添加程序TITLE 控制输出记录a BODYset session（MyRs）=rs session（）.open sqlstr,conn,1,1 默认为只读数据设置1,1。只能使用insert into,delet from,update set语句直接操作数据库;动态添加数据设置1,2; 动态改写数据设置2,3recn）=0count）=session（）.RecordCountresponse.redirect bdbb3.asp-#include file=bdbc3.asp -/BODY/HTMLbdbb3.asp数据修改程序tr BGCOLOR=#00FFFFthIDfor i=0 to session（）.Fields.Count-1 response.write ）（i）.name &nextresponse