牙签学技术

一根牙签的业余爱好
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

[ASP.NET]留言－传值－跳转

Posted on 2008-07-25 14:54 『牙签』 阅读(16) 评论(0)  编辑 收藏 所属分类: ASP.NET 1.0
<%@ Import NameSpace="System.Data" %>

<%@ Import NameSpace="System.Data.oledb" %>

<%@ Import NameSpace="DatabaseNamespace" %>



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    public url as string

    sub page_load(o as object, e as eventargs)

        dim obj as new DatabaseDo

        obj.connstr=ConfigurationSettings.AppSettings("Connstr")

        dim ds as dataset

        dim sqlstr as string

        '====================

        '==  绑定数据类型  ==

        '====================

        sqlstr="select * from information where iid like '" & request.querystring("id") & "'"

        ds=obj.getdataset(sqlstr)

        

        if ds.tables(0).rows.count=0 then

            response.write("当前服务项目不存在")

        else

            sysdate.text=DS.TABLES(0).ROWS(0).ITEM("sysdate")

            title.text=DS.TABLES(0).ROWS(0).ITEM("iName") & "  #" & DS.TABLES(0).ROWS(0).ITEM("iId")

            s1.text=DS.TABLES(0).ROWS(0).ITEM("idesc")

        end if

        

        sqlstr=" select * from infor_pl where iid like '" & request.querystring("id") & "'"

        RepeatDataBind (sqlstr)



        url="showservice.aspx?id=" & request.querystring("id")

    end sub





    sub RepeatDataBind(sqlstr as string)

        dim myconn as OleDbConnection            

        dim ds as new dataset

        dim connstr as string

        connstr=ConfigurationSettings.AppSettings("Connstr")        



        myconn=new oleDbconnection(connstr)

        dim dbRead as oledbDataadapter

        dbread=new oledbdataadapter(sqlstr,myconn)

        

        dbread.fill(ds,"Product")

        dim objPage as new pagedDataSource

        objPage.Datasource=ds.tables("Product").defaultview

        objpage.allowpaging=true

        objpage.pagesize=15

    

        dim curPage as integer

        if request.queryString("page")<> "" then

            curPage=Convert.Toint32(request.queryString("Page"))

        else

            curPage=1

        end if

        objpage.currentpageindex=curpage-1

        

        messagesPage.text="第" + curPage.Tostring() + "页/" + " 共" + objpage.pageCount.tostring() + "页"



        if not objpage.isfirstpage then

            upLink.navigateUrl=request.CurrentExecutionfilepath+"?id=" & _

            request.querystring("id") & "&page=" + Convert.tostring(curpage-1)

        end if

        if not objpage.islastpage then

            downLink.navigateUrl=request.CurrentExecutionfilepath+"?id=" & _

            request.querystring("id") & "&page=" + Convert.tostring(curpage+1)

        end if

        pllist.datasource=objpage

        pllist.databind()

    end sub

</script>

<html>

<head><title>详细资料</title></head>

    <link href="default.css" rel="stylesheet" type="text/css" />

    

<body>

    <!-- #include file="top.aspx" -->

    <div id="wrapper">

        <div id="container">

            <!-- #include file="header.aspx" -->

            <div id="colcontainer">

                <div id="endpagecol1">

                    <h1><a href='default.aspx'>首页</a> > <a href='code.aspx?id=code&type=All'>服务</a> > 服务浏览页</h1>



                    <p class="dotted" align="center"><b><font style="font-size: 14px;"><asp:label id="title" runat="server" /></font></b><br />更新时间：<asp:label id="sysdate" runat="server" /></p>

                    <asp:label id="s1" runat="server" />

                    

                    <asp:repeater id="plList" runat="server">

                    <itemtemplate>

                    <p class="dotted"><b>网友评论[<%# DataBinder.Eval(Container.Dataitem,"itm") %>]:</b>(<%# DataBinder.Eval(Container.Dataitem,"sysdate") %>)<%# DataBinder.Eval(Container.Dataitem,"idesc") %></p>

                    </itemtemplate>

                    </asp:repeater>

                    <p class="dotted" align="center"> <asp:hyperLink id="Uplink" runat="server" font-size="9pt" >上一页</asp:hyperlink>

                    <asp:label id="messagesPage" runat="server" font-size="9pt" />

                    <asp:hyperLink id="downlink" runat="server" font-size="9pt" >下一页</asp:hyperlink>



                    </p>

                    <form action="succeed.aspx" method="post" name="feedback">

<p class="dotted" >



<input name="arcID" value=<%=request.querystring("id") %> type="hidden">

<input name="arcURL" value=<%=url %> type="hidden">

<b>新生活网友点评</b>：不能超过250字，请自觉遵守互联网相关政策法规。<br />

<textarea name="msg" cols="75" rows="4" id="msg" style="width:98%"></textarea><br />

<input type='button' value='发表评论' name='sb' onClick='javascript:if(document.feedback.msg.value!="") document.feedback.submit(); else alert("评论内容不能为空！");' style='width:60;height:20'></p>

</form>





                </div>

                <div id="col3">

                    <h1><a href="#" title="赞助商">新生活联盟推荐</a></h1>

                    <p></p>

                    <!-- #include file="common/tuijian.aspx" -->

                </div>

            </div>

        </div>

    </div>

    <!-- #include file="bottom.aspx" -->



</body>

</html>
技术改变生活，生活改变思想，思想改变技术。
Tag标签: ASP.NET

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

闪存

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
"五向定位"职业成长路线公开课(上海、南京、大连)
Google站内搜索


相关链接:

最新IT新闻:
Silverlight 2正式版SDK可以下载
Silverlight对Flash 微软打垮Adobe
IBM扩大研究规模 在上海成立研究院
eWeek评Google八大“20%项目”
微软终于发布Silverlight 2正式版