皮皮网

1.免费网页源代码网站(简单的简单网站源代码)
2.怎样查看网页源代码
3.哪里有免费的网址导航源代码，网站导航代码 网址导航模板下载
4.100分求一个用VB.net做的网单简单网页的代码，谢谢！址源！码简！网址

免费网页源代码网站(简单的网站源代码)

       哪里有免费的网址导航源代码，网站导航代码网址导航模板下载

       网址导航站很多，简单可是网单真正具有代表性的主要有hao,万能导航网，，址源百度导航等

       具体的码简是：

       我也做了一个导航网站，主要是网址参考“万能导航网”来制作的

       因为万能导航网是纯手工制作的导航网页

       下载下来只需要改个头和尾就行了

       求具有以下简单搜索功能的网页源代码

       这里看看吧，目前可以免费提供使用。源码QQ：

       主页：

       懒汉搜索引擎简介

       "懒汉搜索"，简单是网单一款专门为全国行业网站、门户网站、址源电子商务网站定做的专业搜索引擎。它通过对网站数据库的数据建立索引，查询时不访问数据库，能有效减轻数据库和系统的压力，目前可以支持万级的数据，毫秒级的查询时间，每秒人的并发访问，从而实现大容量、高速的目标；可以适应linux和window平台，支持多种数据库接口，具备较强的兼容性；它具备通用搜索引擎的构架和功能，可以对用户的apex源码开源输入进行分词，可以进行多关键字搜索、关键词组合搜索、句子搜索，大大提高了用户操作的友好度；同时能够根据客户的需求进行用户的数据挖掘，提高网站系统的价值。

       1.符合现代网民对搜索的惯性和依赖

       据权威机构调查表明，.5％的网名使用过搜索引擎，.3％的网民经常使用搜索引擎。在信息爆发时代的今天，一级一级往下展开的栏目分类检索已经让网民失去了耐心，他们已经习惯使用搜索引擎来找他们感兴趣的东西，同时对搜索引擎的功能要求也越来越高。

       这样用户进入一个网站之后，如果不能让用户方便的查找到他所需要的信息，他们也找不到熟悉的搜索输入框，他们会感到很陌生和意外，可能马上会离开，您的网站可能提供了很好的内容，但用户不习惯也没耐心去挖掘。

       "懒汉搜索"根据客户的搜索，按照一个主题把所有相关文档提供给访问者，可以让访问者更全面的了解他所想要的东西，这增加了网站信息间的组织性和逻辑性，方便了访问者的使用，提升用户体验度。

       2.多关键字组合、源码开通系统句子查询，达到毫秒级的速度

       为了迎合大多数网民对搜索功能的惯性和依赖性，很多网站只好提供通过SQL语句查询数据库来实现一些简单的模糊匹配，但是这种"搜索"功能通常只能匹配一个关键字，匹配的数据库字段也非常有限。"懒汉搜索"不仅仅具备通用搜索引擎的构架和功能，同时可以对用户的输入进行分词，用户可以随便地输入一个或多个关键词，甚至输入一句话，大大提高了用户操作的友好度。同时"懒汉搜索"在数据容量、查询速度、功能性、适用性、兼容性等方面也具有很高的专业水平。

       3.查询不访问数据库，降到数据库负担，减轻系统压力

       当用户直接查询数据库，不但查询速度慢，而且会导致数据库的压力增大，当数据库记录超过一定数量时，频繁地查询数据库，会导致数据库的负载直线上升，从而波及其它功能的使用，尤其是同时有很多用户访问的时候，对数据库和系统会产生较大的顶级娱乐源码压力，严重时会导致信息塞车，甚至会导致系统崩溃。

       "懒汉搜索"是一套真正的搜索引擎，它通过对数据库的数据进行索引，在查询时不访问数据库，可以实现毫秒级的检索速度和每秒上百次的并发访问，用户搜索对数据库的压力为零。

       4.完善的统计功能，掌握用户需求，抓住市场动向

       "懒汉搜索"还具备完善的统计功能，其日志功能能记录检索词和结果，可以统计一段时间内关键字的访问频度，列出前个热门关键字。让客户能较好能够把握其用户的需求，抓住市场动向，在当今信息万变的时代把握用户心理变化，创造最大的财富。

       5.按关键字投放广告，实现网站盈利

       广告是目前互联网盈利的最重要也是最直接的途径，网络广告也有着很好的发展前景。据Jupiter调研公司发布的一项研究报告指出，美国网络广告开支年将达到亿美元，占到广告开支总额的9%，而付费搜索将是主要动力，互联网搜索广告年已经超过了显示广告，搜索广告的网站源码事例大幅增长是由于新客户和广告商争夺广告位，这提高了价格。而且，随着搜索广告商的成熟，他们开始采用更多关键词，但盲目的投放广告，也可能会导致用户的反感，怎么办？只投放用户感兴趣的广告！"懒汉搜索"可以根据用户输入的关键字，自动匹配广告，让你的广告有的放矢，做到真正的分众！

       6.迅速提高自己的技术门槛

       有没有专业网站检索其实已经不只是用户体验度的问题了，还是一个网站专业身份的象征，也是网站所属公司形象的体现。浏览国外公司的网站，会发现几乎所有网站都在首页最明显的区域放置了一个搜索框，这传达的信息是：专业的网站都有专业网站检索。网民的心态是：我不能很快找到我需要的信息，甚至找不到我所需要的信息，那这个网站在我的心里根本就没有体验度和口碑了，你要是没有就说明你不够专业。所以为了树立形象，也需要用到专业网站检索。

       同时另外一点最大的好处就是，具有一套为您打造的专业网站搜索引擎，您的网站就不会被同类网站轻松模仿，这是因为一般的模仿者是不会有实力开发或购买一套专业的搜索引擎系统的。这样自己作为先驱者积累出来的用户、技术、资金上面的优势能够体现出来，让您在互联网上能够抓住更多客户的心。

       7.原理概述

       "懒汉搜索"引擎通过嵌入到企业网站中，具有较好的移植性，可通过远程的安装调试，使系统正常并良好的运行。不会影响企业原有的网站运行，原有网站基本上也不需要改动。

       "懒汉搜索"引擎不需要中转数据库，站内数据库的数据加载自动完成，同时在后期具备实时性的主动更新方式，可以设置更新时间少于分钟。同时维护非常简单，安装完之后，所有操作（包括数据初始化、动态更新等）会自动完成，每天都会生成统计报表，不需要人工干预，整个过程简单，方便。

       ma网络电视,

       代码一：

       script

       varw='';//宽度

       varh='';//高度

       vars='yes';//是否显示滚动条，yes显示，no不显示

       document.write('iframewidth='+w+'height='+h+'src=""frameborder=0border=0marginwidth=0marginheight=0scrolling='+s+'/iframe');

       /script

       代码二(单独频道调用,如江苏卫视):

       iframesrc=""height=""width=""frameborder="0"marginwidth="0"marginheight="0"scrolling="no"/iframe

       单独频道调用pid获取地址：

       如嫌麻烦，也可直接使用下面这个调用电视代码，可以设置网络电视的宽度（）和高度（）：

       iframeid=TVname=TVframeborder=0scrolling=nosrc=width=height=/iframe

       工具/原材料

       IE8浏览器、电脑。

       1、打开电脑在桌面上找到并点击IE8浏览器，IE7浏览器的操作也是类似步骤；

       2、点击进入浏览器主页以后，选择并点击你要查看网页源代码的网站，这里以新华网为例；

       3、点击进入新华网以后，在任意的空白部位点击鼠标右键，在下拉选项中选择“查看源”；

       4、点击选择查看源以后，在最右边的标记的红色框中就是网页的源代码。

怎样查看网页源代码

       要查看网页源代码，有两种简单的方法可供选择：

       首先，如果你使用的是IE浏览器，可以在地址栏输入特定的命令。只需键入"view-source:网址"，例如"view-source:"。这会直接显示出新浪网首页的源代码，而非实际加载的页面。这种方法尤其适合对HTML有一定了解的用户，它可以帮助你检查网站的安全性，识别是否存在恶意代码。在访问陌生网站之前，先通过查看源代码来确认其安全性是明智的做法。

       其次，更为直观的方式是使用鼠标操作。在网页上，只需右键点击，然后选择"查看源文件"或"查看网页源代码"，这将直接显示页面的原始HTML和CSS代码，方便你快速检查其结构和内容。

       通过这两种方法，你可以轻松地检查网页的原始信息，确保在线浏览的安全和隐私。在进行任何交互或分享之前，了解网页的源代码是现代网络用户必备的技能之一。

哪里有免费的网址导航源代码，网站导航代码 网址导航模板下载

       网址导航站很多，可是真正具有代表性的主要有hao,万能导航网，，百度导航等

       具体的是：

       /

       /

       /

       我也做了一个导航网站，主要是参考“万能导航网”来制作的

       因为万能导航网是纯手工制作的导航网页

       下载下来只需要改个头和尾就行了

