📄 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="end" src="ascx/end.ascx"%>
<html>
<head>
<title>新闻修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<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();
}
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>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><mynews:main runat="server"/></td>
</tr>
<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="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%">题目：</td>
<td width="79%"><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="bigclass">
<%sql="select * from BigClass"
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>
专题：
<select name="zhuanti" id="zhuanti">
<option value="0"></option>
<%sql="select * from Special order by SpecialID desc"
Reader=getdatareader(sql)
while Reader.read()
if Reader.Item(0)=specialid 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><p align="center">
<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()">
</p>
<br><textarea name="content" cols="80" rows="10"><%=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><iframe name="upload" frameborder=0 width=100% height=50 scrolling=no src="inputfile.aspx"></iframe> </td>
</tr>
</asp:panel>
<tr>
<td><asp:label ID="message" runat="server"/></td>
</tr>
<tr>
<td><mynews:end runat="server"/></td>
</tr>
</table>
</body>
</html>
<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(str as String) as OleDbDataReader
myCmd=New OleDbCommand(str,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
End Function
function executesql(sql as string)
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
myCmd.ExecuteNonQuery()
myConn.close()
end function
Sub Page_Load(sender As Object, e As EventArgs)
if session("user")="administrator" then
Dim strConn As String
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn = New OledbConnection(strConn)
if not page.ispostback then
step1.visible="true"
'显示新闻内容
bianhao=Page.request("newsid")
sql="select Title,Author,Original,Content,BigClassID,SpecialID 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)
specialid=Reader.Item(5)
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("bigclass")
specialid=page.request("zhuanti")
sql="update News set Title='"& title &"',Author='"& author &"',Original='"& from &"',Content='"& content &"',UpdateTime='"& datetime.now() &"',BigClassID="& classid &",SpecialID="& specialid &" 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -