ASP编程题

1,求以下表达式的值，写出你想到的一种实现方法：1-2+3-4+……+m.

此处m需要手动输入，使用C#语言编写

2.实现一记数器功能，如给出0~9所对应的图片分别为0.gif~9.gif，写出程序的主要代码（注：记数存放在counter.txt文件中）

简单的ASP计数器counter.asp代码及注释：

<%

CountFile=Server.MapPath("counter.txt")

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)

counter=Out.ReadLine

//读取计数器文件中的值

Out.Close

//关闭文件

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")

Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)

counter= counter + 1

//计数器的值增加1

Out.WriteLine(counter)

Out.Close

//关闭文件

%>

3.谈谈如何设计一个聊天室程序，并简要阐述实现过程

(1)需求分析

聊天室是实现用户之间即时通信的一种工具。所以，聊天室应该具备用户的登录页面、用户的注册、用户的信息的修改、以及实现用户进行聊天的功能。聊天室作为一种交流工具，应该具备简单易用，容易上手，对于使用者的要求不高，适合大众的需求。同时聊天室还要有一些个性化的界面提供给用户不仅仅是聊天的乐趣，同时也带来全新的视觉效果。

(2)主要模块

用户注册页面

用户登录页面

个人信息页面

留言板页面

（3）重要的代码程序：

（1）登陆页面（login_in.aspx）的调用事件代码：

Sub page_load(ByVal sender As Object, ByVal e As EventArgs)

Session("user_name") = user_name.Text

End Sub

Sub Enter_Click(ByVal Sender As Object, ByVal E As EventArgs)

'建立Connection对象

Dim conn As New

OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("chat.mdb"))

'建立Command对象

Dim cmd As New OleDbCommand("select * from user_infor", conn)

conn.Open()

Dim dr As OleDbDataReader = cmd.ExecuteReader()

Do While dr.Read()

If dr.Item("user_name") <> user_name.Text And dr.Item("password1") <> password1.Text Then

Response.Write("用户名不正确！")

Else

Response.Write("欢迎登陆!")

Response.Redirect("succ_register.aspx")

conn.Close()

End If

Loop

End Sub

（2）、注册页面（register.aspx）的调用事件代码：

Sub Enter_Click(ByVal Sender As Object, ByVal E As EventArgs)

'建立Connection对象

Dim conn As New

OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("chat.mdb"))

'建立Command对象

Dim strSql As String

strSql = "Insert Into

user_infor(user_name,password1,sex,birthday1,email,intro) Values('" &

user_name.Text & "','" & password1.Text & "','" & sex.SelectedItem.Text & "','" & birthday1.Text & "','" & email.Text & "','" & intro.Text & "')"

Dim cmd As New OleDbCommand(strSql, conn)

Dim Exp As Exception

Try

'执行操作，插入记录

conn.open()

cmd.ExecuteNonQuery()

conn.close()

Response.Redirect("succ_register.aspx") '正常添加后，返回首页Catch Exp

message.Text = "注册失败！"

End TryEnd Sub

（3）、聊天室的代码如下：

统计访客人数：4-16.aspx的代码：

Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

If Session("user_name") = "" Then

Response.Redirect("login_in.aspx")

End If

message.Text = "欢迎" & Session("user_name") & "登陆聊天室!"

Application.Lock()

Application("user_number") = Application("user_number") + 1

Application.UnLock()

message1.text = "您是第" & Application("user_number") & "位访客"

End Sub

显示发言信息代码如下：

Sub Enter_Click(ByVal Sender As Object, ByVal E As EventArgs)

Dim username As String

username = Session("user_name")

Application.Lock()

Application("show") = username.ToString & "说：
" &

Application("show")

Application("show") = DateTime.Now.ToString & "
" &

Application("show")