ASP入门教程

ASP入门教程-前言时间:2008-02-16 含笑

ASP(Active Server Pages)是目前最为流行的开放式的Web服务器应用程序开发技术。使用它可以将HTML语言，脚本语言和Active控件组合一起，产生动态、交互、具有数据库访问功能，且高效率的基于Web的应用程序。

ASP技术的优势主要表现在以下几个方面：

ASP运行环境的配置非常方便，只要在Windows平台上安装PWS或IIS，Web服务器与ASP 应用服务器的配置便基本上完成了；

ASP技术简单易学，使用ASP编写服务器端脚本可以创建功能强大的Web应用程序，如果已经熟悉VBScript或JavaScript脚本语言，学习ASP就不会感觉到有什么困难；

使用ASP技术进行开发时，可以通过建立自己的COM组件，将应用程序的商业逻辑封闭在可重用的模块中，以便在脚本、其他组件或其他程序中调用。

关于Asp代码与页面的分离时间:2008-04-05

为了避免ASP程序和HTML代码混写造成维护困难的情况，本文介绍了一种方法，利用模板来分离程序和页面，使程序设计更加轻松。

在使用ASP制作一个站点的时候，常常会出现一个ASP文件中，程序代码和HTML代码混合的情况。这样子做有许多缺点：

1.且不说编程时就要对页面布局进行设计和编排，造成代码混乱难懂，不规范；

2.当需要改变页面外观时，你不仅要改变HTML部份，也需要改变ASP代码，不易维护。那么，要如何才能避免这些麻烦呢？

答案就是使用模板文件，将ASP代码和HTML页面分开，一切问题就都解决了。使用模板有以下好处：

1.在很短的时间内可以替换整个站点的外观；

2.使程序员可以抽象编程，而无须接触HTML代码；

3.可以重复利用以前的模板。

使用过PHP的程序就会知道，PHP有个模板程序(FastTemplate)，现在的问题是如何在ASP 中实现类似的功能。

Microsoft的ASP带有两种脚本：VBScript和JScript。它们都带有一个正则表达式对象(RegExp)，利用字符串对象和RegExp对象，就可以轻松的实现模板功能。沐枫以此编写了一个Template.JScript.INC文件，此文件的内容附在文章后面。有能力的读者可以根据自己的需要进行改进。

下面介绍一下使用方法。由于此文件是使用JScript编写的（当然要转成VBScript也很容易），因此，缺省脚本语言要设为JScript，即ASP程序第一行应为：%@Language=JScript%，然后再包含模板程序文件：!#includefile=Template.JScript.INC。

先介绍一下Template类的使用：

1.建立Template对象：Template(Path)

参数：Path(字符串类型)HTML模板文件的存放路径。

使用new操作符建立Template对象。

例子：

vartpl=newTemplate(c:\template);

在程序中可以用tpl.TplPath来取得模板路径，也可以通过tpl.TplPath来改变模板路径。

如：

tpl.TplPath=d:\template;

2.装载模板文件：Template.Load(Name,File)

参数：Name(字符串类型)是一个模板变量名。

File(字符串类型)模板文件名。此文件存放在HTML模板路径下。

读取文件File到模板变量Name中。

例子：

tpl.Load(Main,TEST.HTM);

此时，模板变量Main就包含了文件TEST.HTM的内容。

你可以用tpl.Main来访问模板变量Main。

例子：

%=tpl.Main%

将显示刚才读进来的TEST.HTM文件内容。

3.模板分拆：Template.Split(Name)

参数：Name(字符串类型)是一个模板变量名。

将Name中的子模板分解。

例子：

先假设上例中的TEST.HTM内容为：

-

这是主模板。接下来是：!#TPLDEFSUBSUB子模板，还有

!#TPLDEFTHIRDTHIRD模板。!#TPLENDTHIRD

!#TPLENDSUB

-

那么：

tpl.Split(Main);

执行以后，就会生成新的模板变量SUB，和THIRD，它们的内容就是!#TPLDEFSUB 和!#TPLENDSUB之间语句。

而且Main模板变量的内容也会发生改变：

tpl.Main的内容为：这是主模板。接下来是{SUB}

tpl.SUB的内容为：SUB子模板，还有{THIRD}

tpl.THIRD的内容为：THIRD模板。

TPLDEF和TPLEND定义的语句块充许多重嵌套。

关于ASP访问ACCESS数据的“不能打开注册表关键字”时间:2008-04-05