分求一个用VB.net做的简单网页的代码，谢谢！！！

       用vb.net做的校友录……（附所有源代码）

       来源：不详 作者 佚名 点击数： 录入时间：-- ::

       想必大家都上过校友录吧，里面的功能虽然不是很强大，但是为我们这些毕业之后各奔西东的学子来说，到真是提供了一个好的聚集点，下面是我用vb.net做的校友录，当然也不能说是校友录了，只能说是我们班的学友录了：）不过只要你掌握了这种编程思想，校友录就不在话下了。这里我将重点谈一下关于管理员权限赋予。

       以前有这个想法的时候，难就难在管理员身份的赋予上，开始想如果一般用户在被提升为管理员之后，我可以把他的信息转到另外一个表中，以后登陆的时候先检查manage表中是否有他就行了，这种办法我已经实现了，是不是有些笨……可是正在我要正式开工的时候，一个想法突然冒了出来，是什么呢？呵呵，就是在数据库中再增加一个字段了如果是第一次注册就让这个字段item(int)的值为0，要是被提升之后就update为1，班级创始人呢？当然了，在他申请时付给他一个班级id，然后先判断班级id为这个已经注册的人信息条数是否为0，如果是，那么就付给他item=2好了。下面的代码中，我没有实现这个功能，因为我做的是班友录的，当然了，我就是管理员喽：）

       在这里，我使用的是checkboxlist(两个)，一个用来转换数据（visibe=fause），一个用来显示数据，还有一个checkbox用来写全部选中的事件。当然了还有两个按钮事件，一个是用来提升为管理员的，一个是用来降级为一般用户的，这两个按钮在判断为一般用户时

       enable都是为fause的，只有当判断登录为管理员时才为true。当然了，如果你是班级创始人，是不可能被降级的：）

       这里用来显示信息的我用的是一个datagrid，当判断为非管理员时，删除栏的visible将为fause，为管理员的时候，才为true，也就是说只有管理员才可以删除信息。而不是注册的用户是不能发言的所有的按钮控件的enable将都为fause。

       代码如下：board.aspx

       <%@ Page Language="vb" AutoEventWireup="false" Codebehind="boaman.aspx.vb" Inherits="_re1.boaman"%>

       <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

       <HTML>

        <HEAD>

        <title></title>

        <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">

        <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">

        <meta content="javascript" name="vs_defaultClientScript">

        <meta content="/intellisense/ie5" name="vs_targetSchema">

        </HEAD>

        <body background="image/bg.gif" MS_POSITIONING="GridLayout">

        <form id="Form1" method="post" runat="server">

        <asp:checkbox id="yourcheck" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="全部选中" AutoPostBack="True" ForeColor="SaddleBrown" Font-Bold="True"></asp:checkbox>

        <asp:button id="Button1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="提升为管理员" Height="px" Width="px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"></asp:button>

        <asp:button id="Button2" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="降级为一般用户" Height="px" Width="px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"></asp:button>

        <asp:checkboxlist id="CheckBoxList1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Visible="False"></asp:checkboxlist>

        <asp:checkboxlist id="mycheck" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" ForeColor="Navy" Font-Size="X-Small"></asp:checkboxlist>

        <asp:label id="Label1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" ForeColor="Red" Font-Names="方正姚体">（已注册用户）</asp:label>

        <asp:image id="Image1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Height="px" Width="px" ImageUrl="image/re1-1.gif"></asp:image>

        <asp:datagrid id="DataGrid1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Height="px" Width="px" BorderColor="#ffcc" AutoGenerateColumns="False" HeaderStyle-Font-Size="9" HeaderStyle-HorizontalAlign="Center" HeaderStyle-ForeColor="red" HeaderStyle-Font-Bold="True">

        <Columns>

        <asp:HyperLinkColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Height="" ItemStyle-Font-Size="9" DataNavigateUrlField="stu_id" DataNavigateUrlFormatString="querry.aspx?stu_id={ 0}" DataTextField="stu_id" HeaderText="学号"></asp:HyperLinkColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="tel" HeaderText="电话"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="oicq" HeaderText="OICQ"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="email" HeaderText="E-mail"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="point" HeaderText="登录次数"></asp:BoundColumn>

        </Columns>

        </asp:datagrid>

        </form>

        </body>

       </HTML>

       下面是codebehind中的内容：boaman.asp.vb

       Imports System.Data

       Imports System.Data.SqlClient

       Public Class boaman

        Inherits System.Web.UI.Page

        Protected WithEvents yourcheck As System.Web.UI.WebControls.CheckBox

        Protected WithEvents Button1 As System.Web.UI.WebControls.Button

        Protected WithEvents CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList

        Protected WithEvents mycheck As System.Web.UI.WebControls.CheckBoxList

        Protected WithEvents Label1 As System.Web.UI.WebControls.Label

        Protected WithEvents Image1 As System.Web.UI.WebControls.Image

        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

        Protected WithEvents Button2 As System.Web.UI.WebControls.Button

       #Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.

        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

        'CODEGEN: This method call is required by the Web Form Designer

        'Do not modify it using the code editor.

        InitializeComponent()

        End Sub

       #End Region

        Dim conn As SqlConnection = New SqlConnection("server=lixinri;uid=sa;pwd=;database=re1")

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '////////////////////判断是否为过客

        If Session("stu_id") = "" Then

        Button1.Enabled = False : Button2.Enabled = False

        '////////////////////调用check()事件

        check()

        Else

        If Not IsPostBack Then

        Dim sql As String = "select * from pwd where stu_id=@stu_id"

        Dim comm As SqlCommand = New SqlCommand(sql, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = Session("stu_id")

        Dim dr As SqlDataReader

        conn.Open()

        dr = comm.ExecuteReader

        While dr.Read

        If dr.Item("term") = "0" Then

        '///////////////////判断是否为一般用户

        dr.Close()

        Button1.Enabled = False : Button2.Enabled = False

        Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim cmd As New SqlCommand(sql_1, conn)

        dr = cmd.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        Else

        '////////////////////判断是否为管理员

        dr.Close()

        Button1.Enabled = True : Button2.Enabled = True

        Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim cmd As New SqlCommand(sql_1, conn)

        dr = cmd.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        End If

        End While

        dr.Close()

        '////////////////////////取出数据，填充dataset

        Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        comm = New SqlCommand(mysql, conn)

        Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

        Dim ds As DataSet = New DataSet()

        mycomm.Fill(ds, "base")

        DataGrid1.DataSource = ds.Tables("base").DefaultView

        DataGrid1.DataBind()

        End If

        End If

        End Sub

        '///////////////////////书写check()事件

        Sub check()

        If Not IsPostBack Then

        Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim comm As New SqlCommand(mysql, conn)

        Dim dr As SqlDataReader

        conn.Open()

        dr = comm.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        dr.Close()

        Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

        Dim ds As DataSet = New DataSet()

        mycomm.Fill(ds, "base")

        DataGrid1.DataSource = ds.Tables("base").DefaultView

        DataGrid1.DataBind()

        End If

        End Sub

        '/////////////////////填充yourcheck

        Private Sub yourcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yourcheck.CheckedChanged

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If yourcheck.Checked Then

        mycheck.Items(i).Selected = True

        Else

        mycheck.Items(i).Selected = False

        End If

        Next

        End Sub

        '///////////////////////提升一般用户为管理员

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        conn.Open()

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If mycheck.Items(i).Selected Then

        Dim sql_1 As String = "update pwd set term=1 where stu_id=@stu_id and term=0"

        Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

        comm.ExecuteNonQuery()

        End If

        Next

        Response.Redirect("boaman.aspx")

        End Sub

        '///////////////////////降级管理员为一般用户

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        conn.Open()

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If mycheck.Items(i).Selected Then

        Dim sql_1 As String = "update pwd set term=0 where stu_id=@stu_id and term=1"

        Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

        comm.ExecuteNonQuery()

        End If

        Next

        Response.Redirect("boaman.aspx")

        End Sub

       End Class

       当然了，这里面还有好多不足的地方，恳求高手批评指正。

       校友录还有一些其它的功能就很简单了，这里就不再探讨了。