关于eofvb.net的信息

新手关于VB.net的问题

您好，在Visual Basic.NET中，是没有像这样的文件I/O操作的，一般都是通过System.IO.StreamReader和System.IO.StreamWriter类，System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件，利用System.IO.Filestream类来创建文件，通过引用Microsoft Scripting Runtime来执行文件（夹）和驱动器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter类。

成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、网站建设、罗定网络推广、微信小程序开发、罗定网络营销、罗定企业策划、罗定品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供罗定建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com

例如说要读取一个文件，我们可以利用System.IO.StreamReader类编写一个方法（也就是函数），但是首先要在当前类的开头添加一个引用，引用名称：System.IO，添加引用的代码如下

Imports System.IO

添加引用之后，就在当前类的内部创建方法：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

ReadFile = sr.ReadToEnd()

sr.Close()

sr = Nothing

End Function

示例说明：

该方法是一个返回String（字符串）数据的函数，FileURL作为参数是用来存放需要访问的文件的URL，当然，要获取一个文件的URL，就是利用这一句代码实现的：

Dim sr As StreamReader = New StreamReader(FileURL)

当获取了URL之后，就要对文件进行读取操作了，然后将读取的结果返回给方法：

ReadFile = sr.ReadToEnd()

读取文件完毕之后，要对文件执行关闭操作：

sr.Close()

当然别忘了清理资源：

sr = Nothing

StreamReader类可以从流或文件中读取字符，在创建StreamREader类的对象时，可以指定一个流对象，也可以指定一个文件URL，创建对象后就可以调用他的方法，从流中读取数据，其常用方法如下：

Peek：返回下一个可用字符，但不使用它。

Read：读取输入流中下一个字符或一组字符并移动流或文件指针。

ReadBlock：从当前流中读取最大数量字符并从index开始将数据写入buffer。

ReadLine：从当前流中读取一行字符并将字符作为String返回。

REadToEnd：从流的当前位置到末尾读取流。

Close：关闭打开的对象，释放资源。

注：流，一种新的数据格式，这种格式可通过System.IO命名空间下的类访问。流用Stream类表示，所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图，隐藏了操作系统和底层设备的实现细节，所有的流都支持读写操作。在打开文件时将返回对应的流对象，用户可以对流对象进行读写操作。

如果要对文件执行按行读取操作，这时就会用到枚举，这时候，代码就要更改一下了：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

For Each fLine As String In sr.ReadToEnd()

Line = sr.ReadLine()

ReadFile = ReadFile fLine

Next sr.ReadLine

sr.Close()

End Function

示例说明：

For Each…Next：派生于For…Next循环，用于枚举一系列对象中的成员，而这些对象组成集合，如果集合中至少存在一个元素，程序就会静茹For Each块执行。其格式如下：

For Each 元素 [As 数据类型] In 元素集合

[循环体]

[Exit For]

[循环体]

Next [元素]

比如：

Dim CountNumber As ULong = 0

Dim FolderName() As String = New String() {" "}

For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")

CountNumber = CountNumber + 1

ReDim Preserve FolderName(1 To CountNumber)

FolderName = strFolder

Next strFolder

注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹。

Preserve：主要用来避免重定义数组而不损失数组元素的原有数据。

另外，利用My.Computer.FileSystem也可以实现文件的读取，其代码如下：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")

示例说明：

定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。

如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中，例如：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _

System.Text.Encoding.UTF32)

当然，System.Text.Encoding的成员不止一个，它还有如下成员：

System.Text.Encoding.UTF8

System.Text.Encoding.UTF16

System.Text.Encoding.ASCII

System.Text.Encoding.Unicode

这些是常见的成员，也是主要的成员。

另外，利用My.Computer.Filesystem类无法实现文件的行操作，还有，如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！

写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：

Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)

Dim sr As StreamWriter = New StreamWriter(FileURL)

sr.Write(FileCon)

sr.Close()

sr = Nothing

End Sub

示例说明：

sr.Write(FileCon)：将FileCon写入文件FileURL之中。

另外，StreamWriter常用方法如下：

WriteLine：向流中写入一行，后面跟结束符。

Write：写入流，向流对象中写入字符并移动流或文件指针。

Close：关闭打开的对象，释放资源。

附：Visual Basic 6.0文件操作解说：

打开： Open 文件名 For Input | Output | Append As [#]文件号

Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打 开追加写入，文件不存在则创建。

读： Line Input #文件号, 字符串变量

读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）

Input #文件号, 变量1[, | ;] [变量2]...

这种方式可以存入多个变量，而且变量类型不限于字符串型。

写： Print #文件号, 参数1[, | ;] [参数2]...

将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。

Write #文件号, 参数1[, | ;] [参数2]...

这种写入方式将自动添加界定符，对不同参数的类型加以界定。

Visual Basic 6.0文件操作函数：

Seek： Seek(文件号)

返回文件正在访问的位置，返回值为长整型。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位。

Seek： Seek [#]文件号，位置

定位文件到指定位置。位置单位同上所述。

Input： Input (字节数，[#]文件号)

从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

EOF： EOF(文件号)

判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。

LOF： LOF(文件号)

返回文件长度，单位为字节。

FileLen： FileLen (文件名)

返回文件名对应文件的长度，单位是字节。该函数取磁盘文件标识中的长度，即文件打开前的长度，可以取未打开的文件长度。

GetAttr： GetAttr (Pathname)

返回指定文件或文件夹的属性。

FileAttr： FileAttr (文件号)

返回文件号对应文件的打开方式。

GetDateTime： GetDateTime (Pathname)

返回文件被创建或修改的最后日期和时间。

Free： FreeFile[(0|1)]

返回未被占用的文件号，Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件。

Dir： Dir (Pathname [,Attributes])

测试指定路径是否有某文件，Attributes附加文件属性条件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。

Kill： Kill (文件名)

删除指定文件，文件名可包含路径。

FileCopy： FileCopy 源文件，目标文件

拷贝文件。

Name： Name 旧文件名 As 新文件名

文件重命名。前后路径不一致时，操作为移动文件并重命名。

MkDir： MkDir path

新建文件夹。

RmDir： Rmdir path

删除文件夹。

ChDrive： ChDrive Drive

改变当前驱动器 ChDrive "D"

CurDir： CurDir [(driver)]

返回当前工作路径，指定driver则返回目标驱动器的当前工作路径。

举例：

'新建文件，并写入数据，关闭

Open "a.txt" For Output As #1

Print #1, "ABCDEFG"; vbCrLf; "HIJK"

Close #1

'打开文件，并全部写入新文件，关闭

Open "a.txt" For Input As #2

Open "b.txt" For Output As #3

Dim str As String

While (Not EOF(2))

Line Input #2, str

Print #3, str

Wend

Close

注：关于Visual Basic 6.0的文件操作资料来自于

如果您觉得我的回答帮助了您解决难题，别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！

vb.net 二进制读取文件

VB.NET打开二进制文件用fileopen完成，打开二进制文件的形式为：openmode.binary

读取二进制文件用的是fileget方法，写入二进制文件用的是fileput方法。

应用示例：将一批随机数保存在一个dat文件中，然后再将其提取到文本框中。

二进制文件的读写一批随机数的存取，程序为：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

For i = 1 To 8

x = Int(Rnd() * 100)

s = s + Str(x)

FilePut(fn, x)

Next

FileClose(fn)

TextBox1.Text = s

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

Do While Not EOF(fn)

FileGet(fn, x)

s = s + Str(x) + " "

Loop

FileClose(fn)

TextBox1.Text = s

End Sub

VB.NET连接access数据库文件时提示“无效的授权说明”

数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项.

由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access.

就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA.

当数据库设计好了以后,我们可以开始"数据库编程"了.

首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.

然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.

创建这两个对象的具体方法是:

1.在引用后,使用New关键字,如

Private Conn As New ADODB.Connection

Private Reco As New ADODB.Recordset

2.在没引用时,用CreateObject创建对象:

Dim Conn,Reco

Set Conn = CreateObject("ADODB.Connection")

Set Reco = CreateObject("ADODB.Recordset")

创建了对象之后,下一步我们要做的就是打开数据库了.

先看下面的代码,可以成功的打开数据库.

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"

这句代码打开了D盘中的Main.mdb这个数据库.

Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider=Microsoft.Jet.OLEDB.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\main.mdb"它表示了数据库所在的绝对路径.

打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码.

1.想返回"Users"中,[用户名]为"去年烟花"的[密码]

Recordset.open "Select 密码 From Users Where 用户名='去年烟花'",Connection,1,1

之后我们就可以把用户输入的密码进行比较,看是否允许登录.

If Recordset.eof and Recordset.bof then

Msgbox "用户不存在!",16

Else

If PassWord =Recordset("密码").value then

msgbox "登录成功!",64

Else

msgbox "密码错误!",32

End If

End If

Recordset.Close

2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来

Recordset.open "Select * From Users",Connection,1,1

这时,表已经被打开,我们就用以下代码把它显示出来.

Do whlie Not Recordset.eof

Print "用户名: " Recordset("用户名").value "密码: " Recordset("密码").value

Recordset.MoveNext

Loop

Recordset.Close

由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.

Select [字段名] From 表名 [Where 条件]

这里的条件可以省略.且字段名也可以用"*"来代替所有字段.

需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.

后面的条件,可以用"="、""、""等运算符.比如 "Where ID 32".(这里假设[ID]为数字型.)

这是打开的部分.第二个很重要的部分就是查询记录.

数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.

定位:

移动到下一条 Recordset.MoveNext

移动到上一条 Recordset.MovePrevious

移动到最后一条 Recordset.MoveLast

移动到第一条 Recordset.MoveFrist

移动到某一条 Recordset.Move Number

筛选:

Recordset.Find "条件"

如:[用方法(2)打开表之后]

Private Sub Command1_Click()

Recordset.Find "用户名=" "text1.text"

If Recordset.Eof True Then

Msgbox "该用户的密码是:" Recordset("密码").value,64

Else

Msgbox "未找到该用户的资料!",16

End If

End Sub

MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时....

而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.

Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.

第三个部分就是添加/修改记录.

修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.

比如:[(修改密码)按方法(1)打开表之后]

Recordset("密码").value = "123456"

Recordset.Updata

需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.

而添加记录则可以用以下代码来实现:

Recordset.addnew

Recordset("用户名").value = "Admin"

Recordset("密码").value = "Admin"

Recordset.Updata

这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.

到这里就差不多了,最后说一下上面提到的几个方法.

Recordset.Open SQL语句,数据源,游标类型,打开方法

SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据

数据源就是一个打开之后的Connection对象.

去他妈的游标类型,填1就可以了 [偷笑ing]

打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.

对应数值的意义:

1 只读 2 独占 3 可写 4 自已可写,别人可读

Connection.open 连接代码,服务器用户名,密码

这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.

如何把网站中原来的留言板去掉

楼主可以去我的论坛看，里面有图片，看起来更方便些，下面这个留言本绝对可行的

一、安装与调试

常听朋友感叹ASP程序难学不易懂，不过我起初学习这门技术的时候也有过这样的感悟。从今天开始，我将以我学ASP的经验来做一个简单的ASP留言本，这个留言本用了Access数据库，所以务必请大家要跟我一起做的朋友都安装好Office软件，相信各位自己的电脑上都有了。好了，开始。

创建ASP的运行环境（安装IIS）

IIS(Internet Information Service)是构建ASP站点所必须的，所以，我们应该先确认自己的电脑已安装了IIS信息服务，如果没有安装好的话，请按以下步骤：

1、打开“控制面板”

2、双击“添加/删除程序”

3、单击“添加/删除Windows组件”，打开添加/删除Windows组件对话框：

3、从下拉的列表中选择“Internet 信息服务(IIS)”单击“下一步”：

4、出现组件安装进度窗口，如弹出需要安装盘的话，放入Windows2000安装盘，按提示操作即可。直至最后安装完毕。

二、设计数据库

ASP程序本身并不能储存数据，众所周知，留言本有以下信息需要保存：留言者姓名、联系方式、留言内容等等。因为ASP并不能储存数据，所以数据库在这种环境之下就产生了。数据库的种类也很多，针对不同的程序也有适用于它的数据库，比如Access和Ms SQL就比较适用ASP和ASP.net程序，至于其它的数据库和程序，就不属于本文所讨论的问题了，有兴趣的朋友可以查看其它一些资料。

那么既然Access和MS SQL都适用ASP，那么具体又如何来选择呢？我们可以打一个比方：比如钉一枚小钉子，聪明的人一定不会用一个大的棒槌，而是选择小的铁锤，虽然用大的棒槌也一样的可以把钉子钉进去，可是没有人愿意这样做。

数据库也一样：Access比较适用小型的应用，而MS SQL则适用于大中型的数据库应用，所以要做一个留言本，理所当然是选择Access更好一些，但是如果你决心使用MS，没有人会极力阻止你。好了，废话少说，切入正题，下面开始创建数据库。

Access是微软office办公软件中的其中一个，默认的安装Office是有这个Access的，好了，打开程序，开始了,GO!

进入实战了。打开程序后，出现一个对话框，这里我们选择第一个选项”空Access数据库”点击确定，弹出一个新建数据库的文件框，选择你上次你建的站点目录，起个data的文件名，点击创建，OK! 双击”使用设计器创建表”打开表创建窗口”如图

创建表的结构如下表：

字段名称 数据类型 备注(笔者注释)

id 自动编号 设置“自动编号”

user 文本 留言者姓名

qq 数字 留言者的QQ，因为QQ号是由数字组成

email 文本 留言者的电子邮件

content 备注 留言内容

data 日期/时间 留言时间，设定默认值为Now()

数据库设计好了以后，可以直接在数据库里添加两条记录，以后测试时候用！

三、连接数据库

在上一节，我们已经为我们的程序创建了一个数据库，在这一节中，我们来用ASP把程序和数据库连接起来，以后就可以连接到数据库、在ASP中显示数据库中的数据以及更复杂的插入、修改和删除。

一起看以下代码，这就是ASP程序中常用的连接数据库的代码：

%

set conn=server.createobject("adodb.connection")

connstr="Provider=Microsoft.jet.oledb.4.0;data source="server.mappath("data.mdb")

conn.open connstr

%

解释一下以上代码：

% 这是ASP程序的起始

set conn=server.createobject("adodb.connection") 在服务器上创建了一个连接数据库的对象

connstr="Provider=Microsoft.jet.oledb.4.0;data source="server.mappath("data.mdb") 告诉ASP数据库的接接方法以及路径

conn.open connstr 创建了对象后就用来打开数据库进行连接

% 一切OK了!结束ASP程序

将上面的代码另存为conn.asp文件，放在服务器目录下面就可以了。怎么样，简单吧？

四、制作留言本首页

前面我们已经连接好了数据库，就要让它在这里发挥一下作用了，这一节将讲述如何将数据库里的数据用ASP读取出来，在页面中显示出来，这样就等于是查看留言本了。

利用DW制作如下页面（这里我就不讲如何去做这个页面了，最后我将会给出HTML代码下载）

将制作好的文件存为index.asp，下面就创建数据记录集，用来显示数据库的数据到这个页面中：

用记事本打开index.asp，在页头加入以下代码：

%@LANGUAGE="VBScript" codepage="936"%

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

%

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

sql="select user,qq,email,content,data from main order by id desc"

rs.open sql,conn,1,1

%

代码拷贝框

%@LANGUAGE="VBScript" codepage="936"%

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

%

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

sql="select user,qq,email,content,data from main order by id desc"

rs.open sql,conn,1,1

%

[Ctrl+A 全部选择 然后拷贝]

解释一下：

第一行，表明ASP使用的是VB脚本

第二行，是用include包含文件，这里包含的是数据库连接文件。

第三行，ASP程序开始

第四行，利用Server内置对象创建一个记录集

第五行, SQL语句，这里的意思是选择数据库中的user,qq,email,content,data字段，指定该数据表的名称是“main”数据 的排列顺序是倒序。

第六行，用刚才创建的名为rs的记录集打开数据库，设置属性为只读（1,1为只读数据,1,3为插入数据，2,3是修改数据。

这样就打开了数据库，接下来就可以显示了。

将“留言人”代替为“%=rs("user")%

“时间”代替为“%=rs("data")%

“留言内容在此”代替为“%=rs("content")%

“QQ”链接到：;%=rs("qq")%

“邮件”链接到：mailt%=rs("email")%

最后将“填写留言”链接 add.asp “管理留言”链接 admin.asp

好了，再次保存，浏览看看！

怎么了？只显示一条记录？原来我们在数据库里添加了两条记录的哦！还有一条呢？别急，因为我们没有指定ASP循环显示，所以就只有一条啦。。。

在刚才的代码后面添加一行

%do while not rs.eof%

并在页面的第一个表格的末尾加上

%

rs.movenext

loop

%

上面的代码就是说用rs记录集指针一条一条往下一条移动，直到末尾，loop是循环的意思。。哈哈，再次浏览这个文件

看明白了吗，这样就可以让数据库中的数据全部显示在页面中了。

五、制作添加留言页面，实现留言功能

我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。

用DW制作以下这样的页面：

设置表单的属性如下：

姓名：设置为单行文本域，名称为“user”

QQ号：设置为单行文本域，名称为“qq”

邮件：设置为单行文本域，名称为“email”

内容：设置为多行文本域，名称为“content”

最后将表单的“Action”动作指向addsave.asp就可以了。

保存文档名为add.asp，OK！下一步！

表单是做好了，但是还需要后台程序的支持，一起来使用ASP编写一个添加留言处理程序，添加留言代码：

%@LANGUAGE="VBScript" codepage="936"% 表明ASP使用的是VB脚本

!--#include file="conn.asp"-- 是用include包含文件，这里包含的是数据库连接文件

%

set rs=server.createobject("adodb.recordset") 利用Server内置对象创建一个记录集

sql="select user,qq,email,content,data from main" SQL语句，上节有详解

rs.open sql,conn,1,3 用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据

rs.addnew 用记录集新添加一条数据

user=request.form("user") 请求表单的变量，定义变量为user，这里request.form是请求表单的意思

qq=request.form("qq") 请求表单的变量，定义变量为qq，这里request.form是请求表单的意思

email=request.form("email") 请求表单的变量，定义变量为email，这里request.form是请求表单的意思

content=request.form("content") 请求表单的变量，定义变量为content，这里request.form是请求表单的意思

rs("user")=user 将请求到的表单值传向记录集中代表user字段的名称

rs("qq")=qq 将请求到的表单值传向记录集中代表qq字段的名称

rs("email")=email 将请求到的表单值传向记录集中代表email字段的名称

rs("content")=content 将请求到的表单值传向记录集中代表content字段的名称

rs.update 更新一下数据库中的数据。

rs.close 关闭记录集

set rs=nothing 销毁记录集

conn.close 关闭数据库连接

set rs=nothing 销毁数据库连接

%

代码拷贝框

%@LANGUAGE="VBScript" codepage="936"% 表明ASP使用的是VB脚本

!--#include file="conn.asp"-- 是用include包含文件，这里包含的是数据库连接文件

%

set rs=server.createobject("adodb.recordset") 利用Server内置对象创建一个记录集

sql="select user,qq,email,content,data from main" SQL语句，上节有详解

rs.open sql,conn,1,3 用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据

rs.addnew 用记录集新添加一条数据

user=request.form("user") 请求表单的变量，定义变量为user，这里request.form是请求表单的意思

qq=request.form("qq") 请求表单的变量，定义变量为qq，这里request.form是请求表单的意思

email=request.form("email") 请求表单的变量，定义变量为email，这里request.form是请求表单的意思

content=request.form("content") 请求表单的变量，定义变量为content，这里request.form是请求表单的意思

rs("user")=user 将请求到的表单值传向记录集中代表user字段的名称

rs("qq")=qq 将请求到的表单值传向记录集中代表qq字段的名称

rs("email")=email 将请求到的表单值传向记录集中代表email字段的名称

rs("content")=content 将请求到的表单值传向记录集中代表content字段的名称

rs.update 更新一下数据库中的数据。

rs.close 关闭记录集

set rs=nothing 销毁记录集

conn.close 关闭数据库连接

set rs=nothing 销毁数据库连接

%

[Ctrl+A 全部选择 然后拷贝]

将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上：

meta http-equiv="refresh" content="2;URL=index.asp"

然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页”

好了，这个留言的功能总算实现了，最后再测试下，看看效果！

OK！

六、制作管理登陆页面

留言本的管理功能对于留言本来说就不言而喻了，像论坛的登陆功能就是一个很好的例子，不过我们做留言本基本上有删除功能就行了，写这个教程是为了更多的ASP入门者更好的了解ASP，所以旨在学习用，当然也可以在这基础上添加更多的功能，比如回复留言者。

好了，开始了，还是按照以前的，用Dreamweaver做一个登陆页面，如下图：

把用户名的表单名称设置为admin，密码的表单名称设为password，把动作指向checkpass.asp，，存admin.asp这样登陆页面就好了，

下面就做检测密码的ASP程序了，看以下代码解释：

!--#include file="conn.asp"-- 把conn.asp包含进来连接数据库

% ASP起始

admin=request.form("admin") 定义admin的值是表单传过来的用户名域名称admin

password=request.form("password") 定义admin的值是表单传过来的用户名域名称admin

if admin="" or password="" then 这句的意思是假如用户名和密码没有输入的话那么执行下一句

response.Write("script language=javascriptalert(请填写完整!);history.go(-1)/script") 用javascript脚本提示用户

end if 结束if语句

sql="select * from admin where admin="admin" and password="password"" 这句很重要，我们放到后面讲

set rs=conn.execute(sql) 设定记录集rs，用conn执行SQL语句

if rs.eof or rs.bof then 当没有符合筛选结果时，则执行下面的句子

response.write "script language=javascript"

response.write "alert(用户或密码不对!);"

response.write "javascript:history.go(-1);"

response.write "/script" 用javascript脚本提示用户

else 如果符合条件的时候

session("admin")=admin 新建session，值等于表单传来的用户名

response.redirect "mymanage.asp" 转向到mymanage.asp，进入管理页

end if 结束if语句

% ASP结束

代码拷贝框

!--#include file="conn.asp"-- 把conn.asp包含进来连接数据库

% ASP起始

admin=request.form("admin") 定义admin的值是表单传过来的用户名域名称admin

password=request.form("password") 定义admin的值是表单传过来的用户名域名称admin

if admin="" or password="" then 这句的意思是假如用户名和密码没有输入的话那么执行下一句

response.Write("script language=javascriptalert(请填写完整!);history.go(-1)/script") 用javascript脚本提示用户

end if 结束if语句

sql="select * from admin where admin="admin" and password="password"" 这句很重要，我们放到后面讲

set rs=conn.execute(sql) 设定记录集rs，用conn执行SQL语句

if rs.eof or rs.bof then 当没有符合筛选结果时，则执行下面的句子

response.write "script language=javascript"

response.write "alert(用户或密码不对!);"

response.write "javascript:history.go(-1);"

response.write "/script" 用javascript脚本提示用户

else 如果符合条件的时候

session("admin")=admin 新建session，值等于表单传来的用户名

response.redirect "mymanage.asp" 转向到mymanage.asp，进入管理页

end if 结束if语句

% ASP结束

[Ctrl+A 全部选择 然后拷贝]

将以上代码保存为checkpass.asp

这样，用户在admin.asp页面中输入用户名和密码后，就把用户名和密码值传给checkpass.asp处理，当用户名和密码的值和数据库中的字段相匹配时，就进入mymanage.asp这个管理页面，同时建一个session，这个session的会话变量将在后面起作用，

七、制作管理页面

上节中讲的是制作登陆页面和检测用户，当用户名和密码正确时就转到管理页面，好了，开始实现它。

其实这个留言本的管理页面和用户直接看到的首页没有多大的区别，只是用了Session会话变量用作保护和增加了一个删除链接，当点击这个链接的时候，就会自动删除这条留言，好了，其本的目的知道了，那就GO！

刚才讲了，这个页面和首页的index.asp相似，那么就先复制就行了，然后再改一下

首先找到下面这句：

sql="select user,qq,email,content,data from main order by id desc"

把它改为

sql="select id,user,qq,email,content,data from main order by id desc"

这样，就选取到了id这个自动编号的值，以便删除留言时锁定这个id。

然后在“邮件”这个链接后面增加一个链接“删除”，链接：del.asp?id=%=rs("id") ，修改代码后为a href="del.asp?id=%=rs("id")%" onclick="return confirm(是否确定删除本留言？);"删除/a 这样，待会我们做del这个页的时候，就会知道为什么了！

改过后存为mymanage.asp

现在打开浏览器看看！

怎么不用输入用户名和密码都可进入呀？别急，上节中，我们不是建了一个session的会话变量，这时就派上用场了，直接用记事本打开。在%@LANGUAGE="VBScript" codepage="936"%这句的后面加上%if session("admin")"" then%这句，在末尾写上：

%

else

response.Redirect("admin.asp")

end if%

下面来讲解一下。

%if session("admin")"" then% 就是说如果session这个("admin")的值不是空的话就执行。

%

else

response.Redirect("admin.asp")

end if% 为空的话就转向登陆页，重新登陆，这样的话，直接输入网址的话就会跳到admin.asp，简单吧！

八、删除留言

上节我们增加了一个删除留言的链接，以下是这个del.asp的代码

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

%

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

id=Request.QueryString("id")

sql="select * from main where id="id

rs.open sql,conn,2,3

rs.delete

rs.update

%

很明了吧，才几句，第1、2、3句都不用我解释了，大家都在上几节中明白了。

第4句：

id=Request.QueryString("id") 用id取值字符串中传的id，回头看一下删除的链接：del.asp?id=%=rs("id")% 就是这个链接才把id的值传来的，%=rs("id")%是读取数据库中的自动编号字段中的id。

第5句：

用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为main的字段，它的条件是当数据库中的id字段是字串所传来的id。如果这个没有的话这个一时间不明白也不要紧，慢慢接触就知道了。

第6句是打开符合条件的记录，确切的讲不应该叫记录集了，因为经过我们这样筛选的话，记录绝对是一条，2，3指定可以对数据库中的数据进入修改。

第7、8句

rs.delete 看了就明白了，原来这才是整个程序的精髓，就是执行删除了。

rs.update 这是更新数据库中的表，删除后就更新。

最后大家自己用rs.close和conn.close释放。

经过些学习，大家应该对ASP有所了解和认识了，这个做ASP留言本的教程就到此结束了。欢迎大家到新视野QQ群里面共同讨论学习。