前天，N久以前做的一个ACCESS数据库的程序出错了，程序都没有改动过，之前好好的，突然就不行了。

错误信息如下：

----------------------------------

Microsoft OLE DB Provider for ODBC Drivers 错误'80004005'

[Microsoft][ODBC Microsoft Access Driver]常见错误不能打开注册表关键字'Temporary (volatile) Jet DSN for process 0x728 Thread 0x854 DBC 0x276fb44 Jet'。

----------------------------------

由于最近一台服务器被人攻击垮掉了正在重装，没时间理这个问题。后来在朋友（是该程序的用户哦）的多翻催促下，决定搞定它。

一开始，还真不摸不清是怎么回事。在GOOGLE上搜了很多，众说纷纭，过滤去一堆没有结果的垃圾信息，得到下面几个可能原因：

1。微软已经不更新ODBC，需要改用JET的方式连接ACCESS数据库文件；

2。系统目录的权限发生的变更。

也有老帖子说什么原因是：“ACCESS数据库文件是ACCESS97版本的”，这个无须考虑，我用的是ACCESS2000数据库。

对于第一个原因，原来的连接字串如下：

--ODBC连接方式------------------------

mdbpath=server.MapPath("my.mdb.asp")

CnnStr = "DBQ=" & mdbpath & ";DRIVER={Microsoft Access Driver (*.mdb)};uid=admin;pwd="

-------------------------------------

改用JET连接后连接字串为：

---JET连接方式---------------------

CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;Data Source="& mdbpath &" ';Password=luntanbbs"

-------------------------------------

测试过后无效，虽然提示的错误信息有点不同：

----------------------------------

Microsoft JET Database Engine 错误'80004005' 未指定的错误

----------------------------------

最后检查第二个原因：系统目录权限不足。经询问，原来由于出于安全的考虑一同事把该服务器的WINNT目录设置为Administrators、system “完全控制”，users 只读。

但是，按道理，这样的权限设置，ODBC的驱动程序处于winntsystem32odbcjt32.dll 这个也是可读的，难道是因为缺少“执行”权限？

我把winntsystem32目录下所有以odbc开头的DLL文件全部授予“执行”权限，发现还是一样的错误信息。跟着我索性把整个system32 目录设成everyone 可执行，可是一测试依然不行。

难道是还有其他文件被ODBC或JET调用但又不在这个system32目录下且又没有得到充分授权而导致失败？

正在想的时候，蓦然瞥见winnt emp 目录。嘿，我把temp 目录设置成everyone 可“写入”看看。

一测试，嘿，成了。使用ODBC连接方式的程序，成功的读取更新ACCESS数据库中的记录。

有意思的是，使用JET连接方式的程序，却报另一个错误：

-------------------------------------------

Microsoft JET Database Engine 错误'80040e4d' 无法启动应用程序。

工作组信息文件丢失，或是已被其它用户以独占方式打开。

-------------------------------------------

嘿嘿，不知道这个JET的错误又怎么回事呢？

有时间再搞搞它吧。如果你知道，请给我发个回复哦。:-D

ASP实现邮件发送普通附件和嵌入附件时间:2008-04-05

网上很多关于JMail发送邮件的例子都没有写如何发附件，或者没有写清如何发内嵌的附件(比如把附件图片嵌入到HTML信件里面)

其实最关键的就是这句要注释掉

'JMail.ContentType = "text/html"

(为什么要发内嵌的附件图片?因为如果是img src=网上的地址，在outlook等客户端内则显示是难看的“X”，需要手动下载图片)

本例子参考了Dimac(w3JMail官方)的样例，文件地址：

C:Program FilesDimacw3JMail4ExamplesASPhtmlimage.asp

(安装了Jmail的都有)

例子代码：

以下是引用片段：

<%

SetJMail=Server.CreateObject("JMail.Message")

'是否将信头编码成iso-8859-1字符集.缺省是True

JMail.ISOEncodeHeaders=True

'如果JMail.silent设置为true,ErrorCode包含的是错误代码

JMail.Silent=True

'设置标题和内容编码，如果标题有中文，必须设定编码为gb2312

JMail.Charset="gb2312"

'JMail.ContentType="text/html"'如果发内嵌附件一定要注释掉这行，重要！

JMail.From="web@https://www.360docs.net/doc/cb22796.html,"'发送者地址

JMail.FromName="SkyheSystem"'发送者姓名

JMail.MailServerUserName="web"'身份验证的用户名

JMail.MailServerPassword="123456"'身份验证的密码

'加入新的收件人

JMail.AddRecipient"kittow@https://www.360docs.net/doc/cb22796.html,","Mr.Example"

'JMail.AddRecipientBCCEmail'密件收件人的地址

'JMail.AddRecipientCCEmail'邮件抄送者的地址

JMail.Subject="图片测试！！！"

JMail.Body="AnicepictureifyoucanreadHTML-mail."

'增加一个普通附件

JMail.AddAttachment(Server.MapPath("images/email.gif"))

'增加一个嵌入式附件

'ThereturnvalueofAddAttachmentisusedasa

'referencetotheimageintheHTMLBody.

'contentId=JMail.AddAttachment(Server.MapPath("images/email.gif"))

DimcontentId

contentId=JMail.AddAttachment("E:imagesemail.gif")

'只有HTML格式支持嵌入图片附件，我们采用HTML格式的邮件内容

'AsonlyHTMLformattedemailscancontaininlineimages

'weuseHTMLBodyandappendHTML

JMail.HTMLBody="Hi,hereisanicepicture:
" JMail.appendHTML""

JMail.appendHTML"

goodonehuh?"

'如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示

'ButasnotallmailreadersarecapableofshowingHTMLemails

'wewillalsoaddastandardtextbody

JMail.Body="Toobadyoucan'treadHTML-mail."

JMail.appendText"Therewouldhavebeenanicepictureforyou"

JMail.Send("https://www.360docs.net/doc/cb22796.html,")

JMail.Close()

SetJMail=Nothing

%>

asp+ajax打造无刷新新闻评论系统时间:2008-04-05 懒羊

不知上过ChinaRen校友录的朋友们有没有注意，ChinaRen在改版后很多方面都进行了较大的改动。例如留言与回复方面已经不再像以前那样，在每次提交后总得重新加载一下整个页面，碰到网速超慢时，只能干瞪着眼睛等待。那么现在这种炫丽的效果又是如何做到的呢，如果你觉得有兴趣，那就跟着我一起往下看吧!

了解Ajax的朋友也许知道其实这种炫丽效果的实现并不是一件很为难的事，当然如果你不了解何为Ajax那也没有关系，本节我们就通过打造一个新闻评论系统，来看看到底什么是Ajax,首先我们还是先了解一些基础东西。

什么是Ajax?

Ajax提出者Jesse James Garrett在《Ajax:一个Web应用的新途径》中提到Ajax为“Asynchronous JavaScript + XML”的简称，也就是异步的JavaScript和XML处理。其包含：

用XHTML和CSS进行基于标准的表示方式：

采用DOM(document object model)动态显示和交互操作;

采用XML和XSLT进行数据交换和操作;

采用XMLHttpRequest进行异步数据获取;

采用JavaScript绑定上述技术应用;

Ajax与传统Web应用有什么不同?

Ajax与传统Web应用最大的不同就是Ajax可以对页面某一个区域进行局部加载，而不是像传统Web中每次页面请求后的都必须重新加载整个页面，特别在页面负载比较大的情况下，页面加载时间就比较长，用户多数时间就处在等待状态，而呈现给用户的仅仅是一片空白，而在Ajax的应用中就可以很好的避免这类事情的发生。

Ajax的工作原理是什么?

Ajax主要是通过JavaScript对象中的XmlHttpRequest向服务器提出请求，并根据处理的结果更新页面。这样的更新不会使整个页面全部更新，而是根据用户的需要对某个区域进行局部更新，而且在更新的同时不影响其它区域的浏览。例如：搜狐个人博客中每个栏目后面的刷新按钮。

什么是XmlDom?

XMLDOM是用来访问和操作XML文档的编程接口规范。XMLDOM被设计为可用于任何语言和任何操作系统。借助DOM，程序员可以创建XML文档、遍历其结构，增、改、删其元素。DOM将整个XML文档视作一棵树，文档级的元素是树的根。

下面我们就来看看几个与本教程相关的功能，值得注意的是以下方法或属性并不是同一个对象下，具体请看说明：

getElementsByTagName 方法

说明：传回指定名称的元素集合。

语法：objNodeList = xmlDocument.getElementsByTagName(tagname);

例：var node=xmlDom.responseXML.getElementsByTagName("pl");

getAttribute()方法

说明：获得某个元素节点的属性值

语法：elementNode.getAttribute(name)

例：var tot=xmlDom.responseXML.getElementsByTagName("pl")[0].getAttribute("tot"); childNodes 属性

说明：传回一个节点列表，包含该节点所有可用的子节点。

语法：objNodeList=node.childNodes;

例：objNodeList = xmlDoc.childNodes;

如需具体的某一个节点, var u= xmlDoc.childNodes(0);

Length属性()

说明：返回一个节点列表中的节点数量

语法：nodelistObject.length

例：var len=node.length;

至此，基础知识已经讲完了，如果你还是不太了解的话，那建议你去看一些javascript相关的教程。下面我们就看这个新闻评论系统的具体实现原理

asp+ajax打造无刷新新闻评论系统(2)时间:2008-04-05 懒羊

假设有一个页面index.asp，上半部分为评论列表显示区域，下面为评论提交区域。那么这样一个页面我们如何显示评论内容和提交评论呢?

传统：上半部分评论列表直接通过数据库查询语句读取并显示，每当提交新的评论时，先传递给处理页面，处理页面处理完毕后再返回index.asp这个页面，当然index.asp是重新加载获得新的评论。

Ajax:：首先列表页面的内容是一个单独的xml文件(pl_list.asp)，然后index..asp中的上半部分评论通过XmlHttpRequest请求pl_list.asp页面，并通过返回的结果传递到需要更新区域。提交评论同样如此，每次提交采用XmlHttpRequest请求提交处理程序，然后重新更新评论列表显示区域。

此新闻评论系统共分为五个部分，分别为数据库、前台页面、JS代码、服务器处理、CSS 样式。

数据库的设计

PL表：

字段名

类型

长度

id

自动编号

user

文本

20

dateandtime

日期/时间

content

备注

newid

数字

前台页面：(index.htm)

如上图所示，前台页面共包括两部分，上半部分为页面评论列表显示，下半部分为提交评论。由于我们这里只是模拟一个新闻评论系统，并没有真正的新闻页面，那么在传递新闻ID的时候我们采用了一个默认值〈input name="newsid" value="1" type="hidden"/〉。

代码：index.htm

〈%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%〉

〈!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.360docs.net/doc/cb22796.html,/TR/xhtml1/DTD/xhtml1-transitional.dtd"〉

〈html xmlns="https://www.360docs.net/doc/cb22796.html,/1999/xhtml"〉

〈head〉

〈meta http-equiv="Content-Type" content="text/html; charset=gb2312" /〉

〈title〉评论系统〈/title〉

〈script src="main.js"〉〈/script〉

〈link href="main.css" rel="stylesheet" type="text/css" /〉

〈/head〉

〈body〉

〈div id="pllist"〉正在加载评论……

〈script〉loadDom();setTimeout("loadDom()",10000);〈/script〉

〈/div〉

〈div style="width:240px;font-size:12px;text-align:center"〉

〈fieldset〉〈legend〉评论〈/legend〉

呢称：〈input name="user" type="text" style="width:180px"/〉〈input name="newsid" value="1" type="hidden"/〉〈br/〉

内容：〈textarea name="content" style="width:180px;height:80px"〉〈/textarea〉〈br/〉

〈input name="submit" value="我要评论" onclick="fb();" type="button" /〉

〈/fieldset〉

〈/div〉

〈div style="font-size:12px;" id="msg"〉

〈/div〉

〈/body〉

〈/html〉

asp+ajax打造无刷新新闻评论系统(3)时间:2008-04-05 懒羊

JS代码页(核心部分) main.js

JS代码算是本系统的一个核心部分了，Ajax的体现基本全包含在这短短数十行的代码中，是连结前台与后台处理的一个桥梁，可谓是重中之重，为了更好的让大家理解整个功能，我们将分段介绍。

1、获得XmlHttp对象，创建并返回一个XmlHttp对象。

var xhr;

function getXHR()

{

try {

xhr=new ActiveXObject("Msxml2.XMLHTTP");

} catch (e) {

try {

xhr=new ActiveXObject("Microsoft.XMLHTTP");

} catch (e) {

xhr=false;

}

}

if(!xhr&&typeof XMLHttpRequest!='undefined')

{

xhr=new XMLHttpRequest();

}

return xhr;

}

function openXHR(method,url,callback)

{

getXHR();

xhr.open(method,url);

xhr.onreadystatechange=function()

{

if(xhr.readyState!=4)return;

callback(xhr);

}

xhr.send(null);

}

