ASP网页设计用DataList控件开辟一个复杂的留言本程...
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.<%@ImportNamespace="System.Data"%><%@ImportNamespace="System.Data.ADO"%>
<Html>
<BodyBgColor="White">
<H3>DataList把持元件<HR></H3>
<divid=Messagerunat=server></div>
<Formrunat="server">
<tablecellspacing=0cellpadding=0width="776"border=0>
<tr>
<tdwidth="2%"><fontface=宋体color=#ffffcc><b>留言本</b></font></td>
</tr>
</table>
<asp:DataListid="DataList1"runat="server"
Border="1"BorderColor="Black"
CellPadding="2"CellSpacing="0"
HeaderStyle-BackColor="#888888"
ItemStyle-BackColor="#eeeeee"
SelectedItemStyle-BackColor="#ffffff"
HeaderTemplate-ColSpan="3"
OnItemCommand="DataList_ItemCommand"
Width="776">
<!--编号模版-->
<templatename="HeaderTemplate">
<asp:LinkButtonid="Tosay"runat="server"Text="我要讲话"ForeColor="#ffffff"/>
<ahref="temp.aspx"><fontcolor="#ffffff">革新界面</font></a>
<asp:LinkButtonid="Mange"runat="server"Text="办理留言"ForeColor="#ffffff"/>
</template>
<!--内容模版-->
<templatename="ItemTemplate">
<%#Container.DataItem("book_id")%>
<%#Container.DataItem("content")%>
<asp:LinkButtonid="Detail"runat="server"Text="检察具体内容"ForeColor="#333333"/>
</template>
<!--检察留言模版-->
<templatename="SelectedItemTemplate">
编号:<%#Container.DataItem("book_id")%><BR>
讲话人:<%#Container.DataItem("username")%><BR>
工夫:<%#Container.DataItem("post_time")%><BR>
内容:<%#Container.DataItem("content")%><BR>
<divalign="right"><asp:LinkButtonid="Title"runat="server"Text="封闭"ForeColor="#333333"/></div>
</template>
</asp:DataList>
<tableid="foot"cellspacing=0cellpadding=0width="776"border=0runat="server"visible="false">
<tr>
<tdbgcolor=#000000>
<tablecellspacing=1cellpadding=3width="100%"border=0>
<trbgcolor=#ffffff>
<td>台甫：<InputType="Text"id="Username"Size=20runat="server"/><br>
留言：<InputType="Text"id="Content"Size=20runat="server"/>
<asp:LinkButtonid="save"runat="server"Text="保留"AutoPostBack/><br>
<asp:LinkButtonid="close"runat="server"Text="封闭"/></td>
</tr>
</table>
</td>
</tr>
</table>
<tablecellspacing=0cellpadding=0width="776"border=0>
<tr>
<tdwidth="98%"bgcolor=#333333align="center"><fontface=宋体color=#ffffcc><b> 留言本</b></font></td>
<tdwidth="2%">
SubPage_Load(senderAsObject,eAsEventArgs)
DataList1.DataSource=CreateDataView("data.mdb","guestbook")
DataList1.DataBind()
EndSub
FunctionCreateDataView(DbAsString,TableAsString)AsDataView
DimProvider,ConnStr,SQLAsString
Provider="Microsoft.Jet.OLEDB.4.0;"
ConnStr="Provider="&Provider&_
"DataSource="&Server.MapPath(Db)
DimCmdAsADODataSetCommand
Cmd=NewADODataSetCommand("Select*from"&Table&"OrderBypost_timeDESC",ConnStr)
DimdsAsDataSet=newDataSet()
Cmd.FillDataSet(ds,Table)
CreateDataView=newDataView(ds.Tables(Table))
EndFunction
SubDataList_ItemCommand(senderAsObject,eAsDataListCommandEventArgs)
selectcasee.CommandSource.Text
case"我要讲话"
foot.Visible=true
case"办理留言"
case"检察具体内容"
DataList1.SelectedIndex=e.Item.ItemIndex检察留言模版被选中
case"封闭"
DataList1.SelectedIndex=-1
endselect
DataList1.DataSource=CreateDataView("data.mdb","guestbook")
DataList1.DataBind()
EndSub
SubLinkButton2_Click(senderAsObject,eAsEventArgs)
foot.Visible=false
EndSub
SubLinkButton1_Click(senderAsObject,eAsEventArgs)
DimConnStr,SQLAsString
SQL="InsertIntoGuestBook(userName,post_time,content)Values("&Username.Value&","&DateTime.Now&","&Content.Value&")"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&Server.MapPath("data.mdb")
DimCmdAsADOCommand=NewADOCommand(SQL,ConnStr)
Cmd.ActiveConnection.Open()
Cmd.Execute()
Message.InnerHtml="<B>留言乐成！</B>"
foot.Visible=false
Page.Navigate("temp.aspx")
EndSub
</script>
研讨了好长工夫，可最初那句Page.Navigate("temp.aspx")仍是达不到实时革新的效果：（，看精髓区有篇C#编的是在PAGE_LOAD事务内里吸收REQUEST.FORM工具后INSERT当即更新DATESET,不晓得我这个怎样弄好...ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。
页:
[1]