如何提高网站的用户粘度,玉溪建设网站,企信查官网,广州建外贸网站公司1、架设IIS服务器或者直接在网上下载可以直接测试运行ASP的软件； 2、在电脑D盘的根目录下，建立一个名为“Web”的文件夹，在该文件夹下建立“data”、“images”、“css”三个文件夹，“data”文件夹下面主要用来存放数据库文件，“images”主要用来存放“logo”、“benner”…
1、架设IIS服务器或者直接在网上下载可以直接测试运行ASP的软件； 2、在电脑D盘的根目录下，建立一个名为“Web”的文件夹，在该文件夹下建立“data”、“images”、“css”三个文件夹，“data”文件夹下面主要用来存放数据库文件，“images”主要用来存放“logo”、“benner”等网页的图片，“css”主要用来存放定义各网页式样的样式文件，另外那个用来直接测试运行ASP的软件也需要放在这个名为“Web”的文件夹根目录下，否则无法运行； 3、打开access，创建一个名为“data.mdb”的数据库，然后设计一个名为“message”的表，其表中内容包括“id”、“name”、“content”三个字段； 4、我们以最简单的留言板为例，在DW中新建1个“conn.asp”，保存在名为“Web”的文件夹下，其程序代码如以下所示： %
'-----------打开数据库------------ dim conn,rs Connstr="provider=microsoft.jet.oledb.4.0;data source=" server.mappath("data/data.mdb") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open Connstr if err then response.write err.description response.end end if dim dt,s,r,a
r=""
dt = now()
s = split(dt, " ", -1, 1)
a = split(s(0), "-", -1, 1)
for i=0 to ubound(a)
if a(i) 10 then a(i) = "0" + a(i)
end if
if i=0 then r = a(i)
else r = r + "-" + a(i)
end if
next
% 5、在DW中新建1个“index.asp”，保存在名为“Web”的文件夹下，在设计窗口中，执行菜单【插入】|【表单】|【表单】，这时会出现一个红色的虚线矩形框，将光标放在此框中，插入1个3行2列、宽度为100%的表格，然后在表格的第1行第1列输入文字“昵称”，在表格的第1行第2列执行菜单【插入】|【表单】|【文本域】，选中该文本域，如下图所示，在“属性”面板中，将文本域的名称设为“name1”； 6、在表格的第2行第1列输入文字“留言内容”，在表格的第2行第2列执行菜单【插入】|【表单】|【文本区域】，选中该文本区域，如下图所示，在“属性”面板中，将文本区域的名称设为“content”，点选“多行”，行数设为5； 7、在表格的第3行第2列，插入“提交”和“重置”两个按钮，切记“重置”按钮的动作属性需要点选“重设表单”； 8、回到代码窗口的第1行按回车键，执行菜单【插入】|【服务器端包括】，在弹出的浏览文件中，选择“conn.asp”，点选【确定】按钮，这时候会在代码的第2行出现如下语句：“!--#include file="conn.asp" --”，切记这段语句要重复的包含写入在下面的每个新建ASP页面中； 9、接着，我们新建1个chk_index.asp，存放在名为“Web”的文件夹下，这个页面主要是“index.asp”页面中“留言已成功提交”的一个提示页面，其全部代码如下，需要解释的是“conn,1,2”，这是游标控制数据库的一种规定，“conn,1,2”是用来修改和删除数据库里面数据的，而“conn,1,1”是显示数据而不能修改的； %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
!--#include file="conn.asp" --
%
name1=trim(request.form("name1"))'获取姓名的字段名,
content=request.form("content")'获取内容的字段名，
set rs=server.createobject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,1,2 '向数据库里添加信息
rs.addnew
rs("name")=name1
rs("content")=content
rs.update
rs.close
response.Write "script language='javascript'alert('留言已成功提交！');window.location.href='index.asp';/script"
% 10、那么信息提交后，肯定需要一个页面来进行显示和修改、删除，这样接下来我们新建1个名为“admin_message.asp”的显示页面，存放在名为“Web”的文件夹下，在“设计”窗口中插入1个1行4列的表格，分别输入“昵称”、“内容”、“修改”、“删除”等文字如下图所示，选择第1行复制并粘贴到第2行； 11、在两行之间插入如下的一段代码，这段循环语句的意思是搜索数据库中，从第1行到最后1行的所有数据； %
set rs=server.createobject("adodb.recordset")
sql="select * from message "
rs.open sql,conn,1,1
i=1
do while not rs.eof
i=i+1
% 12、选中刚才复制的第2行第1列中的文字“昵称”，将其替换成如下的代码：%=rs("name")%，然后将“内容”、“修改”、“删除”都做相应的修改，程序代码如下图所示，然后再做下图中的“修改”和“删除”文字的链接页面了； 13、在表格的第2行回车，也就是在/table的后面，输入如下代码： %
rs.movenext
loop
rs.close
% 14、新建一个名为“del_message.asp”的文件，存放在名为“Web”的文件夹下，这个页面是一个删除页面，其全部代码如下，需要解释的是其中的SQL语句，是搜索数据库中相应的“id”值来进行有针对性的删除工作，删除成功后页面会自动返回“admin_message.asp”页面； %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
!--#include file="conn.asp" --
% id = Request.QueryString("id")
%
%
set rs=server.createobject("adodb.recordset")
sql="delete * from message where id="id
set rs=conn.execute(sql)
rs.open sql,conn,1,2
