[工学]Web动态网页设计.pptVIP

%@LANGUAGE=VBSCRIPT CODEPAGE=65001% meta http-equiv=Content-Type content=text/html; charset=utf-8 / form action=list.asp method=post table trtd姓名/tdtdinput name=stuname type=text / /td/tr trtd性别/tdtdinput name=stusex type=text / /td/tr trtd出生年月/tdtdinput name=stubirth type=text / /td/tr trtd籍贯/tdtdinput name=address type=text / /td/tr trtd colspan=2input type=submit value=提交/input type=hidden value=1 name=isPost //td/tr /table /form a href=list.asplist.asp/a insert.asp: %@LANGUAGE=VBSCRIPT CODEPAGE=65001% meta http-equiv=Content-Type content=text/html; charset=utf-8 / % set conn = Server.CreateObject(ADODB.connection) conn.open DSN=student ? isPost = request.Form(isPost) if(isPost=1)then stuname = request.Form(stuname) stusex = request.Form(stusex) stubirth = request.Form(stubirth) address = request.Form(address) ? conn.execute insert into student values ( _ stuname , _ stusex , _ stubirth , _ address ) end if list.asp: --接上页-- set rs = Server.CreateObject(ADODB.recordset) rs.open select * from student,conn % table width=400 border=1 cellspacing=0 % while(not rs.eof) % trtd%=rs(stuname)%/tdtd%=rs(stusex)%/tdtd%=rs(stuBirth)%/tdtd%=rs(address)%/td/tr % rs.movenext wend rs.close conn.close % /table --接上页-- a href=insert.aspinsert.asp/a form action=query.asp method=post 查询姓名input type=text name=keyword / input type=submit value=查询 / /form %@LANGUAGE=VBSCRIPT CODEPAGE=65001% meta http-equiv=Content-Type content=text/html; charset=utf-8 / % keyword = request.Form(keyword) ? set conn = Server.CreateObject(ADODB.connection) conn.open DSN=student ? set rs = Server.CreateObject(ADODB.recordset) rs.open select * from student where stuname = keyword ,conn % query.asp --接上页-- table width=400 border=1 cellspacing=0 % while(not rs.eof) % trtd%=rs(stuname)%/tdtd%=rs(stusex)%/tdtd%=rs(stuBirth)%/tdtd%=rs(address)%/td/tr % rs.movenext wend rs.close conn.close % /table a href=insert.aspinsert.asp/a a href=“list.asp”list.asp/a 运行代码 实现一个包含后台数据库链接的简单动态网站，实