|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;<%@PageLanguage="VB"%>
<%@ImportNamespace="System.Data"%>
<%@ImportNamespace="System.Data.ADO"%>
<scriptlanguage="VB"runat="server">
Subsubbtn_OnClick(SenderAsObject,EAsEventArgs)
DimconnobjAsADOConnection
DimdtsCmdobjAsADODataSetCommand
DimdtSobjAsDataSet
Dimstr_sqlAsString
dimconn_strAsString
str_sql="select*fromtable_name"
conn_str="DBQ="&Server.MapPath("database.mdb")&_
";Driver={MicrosoftAccessDriver(*.mdb)};"
connobj=NewADOConnection(conn_str)
dtsCmdobj=NewADODataSetCommand(str_sql,connobj)
dtSobj=NewDataSet()
dtsCmdob.FillDataSet(dtsobj,"table_name")
dtgrid.DataSource=dtsobj.Tables("table_name").DefaultView
dtgrid.DataBind()
EndSub
</script>
<html>
<body>
<formaction="db.aspx"method="post"runat="server">
<asp:Buttontype="submit"id="subbtn"text="RunQuery"runat="server"/>
</form>
<asp:DataGridid="dtgrid"HeaderStyle-Font-Bold="True"ToolTip="dataGridprovidedwithasp+"runat="server"maintainviewstate="false"/>
</body>
</html>
ASP脚本是采用明文(plaintext)方式来编写的。 |
|