兰色精灵 发表于 2015-1-16 22:31:11

ASP.NET编程:使用.net来发送立即动静:)

计算机发展到这个时候,很多技术日益成熟,想学好一种技术都是不容易的,当你学会用的时候你对它的很多原理可能很不了解)用了我一下战书的工夫终究写完并收拾好了使用.net来发送立即动静的质料(固然了,另有上午的数据库计划:)
数据库计划:info表:idfromstu_idtostu_idcontentterm
个中id是主键,fromstu_id是发送信息的用户的学号(这是和我做的学友录连在一同的),tostu_id是承受信息的用户的学号,content是动静的内容,term是判别是不是为新动静。
上面的代码家在校友录中的ifnotispostback中
/////////////////////判别是不是有新留言,将主动弹出页面
这里还要将页面的革新工夫设置一下,以即可以轮回的读失信息。
DimmysqlAsString="select*frominfowheretostu_id=@myidandterm=1"
DimcommAsSqlCommand=NewSqlCommand(mysql,conn)
comm.Parameters.Add(NewSqlParameter("@myid",SqlDbType.Int,4))
comm.Parameters("@myid").Value=Session("stu_id")
DimdrAsSqlDataReader
conn.Open()
dr=comm.ExecuteReader
Ifdr.ReadThen
Response.Write("<scriptlanguage=JavaScript>window.open(info.aspx,,height=330,width=560,status=no,location=no,toolbar=no,directories=no,menubar=no)</script>")
EndIf
dr.Close()
comm.Cancel()

上面的代码是用来发送立即动静的页面,个中内里分了两个部分,一个是用往返复的,一个是用来专门发送的,两个的页面稍有区分,细心看一下就会分明的:)

上面是一切的代码:codebehind部分
PublicSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
IfNotIsPostBackThen
Dimtostu_idAsString=Request.QueryString("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
EndWhile
dr.Close()
comm.Cancel()
//////////////////////更新留言使留言属性为已浏览过
Dimsql_1AsString="updateinfosetterm=0wheretostu_id="&Session("stu_id")&"andterm=1andtim="&Label4.Text&""
comm=NewSqlCommand(sql_1,conn)
comm.ExecuteNonQuery()
Else
////////////////////当发送留言时
DimmysqlAsString="selectnickfrompwdwherestu_id="&tostu_id&""
DimcommAsSqlCommand=NewSqlCommand(mysql,conn)
DimdrAsSqlDataReader
conn.Open()
dr=comm.ExecuteReader
Whiledr.Read
TextBox1.Text=dr.item("nick")
EndWhile
TextBox1.Enabled=False
Label3.Text=""
Label4.Text=""
Label5.Visible=False
Label8.Visible=True
Label6.Visible=False
Label7.Visible=False
Label9.Visible=False
dr.close()
EndIf
EndIf
EndSub

/////////////////誊写提交动静事务
PublicSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimtostu_idAsString=Request.QueryString("tostu_id")
Iftostu_id=""Then
/////////////////////////当复兴留言时
conn.Open()
DimsqlAsString="insertintoinfo(fromstu_id,tostu_id,content,term,tim)values(@fromstu_id,@tostu_id,@content,@term,@tim)"
DimcommAsSqlCommand=NewSqlCommand(sql,conn)
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
comm.ExecuteNonQuery()
TextBox2.Text=""
Else
/////////////////////////当发送留言时
conn.Open()
DimsqlAsString="insertintoinfo(fromstu_id,tostu_id,content,term,tim)values(@fromstu_id,@tostu_id,@content,@term,@tim)"
DimcommAsSqlCommand=NewSqlCommand(sql,conn)
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=tostu_id

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
comm.ExecuteNonQuery()
TextBox2.Text=""
EndIf
Response.Write("<scriptlanguage=javascript>alert(发送乐成!)</script>")
EndSub

////////////////////前往持续发送
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Response.Redirect("boaman.aspx")
EndSub
EndClass


页脸部分:
<%@PageLanguage="vb"AutoEventWireup="false"Codebehind="info.aspx.vb"Inherits="_99re1.info"%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">
<HTML>
<HEAD>
<title></title>
<metacontent="MicrosoftVisualStudio.NET7.0"name="GENERATOR">
<metacontent="VisualBasic7.0"name="CODE_LANGUAGE">
<metacontent="JavaScript"name="vs_defaultClientScript">
<metacontent="http://schemas.microsoft.com/intellisense/ie5"name="vs_targetSchema">
</HEAD>
<bodybackground="image/bg.gif"MS_POSITIONING="GridLayout">
<formid="Form1"method="post"runat="server">
<FONTface="宋体">
<asp:imageid="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:textboxid="TextBox1"style="Z-INDEX:101;LEFT:73px;POSITION:absolute;TOP:123px"runat="server"BorderColor="Navy"BorderWidth="1px"></asp:textbox>
<asp:labelid="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:labelid="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:textboxid="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:buttonid="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:buttonid="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:labelid="Label3"style="Z-INDEX:107;LEFT:75px;POSITION:absolute;TOP:10px"runat="server"Width="135px"Height="6px"Font-Size="Small">Label</asp:label>
<asp:labelid="Label4"style="Z-INDEX:108;LEFT:300px;POSITION:absolute;TOP:9px"runat="server"Width="219px"Height="13px"Font-Size="Small">Label</asp:label>
<asp:labelid="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:labelid="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:TextBoxid="TextBox3"style="Z-INDEX:112;LEFT:247px;POSITION:absolute;TOP:122px"runat="server"Visible="False"></asp:TextBox>
<asp:Labelid="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:Labelid="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:Labelid="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供应思绪!
伴侣平生一同走,多一个伴侣就多一分劳绩!J2EE比较成熟一点,一些比较出名的企业应用软件都是基于J2EE的。以后的发展就不好说了。不过java比较烦,学.net的话,微软把很多工具都封装好了,学起来可能容易一点。

老尸 发表于 2015-1-17 14:52:23

主流网站开发语言之PHP:PHP的全名非常有趣,它是一个巢状的缩写名称——“PHP:HypertextPreprocessor”,打开缩写还是缩写。PHP是一种HTML内嵌式的语言(就像上面讲的ASP那样)。而PHP独特的语法混合了C,Java,Perl以及PHP式的新语法。它可以比CGI或者Perl更快速地执行动态网页。

乐观 发表于 2015-1-20 19:47:02

平台无关性是PHP的最大优点,但是在优点的背后,还是有一些小小的缺点的。如果在PHP中不使用ODBC,而用其自带的数据库函数(这样的效率要比使用ODBC高)来连接数据库的话,使用不同的数据库,PHP的函数名不能统一。这样,使得程序的移植变得有些麻烦。不过,作为目前应用最为广泛的一种后台语言,PHP的优点还是异常明显的。

admin 发表于 2015-1-29 18:00:09

由于JSP/Servlet都是基于Java的,所以它们也有Java语言的最大优点——平台无关性,也就是所谓的“一次编写,随处运行(WORA–WriteOnce,RunAnywhere)”。除了这个优点,JSP/Servlet的效率以及安全性也是相当惊人的。

精灵巫婆 发表于 2015-2-6 03:09:39

同时也感谢博客园给我们这个平台,也感谢博客园的编辑们做成专题引来这么多高人指点。

愤怒的大鸟 发表于 2015-2-15 07:38:02

asp.net最主要特性包括:◆编程代码更简洁◆网站可实现的功能更强大◆运行效率高◆节省服务器的动作资源

再现理想 发表于 2015-3-4 11:23:19

可以看作是VC和Java的混合体吧,尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性。

不帅 发表于 2015-3-4 11:23:19

在asp.net虚拟主机的服务提供商中,目前首推的是CNNIC的其中一家域名注册机构---时代互联(www.now.net.cn),他们早在2001年微软刚推出Asp.net时就推出了对应的Asp.net虚拟主机了,经笔者的使用测试,他提供的Asp.net性能非常的稳定,版本也会定期的更新,目前他的

小妖女 发表于 2015-3-11 18:50:21

碰到复杂点的问题都不知道能不能解决,现在有点实力的公司都选择自已在开源的基础上做开发。但没听说过有人在IIS上做改进的,windows、sqlserver集群方面的应用也很少见。

莫相离 发表于 2015-3-19 07:52:54

asp.net最主要特性包括:◆编程代码更简洁◆网站可实现的功能更强大◆运行效率高◆节省服务器的动作资源

飘灵儿 发表于 2015-3-27 15:10:46

同时也感谢博客园给我们这个平台,也感谢博客园的编辑们做成专题引来这么多高人指点。
页: [1]
查看完整版本: ASP.NET编程:使用.net来发送立即动静:)