查人人中国名人网极品悬崖枸杞盆景图片:用asp.net不着vbsrcipt 做 留言本怎么做啊？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 06:02:14
或者谁有这类的代码给我发一份。
e-mail : lovewindbell@163.com
谢谢了！！！！
这是发送留言页.
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<script language=vb runat=server>
sub aa(sender as object , e as eventargs)
dim conn as new oledbconnection()
conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source =" & server.mappath("mydb.mdb")
conn.open()
dim sql1 as string
dim zhi as string
dim aa as string
aa=request("zhi")
zhi=replace(replace(aa,chr(13),"<br>"),chr(32)," ")
sql1 = "insert into chwu (name,age,zhi) values ('" & name.text & "' , '" & age.text & "','" & zhi & "')"
dim comf as new oledbcommand(sql1,conn)
comf.executenonquery()
conn.close()
response.write ("成功增加了")
response.redirect ("lyb.aspx")
end sub
</script>
<html>
<body>
<form runat=server>
<table width= 600 border=1 align=center>
<tr><td colspan=2 align=center>请您留言</td></tr>
<tr><td>你的名字</td><td><asp:textbox runat=server id="name" /><asp:requiredfieldvalidator controltovalidate="name" runat=server errormessage="名字不能为空" display=none/></td></tr>
<tr><Td>留言主题</td><td><asp:textbox runat=server id=age /><asp:requiredfieldvalidator controltovalidate="age" runat=server errormessage="主题不能空呢" /></td></tr>
<tr><td>留言内容</td><td><asp:textbox runat=server id=zhi textmode=multiline rows=7 columns=50/><asp:requiredfieldvalidator controltovalidate="zhi" runat=server errormessage="内容不能空呢" /></td></tr>
<asp:validationsummary runat=server showsummary=false showmessagebox=true headertext="错误警告" />
<Tr><td colspan=2 align=center><asp:button text=确定 onclick=aa runat=server /></td></tr>
</table>
</form>
</body>
</html>
这是显示留言页.
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<script language=vb runat=server>
sub aa(pageno as integer)
dim conn as string
conn = "provider=microsoft.jet.oledb.4.0;data source =" & server.mappath("mydb.mdb")
dim sql as string = "select * from chwu order by id desc"
dim com as new oledbdataadapter(sql,conn)
dim ds as new dataset()
com.fill(ds,"chwu")
dim mytable as datatable = ds.tables("chwu")
dim num as integer = mytable.rows.count
label2.text = num '这是留言总条数.
dim ye as integer
if tiao.selecteditem.value > num then
ye = 1
else
if num mod tiao.selecteditem.value = 0 then
ye = num / tiao.selecteditem.value
else
ye = num \ tiao.selecteditem.value + 1
end if
end if
label1.text = ye '计算要显示的页数.
dim temptable as datatable = mytable.clone()
dim m, n as integer
for m = (pageno - 1) * tiao.selecteditem.value to pageno * tiao.selecteditem.value - 1
if m > mytable.rows.count -1 then exit for
dim rows as datarow = temptable.newrow()
for n = 0 to mytable.columns.count - 1
rows(mytable.columns(n).tostring) = mytable.rows(m)(n)
next
temptable.rows.add(rows)
next
r1.datasource = temptable
r1.databind()
end sub
sub cc() '这是下拉换页菜单.
dorp.items.clear()
dim i as integer
for i = 0 to label1.text - 1
dorp.items.add("第" & i + 1 & "页")
next
end sub
sub show() '判断是否显示 首页.下一页.尾页.上一页
if dorp.selectedindex = 0 then
link1.visible=false
link2.visible=false
else
link1.visible=true
link2.visible=true
end if
if dorp.selectedindex = dorp.items.count - 1 then
link3.visible=false
link4.visible=false
else
link3.visible=true
link4.visible=true
end if
end sub
sub page_load(sender as object , e as eventargs)
if not page.ispostback then
aa(1)
cc()
show()
end if
end sub
sub bb(sender as object , e as eventargs) '当用户更改每页显示的留言数目时执行.
dorp.SelectedIndex = 0
aa(dorp.selectedindex + 1)
cc()
show()
end sub
sub gg(sender as object , e as eventargs) '当用户选择浏览其它页面时执行.
aa(dorp.selectedindex + 1)
show()
end sub
sub ly(sender as object , e as commandeventargs) '根据用户所点的按钮来显示哪一页.
select case e.commandname
case "首页"
dorp.selectedindex = 0
case "下一页"
dorp.selectedindex + = 1
case "尾页"
dorp.selectedindex = dorp.items.count - 1
case "上一页"
dorp.selectedindex - = 1
end select
aa(dorp.selectedindex + 1)
show()
end sub
</script>
<html>
<body>
<form runat=server>
共有<asp:label runat=server id=label1 />页.
<asp:label runat=server id=label2 />条留言.
现在显示第:
<asp:dropdownlist runat=server id=dorp autopostback=true onselectedindexchanged="gg" />
第页显示:
<asp:dropdownlist runat=server id=tiao autopostback=true onselectedindexchanged="bb">
<asp:listitem value=5 text=5 />
<asp:listitem value=10 text=10 />
<asp:listitem value=20 text=20 />
<asp:listitem value=50 text=50 />
<asp:listitem value=100 text=100 />
</asp:dropdownlist>
条.
<asp:linkbutton runat=server id=link1 commandname=首页 oncommand=ly text=首页 />
<asp:linkbutton runat=server id=link2 commandname=上一页 oncommand=ly text=上一页 />
<asp:linkbutton runat=server id=link3 commandname=尾页 oncommand=ly text=尾页 />
<asp:linkbutton runat=server id=link4 commandname=下一页 oncommand=ly text=下一页 />
<p><center><asp:hyperlink navigateurl="index.aspx" runat=server target=_blank text = 我要留言 /></center><p>
<asp:repeater id="r1" runat=server >
<headertemplate>
<table align=center style="border:2px blue solid" width=700 cellspacing=0>
</headertemplate>
<itemtemplate>
<tr>
<td>留言者:<%# container.dataitem("name") %></td>
<td>留言主题:<%# container.dataitem("age") %></td></tr><tr>
<td colspan=2>内容:<%# container.dataitem("zhi") %></td></tr>
</itemtemplate>
<alternatingitemtemplate>
<tr bgcolor=#889889>
<td>留言者:<%# container.dataitem("name") %></td>
<td>留言主题:<%# container.dataitem("age") %></td></tr><tr bgcolor=#889889>
<td colspan=2>内容:<%# container.dataitem("zhi") %></td></tr>
</alternatingitemtemplate>
<separatortemplate>
<tr><td colspan=3><hr color=blue></td></tr>
</separatortemplate>
<footertemplate>
</table>
</footertemplate>
</asp:repeater>
</form>
</body>
</html>