www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_item_add.asp

    <!--#include file="admin_scripts.asp" -->
<!--#include file="admin_top.asp" -->
<!--#include file="FCKeditor/fckeditor.asp" -->

<link href="css/screen.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="FCKeditor/fckeditor.js"></script>
<%
'get a list of items from the database for linking purposes
dim ItemList, ItemList_numRows, ListHasCategory
set ItemList = Server.CreateObject("ADODB.Recordset")
ItemList.ActiveConnection = MM_oConn_STRING
ItemList.Source = "SELECT * FROM ac_item ORDER BY Title ASC"
ItemList.CursorType = 0
ItemList.CursorLocation = 2
ItemList.LockType = 1
ItemList.Open()
ItemList_numRows = 0
LeftHasCategory = 0
dim myLinks, myID, myTitle, myLastID, myNewID

While (not ItemList.EOF)
         myID = ItemList.Fields.Item("ID").Value
         myTitle =  ItemList.Fields.Item("Title").Value
         myLinks = myLinks & "<option value="& myID &">" & myTitle & "</option>"

         'get the highest ID number so that we know what the ID of the new will be
         if (ItemList.Fields.Item("ID").Value > myLastID) then
              myLastID = ItemList.Fields.Item("ID").Value
         end if
         'response.write(myLastID & " " & ItemList.Fields.Item("ID").Value & "<br>")
   	 ItemList.MoveNext()
Wend
ItemList.Close()
Set ItemList = Nothing
myNewID = myLastID + 1
%>
<%
dim myParam
myParam = "1"
myParam = Session("currentCategory")
%>
<%
dim currentYear, currentMonth, currentDay
dim currentHour, currentMinute, currentSecond
currentYear = Year(now)
currentMonth = Month(now)
currentDay = Day(now)
currentHour = Hour(now)
currentMinute = Minute(now)
currentSecond = Second(now)

dim strCurrentTime
strCurrentTime = currentYear & "/" & currentMonth  & "/" & currentDay & " " & currentHour & ":" & currentMinute & ":" & currentSecond
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>

<%
' *** Insert Record: set variables
Dim MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, MM_recordId
Dim MM_fieldsStr, MM_columnsStr, MM_fields, MM_columns, MM_typeArray, MM_formVal
Dim MM_delim, MM_altVal, MM_emptyVal, MM_i
Dim myStartDate, myEndDate

If (CStr(Request("MM_insert")) = "form2") Then
  'get date variables
  myStartDate = request.form("startYear") & "-" & request.form("startMonth") & "-" & request.form("startDay") & " " & request.form("startHour") & ":" & request.form("startMinute") & ":" & request.form("startSecond")
  myEndDate = request.form("endYear") & "-" & request.form("endMonth") & "-" & request.form("endDay") & " " & request.form("endHour") & ":" & request.form("endMinute") & ":" & request.form("endSecond")
  
  'get other form variables
  MM_editConnection = MM_oConn_STRING
  MM_editTable  = "ac_item"
  MM_editRedirectUrl = "admin_main.asp"
  MM_fieldsStr = "ID|value|Title|value|Category_ID|value|Content|value|Updated|value|VerticalPosition|value|User_ID|value|Type|value|VisibleMenu|value|SiteHome|value"
  MM_columnsStr = "ID|none,none,NULL|Title|',none,''|Category_ID|none,none,NULL|Content|',none,''|Updated|',none,''|VerticalPosition|none,none,NULL|User_ID|none,none,NULL|Type|',none,''|VisibleMenu|',none,''|SiteHome|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If
  
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) = "form2") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  'alter sql to add in date information
  MM_tableValues = MM_tableValues & ",StartPub,EndPub"
  MM_dbValues = MM_dbValues & ",'"& myStartDate &"','" & myEndDate & "'"
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Session("CurrentPage") = getLatestItem()
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If

function getLatestItem()
	'get the ID of the item that has just been added
	dim ItemLatest
	set ItemLatest = Server.CreateObject("ADODB.Recordset")
	ItemLatest.ActiveConnection = MM_oConn_STRING
	ItemLatest.Source = "SELECT * FROM ac_item ORDER BY ID DESC"
	ItemLatest.CursorType = 0
	ItemLatest.CursorLocation = 2
	ItemLatest.LockType = 1
	ItemLatest.Open()
	dim lastID
	getLatestItem = ItemLatest.Fields.Item("ID").Value
	ItemLatest.Close()
	Set ItemLatest = Nothing
end function

