newsadd.aspx

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%@ 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= "您必须输入邮件网址";