仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 795|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页设计用DataList控件开辟一个复杂的留言本程...

[复制链接]
山那边是海 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:29:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
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易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。
兰色精灵 该用户已被删除
沙发
发表于 2015-1-19 14:45:55 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
若天明 该用户已被删除
板凳
发表于 2015-2-4 23:41:05 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
admin 该用户已被删除
地板
发表于 2015-2-10 23:24:12 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
小魔女 该用户已被删除
5#
发表于 2015-3-1 17:24:33 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
透明 该用户已被删除
6#
发表于 2015-3-10 21:25:41 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
乐观 该用户已被删除
7#
发表于 2015-3-17 11:09:20 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
活着的死人 该用户已被删除
8#
发表于 2015-3-24 08:18:29 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 04:26

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表