%>
<%
dim ItemAdd, ItemAdd_numRows
set ItemAdd = Server.CreateObject("ADODB.Recordset")
ItemAdd.ActiveConnection = MM_oConn_STRING
ItemAdd.Source = "SELECT ID, Title, Category_ID, Content, Updated, VerticalPosition FROM ac_item"
ItemAdd.CursorType = 0
ItemAdd.CursorLocation = 2
ItemAdd.LockType = 1
ItemAdd.Open()
ItemAdd_numRows = 0
%>
<%
dim CategoryAdd, CategoryAdd_numRows
dim CatIDAdd, CatNameAdd
set CategoryAdd = Server.CreateObject("ADODB.Recordset")
CategoryAdd.ActiveConnection = MM_oConn_STRING
CategoryAdd.Source = "SELECT * FROM ac_category WHERE ID = "& myParam & ""
CategoryAdd.CursorType = 0
CategoryAdd.CursorLocation = 2
CategoryAdd.LockType = 1
CategoryAdd.Open()
CategoryAdd_numRows = 0
CatIDAdd = CategoryAdd.Fields.Item("ID").Value
CatNameAdd = CategoryAdd.Fields.Item("Name").Value
%>
<%
'determine the base folder for the fck editor 
dim xfso,xfolder,xsubFolders,xfileObject
Set xfso = CreateObject("Scripting.FileSystemObject") 
Set xfolder = xfso.GetFolder(Server.Mappath("./"))
dim folderArray
folderArray=split(xfolder,"\")
dim folderCount,baseFolder
folderCount = ubound(folderArray)
baseFolder = folderArray(folderCount-1)
Set xsubFolders = Nothing
Set xfolder = Nothing 
Set xfso = Nothing
%>
<%
ItemAdd.Close()
Set ItemAdd = Nothing
CategoryAdd.Close()
Set CategoryAdd = Nothing
%>
<table border="0" cellpadding="5" cellspacing="0" class="ac_admin_main">
  <tr><td><img src="../images/blank.gif" width="18" height="6" alt="" /></td></tr> 
    <tr valign="baseline"><td><%= adminHeading(2,lang_admin_default_001,"icons/document_add_24.gif",lang_admin_item_add_001,"#") %></td></tr>  
    <tr><td class="contentarea" colspan=4> <form method="post" action="<%=MM_editAction%>" name="form2">
        <table width="100%" align="center" border="0">
          <tr valign="baseline"> 
            <td align="right" nowrap class="content_titles4" width="20%"><%= lang_admin_cat_add_001 %></td>
            <td class="content_right" width="20%"> <input type="text" id="<%= lang_admin_cat_add_001 %>" name="Title" value="<%= lang_admin_item_add_002 %>" size="32">
            </td>
            <td align="right" class="content_titles4" width="15%"><%= lang_admin_item_add_003 %></td>
            <td class="content_right2"><input type="text" value="<%= CatNameAdd %>" size="32"</td>
          </tr>
          <tr>              
            <td align="right" class="content_titles4"><%= lang_admin_cat_add_003 %></td>
            <td class="content_right">
                  <select name="VerticalPosition">
                      <option value="1">1</option>
                      <option value="2">2</option>
                      <option value="3">3</option>
                      <option value="4">4</option>
                      <option value="5">5</option>
                      <option value="6">6</option>
                      <option value="7">7</option>
                      <option value="8">8</option>
                      <option value="9">9</option>
                      <option value="10">10</option>
                      <option value="11">11</option>
                      <option value="12">12</option>
                      <option value="13">13</option>
                      <option value="14">14</option>
                      <option value="15">15</option>
                      <option value="16">16</option>
                      <option value="17">17</option>
                      <option value="18">18</option>
                      <option value="19">19</option>
                      <option value="20">20</option>
                      <option value="21">21</option>
                      <option value="22">22</option>
                      <option value="23">23</option>
                      <option value="24">24</option>
                      <option value="25">25</option>
                      <option value="26">26</option>
                      <option value="27">27</option>
                      <option value="28">28</option>
                      <option value="29">29</option>
                      <option value="30">30</option>
                  </select>
            <td></td><td></td>
</td>
          </tr>
          <tr> 
		<td colspan=4 class="content_editor">
		<%
		'get basepath for FCKeditor
		dim sBasePath
		'get drectory path using bParts from admin_lang.asp
		if (bParts="") then
		        
		        sBasePath = "/admin/FCKeditor/"
		else    
                
		        sBasePath = "/" & bParts & "/admin/FCKeditor/"
		end if

		'initialise FCKeditor
                Dim oFCKeditor
                Set oFCKeditor = New FCKeditor
                oFCKeditor.BasePath = sBasePath
                oFCKeditor.Value = lang_admin_item_add_004
                oFCKeditor.Config("AutoDetectLanguage") = true
                oFCKeditor.Config("DefaultLanguage") = Site_language
                oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/silver/"
                oFCKeditor.Config("pageLinks") = myLinks
                oFCKeditor.ToolbarSet = "Acidcat"
                oFCKeditor.Height = 330
                oFCKeditor.Create "content"
                %>
                </td>
          </tr>
          <!--#include file="admin_item_time_form.asp" -->
          <tr><td align="right" class="content_apply"><%= lang_admin_config_008 %></td><td bgcolor="#6E7B83" class="contentarea2" colspan="3"><INPUT TYPE="image" src="images/save_out.gif" HEIGHT="39" WIDTH="39" BORDER="0" ALT="<%= lang_admin_config_009 %>" value="Add" name="Submit" id="Image1" onMouseOver="MM_swapImage('Image1','','images/save_over.gif',1)" onMouseOut="MM_swapImgRestore()" onClick="MM_validateForm('Title','','R');return document.MM_returnValue"></td></tr>
        </table>
  <input type="hidden" name="Updated" value="<%=myNow %>">
  <input type="hidden" name="Category_ID" value="<%= CatIDAdd %>">
  <input type="hidden" name="User_ID" value="<%= Session("MM_UserID") %>">
  <input type="hidden" name="ID" value="<%= myNewID %>">
  <input type="hidden" name="Type" value="Page">
  <input type="hidden" name="MM_insert" value="form2">
</form>
</td></tr></table>
<!--#include file="admin_bottom.asp" -->