当点击显示文章的完整内容和允许新信息输入的时候，这个示例应用程序会把最近的文章的标题加上超链接。这能容易地综合成模板来你的网站上快速发布新闻。注意首先两篇文章是有和它们相关联的将来的日期来确保它们还有在顶部的内容。一旦删除你的本地副本的所有文章会显示比以往都多的最近的id日期/时间。
<%
‘on error resume next
‘文档开始分配的变量
‘所有被删除的开头和结尾的空白
‘任何单引用都会被改变成'
u_action=request.querystring("u_action")
u_title=replace(trim(request.form("u_title")),"'","'")
u_body=replace(trim(request.form("u_body")),"'","'")
u_author=replace(trim(request.form("u_author")),"'","'")
u_log=request.querystring("u_log")
script_name=request.servervariables("script_name")
%>
<%
‘检查看看用户是否添加了文章
‘如果是，那么它们会显示输入表单
if u_action <> "add" then
‘如果用户没有寻找输入区域
‘那么他们会和数据库以三种方式之一来相互作用
1. 插入一个新文章
2. 察看特定规则
3. 显示最近的头条新闻
‘下面的选项语句会根据被请求的行为来调整sql
select case u_action
case "insert"
sql = "insert into articles (title,body,author)"
sql = sql & " values( '" & u_title & "' , '" & u_body & "' , '" & u_author & "' )"
case "display"
sql="select * from articles where log = "&u_log
case else
sql="select * from articles order by date desc "
end select
accessdb="articles"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn
‘如果没有找到的意见那么要重定向用户默认的视图
‘除非用户正在添加文章
‘if u_action <> "insert" then
‘if rs.eof then
response.redirect script_name
end if
end if
开始输出html
%>
<html>
<title>Recent Articles</title>
<body bgcolor="#FFFFFF">
<% 'Display successful addition of article to db
if u_action="insert" then %>
Your Article was added.<br>
<% else
‘显示db输出%>
<% do while not rs.eof and counter < 6
‘改变6你要显示的任意标题数目
counter=counter+1 %>
<% if u_action <> "display" then %>
<a href="<%= script_name %>?u_action=display&u_log=<%= rs("log")%>"><%= rs("title") %></a> <%= date %><br>
<% else %>
<b><%= rs("title") %></b><br>
by <%= rs("author") %>
<p>
<pre>
<%= rs("body") %>
</pre>
<% end if
rs.movenext
loop
end if
end if
%>
<% if u_action="add" then
‘如果用户正在添加一个新文章
‘那么显示表单输入区域%>
<script Language="Javascript">
<!--
function Blank_TextField_Validator(form)
{
if (form.u_title.value == "")
{
alert("Please fill in the title field.");
form.u_title.focus();
return (false);
}
if (form.u_body.value == "")
{
alert("Please fill in the body field.");
form.u_body.focus();
return (false);
}
if (form.u_author.value == "")
{
alert("Please fill in the author field.");
form.u_author.focus();
return (false);
}
return (true);
}
//-->
</script>
<form method="post" action="<%= script_name %>?u_action=insert" onsubmit="return Blank_TextField_Validator(this)">
Title<br>
<input type="text" name="u_title" size="65"><p>
Body<br>
<textarea rows="8" name="u_body" cols="65"></textarea><p>
Author<br>
<input type="text" name="u_author" size="65"><p>
<input type="submit" value="Submit">
</form>
<% else
‘如果用户没有在添加文章来
‘显示导航超链接
<p><a href="<%= script_name %>">View Recent Articles</a><br>
<a href="<%= script_name %>?u_action=add">Add Your Article</a>
<% end if %>
热门信息
阅读 (198)
1 独特的随机字母阅读 (172)
2 检查和设置IIS服务器正确的权限阅读 (164)
3 ASP-对象阅读 (164)
4 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (163)
5 asp取access数据库里本周、本月、本季度的记录~