用了我一下午的时间终于写完并整理好了利用.net来发送即时消息的材料（当然了，还有上午的数据库设计：）
数据库设计：info表：id fromstu_id tostu_id content term
其中id是主键，fromstu_id是发送信息的用户的学号（这是和我做的学友录连在一起的），tostu_id是接受信息的用户的学号，content是消息的内容，term是判断是否为新消息。
下面的代码家在校友录中的if not ispostback中
'/////////////////////判断是否有新留言，将自动弹出页面
这里还要将页面的刷新时间设置一下，以便可以循环的读取信息。
dim mysql as string = "select * from info where [email protected] and term=1"
dim comm as sqlcommand = new sqlcommand(mysql, conn)
comm.parameters.add(new sqlparameter("@myid", sqldbtype.int, 4))
comm.parameters("@myid").value = session("stu_id")
dim dr as sqldatareader
conn.open()
dr = comm.executereader
if dr.read then
response.write("<script language=javascript>window.open('info.aspx','','height=330,width=560,status=no,location=no,toolbar=no,directories=no,menubar=no')</script>")
end if
dr.close()
comm.cancel()
下面的代码是用来发送即时消息的页面，其中里面分了两个部分，一个是用来回复的，一个是用来专门发送的，两个的页面稍有区别，仔细看一下就会明白的：）
下面是所有的代码：codebehind部分
public sub page_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
if not ispostback then
dim tostu_id as string = request.querystring("tostu_id")
if tostu_id = "" then
'//////////////////当回复留言时
dim sql as string = "select a.*,b.nick from info a,pwd b where a.fromstu_id=b.stu_id and a.tostu_id='" & session("stu_id") & "' and a.term=1"
dim comm as sqlcommand = new sqlcommand(sql, conn)
dim dr as sqldatareader
conn.open()
dr = comm.executereader
while dr.read
label3.text = dr.item("nick")
label4.text = dr.item("tim")
label5.text = dr.item("content")
textbox1.text = dr.item("nick")
textbox3.text = dr.item("fromstu_id")
textbox1.enabled = false
label8.visible = false
end while
dr.close()
comm.cancel()
'//////////////////////更新留言使留言属性为已阅读过
dim sql_1 as string = "update info set term=0 where tostu_id='" & session("stu_id") & "' and term=1 and tim='" & label4.text & "'"
comm = new sqlcommand(sql_1, conn)
comm.executenonquery()
else
'////////////////////当发送留言时
dim mysql as string = "select nick from pwd where stu_id='" & tostu_id & "'"
dim comm as sqlcommand = new sqlcommand(mysql, conn)
dim dr as sqldatareader
conn.open()
dr = comm.executereader
while dr.read
textbox1.text = dr.item("nick")
end while
textbox1.enabled = false
label3.text = ""
label4.text = ""
label5.visible = false
label8.visible = true
label6.visible = false
label7.visible = false
label9.visible = false
dr.close()
end if
end if
end sub
'/////////////////书写提交消息事件
public sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
dim tostu_id as string = request.querystring("tostu_id")
if tostu_id = "" then
'/////////////////////////当回复留言时
conn.open()
dim sql as string = "insert into info(fromstu_id,tostu_id,content,term,tim) values(@fromstu_id,@tostu_id,@content,@term,@tim)"
dim comm as sqlcommand = new sqlcommand(sql, conn)
comm.parameters.add(new sqlparameter("@fromstu_id", sqldbtype.int, 4))
comm.parameters("@fromstu_id").value = session("stu_id")
comm.parameters.add(new sqlparameter("@tostu_id", sqldbtype.int, 4))
comm.parameters("@tostu_id").value = textbox3.text
comm.parameters.add(new sqlparameter("@content", sqldbtype.varchar, 200))
comm.parameters("@content").value = textbox2.text
comm.parameters.add(new sqlparameter("@term", sqldbtype.int, 4))
comm.parameters("@term").value = "1"
comm.parameters.add(new sqlparameter("@tim", sqldbtype.char, 20))
comm.parameters("@tim").value = date.now
comm.executenonquery()
textbox2.text = ""
else
'/////////////////////////当发送留言时
conn.open()
dim sql as string = "insert into info(fromstu_id,tostu_id,content,term,tim) values(@fromstu_id,@tostu_id,@content,@term,@tim)"
dim comm as sqlcommand = new sqlcommand(sql, conn)
comm.parameters.add(new sqlparameter("@fromstu_id", sqldbtype.int, 4))
comm.parameters("@fromstu_id").value = session("stu_id")
comm.parameters.add(new sqlparameter("@tostu_id", sqldbtype.int, 4))
comm.parameters("@tostu_id").value = tostu_id
comm.parameters.add(new sqlparameter("@content", sqldbtype.varchar, 200))
comm.parameters("@content").value = textbox2.text
comm.parameters.add(new sqlparameter("@term", sqldbtype.int, 4))
comm.parameters("@term").value = "1"
comm.parameters.add(new sqlparameter("@tim", sqldbtype.char, 20))
comm.parameters("@tim").value = date.now
comm.executenonquery()
textbox2.text = ""
end if
response.write("<script language=javascript>alert('发送成功！')</script>")
end sub
'////////////////////返回继续发送
private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click
response.redirect("boaman.aspx")
end sub
end class
页面部分：
<%@ page language="vb" autoeventwireup="false" codebehind="info.aspx.vb" inherits="_99re1.info"%>
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<title></title>
<meta content="microsoft visual studio.net 7.0" name="generator">
<meta content="visual basic 7.0" name="code_language">
<meta content="javascript" name="vs_defaultclientscript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetschema">
</head>
<body background="image/bg.gif" ms_positioning="gridlayout">
<form id="form1" method="post" runat="server">
<font face="宋体">
<asp:image id="image3" style="z-index: 111; left: 141px; position: absolute; top: 312px" runat="server" width="221px" height="98px" imageurl="image/99re1-1.gif"></asp:image>
<asp:textbox id="textbox1" style="z-index: 101; left: 73px; position: absolute; top: 123px" runat="server" bordercolor="navy" borderwidth="1px"></asp:textbox>
<asp:label id="label1" style="z-index: 102; left: 26px; position: absolute; top: 127px" runat="server" width="42px" height="18px" font-size="x-small" forecolor="navy" font-bold="true">发往：</asp:label>
<asp:label id="label2" style="z-index: 103; left: 26px; position: absolute; top: 156px" runat="server" font-size="x-small" forecolor="navy" font-bold="true">内容：</asp:label>
<asp:textbox id="textbox2" style="z-index: 104; left: 73px; position: absolute; top: 154px" runat="server" textmode="multiline" width="449px" height="74px" bordercolor="navy" borderwidth="1px" maxlength="200"></asp:textbox>
<asp:button id="button1" style="z-index: 105; left: 357px; position: absolute; top: 252px" runat="server" width="50px" height="20px" text="发送" bordercolor="navy" borderwidth="1px" backcolor="#ffe0c0"></asp:button>
<asp:button id="button2" style="z-index: 106; left: 176px; position: absolute; top: 253px" runat="server" width="87px" height="20px" text="继续发送…" bordercolor="navy" borderwidth="1px" backcolor="#ffe0c0"></asp:button>
<asp:label id="label3" style="z-index: 107; left: 75px; position: absolute; top: 10px" runat="server" width="135px" height="6px" font-size="small">label</asp:label>
<asp:label id="label4" style="z-index: 108; left: 300px; position: absolute; top: 9px" runat="server" width="219px" height="13px" font-size="small">label</asp:label>
<asp:label id="label5" style="z-index: 109; left: 73px; position: absolute; top: 40px" runat="server" width="447px" height="71px" font-size="x-small" bordercolor="slategray" borderwidth="1px">label</asp:label>
<asp:label id="label6" style="z-index: 110; left: 26px; position: absolute; top: 12px" runat="server" font-size="x-small" forecolor="red" font-bold="true">来自：</asp:label>
<asp:textbox id="textbox3" style="z-index: 112; left: 247px; position: absolute; top: 122px" runat="server" visible="false"></asp:textbox>
<asp:label id="label8" style="z-index: 113; left: 116px; position: absolute; top: 55px" runat="server" height="33px" width="327px" font-bold="true" forecolor="navy" font-size="large" font-names="方正姚体" font-underline="true">直接写入内容点击发送即可！</asp:label>
<asp:label id="label7" style="z-index: 114; left: 225px; position: absolute; top: 12px" runat="server" height="15px" width="71px" font-bold="true" forecolor="red" font-size="x-small">发信日期：</asp:label>
<asp:label id="label9" style="z-index: 115; left: 25px; position: absolute; top: 41px" runat="server" font-bold="true" forecolor="red" font-size="x-small">内容：</asp:label>
</font>
</form>
</body>
</html>
以上代码在bata2环境下调试成功.
特别感谢：cheery_ke提供思路！
朋友一生一起走，多一个朋友就多一分收获！
