insert.asp

用软件做留言板

<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/shuju.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
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

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_shuju_STRING
  MM_editTable = "fbbs"
  MM_editRedirectUrl = "index.asp"
  MM_fieldsStr  = "fname|value|femail|value|fcontent|value|foicq|value|ftime|value"
  MM_columnsStr = "fname|',none,''|femail|',none,''|fcontent|',none,''|foicq|',none,''|ftime|',none,NULL"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(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

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  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
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set book = Server.CreateObject("ADODB.Recordset")
book.ActiveConnection = MM_shuju_STRING
book.Source = "SELECT * FROM fbbs ORDER BY ftime DESC"
book.CursorType = 0
book.CursorLocation = 2
book.LockType = 3
book.Open()
book_numRows = 0
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
book_total = book.RecordCount

' set the number of rows displayed on this page
If (book_numRows < 0) Then
  book_numRows = book_total
Elseif (book_numRows = 0) Then
  book_numRows = 1
End If

' set the first and last displayed record
book_first = 1
book_last  = book_first + book_numRows - 1

' if we have the correct record count, check the other stats
If (book_total <> -1) Then
  If (book_first > book_total) Then book_first = book_total
  If (book_last > book_total) Then book_last = book_total
  If (book_numRows > book_total) Then book_numRows = book_total
End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = book
MM_rsCount   = book_total
MM_size      = book_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
book_first = MM_offset + 1
book_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (book_first > MM_rsCount) Then book_first = MM_rsCount
  If (book_last > MM_rsCount) Then book_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><div align="center"> 
  <table width="780" border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
    <tr> 
      <td width="131" height="49"></td>
      <td width="445"></td>
      <td width="84"></td>
      <td width="20"></td>
      <td width="100"></td>
    </tr>
    <tr>
      <td height="400"></td>
      <td colspan="3" valign="top" bgcolor="#CCCCCC"> 
        <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
          <tr> 
            <td colspan="4" valign="top" height="19"><img src="image/11.gif" width="545" height="19"></td>
          </tr>
          <tr> 
            <td rowspan="2" valign="top" width="14"><img src="image/333.gif" width="15" height="348"></td>
            <td height="292" width="516" valign="top"> 
              <table width="100%" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td height="314" width="506" valign="bottom">
                    <table width="67%" border="0">
                      <tr>
                        <td> 
                          <div align="center"><font size="2">欢迎你来留言！</font></div>
                        </td>
                      </tr>
                    </table>
                      
                    <form method="POST" action="<%=MM_editAction%>" name="form1">
                      <div align="right"></div>
                      <table align="center" width="408" height="203" bgcolor="#999999">
                        <tr valign="baseline"> 
                          <td nowrap align="right"> 
                            <div align="center"><font size="2">姓名:</font></div>
                          </td>
                          <td> 
                            <input type="text" name="fname" value="" size="32">
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"> 
                            <div align="center"><font size="2">邮箱:</font></div>
                          </td>
                          <td> 
                            <input type="text" name="femail" value="" size="32">
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right" valign="middle"> 
                            <div align="center"><font size="2">内容:</font></div>
                          </td>
                          <td> 
                            <textarea name="fcontent" cols="50" rows="4"></textarea>
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"> 
                            <div align="center"><font size="2">QQ:</font></div>
                          </td>
                          <td> 
                            <input type="text" name="foicq" value="" size="32">
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"> 
                            <div align="center"><font size="2">时间:</font></div>
                          </td>
                          <td> 
                            <input type="text" name="ftime" value="<%=(book.Fields.Item("ftime").Value)%>" size="32">
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"> 
                            <div align="center"><font size="2"></font></div>
                          </td>
                          <td> 
                            <div align="center">
                              <input type="submit" value="留言提交">
                              <input type="submit" name="Submit" value="重写">
                            </div>
                          </td>
                        </tr>
                      </table>
                      <input type="hidden" name="MM_insert" value="true">
                    </form>
                    <p>&nbsp;</p>
                  </td>
                  <td width="10"></td>
                </tr>
              </table>
            </td>
            <td rowspan="2" valign="top" width="15"><img src="image/44.gif" width="12" height="349"></td>
            <td width="3"></td>
          </tr>
          <tr> 
            <td valign="top" height="19"><img src="image/22.gif" width="516" height="19"></td>
            <td></td>
          </tr>
          <tr> 
            <td height="32"></td>
            <td></td>
            <td></td>
            <td></td>
          </tr>
        </table>
      </td>
      <td></td>
    </tr>
    <tr> 
      <td height="27"></td>
      <td></td>
      <td valign="top"><a href="index.asp"><font size="2">返回首页</font></a></td>
      <td></td>
      <td></td>
    </tr>
    <tr> 
      <td height="119"></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
    </tr>
  </table>
</div>
</body>
</html>
<%
book.Close()
%>