📄 newsedit.aspx
字号:
<%@ 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -