Web数据库技术应用示例文档格式.docx
《Web数据库技术应用示例文档格式.docx》由会员分享，可在线阅读，更多相关《Web数据库技术应用示例文档格式.docx（27页珍藏版）》请在冰豆网上搜索。
<
divalign="
center"
center>
tableborder="
0"
width="
31%"
bgcolor="
#00FF00"
tr>
tdwidth="
42%"
align="
right"
fontcolor="
#0000FF"
数据库<
/td>
58%"
inputtype="
text"
name="
database"
size="
17"
/tr>
用户名<
user_name"
密码<
password"
&
nbsp;
submit"
value="
确定"
B1"
reset"
取消"
B2"
/table>
/center>
/div>
/form>
‘selecttable3.asp
%
response.cookies（"
db"
）=Request.form（"
）
db=request.cookies（"
user"
user=request.cookies（"
pasd"
pasd=request.cookies（"
ifdb<
"
anduser<
then
connstr="
driver={SQLServer};
server=（local）;
database="
&
db&
;
UID="
user&
pwd="
pasd
Setconn=Server.CreateObject（"
ADODB.Connection"
）'
连接数据库
conn.Openconnstr
sqlstr0="
selectnamefromsysobjectswherextype='
U'
'
数据库对象信息表，'
表示一般用户
Setrs0=conn.Execute（sqlstr0）
endif
%>
请选择表<
palign="
B>
请选择表：
/B>
/p>
check3.asp"
rightmain"
>
selectalign=centername=tablesize=4>
i=0
WhileNotrs0.EOF
ifi=0then
Response.WRITE"
optionvalue="
rs0.Fields（0）.Value&
selected>
rs0（"
name"
）&
/option>
i=i+1
else
endif
rs0.MoveNext
Wend
/select>
B"
浏览"
添加"
修改"
删除"
查询"
B0"
撤消"
/body>
/html>
‘check3.asp
%
response.buffer=true
seltable=request.form（"
response.cookies（"
table"
）=request.form（"
selectcaseseltable'
此处设置按钮的去向
case"
response.redirect"
browstable3.asp"
adddb3.asp"
bdba3.asp"
deldb3.asp"
seekdb3.asp"
endselect
‘browstable3.asp
!
--#includefile=conndb.asp-->
'
将Recordset输出成HTML的“表格”
SubRsToTable（rs）
PartI：
输出数据库的“表头”
Response.Write"
CENTER>
TABLEBORDER=1>
TRBGCOLOR=#00FFFF>
Fori=0tors.Fields.Count-1
TD>
rs.Fields（i）.Name&
"
/TD>
Next
/TR>
PartII：
输出数据库的“内容”
WhileNotrs.EOF
TR>
rs.Fields（i）.Value&
rs.MoveNext
/TABLE>
/CENTER>
EndSub
charset=gb_2312-80"
metaname="
GENERATOR"
MicrosoftFrontPage4.0"
数据库浏览程序<
bodybgcolor="
#FFFFFF"
数据库:
%=db%>
表：
%=Table%>
hr>
sqlstr="
select*from"
table
Setrs=conn.Execute（sqlstr）'
或Setrs=conn.Execute（table）
RsToTablers
‘adddb3.asp
Subinputform（rs）
设计数据输入表单
formmethod='
get'
action='
tablealign='
center'
BGCOLOR=#00FFFF>
fieldname=rs.Fields（i）.Name
fieldlen=rs.fields（i）.definedsize'
ADO中field对象的属性:
DefinedSize返回字段定义的数据宽度
thalign='
width='
fieldlen&
FieldName&
/th>
next
td>
inputname='
tdcolspan='
rs.Fields.Count&
_
align='
inputtype='
submit'
name='
addyes'
value='
添加'
reset'
撤消'
Functionadd（rs）
Fori=0tors.fields.count-1
fieldtype=rs.fields（i）.type'
Type返回字段定义的数据类型代码
fvalue=Trim（request（fieldname））
selectcasefieldtype
case129'
char
rs.fields（i）=fvalue
case6'
currency货币型
rs.fields（i）=ccur（fvalue）
case7'
date日期型
rs.fields（i）=cdate（fvalue）
case5'
double双精度浮点型
rs.fields（i）=cdbl（fvalue）
case2'
smallint短整型（2字节）
rs.fields（i）=cint（fvalue）
case3'
integer长整型（4字节）
rs.fields（i）=clng（fvalue）
case4'
single单精度浮点型
rs.fields（i）=csng（fvalue）
case11'
boolean布尔型
rs.fields（i）=cbool（fvalue）
case16'
tinyint单字节整型
rs.fields（i）=cbyte（fvalue）
case14'
decimal固定精度实型
rs.fields（i）=cdec（fvalue）
Next
ifrs.Supports（adUpdate）then
rs.update
endif
IfErrThen
add=0
Else
add=1
EndIf
EndFunction
数据添加程序<
setrs=server.CreateObject（"
ADODB.Recordset"
）
rs.opensqlstr,conn,1,2'
只读取数据设置1,1;
添加数据设置1,2;
改写数据2,3
Setrs=conn.Execute（sqlstr）或Setrs=conn.Execute（table）
inputformrs
ifrequest（"
addyes"
）="
rs.AddNew
adderr=add（rs）
ifadderr=1then
rs.Requery'
重新执行查询来刷新记录集。
Requery方法相当于关闭后再打开记录集。
rstotablers
‘bdba3.asp
HTML>
TITLE>
控制输出记录a<
/TITLE>
BODY>
setsession（"
MyRs"
）=rs
session（"
）.opensqlstr,conn,1,1'
默认为只读数据设置1,1。
只能使用insertinto,deletfrom,updateset语句直接操作数据库;
动态添加数据设置1,2;
动态改写数据设置2,3
recn"
）=0
count"
）=session（"
）.RecordCount
response.redirect"
bdbb3.asp"
--#includefile=bdbc3.asp-->
/BODY>
/HTML>
‘bdbb3.asp
数据修改程序<
Functionedit（rs）
fieldname=rs.Fields（i）.Name
fvalue=Trim（Request（fieldname））
ifrs.Supports（adUpdate）then
MyString=Request.QueryString（"
method"
selectcaseMyString
MoveFirst"
Session（"
）.MoveFirst
session（"
MovePrevious"
）.MovePrevious
）-1
ifSession（"
）.bofthen
）.MoveNext
）+1
MoveNext"
）.eofthen
MoveLast"
）.MoveLast
endselect
edityes"
更新"
）.close
connstr="
sqlstr="
Setconn=Server.CreateObject（"
conn.Openconnstr
setrs=server.CreateObject（"
setsession（"
）=rs
）.opensqlstr,conn,2,3
）.Movesession（"
将记录指针移到指定元组
calledit（session（"
））
response.write"
palign='
Table&
GET'
Tableborder=1>
trBGCOLOR=#00FFFF>
th>
ID<
fori=0tosession（"
）.Fields.Count-1
response.write"
）（i）.name&
next
response
升级会员 