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的话，微软把很多工具都封装好了，学起来可能容易一点。 主流网站开发语言之PHP:PHP的全名非常有趣，它是一个巢状的缩写名称——“PHP:HypertextPreprocessor”，打开缩写还是缩写。PHP是一种HTML内嵌式的语言(就像上面讲的ASP那样)。而PHP独特的语法混合了C，Java，Perl以及PHP式的新语法。它可以比CGI或者Perl更快速地执行动态网页。 平台无关性是PHP的最大优点，但是在优点的背后，还是有一些小小的缺点的。如果在PHP中不使用ODBC，而用其自带的数据库函数（这样的效率要比使用ODBC高）来连接数据库的话，使用不同的数据库，PHP的函数名不能统一。这样，使得程序的移植变得有些麻烦。不过，作为目前应用最为广泛的一种后台语言，PHP的优点还是异常明显的。 由于JSP/Servlet都是基于Java的，所以它们也有Java语言的最大优点——平台无关性，也就是所谓的“一次编写，随处运行（WORA–WriteOnce,RunAnywhere）”。除了这个优点，JSP/Servlet的效率以及安全性也是相当惊人的。 同时也感谢博客园给我们这个平台，也感谢博客园的编辑们做成专题引来这么多高人指点。 asp.net最主要特性包括：◆编程代码更简洁◆网站可实现的功能更强大◆运行效率高◆节省服务器的动作资源 可以看作是VC和Java的混合体吧，尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性。 在asp.net虚拟主机的服务提供商中，目前首推的是CNNIC的其中一家域名注册机构---时代互联(www.now.net.cn),他们早在2001年微软刚推出Asp.net时就推出了对应的Asp.net虚拟主机了,经笔者的使用测试，他提供的Asp.net性能非常的稳定，版本也会定期的更新，目前他的 碰到复杂点的问题都不知道能不能解决，现在有点实力的公司都选择自已在开源的基础上做开发。但没听说过有人在IIS上做改进的,windows、sqlserver集群方面的应用也很少见。 asp.net最主要特性包括：◆编程代码更简洁◆网站可实现的功能更强大◆运行效率高◆节省服务器的动作资源 同时也感谢博客园给我们这个平台，也感谢博客园的编辑们做成专题引来这么多高人指点。
页:
[1]