表示没有上传成功
来源：互联网 发布：数控编程一个月多少钱 编辑：程序博客网 时间：2024/05/01 02:47
<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>
- 表示没有上传成功
- 上传之前预览图片 这个是参考一直没有成功
- 解决文件上传成功但是eclipse的工程中没有上传的文件
- 使用json格式最为数据传输的格式，代码混淆后数据没有上传成功
- struts2上传照片成功并显示，但是工程文件夹下没有
- 解决Xcode7.1上传成功但developer账户一直没有显示的问题
- 使用Xcode8上传成功后，商店里构建版本却没有应用
- 使用Xcode8上传成功后，商店里构建版本却没有应用
- 使用Xcode8上传成功后，商店里构建版本却没有应用
- 使用Xcode8上传成功后，商店里构建版本却没有应用
- 向SVN提交项目时显示提交成功却没有上传
- 使用Xcode8上传成功后，iTunes Connect里构建版本却没有应用
- git提交代码到github时出现everything up-to-date，但是代码没有上传成功
- Xcode8打包上传成功，iTunes构建版本却没有“+”号或看不到应用
- 启动proftp没有成功
- 没有后退，只有成功！
- 成功没有捷径
- 成功没有捷径
- Flex examples collection
- ASP.NET2.0初学者工具包汇总 CSDN 下载频道
- 记录的方法
- AMI 的BIOS自检响铃及其意义
- Linux网络编程一步一步学-设置非阻塞方式
- 表示没有上传成功
- 给湖大软件学院学弟学妹的演讲ppt
- 查询数据
- VB.NET 导出数据到EXCEL中
- 连接数据库'2.添加记录'3 更新数据(Access)
- 直接将Access数据库导入到Excel文件
- Visual Basic.NET访问数据方法
- Visual Basic.NET中使用ADO访问数据库
- 导入Excel电子表格数据到SQL Sever数据库的方法
