访问文章数据库

ASP新手入门
你还在寻找怎样在你的网页服务器中迅速获取新闻或者文章?不用创建独特的html页面来显示小部分文本来把它放进数据库。
当点击显示文章的完整内容和允许新信息输入的时候,这个示例应用程序会把最近的文章的标题加上超链接。这能容易地综合成模板来你的网站上快速发布新闻。注意首先两篇文章是有和它们相关联的将来的日期来确保它们还有在顶部的内容。一旦删除你的本地副本的所有文章会显示比以往都多的最近的id日期/时间。

<% ‘on error resume next
‘文档开始分配的变量
‘所有被删除的开头和结尾的空白
‘任何单引用都会被改变成&#39

u_action=request.querystring("u_action") u_title=replace(trim(request.form("u_title")),"'","&#39;") u_body=replace(trim(request.form("u_body")),"'","&#39;") u_author=replace(trim(request.form("u_author")),"'","&#39;") 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 %>


相关内容推荐

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

返回
顶部