<td height="19" colspan="3" width="85%"><b><font color="#0080C0">
</font><font color="#0080C0">
<input class=TextBorder name=from size=20 maxlength="10" value="本地">
</font><font color="#0099CC"> </font></b></td>
</tr>
<tr>
<td width="15%" align="right" height="19" valign="top"><b><font color="#0080C0">相关地址：</font></b></td>
<td height="19" colspan="3" width="85%"><b><font color="#0080C0">
<input class=TextBorder name=fromurl size=20 maxlength="70" value="#">
</font></b></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><div align="center"><center><p><input type="submit" value=" 添 加 "
name="cmdok" class="buttonface"> <input type="reset" value=" 清 除 "
name="cmdcancel" class="buttonface"></p>
</center></div>
</form>
</body>
</html>
5.1.5保存信息页
1．Save.asp页面示例
图为管理员添加信息成功所看到的页面。
2．页面中需要用户填写的HTML表单元素
此页无需添写HTML表单元素
3.页面所涉及的数据库表信息
此页使用了系统中的信息记录表learning
4.页面代码分析
<%
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<%
if request.form("typename")="" then
response.write "错误提示:未输入信息类型!"
response.end
end if
if request.form("vote")="" then
response.write "错误提示:未做评价！"
response.end
end if
%>
<!--#include file="articleconn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
dim listname
dim typename
dim title
dim content
dim sql
dim rs
dim filename
dim articleid
dim outfile
dim url
dim from
dim fromurl
dim big
dim vote
title=htmlencode2(request.form("txttitle"))
url=htmlencode2(request.for