Web动态网页设计

list.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 & "')"


Server对象用于提供对服务器上的方法和 属性的访问。最常用的方法是创建ActiveX 组件的实例（Server.CreateObject），其 他包括将 URL 或HTML编码成字符串，将 虚拟路径映射到物理路径以及设置脚本的 超时期限等。
input.asp:
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <% Session.Abandon() %> <form action="post.asp" method="post"> 用户姓名：<input type="text" name="username" /><br /> 用户自定义信息：<input type="text" name="userinfo" /><hr /> <input type="submit" value="提交" /> </form>
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 %>
end if
--接上页-set rs = Server.CreateObject("ADODB.recordset") rs.open "select * from student",conn %> <table width="400" border="1" cellspacing="0"> <% while(not rs.eof) %> <tr><td><%=rs("stuname")%></td><td><%=rs("stusex")%></ td><td><%=rs("stuBirth")%></td><td><%=rs("address")%></t d></tr> <% rs.movenext wend rs.close conn.close %> </table>
insert.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <form action="list.asp" method="post"> <table> <tr><td>姓名</td><td><input name="stuname" type="text" /> </td></tr> <tr><td>性别</td><td><input name="stusex" type="text" /> </td></tr> <tr><td>出生年月</td><td><input name="stubirth" type="text" /> </td></tr> <tr><td>籍贯</td><td><input name="address" type="text" /> </td></tr> <tr><td colspan="2"><input type="submit" value="提交"/><input type="hidden" value="1" name="isPost" /></td></tr> </table> </form> <a href="list.asp">list.asp</a>
--接上页-<table width="400" border="1" cellspacing="0"> <% while(not rs.eof) %> <tr><td><%=rs("stuname")%></td><td><%=rs("stusex")%> </td><td><%=rs("stuBirth")%></td><td><%=rs("address") %></td></tr> <% rs.movenext wend rs.close conn.close %> </table> <a href="insert.asp">insert.asp</a> <a href=“list.asp”>list.asp</a> 运行代码
--接上页-<a href="insert.asp">insert.asp</a> <form action="query.asp" method="post"> 查询姓名<input type="text" name="keyword" /> <input type="submit" value="查询" /> </form>
post.asp:
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <% dim username,userinfo username = request.Form("username") userinfo = request.Form("userinfo") if(username <> "") then session("username")= username session("userinfo")= userinfo if(application("usercount")=null)then application.Lock() application("usercount") = 0 application.UnLock() end if application.Lock() application("usercount") = application("usercount") + 1 application.UnLock() end if
运行代码
主要掌握：
•Request/Response对象 •Session/Application对象 •Server对象

Request对象用于访问任何用 HTTP 请求 传递的信息，包括从 HTML 表单中用 POST 方法或 GET 方法传递的参数、 COOKIE 和用户认证等。

Response 对象用于控制发送给用户的信 息，包括直接发送信息给浏览器、 重定向 浏览器到另一个 URL 或设置 COOKIE的值。

Session对象用于存储特定的用户会话所需 的信息，当用户在网站页面之间跳转时， 存储在 Session 对象中的变量不会清除； 而用户在访问该网站的不同页面时，这些 变量始终存在，同时也可以使用 Session 对象提供的方法显式地结束一个会话或设 置空闲会话的超时期限。 Application 对象用于存储指定动态网站所 有用户的共享信息。
--接上页--
response.Write("current page:" & request.ServerVariables("SCRIPT_NAME"))
response.Write("<br />") response.Write("username:" & username) response.Write("<br />") response.Write("user special info:" & userinfo) response.Write("<br />") response.Write("total count:" & application("usercount")) %> <hr/><a href=“check.asp”>check session/application data</a>
query.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <% keyword = request.Form("keyword")
运行代码
主要掌握DSN设置以及和数据库 操作密切相关的Connection对象、 Command对象、Recordset对象 的综合应用，实现数据库的增、 删、改、查等操作。
DSN设置
选择“控制面板”下“管理工具”中 的“数据源（ODBC）”，选择“系 统DSN”选项卡，点击“添加”实现 DSN的设置。
代宇
QQ:1352924 Email:daiyu@cqupt.edu.cn Office Addr:信科大厦S310
① ②
③
④ ⑤
Dreamweaver的基本操作 HTML和CSS应用 脚本语言编程 ASP内置对象应用 数据库操作
代码窗口
设计窗口
包括文字、图片、表格、框架以及其他 网页元素的灵活应用，并合理结合CSS 设计美观的界面。
check.asp:
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <% response.Write("current page:" & request.ServerVariables("SCRIPT_NAME")) response.Write("<br />") response.Write("username:" & session("username")) response.Write("<br />") response.Write("user special info:" & session("userinfo")) response.Write("<br />") response.Write("total count:" & application("usercount")) %> <hr /><a href="input.asp">reinput</a>
表格布局（一）
1
2
3
来自百度文库
表格布局（二）
1
2
3
表格布局（三）
1
2
如何实现表格布局？
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <script language="javascript"> window.alert('网页加载中…'); function userclick(){ window.alert(document.getElementById('usertext').value); } </script> <input id="usertext" type="text" /> <input type="button" value="请在文本框里输入文字后点击我" onClick="javascript:userclick();" />