function loadXML(method,url,callback)

{

getXHR();

xhr.open(method,url);

xhr.setRequestHeader("Content-Type","text/xml");

xhr.setRequestHeader("Content-Type","GBK");

xhr.onreadystatechange=function()

{

if(xhr.readyState!=4)return;

callback(xhr);

}

xhr.send(null);

}

具体的调用方法：

loadXML(method,url,callback)

method: http方法，例如：POST、GET、PUT及PROPFIND url: 请求的URL地址，可以为绝对地址也可以为相对地址

callback:自定义的返回处理函数

2.获得评论列表

此段代码的主要功能是根据服务器处理返回的信息更新前台页面的内容，主要包括显示评论列表、评论列表分页、跳转页数三个功能。

显示评论列表：getList函数

function getList(xmlDom)

{

var pllist=document.getElementById("pllist"); //获得页面pllist对象,此对象用来显示评论内容

var node=xmlDom.responseXML.getElementsByTagName("pllist");//获得pllist节点集合var tot=xmlDom.responseXML.getElementsByTagName("pl")[0].getAttribute("tot");//获得pl节点tot属性值,这里指评论的总数量

var curpage=xmlDom.responseXML.getElementsByTagName("pl")[0].getAttribute("curpage");//获得pl节点curpage属性，这里指评论列表当前所在的页数,应用于翻页

if (tot!=0) //判断当前评论数是否为空

{

var cont="";

var len=node.length;//获得pllist节点集合中节点的总数量

for(var i=0;i〈len;i++)

{

var u=node[i].childNodes(0).text;//获得节点第一个子节点的值,这里指呢称

var d=node[i].childNodes(1).text; //获得节点第二个子节点的值，这里指时间

var co=node[i].childNodes(2).text; //获得节点第三个子节点的值,这里指内容

var idnub=node[i].childNodes(3).text; //获得节点第四个子节点的值,这里指新闻ID

cont+='〈div class="u"〉呢称：'+u+'〈/div〉〈div class="d"〉时间：'+d+'〈/div〉〈div class="idnub" onc lick="del('+idnub+')" style="cursor:hand" onmouseout="this.style.background=''" onmousemove="this.style.background='#99cc66'"〉删除〈/div〉〈div class="co"〉内容：'+co+'〈/div〉'; //将所获得的评论内容生成一个字符串}

var cont1=pagecount(tot,curpage);//调用分页函数

cont+=cont1;

pllist.innerHTML=cont;//将内容呈现

}

else

{

pllist.innerHTML="暂无评论!";

}

}评论列表分页：pagecount函数

function pagecount(tot,cur)

{

var cont1="";

if (tot%5==0) //默认每页五条，这个要求与服务器端保持一致

{

pages=parseInt(tot/5);

}

else

{

pages=parseInt(tot/5)+1;

}

for(var j=1;j〈=pages;j++)

{

if (j==cur)

{ cont1+="〈span〉"+j+"〈/span〉"}

else

{ cont1+="〈span style='cursor:hand;color:#0000ff' onmouseout='this.style.background=""' onmousemove='this.style.background="#99cc66"' onclick='gotopage("+j+")'〉"+j+"〈/span〉"} }

return cont1;

}

跳转页数：gotopage函数

function gotopage(page)

{

loadXML("get","pl_list.asp?page="+page,getList);

}

function loadDom() //定时更新评论列表,初始化10秒钟

{

loadXML("get","pl_list.asp",getList);

setTimeout("loadDom()",10000)

}

3.删除评论

function del(idnub)

{

var msg=document.getElementById("msg");

msg.innerText="正在删除……";

loadXML("get","pl_del.asp?id="+idnub,getdel);

}

function getdel(xmlDom) //删除后所触发的事件,更新页面

{

var msg=document.getElementById("msg");

msg.innerText="删除成功!";

loadXML("get","pl_list.asp",getList);

}

4.提交评论

function fb() //处理提交

{

var msg=document.getElementById("msg");

var user=document.getElementById("user");

var content=document.getElementById("content")

var newsid=document.getElementById("newsid")

if (user.value=="")

{

alert("呢称不可为空!");

return false;

}

if (content.value=="")

{

alert("内容不可为空!");

return false;

}

msg.innerText="正在发表评论";

loadXML("get","pl_fb.asp?user="+user.value+"&content="+content.value+"&newsid="+ne wsid.value,getfb);

}

function getfb(xmlDom) //评论提交后所触发的事件，更新评论列表

{

var msg=document.getElementById("msg");

msg.innerText=xmlDom.responseText;

loadXML("get","pl_list.asp",getList);

}

服务器处理程序

根据JS代码页的分段介绍，我们了解此系统的功能大致包括评论的显示处理、评论的删除处理、评论的提交处理三个功能，那么我们就根据这三个功能分别介绍。

评论的显示处理页面：pl_list.asp

此程序为asp生成xml文件，通过分页的方式将评论的内容以XML的形式呈现出来，我们可以单独运行。

代码：

〈!--#include file="conn.asp"--〉

〈%

Response.ContentType = "text/XML"

Response.expires = 0

Response.expiresabsolute = Now() - 1

Response.addHeader "pragma", "no-cache"

Response.addHeader "cache-control", "private"

Response.CacheControl = "no-cache"

Response.write("〈?xml version=""1.0"" encoding=""gb2312""?〉")

currentpage=request("page")

if currentpage="" or int(currentpage)=0 then currentpage=1

set rs=server.createobject("adodb.recordset")

sql="select * from pl order by id desc"

rs.cursorlocation=3

rs.open sql,conn,1,1

if not rs.bof or not rs.eof then

rs.pagesize=5

rs.absolutepage=currentpage

rowcount=rs.pagesize

Response.write("〈pl tot='"&rs.recordcount&"' curpage='"¤tpage&"'〉")

do while not rs.eof and rowcount〉0

Response.write("〈pllist〉")

Response.write("〈user〉"&rs("user")&"〈/user〉")

Response.write("〈dateandtime〉"&rs("dateandtime")&"〈/dateandtime〉")

Response.write("〈content〉"&rs("content")&"〈/content〉")

Response.write("〈id〉"&rs("id")&"〈/id〉")

Response.write("〈/pllist〉")

rowcount=rowcount-1

rs.movenext

loop

else

Response.write("〈pl tot='"&rs.recordcount&"' curpage='"¤tpage&"'〉")

end if

rs.close

set rs=nothing

response.write("〈/pl〉")

%〉

Conn.asp 数据库连结文件，在删除与提交处理中同样使用

〈%

dim conn

dim connstr

dim db

db="main.mdb" '数据库文件位置

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

%〉

评论的删除处理页面：pl_list.asp

〈% Response.Charset="gb2312" %〉

〈% Session.CodePage=936 %〉

〈!--#include file="conn.asp"--〉

〈%

id=request("id")

if id="" then

response.write("参数错误!")

response.End()

end if

set rs=server.CreateObject("adodb.recordset")

sql="select * from pl where id="&id

rs.open sql,conn,1,3

rs.delete

rs.update

rs.close

set rs=nothing

response.write("删除成功!")

%〉

评论的提交处理页面：pl_fb.asp

〈% Response.Charset="gb2312" %〉

〈% Session.CodePage=936 %〉

〈!--#include file="conn.asp"--〉

〈%

user=request("user")

content=request("content")

newsid=request("newsid")

set rs=server.CreateObject("adodb.recordset")

sql="select * from pl"

rs.open sql,conn,1,3

rs.addnew

rs("user")=user

rs("content")=content

rs("newsid")=newsid

rs("dateandtime")=time()

rs.update

rs.close

set rs=nothing

response.write("添加成功!")

%〉

CSS样式main.css

一个好的页面呈现效果离不开一个好的样式，当然我这个属于最基本的，算是看得清楚罢了，大家如果有兴趣可以对样式文件作修改。

.u { /*呢称*/

font-size: 12px;

float:left;

height:25px;

line-height:20px;

width:120px;

}

.d { /*时间*/

font-size: 12px;

float:left;

height:25px;

line-height:20px;

width:120px;

}

.idnub { /*删除*/

text-align:center;

font-size: 12px;

height:25px;

line-height:25px;

width:30px;

}

.co {/*内容*/

font-size: 12px;

width:280px;

}

这是我第一次尝试在asp中使用ajax,习惯于donet中的拖拖拉拉，突然用最原始的方式写代码还真有点不习惯，特别是缺少了那种所见即所得的效果，每一步的实现都得在不断的调试中完成,的确是一件很累的事情。当然随着Ajax式的程序开发愈来愈受欢迎，现在市面的框架、工具也越来越多，相信有那么一天，开发Ajax应用程序终究会变成一件易常简单的事。

多样化的企业需求

纵观北京的经济发展水平和结构，可更清楚地看道，以北京当前高达67.8%的第三产业发展水平以及位居全国第二的人均GDP财富水平，北京完全有足够的消费能力和广阔的服务业发展前景。特别是2008北京奥运会的日益临近，更将为服务业的发展注入了新推动力。

但我们也必须同时注意到，中国成为WTO成员后，“开放服务业”一直是西方发达国家对中国的一个重要要求，也是中国政府与WTO其他成员争夺的焦点。现在，很多外资企业都在要求北京加强在服务业领域的开放，加大对外资在法律、医疗、金融、信息等行业的开放程度。随着服务业的逐步开放，国内的企业将会面临越来越多的有着资金、技术、经验等优势的国外企业的直接竞争。

有专家指出，北京的服务业，特别是其中的中小企业，要想在激烈的市场竞争中获得一席之地，必须做出相应的调整与改变。而信息化就是其中的一项“硬指标”。

而我们的服务业同发达国家或地区相比，还有相当大的差距。一方面，服务业科技进步和创新的环境不完善，旧体制下形成的科技体系结构不合理、机构重复设置、力量分散的状况依然存在，多数服务企业还缺乏依靠科技进步的内在动力;另一方面，技术含量较高的现代服务业发展不足，难以与高新技术产业为主导的工业结构相匹配。而且，北京市中小型服务企业的状况与所处行业千差万别，需要根据各个企业的不同实际情况，进行相适应的信息化。这需要政府、企业与市场多方合力，共同努力，才可能形成一个产业市场的良性循环。

谁最适合ASP模式

我国700多万家中小企业中，大部分企业信息化程度偏低，只专注于本位产品的生产、销售和研发，仍处于手工管理的水平，享受不到信息化对管理和销售带来的优越性。因为有了ASP，他们就可以潇洒地走完别人花了好几年才走完的信息化之路，可快速地实现跨越式的发展，即直接租用软硬件，享受信息化服务。

其次，大多数的分销贸易公司，往往是多点管理，数据需要在多个公司间共享;传统系统属于一个公司安装一套系统的做法，如果要打通上下游，还需购买多套软件，而ASP模式就可以通过一套软件，开多个点的方式来实现多公司管理，使用起来也较方便易用。

另外，国内系统处理多点管理时，往往通过设立多个仓库来代替多个地点，这样替代操作导致无法清除描述一点多仓的情况，也无法很方便的统计分析各点的销售业绩和财务绩效;也无法在各点进行不同的参数配置，形成各点不同的业务流程。因此，对于多点管理的企业，ASP也占有一定的优势。

政府主导，企业结盟

曾有人说：“中小企业做信息化是找死，不做信息化是等死”。

对于大多数中小企业而言，像大企业那样组织专业的技术团队，花几十、甚至几百万元去购买一套软件是不太现实的。在企业逐步进入高速发展阶段的过程中，一次性过大的投入会带来沉重的资金压力和较高的投资风险，同时还需要为这些软件维护和管理支付高额的人员工资和培训费用。这些问题无形中抬高了中小企业信息化的门槛，企业信息化需求和现状产生了极大的矛盾。

北京市科委一直致力于改变本地中小企业信息化落后的状况——在经过多方考察与严格论证之后，于2004年，启动了“首都企业协同e化-ASP模式示范工程”项目，该项目以电信为平台依托，采用政府引导、市场推动，企业主体，联盟推广，行业突破，区域展开”的方针，旨在以示范带应用，以应用促发展，推动首都中小企业信息化能够在近期有突破性进展。

ASP中文名为软件应用提供商(Application System Provider)，ASP 概念非常简单，即把软件当作一种服务。对于按月交纳费用的服务如电话、水、电、有线电视等，我们都觉得习以为常了。而对于软件，我们一直将它作为一种产品，但是互联网的出现，软件也作为一种服务就成为可能了。

该项目以产业联盟的形式对外运营和推广，组成了以美髥公科技、首都信息、艾旺公司、锐步科技等15家公司的ASP服务联盟，为企业提供基础电信、咨询设计、软件开发和平台运营等服务，辅导他们完成信息化过程。

工程目标及内容

ASP示范工程将建立一个面向服务的企业信息化平台。它结合企业用户特点，推进企业信息化建设，提升企业核心竞争力具有重大的意义。