改写即时消息的发送 包含同时给多人发送信息

以前的的发送消息按钮事件改写如下：

'/////////////////////转到发送即时消息页面

privatesubbutton3_click(byvalsenderassystem.object,byvaleassystem.eventargs)handlesbutton3.click

dimi,jasinteger

j=0

dimtostu_idasstring=""

fori=0tomycheck.items.count-1

ifmycheck.items(i).selectedthen

'////////////////////////限制发送条数

j=j+1

ifj<6then

'/////////////////////参数构造

tostu_id=tostu_id&checkboxlist1.items(i).text&"@"

else

label2.visible=true

label2.text="一次最多能给五个用户发送信息！"

return

'response.write("<scriptlanguage=javascript>window.open('info.aspx?tostu_id='&checkboxlist1.items(i).text,'','height=330,width=560,status=no,location=no,toolbar=no,directories=no,menubar=no')</script>")

endif

nexti

response.redirect("info.aspx?tostu_id="&tostu_id)

endsub

这里发送信息的页面由于修改的比较多，所以把全部代码全都抓来了

codebebind部分：

importssystem.data

importssystem.data.sqlclient

publicclassinfo

inheritssystem.web.ui.page

protectedwitheventslabel1assystem.web.ui.webcontrols.label

protectedwitheventslabel2assystem.web.ui.webcontrols.label

protectedwitheventstextbox2assystem.web.ui.webcontrols.textbox

protectedwitheventsbutton1assystem.web.ui.webcontrols.button

protectedwitheventsbutton2assystem.web.ui.webcontrols.button

protectedwitheventslabel3assystem.web.ui.webcontrols.label

protectedwitheventslabel4assystem.web.ui.webcontrols.label

protectedwitheventslabel5assystem.web.ui.webcontrols.label

protectedwitheventslabel6assystem.web.ui.webcontrols.label

protectedwitheventstextbox3assystem.web.ui.webcontrols.textbox

protectedwitheventsimage3assystem.web.ui.webcontrols.image

protectedwitheventslabel8assystem.web.ui.webcontrols.label

protectedwitheventslabel7assystem.web.ui.webcontrols.label

protectedwitheventslabel9assystem.web.ui.webcontrols.label

protectedwitheventslabel10assystem.web.ui.webcontrols.label

protectedwitheventsbutton3assystem.web.ui.webcontrols.button

protectedwitheventslabel11assystem.web.ui.webcontrols.label

protectedwitheventstextbox1assystem.web.ui.webcontrols.textbox

#region"webformdesignergeneratedcode"

'thiscallisrequiredbythewebformdesigner.

<system.diagnostics.debuggerstepthrough()>privatesubinitializecomponent()

privatesubpage_init(byvalsenderassystem.object,byvaleassystem.eventargs)handlesmybase.init

'codegen:thismethodcallisrequiredbythewebformdesigner

'donotmodifyitusingthecodeeditor.

initializecomponent()

#endregion

dimconnassqlconnection=newsqlconnection("server=lixinri;uid=sa;pwd=;database=99re1")

publicsubpage_load(byvalsenderassystem.object,byvaleassystem.eventargs)handlesmybase.load

ifnotispostbackthen

dimtostu_idasstring=request.querystring("tostu_id")

dimsplitname()asstring

'///////////这里用了split函数将传过来的参数取出

splitname=split(tostu_id,"@")

iftostu_id=""then

'//////////////////当回复留言时

dimsqlasstring="selecta.*,b.nickfrominfoa,pwdbwherea.fromstu_id=b.stu_idanda.tostu_id='"&session("stu_id")&"'anda.term=1"

dimcommassqlcommand=newsqlcommand(sql,conn)

dimdrassqldatareader

conn.open()

dr=comm.executereader

whiledr.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

label11.visible=false

endwhile

dr.close()

comm.cancel()

'//////////////////////更新留言使留言属性为已阅读过

dimsql_1asstring="updateinfosetterm=0wheretostu_id='"&session("stu_id")&"'andterm=1andtim='"&label4.text&"'"

comm=newsqlcommand(sql_1,conn)

comm.executenonquery()

'////////////////////当发送留言时

'/////////////////读取参数

dimiasinteger

fori=0toubound(splitname)-1

dimmysqlasstring="selectnickfrompwdwherestu_id='"&splitname(i)&"'"

dimcommassqlcommand=newsqlcommand(mysql,conn)

ifi=0then

ifdr.readthen

textbox1.text=trim(dr.item("nick"))&";"

control()

textbox1.text=textbox1.text&trim(dr.item("nick"))&";"

'/////////////////control事件，没有什么实际意义，使代码简单罢了。

subcontrol()

textbox1.enabled=false:label3.text="":label4.text="":label5.visible=false

label8.visible=true:label6.visible=false:label7.visible=false:label9.visible=false

button3.visible=false:label11.visible=true

label11.text="<ahref=board.aspx><<<返回学友录</a>"

'/////////////////书写提交消息事件

publicsubbutton1_click(byvalsenderassystem.object,byvaleassystem.eventargs)handlesbutton1.click

'/////////////////////////当回复留言时

iftextbox2.text=""ortextbox2.text=""then

label10.visible=true

label10.text="消息不能为空！"

label10.visible=false

dimsqlasstring="insertintoinfo(fromstu_id,tostu_id,content,term,tim)values(@fromstu_id,@tostu_id,@content,@term,@tim)"

comm.parameters.add(newsqlparameter("@fromstu_id",sqldbtype.int,4))

comm.parameters("@fromstu_id").value=session("stu_id")

comm.parameters.add(newsqlparameter("@tostu_id",sqldbtype.int,4))

comm.parameters("@tostu_id").value=textbox3.text

comm.parameters.add(newsqlparameter("@content",sqldbtype.varchar,200))

comm.parameters("@content").value=textbox2.text

comm.parameters.add(newsqlparameter("@term",sqldbtype.int,4))

comm.parameters("@term").value="1"

comm.parameters.add(newsqlparameter("@tim",sqldbtype.char,20))

comm.parameters("@tim").value=date.now

'textbox2.text=""

'/////////////////////////当发送留言时

'////////////////插入i条数据

comm.parameters("@tostu_id").value=splitname(i)

response.write("<scriptlanguage=javascript>alert('发送成功！')</script>")

'////////////////////返回继续发送

privatesubbutton2_click(byvalsenderassystem.object,byvaleassystem.eventargs)handlesbutton2.click

response.redirect("boaman.aspx")

response.write("<scriptlanguage=javascript>window.close()</script>")

endclass