addnews1.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 96 行

ASPX
96 行
字号 
<%@Page language="VB" Debug="True"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>
<html>
<head>
<title>网站新闻信息添加页面</title>
<style type="text/css">
<!--
table {  font-size: 9pt}
body {  font-size: 9pt}
-->
</style>
<Script Language="VB" runat="server">
 Sub submit_Click(sender As Object,e As EventArgs)
   '当单击提交按钮之后执行下面的代码
   Dim MyConnection As SqlConnection
   Dim MyCommand As SqlCommand
   Dim ConnStr As String
   Dim now As DateTime= DateTime.Now
   '链接SQL Server数据库
   MyConnection =New SqlConnection("Initial Catalog=mydb;Data Source=(local)\NetSDK;Integrated Security=SSPI;")
   MyConnection.Open()
   Dim neirong2 As String
   neirong2=server.htmlencode(neirong.Text)
   neirong2=replace(neirong2,vbCrLf,"<br>")
   neirong2=replace(neirong2," ","&nbsp;&nbsp;")
   If biaoti.Text="" or neirong2=""  Then
    Label1.Text="标题或内容不能为空！"
   else if len(biaoti.Text)>=100 then
    Label1.Text="你的标题太长了！"
   else if len(img.Text)>=100 then
    Label1.Text="你的图片路径太长了！"
   else
    '将新记录插入到数据库中
    ConnStr="insert into news(biaoti,zhaizi,neirong,shijian,img,counter) VALUES('"+biaoti.Text+"', '"+zhaizi.Text+"', '"+neirong2+"', '"+now.ToString()+"', '"+img.Text+"',0)"
    MyCommand=New SqlCommand(ConnStr,MyConnection)
    MyCommand.ExecuteNonQuery()
    Label1.Text="增加成功！"
   End If
   biaoti.Text=""
   zhaizi.Text=""
   neirong.Text=""
   img.Text=""
 End Sub
 Sub reset_Click(sender As Object,e As EventArgs)
   '当单击取消按钮之后执行下面代码
   biaoti.Text=""
   zhaizi.Text=""
   neirong.Text=""
   img.Text=""
 End Sub
</Script>
</head>
<body >
<table width="550" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#666666" bordercolordark="#FFFFFF"> 
 <form runat=server> 
  <tr bgcolor="#CCCCCC">
   <td colspan="2">网站新闻信息添加页面</td>
  </tr>
  <tr>
   <td colspan="2">&nbsp;</td>
  </tr> 
  <tr>
   <td width="78">标题：</td>
   <td width="416"> <asp:TextBox  id="biaoti" size="50" runat="server"/> 
   </td>
  </tr>
  <tr>
   <td width="78">摘自：</td>
   <td width="416"> <asp:TextBox id="zhaizi" size="30" runat="server"/> </td>
  </tr>
  <tr>
   <td width="78">图片：</td>
   <td width="416"><asp:TextBox id="img" size="30" runat="server"/></td>
  </tr> 
  <tr>
   <td width="78">内容：</td>
   <td width="416"> <asp:TextBox id="neirong" Columns="60" Rows="15" TextMode="MultiLine" runat="server"></asp:TextBox></td>
  </tr>
  <tr> 
   <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
   <td colspan="2"> 
   <div align="center"> 
    <asp:Button  id="submit"  onClick=submit_Click runat="server" Text="提交"></asp:Button>
    <asp:Button  id="reset" onClick=reset_Click runat="server" Text="取消"></asp:Button>
   </div>
   </td>
  </tr>
 </form>
</table>
<p align="center"><asp:Label id="Label1"  runat="server"/>
</body>
</html>

addnews1.aspx - 源码说明

本页面展示了「《精通ASP.NET网络编程》附带实例」中的 addnews1.aspx 源码文件，采用 ASPX 编程语言编写，共 96 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?