📄 newsadd.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">
'该源码下载自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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -