通俗的讲静态网页就是以HTML后缀的页面，在服务器上放上什么，浏览者就可以看到什么。动态网页是在静态网页的代码中加入了网络程序语言，常见的ASP,JSP,PHP,NET等，其基本原理就是浏览者提交信息发送到服务器，程序处理后返回相应的信息，是一种可以互动的交互式 *** 作，如留言板，论坛等。
2表单提交属于动态网页范畴，可以用不同的程序来做出来，以ASP为例，就是浏览者填写表单后，点击确定，所填写的会发送到服务器，并可以记录在网站后台的数据库中，这些在ASP的学习中是简单的一些道理，如果没有接触过，可能会感觉理解不了。
3表单的提交只需要在FORM中设置发送到自己的信箱即可。
4动态网页的制作需要用到XP的组件IIS，否则在本地浏览只能适用于静态网页。
例子如下：
以百度回答问题的这个提交表单为例，需要五个网页文件：
indexasp /显示表单
connasp /数据库连接
addasp /表单处理页面
websitecss /样式表
shtmdb /数据库文件
indexasp
<% option explicit%>
<!--#Include file="adoasp"-->
<HTML>
<head>
<title>表单示例</title>
<link rel="stylesheet" href="stylecss">
<Script Language="JavaScript">
<!--
Function check_Null(){
If (documentform1titlevalue==""){
alert("主题不能为空!");
return false;
}
If (documentform1namevalue==""){
alert("姓名不能为空!");
return false;
}
return true;
}
// -->
</Script>
</head>
<body >
<center>
<table border='0' width='80%' >
<form method="post" action="addasp" name="form1" onSubmit="JavaScript: return check_Null();">
<tr><td> </td><td><textarea name="body" rows=6 cols=80 wrap=soft></textarea></td></tr>
<tr><td> </td><td> </td></tr>
<tr><td></td>
<td valign="middle"><label>
用户名：
<input type="text" name="name" size="10">
<input type="checkbox" name="checkbox" value="checkbox">
</label>
匿名发表
<input type="submit" value=" 提交 " Size="20"></td></tr>
</form>
</table>
<p>
<%
'现在开始显示已有留言
Dim Sql,rs '声明变量
Sql="Select body,name,submit_date From guest "
Sql=Sql & " Order By submit_date desc,id desc" '这里用了两个字段排序
SET rs=dbExecute(Sql) '返回一个Recordset对象
Do While Not rsEof '利用循环依次显示所有记录
%>
<table border="0" bordercolor="#8800FF" width="80%">
<tr>
<td colspan=2><hr></td>
</tr>
<tr>
<td width=5% rowspan="2"> </td>
<td width="95%"><%=rs("submit_date")%> <%=rs("name")%></td>
</tr>
<tr>
<td><%=rs("body")%></td>
</tr>
</table>
<%
rsMoveNext '将记录指针移动到下一条记录
Loop
%>
</center>
</body>
</html>
connasp
<%
'这里只是建立数据库连接对象db。
Dim db
Set db=ServerCreateObject("ADODBConnection")
dbOpen "Driver={Microsoft Access Driver (mdb)};Dbq="&ServerMappath("guestmdb")
%>
addasp
<!--#Include file="connasp"-->
<%
Dim body '声明变量
body=RequestForm("body") '返回留言内容
Dim sqla,name,sqlb,sql
sqla = "Insert Into sth(name"
sqlb = "Values('" & name & "'"
If body<>"" Then '如果留言内容不为空
sqla = sqla & ",body"
sqlb = sqlb & ",'" & body & "'"
End If
sqla = sqla & ",submit_date"
sqlb = sqlb & ",'" & now() & "'" '插入系统时间为留言时间
'下面一句就是将SQL语句的前后两部分组织成一个完整的Inser语句
sql = sqla & ") " & sqlb & ")"
dbExecute(Sql) '插入记录
ResponseRedirect "indexasp" '重定向回首页
%>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）