📄 special.aspx

📁 很好的新闻更新系统
💻 ASPX
字号:
<%@ Page Language="VB"ContentType="text/html" Debug="true"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@ Register TagPrefix="mynews" TagName="search" src="ascx/search.ascx"%>
<%@ Register TagPrefix="mynews" TagName="ads2" src="ascx/ad.ascx"%>
<%@ Register TagPrefix="mynews" TagName="end" src="ascx/end.ascx"%>
<html>
<head>
<title>新闻列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style type="text/css">
body {COLOR: #000000; FONT-SIZE: 14px}
td {COLOR: #000000; FONT-SIZE: 14px}
.a { color: #9A1B1B}
a:hover { color: #9A1B1B}
a:link {color: #9A1B1B; text-decoration:none}
a:visited { color: #9A1B1B; text-decoration:none}


..cnav { color: #9A1B1B}
a.cnav:hover { color: #9A1B1B}
a.cnav:link {color: #9A1B1B; text-decoration:none}
a.cnav:visited { color: #9A1B1B; text-decoration:none}

..location { color: #0000}
a.location:hover { color: #000000}
a.location:link {color: #000000; text-decoration:none}
a.location:visited { color: #000000; text-decoration:none}

..tomg { color: black; font-size:15px}
a.tomg:hover { color: #FF0000}
a.tomg:link {color: black; text-decoration:none}
a.tomg:visited { color: black; text-decoration:none}
</style>
<body>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><mynews:top runat="server"/></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                  <td width="249" background="pic/bj_0.gif">::<%=bigclass%>::</td>   
              </tr>
              <tr>
                <td valign="top"><form runat="server"><asp:datagrid ID="newslist" AutoGenerateColumns="false" PageSize="20" PagerStyle-HorizontalAlign="right"
		   PagerStyle-Mode="NumericPages" Width="100%" ShowHeader="false" AllowPaging="true" DataKeyField="NewsID" OnPageIndexChanged="ChangePage" runat="server">
		   <columns>
		   <asp:hyperlinkcolumn DataTextField="Title" DataNavigateUrlField="NewsID"
		   DataNavigateUrlFormatString="newshow.aspx?newsid={0}"/>
		   </columns></asp:datagrid></form></td>
              </tr>
            </table></td>
          <td width="35%" valign="top" align="center"><mynews:search runat="server"/>
		  <mynews:ads2 runat="server"/></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td><mynews:end runat="server"/></td>
  </tr>
</table>
</body>
</html>
<script language="VB" runat="server">
Dim sql,bigclass as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand

function getdatareader(sql as string) as OleDbDataReader
   myCmd=new OleDbCommand(sql,myConn)
   myConn.open()
   getdatareader=myCmd.ExecuteReader()
end function

function getdataview(sql as string,strTable as string) as DataView
   Dim myDataAdapter as OleDbDataAdapter
   Dim myDataSet As DataSet
   myConn.open()
   myDataAdapter=new OleDbDataAdapter(sql,myConn)
   myConn.close()
   myDataSet=new DataSet()
   myDataAdapter.Fill(myDataSet,strTable)
   getdataview=new DataView(myDataSet.Tables(strTable))
end function

Sub Page_Load(sender As Object, e As EventArgs)
        Dim strConn As String
        strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"	    	
	   	myConn = New OledbConnection(strConn)
	   Dim classid as integer
	   Dim namesql as string
	   select case Page.request("fangshi") 
	       case "fenlei"
		      classid=Page.request("bigclassid")
			  namesql="select BigClassName from BigClass where BigClassID="&classid
			  sql="select NewsID,Title from News where BigClassID="& classid &" order by UpdateTime DESC"
		   case "zhuanti"
		      classid=Page.request("specialid")
			  namesql="select SpecialName from Special where SpecialID="&classid
			  sql="select NewsID,Title from News where SpecialID="& classid &" order by UpdateTime DESC"
	   end select	   
	   Dim Reader as OleDbDataReader=getdatareader(namesql)
	   while Reader.read()
	      bigclass=Reader.Item(0)
	   end while
	   myConn.close()
	if not page.ispostback then
	   newslist.DataSource=getdataview(sql,"news")
	   newslist.DataBind()
	end if
end sub
sub changepage(Sender as Object,e as DataGridPageChangedEventArgs)
   newslist.CurrentPageIndex=e.NewPageIndex
   newslist.DataSource=getdataview(sql,"news")
   newslist.DataBind()
end sub
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -