📄 list.aspx
字号:
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<html>
<script language="vb" runat="server">
public ds as dataset=new dataset()
public shared str1 as string
sub page_load(obj as object,e as eventargs)
if session("pass")<>"ok" then
response.redirect("login.aspx")
end if
str1="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("lt.mdb")
dim str2 as string="select a_id,mem,rq from news where to_id="+request("id")
dim ad as oledbdataadapter
ad=new oledbdataadapter(str2,str1)
ad.fill(ds,"news")
re1.datasource=ds.tables("news")
re1.databind()
l1.text="发言者共 "+ds.tables("news").rows.count.tostring()+" 人"
end sub
sub b1_c(obj as object, e as eventargs)
dim str2 as string
dim ad as oledbdataadapter
str2="select * from news"
ad=new oledbdataadapter(str2,str1)
ds.clear()
ad.fill(ds,"news")
dim r1 as datarow=ds.tables("news").newrow()
r1.item("to_id")=trim(request("id"))
r1.item("mem")=replace(trim(text1.text),chr(13),"<br>")
r1.item("rq")=now()
r1.item("a_id")=session("name")
ds.tables("news").rows.add(r1)
dim dcb as new oledbcommandbuilder(ad)
ad.update(ds,"news")
'将数据集更新
re1.databind()
l1.text="发言者共 "+ds.tables("news").rows.count.tostring()+" 人"
end sub
</script>
<body>
<form runat="server">
<asp:panel id="p1" runat="server" horizontalalign="center">
<asp:label id="l1" runat="server" backcolor="#99ccff" width="500" />
<asp:repeater id="re1" runat="server">
<itemtemplate>
<asp:table runat="server" borderwidth="1" borderstyle="1" cellpadding="1" horizontalalign="center" width="500" gridlines="both">
<asp:tablerow runat="server" backcolor="silver">
<asp:tablecell runat="server">
会员<%# container.dataitem("a_id")%>说：
</asp:tablecell>
</asp:tablerow>
<asp:tablerow runat="server">
<asp:tablecell runat="server" >
<%# container.dataitem("mem")%>
</asp:tablecell>
</asp:tablerow>
<asp:tablerow runat="server">
<asp:tablecell runat="server" horizontalalign="right">
<%# container.dataitem("rq")%>
</asp:tablecell>
</asp:tablerow>
</asp:table>
</itemtemplate>
<separatortemplate><hr width="500"></separatortemplate>
</asp:repeater>
<asp:table runat="server" borderwidth="1" borderstyle="1" cellpadding="1" horizontalalign="center" width="500" gridlines="both">
<asp:tablerow runat="server" backcolor="blue" >
<asp:tablecell runat="server" horizontalalign="center">
<font color="yellow">我要发言</font>
</asp:tablecell>
</asp:tablerow>
<asp:tablerow runat="server" backcolor="">
<asp:tablecell runat="server" horizontalalign="center">
<asp:textbox id="text1" runat="server" textmode="multiline" rows="6" columns="60"/><br>
<asp:button id="b1" runat="server" onclick="b1_c" text="确定"/>
</asp:tablecell>
</asp:tablerow>
</asp:table>
</asp:panel>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -