📄 newsgroup.aspx
字号:
<%@ Import Namespace="System.Globalization" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<Script Language="VB" Runat="Server">
'读取数据库数据，并连接数据源到 DataGrid 控件
Sub BindList()
Dim ConnString As String = ("workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
"curity info=False;initial catalog=vodweb")
dim str as string
str="Select 编号, 作者, 邮件帐号, 主题, 图标, 时间 From 讨论区 Order By 时间 Desc"
Dim objCmd As New SqlDataAdapter(str, ConnString)
Dim DS As New DataSet()
objCmd.Fill(DS, "讨论区")
Dim DV As New DataView(DS.Tables("讨论区"))
DV.Sort = SortField.Value
myNewsGroup.DataSource = DV
myNewsGroup.DataBind()
End Sub
Sub Page_Init(sender As Object, e As Eventargs)
BindList()
End Sub
'用来换页
Sub myNewsGroup_PageIndexChanged(sender As Object, e As DataGridPageChangedEventArgs)
myNewsGroup.CurrentPageIndex = e.NewPageIndex
BindList()
End Sub
'用来获取排序字段及方法
Sub myNewsGroup_OnSortCommand(sender As Object, e As DataGridSortCommandEventArgs)
If InStr(SortField.Value, "Desc") = 0 Then
SortField.Value = e.SortExpression & " Desc"
Else
SortField.Value = e.SortExpression & " Asc"
End If
BindList()
End Sub
'用来添加讨论主题
Sub AddRecord(sender As Object, e As EventArgs)
Dim objConn As New SqlConnection()
objConn.ConnectionString = ("workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
"curity info=False;initial catalog=vodweb")
Dim strSQL As String
objConn.Open()
strSQL = "Insert Into 讨论区(作者, 邮件帐号, 主题, 内容, 图标, 时间)" & _
" Values ('" & UserName.Text & "', '" & Email.Text & _
"', '" & Subject.Text & "', '" & Content.Text & _
"', '" & ImgList.SelectedItem.Value & "', '" & _
FormatDateTime(System.DateTime.Now, DateFormat.ShortDate) & " " & _
FormatDateTime(System.DateTime.Now, DateFormat.ShortTime) & "')"
Dim objCmd As New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
BindList()
End Sub
</Script>
<Html>
<Body>
<Center><Img Src="image/title1.jpg"></Center>
<Form Runat="Server" ID="Form1">
<Asp:DataGrid Runat="Server" Id="myNewsGroup" AutoGenerateColumns="False"
AllowPaging="True" PageSize="5" AllowSorting="True" Width="600"
CellPadding="3" HorizontalAlign="Center" GridLines="None"
OnPageIndexChanged="myNewsGroup_PageIndexChanged"
OnSortCommand="myNewsGroup_OnSortCommand">
<ItemStyle BackColor="#FFFFCC" HorizontalAlign="Center" />
<AlternatingItemStyle BackColor="#CCFFCC" />
<HeaderStyle ForeColor="#FFFFCC" BackColor="#990000"
HorizontalAlign="Center" />
<PagerStyle HorizontalAlign="Center" BackColor="#990000"
ForeColor="#FFFFCC" Mode="NumericPages" />
<Columns>
<Asp:TemplateColumn ItemStyle-Width="60px">
<ItemTemplate>
<Img Src="<%# Container.DataItem("图标") %>">
</ItemTemplate>
</Asp:TemplateColumn>
<Asp:HyperLinkColumn HeaderText="作者" DataTextField="作者"
SortExpression="作者" DataNavigateUrlField="邮件帐号"
DataNavigateUrlFormatString="mailto:{0}" ItemStyle-Width="60px" />
<Asp:HyperLinkColumn HeaderText="主题" DataTextField="主题"
SortExpression="主题" DataNavigateUrlField="编号"
DataNavigateUrlFormatString="ShowNews.aspx?Id={0}"
ItemStyle-Width="400px" />
<Asp:BoundColumn HeaderText="时间" DataField="时间" SortExpression="时间"
DataFormatString="{0:d}" ItemStyle-Width="80px" />
</Columns>
</Asp:DataGrid>
<Input Type="Hidden" Runat="Server" Id="SortField" Value="时间 Desc" NAME="SortField">
<Table Border="0" Width="600" Align="Center" Cellspacing="0" CellPadding="3">
<Tr BgColor="#0084CA" Align="Center">
<Td Colspan="2">
<Font Color="#FFFFFF">请在此输入新主题</Font>
</Td>
</Tr>
<Tr BgColor="#D9F2FF">
<Td Width="80">作 者：</Td>
<Td Width="520"><Asp:TextBox Runat="Server" Id="UserName" /></Td>
</Tr>
<Tr BgColor="#D9F2FF">
<Td Width="80">邮件帐号：</Td>
<Td Width="520">
<Asp:TextBox Runat="Server" Id="Email" Columns="40" />
</Td>
</Tr>
<Tr BgColor="#D9F2FF">
<Td Width="80">选择图标：</Td>
<Td Width="520">
<Asp:RadioButtonList Runat="Server" Id="ImgList" RepeatColumns="7"
RepeatDirection="Horizontal" RepeatLayout="Flow">
<Asp:ListItem Text="<Img Src='image/img-1.gif'" Value="image/img-1.gif"
Selected="True" />
<Asp:ListItem Text="<Img Src='image/img-2.gif'" Value="image/img-2.gif" />
<Asp:ListItem Text="<Img Src='image/img-3.gif'" Value="image/img-3.gif" />
<Asp:ListItem Text="<Img Src='image/img-4.gif'" Value="image/img-4.gif" />
<Asp:ListItem Text="<Img Src='image/img-5.gif'" Value="image/img-5.gif" />
<Asp:ListItem Text="<Img Src='image/img-6.gif'" Value="image/img-6.gif" />
</Asp:RadioButtonList>
</Td>
</Tr>
<Tr BgColor="#D9F2FF">
<Td Width="80">主 题：</Td>
<Td Width="520">
<Asp:TextBox Runat="Server" Id="Subject" Columns="40" />
</Td>
</Tr>
<Tr BgColor="#D9F2FF">
<Td Width="80">内 容：</Td>
<Td Width="520">
<Asp:TextBox Runat="Server" Id="Content" TextMode="Multiline"
Rows="4" Columns="42" />
</Td>
</Tr>
<Tr>
<Td Colspan="2" Height="40" Align="Center">
<Asp:LinkButton Runat="Server" Text="张贴留言" OnClick="AddRecord" ID="Linkbutton1" NAME="Linkbutton1"/>
</Td>
</Tr>
</Table>
</Form>
</Body>
</Html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -