<script Language="VB" runat="server">
Sub UpLoadFile(ByVal Sender As Object, ByVal e As EventArgs)
'如果上傳的長度爲0，表示沒有上傳成功
If FileUp.PostedFile.ContentLength = 0 Then
Response.Write("文件上傳失敗！")
Exit Sub
End If
'儲存上傳的文件
Dim FileSplit() As String = Split(FileUp.PostedFile.FileName, "/")
Dim FileName As String = FileSplit(FileSplit.Length - 1)
Dim filext As String = LCase(Right(FileName, 4))
If filext = ".asp" Or filext = ".aspx" Or filext = ".ascx" Or filext = ".exe" Then
Response.Write("文件格式不對！")
Else
Dim ranNum As Integer = Int(90000 * Rnd()) + 10000
FileName = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & CStr(ranNum) & filext
step2.Visible = "False"
Response.Write("<div style='text-align:center;'><br>文件上傳成功！請把以下代碼插入到新聞的適當位置：[upimg]" & FileName & "[/upimg]")
Response.Write("<br><br><a href='upfile.aspx'>繼續</a></div>")
FileUp.PostedFile.SaveAs(Server.MapPath(".") & "/upload/" & FileName)
End If
End Sub
</script>
_____________<html>
<head>
<title>上傳文件</title>
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<asp:panel ID="step2" runat="server">
<Form Enctype="multipart/form-data" runat="server">
<table width="97%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
請輸入文件路徑：
<input name="File" type="File" id="FileUp" runat="server">（注：文件格式爲：*.jpg,*.gif,*.bmp。）
<asp:Button id="Upload" class="buttonface" OnClick="UpLoadFile" Text="上傳" runat="server"/>
</td>
</tr>
</table>
</form>
</asp:panel>
</body>
_____________</html>
<%@Page Language="VB" debug="true"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%@Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql, email, content As String
Dim newsid As Integer
Dim myConn As OleDbConnection
Dim myCmd As OleDbCommand
'獲取數據子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'特殊字符替換子程序
Function changecode(ByVal str As String)
If Len(str) > 0 Then
str = Replace(str, Chr(32), " ")
str = Replace(str, Chr(9), " ")
str = Replace(str, Chr(34), """)
str = Replace(str, Chr(39), "'")
str = Replace(str, Chr(13), "")
str = Replace(str, Chr(10) & Chr(10), "</P><P>")
str = Replace(str, Chr(10), "<BR> ")
Return str
End If
End Function
'初始化新聞評價信息子程序
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
If Not Page.IsPostBack Then
newsid = Page.Request("reviewid")
sql = "select ReViewTitle,Content,Author,Email from ReView where ReviewID=" & newsid
Dim Reader As OleDbDataReader = getdatareader(sql)
While Reader.Read()
title.Text = Reader.Item(0)
content = changecode(Reader.Item(1))
author.Text = Reader.Item(2)
email = Reader.Item(3)
End While
myConn.Close()
End If
End Sub
</script>
_____________<html>
<head>
<title>新聞評論</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:top runat="server" ID="top1" />
<br />
<table width="76%" align="center" cellpadding="0" cellspacing="6">
<tr>
<td align="center">
<asp:label ID="title" runat="server"/>
</td>
</tr>
<tr>
<td align="right" height="30">
作者：<a href="mailto:<%=email%>">
<asp:label ID="author" runat="server"/></a>
</td>
</tr>
<tr>
<td><%=content%></td>
</tr>
</table>
<br />
<mynews:footer runat="server" ID="end1" />
</body>
_____________</html>
<%@Page Language="VB" %>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%@Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@Register TagPrefix="mynews" TagName="special" src="ascx/newslist.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
Function getdataview(ByVal sql As String, ByVal 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(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
Dim gjc As String
gjc = Page.Request("keyword")
sql = "select NewsID,Title,UpdateTime from News where Title like '%" & gjc & "%' or Content like '%" & gjc & "%' order by NewsID desc"
keyword.Text = gjc
Dim result As DataView = getdataview(sql, "newssearch")
searchresult.DataSource = result
searchresult.DataBind()
End Sub
</script>
_____________<html>
<head>
<title>新聞搜索結果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link href="style.css" type="text/css" rel="Stylesheet" />
<body>
<mynews:top runat="server" ID="top1" />
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<tr>
<td width="478px" valign="top">
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<tr>
<td bgcolor="#6699FF">
您的關鍵詞是：<font color="#FF6600"><b><asp:label ID="keyword" runat="server"/></b></font>
</td>
</tr>
<asp:repeater ID="searchresult" runat="server">
<itemtemplate>
<tr>
<td>
<a href="newshow.aspx?newsid=<%# container.DataItem("NewsID")%>" target="_blank"><%# container.DataItem("Title")%></a>（<%# container.DataItem("UpdateTime")%>）
</td>
</tr>
</itemtemplate>
</asp:repeater>
</td>
</tr>
</table>
</td>
<td width="300px" valign="top">
<mynews:special ID="Special1" runat="server"/>
</td>
</tr>
</table>
<mynews:footer runat="server" ID="end1" />
</body>
_____________</html>
<%@Page Language="VB" debug="true"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%@Import Namespace="System.IO"%>
<%@Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql,bianhao as string
Dim myConn as OleDbConnection
Dim myCmd As OleDbCommand
'查詢數據
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'查詢數據
Function getdataview(ByVal sql As String, ByVal 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
'綁定數據控件
Function bindgrid()
sql = "select * from News order by NewsID desc"
news.DataSource = getdataview(sql, "special")
news.DataBind()
End Function
'刪除新聞中包含的圖片子程序
Function deleteimg(ByVal str As String)
Dim result() As String
result = Split(str, "[/upimg]")
Dim i As Integer
i = 0
While i < (result.Length - 1)
Dim weizhi As Integer
weizhi = Len(result(i)) - InStr(result(i), "[upimg]") - 6
result(i) = Right(result(i), weizhi)
File.Delete(Server.MapPath(".") & "/upload/" & result(i))
i = i + 1
End While
End Function
'執行字符串查詢子程序
Function executesql(ByVal sql As String)
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
End Function
'初始判斷用戶是否能夠管理
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
If Session("user") = "administrator" Then
If Not Page.IsPostBack Then
bindgrid()
End If
Else
Response.Redirect("login.aspx")
End If
End Sub
'翻頁子程序
Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
news.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
'刪除子程序
Sub news_delete(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
Dim neirong As String
bianhao = news.DataKeys(e.Item.ItemIndex)
sql = "select Content from News where NewsID=" & CInt(bianhao)
Dim Reader As OleDbDataReader = getdatareader(sql)
While Reader.Read()
neirong = Reader.Item(0)
End While
myConn.Close()
deleteimg(neirong)
sql = "Delete from News where NewsID=" & CInt(bianhao)
executesql(sql)
MsgBox("你確定要刪除這條新聞嗎！", 0, "提示")
bindgrid()
End Sub
</script>
_____________<html>
<head>
<title>新聞管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<mynews:main ID="Main1" runat="server"/>
<table width="778" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<form id="Form1" runat="server">
<asp:datagrid ID="news" AllowPaging="true" PageSize="10"
AutoGenerateColumns="false" DataKeyField="NewsID" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#6699FF" HeaderStyle-HorizontalAlign="Center"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#6699FF" OnPageIndexChanged="ChangePage"
OnDeleteCommand="news_delete" Width="90%" runat="server">
<columns>
<asp:boundcolumn DataField="NewsID" ReadOnly="true" HeaderText="編號"/>
<asp:HyperLinkColumn DataTextField="Title" DataNavigateUrlField="NewsID"
DataNavigateUrlFormatString="newshow.aspx?newsid={0}" Target ="_new" HeaderText="新聞標題"/>
<asp:HyperLinkColumn HeaderText="是否修改" Text ="修改"
DataNavigateUrlField="NewsID" DataNavigateUrlFormatString="newsedit.aspx?newsid={0}"/>
<asp:buttoncolumn CommandName="Delete" Text="刪除" HeaderText="是否刪除"/>
</columns>
</asp:datagrid>
</form>
</td>
</tr>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
_____________</html>
<%@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="review" src="ascx/review.ascx"%>
<%@Register TagPrefix="mynews" TagName="newslist" src="ascx/newslist.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql, newstitle, part1, part2 As String
Dim newsno As Integer
Dim myconn As OleDbConnection
Dim myCmd, newscmd As OleDbCommand
'獲取數據子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myconn)
myconn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'替換特殊字符子程序
Function changecode(ByVal str As String)
If Len(str) > 0 Then
str = Replace(str, Chr(32), " ")
str = Replace(str, Chr(9), " ")
str = Replace(str, Chr(34), """)
str = Replace(str, Chr(39), "'")
str = Replace(str, Chr(13), "")
str = Replace(str, Chr(10) & Chr(10), "</P><P>")
str = Replace(str, Chr(10), "<BR> ")
str = Replace(str, "[img]", "<img src='")
str = Replace(str, "[/img]", "'>")
str = Replace(str, "[b]", "<b>")
str = Replace(str, "[/b]", "</b>")
str = Replace(str, "[em]", "<em>")
str = Replace(str, "[/em]", "</em>")
str = Replace(str, "[u]", "<u>")
str = Replace(str, "[/u]", "</u>")
str = Replace(str, "[center]", "<center>")
str = Replace(str, "[/center]", "</center>")
str = Replace(str, "[mail]", "<a href='mailto:")
str = Replace(str, "[url]", "<a href='")
str = Replace(str, "[|mail]", "'>")
str = Replace(str, "[|url]", "'>")
str = Replace(str, "[/hyper]", "</a>")
str = Replace(str, "[upimg]", "<img src=upload/")
str = Replace(str, "[/upimg]", ">")
part1 = Left(str, InStr(str, ">"))
part2 = Right(str, (Len(str) - InStr(str, ">")))
str = part1 + part2
Return str
End If
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("./")&"DB_51aspx/news.mdb"
myConn = New OledbConnection(strConn)
if not page.ispostback then
newsno=Page.request("newsid")
sql="select Title,Author,UpdateTime,Original,Content from News where NewsID="&newsno
dim reader as OleDbDataReader=getdatareader(sql)
while reader.read()
session("newstitle")=reader.Item(0)
title.text=reader.Item(0)
author.text=reader.Item(1)
updatetime.text=reader.Item(2)
content.text=changecode(reader.Item(4))
original.text=reader.Item(3)
End while
myConn.close()
end if
End Sub
</script>
_____________<html>
<head>
<title>新聞：<%=session("newstitle")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:top runat="server" ID="top1" />
<form id="Form1" runat="server">
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<tr>
<td width="70%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<font color="#009900"><b><asp:label ID="title" runat="server"/></b></font>
</td>
</tr>
<tr>
<td align="center" height="32px">
作者：<asp:label ID="author" runat="server"/>
更新時間：<asp:label ID="updatetime" runat="server"/>
</td>
</tr>
<tr>
<td>
<asp:label ID="content" runat="server"/>
</td>
</tr>
<tr>
<td align="right" height="36px">
源自：<asp:label ID="original" runat="server"/>
</td>
</tr>
<tr>
<td>
<mynews:review runat="server"/>
</td>
</tr>
</table>
</td>
<td align="center" valign="top" nowrap>
<mynews:newslist runat="server"/>
</td>
</tr>
</table>
</form>
<mynews:footer runat="server" ID="end1" />
</body>
_____________</html>
<%@Page Language="VB" Debug="true"%>
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<%@Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql As String
Dim bianhao As Integer
Dim title, author, from, content As String
Dim classid, specialid As Integer
Dim myconn As OleDbConnection
Dim myCmd, newscmd As OleDbCommand
Dim dtCmd As OleDbDataAdapter
Dim dtSet As DataSet
Dim dv As DataView
'獲取數據子程序
Function getdatareader(ByVal str As String) As OleDbDataReader
myCmd = New OleDbCommand(str, myconn)
myconn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'執行字符串子程序
Function executesql(ByVal sql As String)
myCmd = New OleDbCommand(sql, myconn)
myconn.Open()
myCmd.ExecuteNonQuery()
myconn.Close()
End Function
'執行修改操作子程序
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Session("user") = "administrator" Then
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myconn = New OleDbConnection(strConn)
If Not Page.IsPostBack Then
step1.Visible = "true"
'顯示新聞內容
bianhao = Page.Request("newsid")
sql = "select Title,Author,Original,Content,ClassesID from News where NewsID=" & bianhao
Dim Reader As OleDbDataReader = getdatareader(sql)
While Reader.Read()
title = Reader.Item(0)
author = Reader.Item(1)
from = Reader.Item(2)
content = Reader.Item(3)
classid = Reader.Item(4)
End While
myconn.Close()
End If
If Page.Request("action") = "edit" Then
title = Page.Request("title")
author = Page.Request("author")
from = Page.Request("from")
content = Page.Request("content")
classid = Page.Request("Classes")
sql = "update News set Title='" & title & "',Author='" & author & "',Original='" & from & "',Content='" & content & "',UpdateTime='" & DateTime.Now() & "',ClassesID=" & classid & " where NewsID=" & bianhao
executesql(sql)
message.Text = "<center>新聞更新成功!</center><br><center><a href='newsmanager.aspx'>繼續</a></center>"
step1.Visible = "false"
End If
Else
Response.Redirect("login.aspx")
End If
End Sub
</script>
_____________<html>
<head>
<title>新聞修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
<script language="JavaScript">
var text_enter_url= "請輸入連接網址";
var error_no_url= "您必須輸入網址";
var text_enter_email= "請輸入郵件地址";
var error_no_email= "您必須輸入郵件網址";
//字符處理函數
function fontchuli()
{
document.news.content.focus();
var re = document.selection.createRange();
if (document.news.content.createTextRange)
{
re.text = fontbegin + re.text + fontend;
}else{
document.news.content.value= fontbegin+document.news.content.value+fontend;
}
}
//定義加粗文字函數
function cbold()
{
fontbegin="[b]";
fontend="[/b]";
fontchuli();
}
//定義斜體文字函數
function italic()
{
fontbegin="[em]";
fontend="[/em]";
fontchuli();
}
//定義居中顯示函數
function middle()
{
fontbegin="[center]";
fontend="[/center]";
fontchuli();
}
//定義下劃線函數
function underline()
{
fontbegin="[u]";
fontend="[/u]";
fontchuli();
}
//添加Email函數
function email()
{
var emailAddress = prompt(text_enter_email,"");
if (!emailAddress)
{
alert(error_no_email); return;
}
fontbegin="[mail]"+emailAddress+"[|mail]";
fontend="[/hyper]";
fontchuli();
}
//添加網址函數
function chttp()
{
var FoundErrors = '';
var enterURL = prompt(text_enter_url, "http://");
if (!enterURL)
{
FoundErrors += "/n" + error_no_url;
}
if (FoundErrors)
{
alert("錯誤！"+FoundErrors);
return;
}
fontbegin= "[url]"+enterURL+"[|url]";
fontend="[/hyper]";
fontchuli();
}
//添加圖像函數
function img()
{
var FoundErrors = '';
var enterURL = prompt(text_enter_url, "http://");
if (!enterURL)
{
FoundErrors += "/n" + error_no_url;
}
if (FoundErrors)
{
alert("錯誤！"+FoundErrors);
return;
}
fontbegin= "[img]"+enterURL;
fontend="[/img]";
fontchuli();
}
</script>
</head>
<body>
<mynews:main ID="Main1" runat="server"/>
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<asp:panel ID="step1" runat="server">
<tr>
<td>
<form name="news" method="post" action="newsedit.aspx?action=edit&newsid=<%=Page.request("newsid")%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="88%" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td width="8%">題目：</td>
<td><input name="title" type="text" id="title" size="50" maxlength="50" value="<%=title%>">
</td>
</tr>
<tr>
<td>作者：</td>
<td><input type="text" name="author" value="<%=author%>"></td>
</tr>
<tr>
<td>出處：</td>
<td><input type="text" name="from" value="<%=from%>"></td>
</tr>
<tr>
<td>分類：</td>
<td>
<select name="Classes">
<%
sql = "select * from Classes"
Dim Reader As OleDbDataReader = getdatareader(sql)
While Reader.Read()
If Reader.Item(0) = classid Then
%>
<option value="<%=Reader.Item(0)%>" selected><%=Reader.Item(1)%></option>
<%else%>
<option value="<%=Reader.Item(0)%>"><%=Reader.Item(1)%></option>
<%
End If
End While
myconn.Close()
%>
</select>
</td>
</tr>
<tr>
<td valign="top">內容：</td>
<td>
<input type="button" name="Submit3" value="粗體" onClick="cbold()">
<input type="button" name="Submit4" value="斜體" onClick="italic()">
<input type="button" name="Submit5" value="下劃線" onClick="underline()">
<input type="button" name="Submit6" value="居中" onClick="middle()">
<input type="button" name="Submit7" value="Email" onClick="email()">
<input type="button" name="Submit8" value="Http" onClick="chttp()">
<input type="button" name="Submit9" value="Img" onClick="img()">
<textarea name="content" cols="86" rows="30"><%=content%></textarea>
</td>
</tr>
</table></td>
</tr>
<tr>
<td align="center">
<input type="submit" name="Submit" value="修 改">
<input type="reset" name="Submit2" value="取 消">
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td align="center">
<iframe name="upload" frameborder=0 width=97% height=50 scrolling=no src="upfile.aspx"></iframe>
</td>
</tr>
</asp:panel>
<tr>
<td align="center"><asp:label ID="message" runat="server"/></td>
</tr>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
_____________</html>
<%@Page Language="VB" Debug="true"%>
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<%@Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
'該源碼下載自www.51aspx.com(５１ａｓｐｘ．ｃｏｍ)
Dim sql As String
Dim myconn As OleDbConnection
Dim myCmd As OleDbCommand
'查詢數據
Function getdatareader(ByVal str As String) As OleDbDataReader
myCmd = New OleDbCommand(str, myconn)
myconn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'字符串執行子程序
Function executesql(ByVal sql As String)
myCmd = New OleDbCommand(sql, myconn)
myconn.Open()
myCmd.ExecuteNonQuery()
myconn.Close()
End Function
'欣慰添加子程序
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myconn = New OleDbConnection(strConn)
If Session("user") = "administrator" Then
step1.Visible = "true"
If Page.Request("action") = "add" Then
Dim title, author, from, content As String
Dim classid As Integer
title = Page.Request("title")
author = Page.Request("author")
from = Page.Request("from")
content = Page.Request("content")
classid = Page.Request("Classes")
sql = "insert into News(Title,Author,Original,Content,UpdateTime,ClassesID) values('" & title & "','" & author & "','" & from & "','" & content & "','" & DateTime.Now() & "','" & classid & "')"
executesql(sql)
MsgBox("新聞添加成功！", 0, "提示")
End If
Else
Response.Redirect("login.aspx")
End If
End Sub
</script>
_____________<html>
<head>
<title>添加新聞</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
<script language="JavaScript">
var text_enter_url= "請輸入連接網址";
var error_no_url= "您必須輸入網址";
var text_enter_email= "請輸入郵件地址";
var error_no_email= "您必須輸入郵件網址";
//文字處理函數
function fontchuli()
{
document.news.content.focus();
var re = document.selection.createRange();
if (document.news.content.createTextRange)
{
re.text = fontbegin + re.text + fontend;
}else{
document.news.content.value= fontbegin+document.news.content.value+fontend;
}
}
//定義加粗文字函數
function cbold()
{
fontbegin="[b]";
fontend="[/b]";
fontchuli();
}
//定義斜體文字函數
function italic()
{
fontbegin="[em]";
fontend="[/em]";
fontchuli();
}
//定義居中顯示函數
function middle()
{
fontbegin="[center]";
fontend="[/center]";
fontchuli();
}
//定義下劃線函數
function underline()
{
fontbegin="[u]";
fontend="[/u]";
fontchuli();
}
//添加Email函數
function email()
{
var emailAddress = prompt(text_enter_email,"");
if (!emailAddress) {
alert(error_no_email); return;
}
fontbegin="[mail]"+emailAddress+"[|mail]";
fontend="[/hyper]";
fontchuli();
}
//添加網址函數
function chttp()
{
var FoundErrors = '';
var enterURL = prompt(text_enter_url, "http://");
if (!enterURL)
{
FoundErrors += "/n" + error_no_url;
}
if (FoundErrors)
{
alert("錯誤！"+FoundErrors);
return;
}
fontbegin= "[url]"+enterURL+"[|url]";
fontend="[/hyper]";
fontchuli();
}
//添加圖像函數
function img()
{
var FoundErrors = '';
var enterURL = prompt(text_enter_url, "http://");
if (!enterURL)
{
FoundErrors += "/n" + error_no_url;
}
if (FoundErrors)
{
alert("錯誤！"+FoundErrors);
return;
}
fontbegin= "[img]"+enterURL;
fontend="[/img]";
fontchuli();
}
</script>
</head>
<body>
<mynews:main ID="Main1" runat="server"/>
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<asp:panel ID="step1" runat="server">
<tr>
<td>
<form name="news" method="post" action="newsadd.aspx?action=add">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="76%" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td width="8%">題目：</td>
<td>
<input name="title" type="text" id="title" size="50" maxlength="50">
</td>
</tr>
<tr>
<td>作者：</td>
<td>
<input type="text" name="author">
</td>
</tr>
<tr>
<td>出處：</td>
<td><input type="text" name="from"></td>
</tr>
<tr>
<td>分類：</td>
<td>
<select name="Classes">
<%
sql = "select * from Classes"
Dim Reader As OleDbDataReader = getdatareader(sql)
While Reader.Read()
%>
<option value="<%=Reader.Item(0)%>"><%=Reader.Item(1)%></option>
<%
End While
myconn.Close()
%>
</td>
</tr>
<tr>
<td valign="top">內容：</td>
<td>
<input type="button" name="Submit3" value="粗體" onClick="cbold()">
<input type="button" name="Submit4" value="斜體" onClick="italic()">
<input type="button" name="Submit5" value="下劃線" onClick="underline()">
<input type="button" name="Submit6" value="居中" onClick="middle()">
<input type="button" name="Submit7" value="Email" onClick="email()">
<input type="button" name="Submit8" value="Http" onClick="chttp()">
<input type="button" name="Submit9" value="Img" onClick="img()">
<textarea name="content" cols="60" rows="10"></textarea></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center">
<input type="submit" class="buttonface" name="Submit" value="添 加">
<input type="reset" class="buttonface" name="Submit2" value="取 消">
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td>
<iframe name="upload" frameborder=0 width=97% height=50 scrolling=no src="upfile.aspx"></iframe>
</td>
</tr>
</asp:panel>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
_____________</html>
<%@Page Language="VB" ContentType="text/html"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%@Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
'該源碼下載自www.51aspx.com(５１ａｓｐｘ．ｃｏｍ)
Dim sql As String
Dim myConn As OleDbConnection
Dim myCmd As OleDbCommand
'獲取數據子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'初始化退出登錄
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
If Page.Request("action") = "logout" Then
Session("user") = ""
Response.Redirect("index.aspx")
End If
End Sub
'登錄驗證子程序
Sub addclick(ByVal sender As Object, ByVal e As EventArgs)
If username.Text = "" Then
message.Text = "請輸入用戶名！"
Else
If passward.Text = "" Then
message.Text = "請輸入口令！"
Else
sql = "select username,passward from Admin where username='" & Trim(username.Text) & "'"
Dim userid, pass As String
Dim user As OleDbDataReader = getdatareader(sql)
While user.Read()
userid = user.Item(0)
pass = user.Item(1)
End While
myConn.Close()
If userid = "" Then
message.Text = "用戶名不存在，請重新輸入！"
username.Text = ""
passward.Text = ""
Else
If pass = passward.Text Then
Session("user") = "administrator"
message.Text = ""
Response.Redirect("newsmanager.aspx")
Else
message.Text = "口令錯誤！"
passward.Text = ""
End If
End If
End If
End If
End Sub
'清除變量信息子程序
Sub cancelclick(ByVal sender As Object, ByVal e As EventArgs)
message.Text = ""
username.Text = ""
passward.Text = ""
End Sub
</script>
_____________<html>
<head>
<title>管理員登陸</title>
<link rel="stylesheet" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<mynews:top runat="server"/>
<form runat="server">
<table width="70%" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="40%" align="right" height="30">用戶名：</td>
<td>
<asp:textbox ID="username" MaxLength="20" Columns="20" class="smallInput" runat="server"/>
</td>
</tr>
<tr>
<td align="right">密 碼：</td>
<td>
<asp:textbox ID="passward" MaxLength="20" Columns="20" TextMode="Password" class="smallInput" runat="server"/>
</td>
</tr>
<tr>
<td colspan="2" height="25" align="center">
<asp:label ID="message" ForeColor="red" runat="server"/>
</td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td height="40">
<asp:button ID="add" Text="登錄" OnClick="addclick" class="buttonface" runat="server"/>
<asp:button ID="cancel" Text="取消" OnClick="cancelclick" class="buttonface" runat="server"/>
</td>
</tr>
</table>
</form>
<mynews:footer runat="server"/>
</body>
_____________</html>
<%@Page Language="VB" Debug="true" %>
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<%@Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<%@Register TagPrefix="mynews" TagName="search" src="ascx/search.ascx"%>
<%@Register Src="ascx/newslist.ascx" TagName="newslist" TagPrefix="mynews" %>
_____________<html>
<head>
<title>新聞發佈與管理系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:top runat="server" ID="top1" />
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<tr>
<td width="578px">
<mynews:newslist ID="newslist1" runat="server"/>
</td>
<td width="200px" valign="top">
<mynews:search ID="Search1" runat="server"/>
</td>
</tr>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
_____________</html>
<%@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="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql, Classes As String
Dim myConn As OleDbConnection
Dim myCmd As OleDbCommand
'獲取數據子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'查詢數據子程序
Function getdataview(ByVal sql As String, ByVal 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(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
Dim classid As Integer
Dim namesql As String
classid = Page.Request("Classesid")
namesql = "select ClassesName from Classes where ClassesID=" & classid
sql = "select NewsID,Title from News where ClassesID=" & classid & " order by UpdateTime DESC"
Dim Reader As OleDbDataReader = getdatareader(namesql)
While Reader.Read()
Classes = 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(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
newslist.CurrentPageIndex = e.NewPageIndex
newslist.DataSource = getdataview(sql, "news")
newslist.DataBind()
End Sub
</script>
_____________<html>
<head>
<title>新聞分類列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:top ID="Top1" runat="server"/>
<table width="778px" border="0" align="center" cellpadding="0" cellspacing="6px">
<tr>
<td width="578px">
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<tr>
<td bgcolor="#6699FF"><font color="#FFFFFF"> ::::<%=Classes%>::::</font></td>
</tr>
<tr>
<td>
<form id="Form1" 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="200px" valign="top">
<mynews:search ID="Search1" runat="server"/>
</td>
</tr>
</table>
<mynews:footer ID="End1" runat="server"/>
</body>
_____________</html>
<%@Page Language="VB" ContentType="text/html" debug="true"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<%@Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@Register TagPrefix="mynews" TagName="footer" src="ascx/footer.ascx"%>
<script language="VB" runat="server">
Dim sql,bianhao as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
'查詢數據子程序
Function getdatareader(ByVal sql As String) As OleDbDataReader
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
getdatareader = myCmd.ExecuteReader()
End Function
'查詢數據子程序
Function getdataview(ByVal sql As String, ByVal 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
'執行查詢字符串子程序
Function executesql(ByVal sql As String)
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
End Function
'數據綁定子程序
Function bindgrid()
information.Text = ""
sql = "select * from Classes order by ClassesID desc"
fenlei.DataSource = getdataview(sql, "fenlei")
fenlei.DataBind()
End Function
'初始化數據綁定子程序
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Session("user") = "administrator" Then
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
If Not Page.IsPostBack Then
bindgrid()
End If
Else
Response.Redirect("login.aspx")
End If
End Sub
'翻頁子程序
Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
fenlei.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
'添加分類子程序
Sub butadd_Click(ByVal Sender As Object, ByVal e As EventArgs)
sql = "insert into Classes(ClassesName) values('" & fenleiname.Text & "')"
executesql(sql)
information.Text = "分類添加成功"
bindgrid()
End Sub
'刪除分類子程序
Sub fenlei_delete(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
bianhao = fenlei.DataKeys(e.Item.ItemIndex)
executesql("delete from Classes where ClassesID=" & CInt(bianhao))
bindgrid()
End Sub
'編輯分類子程序
Sub fenlei_edit(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
fenlei.EditItemIndex = e.Item.ItemIndex
bindgrid()
End Sub
'更新分類子程序
Sub fenlei_update(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
Dim fltext As TextBox = e.Item.Cells(1).Controls(0)
Dim flname As String = fltext.Text
bianhao = fenlei.DataKeys(e.Item.ItemIndex)
sql = "update Classes set ClassesName='" & flname & "' where ClassesID=" & CInt(bianhao)
executesql(sql)
fenlei.EditItemIndex = -1
bindgrid()
End Sub
'取消操作子程序
Sub fenlei_cancel(ByVal Sender As Object, ByVal e As DataGridCommandEventArgs)
fenlei.EditItemIndex = -1
bindgrid()
End Sub
</script>
_____________<html>
<head>
<title>新聞分類管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" type="text/css" rel="Stylesheet" />
</head>
<body>
<mynews:main ID="Main1" runat="server"/>
<table width="778" border="0" align="center" cellspacing="0" cellpadding="0">
<form runat="server">
<tr>
<td align="center">
<asp:datagrid ID="fenlei" AllowPaging="true" PageSize="10" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#6699FF" HeaderStyle-HorizontalAlign="Center"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#6699FF" Width="90%"
AutoGenerateColumns="false" DataKeyField="ClassesID" OnPageIndexChanged="ChangePage" runat="server"
OnEditCommand="fenlei_edit" OnCancelCommand="fenlei_cancel" OnUpdateCommand="fenlei_update"
OnDeleteCommand="fenlei_delete">
<columns>
<asp:BoundColumn DataField="ClassesID" HeaderText="分類編號" ReadOnly="true"/>
<asp:boundcolumn DataField="ClassesName" HeaderText="分類名稱"/>
<asp:ButtonColumn Text="刪除" HeaderText="是否刪除" CommandName="Delete"/>
<asp:editcommandcolumn EditText="編輯" CancelText="取消" UpdateText="修改" HeaderText="是否修改"/>
</columns>
</asp:datagrid>
</td>
</tr>
<tr>
<td align="center"><br />
分類名稱：
<asp:textbox MaxLength="20" ID="fenleiname" Columns="20" runat="server"/>
<asp:Button id="butadd" OnClick="butadd_Click" Text="添加" runat="server"/>
</td>
</tr>
<tr>
<td align="center"><br />
<asp:label ID="message" Text="(如果數據庫內有新聞，請慎重刪除新聞分類！隨意刪除分類可能引起錯誤！)" ForeColor="#FF0000" runat="server"/>
</td>
</tr>
</form>
<tr>
<td>
<asp:label id="information" runat="server"/>
</td>
</tr>
</table>
<mynews:footer ID="Footer1" runat="server"/>
</body>
_____________</html>
___________________________________
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<script Language="VB" runat="server">
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim sql As String
Dim myconn As OleDbConnection
Dim myCmd, newscmd As OleDbCommand
Dim dtCmd As OleDbDataAdapter
Dim dtSet As DataSet
Dim dv As DataView
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
sql = "select top 10 * from News order by UpdateTime DESC"
dtCmd = New OleDbDataAdapter(Sql, myconn)
dtSet = New DataSet
dtCmd.Fill(dtSet)
specialnews.DataSource = dtSet
specialnews.DataBind()
End Sub
</script>
<link href="style.css" type="text/css" rel="Stylesheet" />
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<tr>
<td bgcolor="#6699FF"><font color="#FFFFFF">
::::最新新聞::::
</font></td>
</tr>
<tr>
<td>
<asp:datagrid ID="specialnews" runat="server" AutoGenerateColumns="False" BorderColor="#6699FF"
BorderWidth="0" GridLines="Both" AllowPaging="false" DataKeyField="NewsID" ShowHeader="false">
<columns>
<asp:hyperlinkcolumn DataTextField="Title"
DataNavigateUrlField="NewsID" DataNavigateUrlFormatString="../newshow.aspx?newsid={0}"/>
</columns>
</asp:datagrid>
</td>
</tr>
</table>
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Dim oksql As String
Dim newsid As Integer
Dim myConn As OleDbConnection
Dim myCmd As OleDbCommand
Dim myDataAdapter As OleDbDataAdapter
Dim myDataSet As DataSet
'執行SQL字符串子程序
Function executesql(ByVal sql As String)
myCmd = New OleDbCommand(sql, myConn)
myConn.Open()
myCmd.ExecuteNonQuery()
myConn.Close()
End Function
'獲取數據庫中數據
Function getdataview(ByVal sql As String, ByVal strTable As String) As DataView
myConn.Open()
myDataAdapter = New OleDbDataAdapter(sql, myConn)
myConn.Close()
myDataSet = New DataSet()
myDataAdapter.Fill(myDataSet, strTable)
getdataview = New DataView(myDataSet.Tables(strTable))
End Function
'綁定數據
Function bindgrid()
oksql = "select * from ReView where NewsID=" & Page.Request("newsid") & " order by ReviewID desc"
newsreview.DataSource = getdataview(oksql, "pinglun")
newsreview.DataBind()
End Function
'初始化子程序
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myConn = New OleDbConnection(strConn)
If Not Page.IsPostBack Then
newsid = Page.Request("newsid")
bindgrid()
End If
End Sub
'回寫用戶評價信息
Sub butadd_click(ByVal Sender As Object, ByVal e As EventArgs)
oksql = "insert into ReView(ReViewTitle,Author,Email,Content,NewsID) values('" & title.Text & "','" & author.Text & "','" & email.Text & "','" & content.Text & "'," & Page.Request("newsid") & ")"
executesql(oksql)
title.Text = ""
author.Text = ""
email.Text = ""
content.Text = ""
bindgrid()
End Sub
'清除變量信息子程序
Sub butcan_click(ByVal Sender As Object, ByVal e As EventArgs)
title.Text = ""
author.Text = ""
email.Text = ""
content.Text = ""
End Sub
'翻頁子程序
Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
newsreview.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
</script>
<link href="style.css" type="text/css" rel="Stylesheet" />
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<tr>
<td bgcolor="#6699FF">
相關評論：（個人觀點僅供參考）
</td>
</tr>
<tr>
<td>
<asp:DataGrid id="newsreview" runat="server" AutoGenerateColumns="False" AllowPaging="true" PageSize="5" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages"
OnPageIndexChanged="ChangePage" Width="100%" BorderColor="Black" BorderWidth="0" GridLines="Both" DataKeyField="ReViewID" ShowHeader="false">
<Columns>
<asp:HyperLinkColumn DataTextField="ReViewTitle"
DataNavigateUrlField="ReviewID" Target ="_new" DataNavigateUrlFormatString="../reviewshow.aspx?reviewid={0}"/>
</Columns>
</asp:DataGrid>
</td>
</tr>
</table>
<br />
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<tr>
<td bgcolor="#6699FF">
發表評論：
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" align="right">題目：</td>
<td>
<asp:TextBox id="title" Columns="50" MaxLength="50" runat="server"/><font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td align="right">作者：</td>
<td>
<asp:TextBox id="author" Columns="10" MaxLength="10" runat="server"/><font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td align="right">E-mail：</td>
<td>
<asp:TextBox id="email" Columns="20" MaxLength="20" Text="" runat="server"/><font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td align="right" valign="top">內容：</td>
<td valign="top">
<asp:TextBox id="content" TextMode="MultiLine" Columns="54" Rows="5" runat="server"/><font color="#FF0000">*</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center">
<asp:Button id="butadd" OnClick="butadd_Click" Text="發表" runat="server"/>
<asp:Button id="butcan" OnClick="butcan_Click" Text="取消" runat="server"/></td>
</tr>
</table>
<link href="style.css" type="text/css" rel="Stylesheet" />
<script language="JavaScript">
function searchcheck()
{
if (document.newssearch.keyword.value=="")
{
alert("請輸入關鍵詞！");
document.newssearch.keyword.focus();
return false;
}
}
</script>
<table width="100%" cellpadding="2px" cellspacing="0" style="border:1px solid #6699FF;">
<form action="newssearch.aspx" name="newssearch" onSubmit="return searchcheck();">
<tr>
<td bgcolor="#6699FF"><font color="#FFFFFF"> ::::新聞搜索::::</font></td>
</tr>
<tr>
<td><span style="color:#999;">請輸入關鍵詞：</span></td>
</tr>
<tr>
<td align="center">
<input type="text" name="keyword" class="smallInput">
<input type="submit" class="buttonface" name="Submit" value="搜索">
</td>
</tr>
</form>
</table>
<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
'//該源碼下載自www.51aspx.com(５１ａｓｐｘ．ｃｏｍ)
'//5_1_a_s_p_x.c_o_m
Dim sql As String
Dim myconn As OleDbConnection
Dim myCmd As OleDbCommand
'定義數據查詢子程序
Function getdataview(ByVal sql As String, ByVal 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
'調用getdataview子程序，並把所查詢的數據綁定到NewsList控件中
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
myconn = New OleDbConnection(strConn)
If Not Page.IsPostBack Then
sql = "select * from Classes"
Dim Classesview As DataView = getdataview(sql, "Classes")
NewsList.DataSource = Classesview
NewsList.DataBind()
End If
End Sub
</script>
<TABLE align=center cellPadding=0 cellSpacing=0 style="BORDER-BOTTOM: #6595d6 1px solid; WIDTH: 778px">
<tr>
<TD width="100%">
<span style="font-size:24px;color:'#6595d6';padding:10px 30px;width:710px;text-align:left;">新聞發佈與管理系統|51aspx.com</span>
<A href="./login.aspx">後臺管理</A>
</TD>
</tr>
<tr>
<TD height=22 background="pic/border1.gif">
<IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18">
<a class="tomg" href="./index.aspx">首頁</a>
<IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18">
<asp:Repeater id="NewsList" runat="server">
<ItemTemplate>
<a class="tomg" href="classnews.aspx?Classesid=<%# DataBinder.Eval(Container.DataItem,"Classesid")%>">
<%# DataBinder.Eval(Container.DataItem,"Classesname")%>
</a>
<IMG align=absMiddle src="pic/navspacer.gif" width="7" height="18">
</ItemTemplate>
</asp:Repeater>
</TD>
</tr>
</TABLE>