|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。 |
|