日期:2014-05-17  浏览次数:20949 次

不知道哪出问题了,帮帮忙,解决一下,谢谢!!!
<%@LANGUAGE= "VBSCRIPT "   CODEPAGE= "936 "%>
<!--#include   file= "../Connections/conn.asp "   -->
<%
'   ***   Edit   Operations:   declare   variables

Dim   MM_editAction
Dim   MM_abortEdit
Dim   MM_editQuery
Dim   MM_editCmd

Dim   MM_editConnection
Dim   MM_editTable
Dim   MM_editRedirectUrl
Dim   MM_editColumn
Dim   MM_recordId

Dim   MM_fieldsStr
Dim   MM_columnsStr
Dim   MM_fields
Dim   MM_columns
Dim   MM_typeArray
Dim   MM_formVal
Dim   MM_delim
Dim   MM_altVal
Dim   MM_emptyVal
Dim   MM_i

MM_editAction   =   CStr(Request.ServerVariables( "SCRIPT_NAME "))
If   (Request.QueryString   <>   " ")   Then
    MM_editAction   =   MM_editAction   &   "? "   &   Server.HTMLEncode(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 "))   =   "form1 ")   Then

    MM_editConnection   =   MM_conn_STRING
    MM_editTable   =   "admin_gsjj "
    MM_editRedirectUrl   =   "../Company.asp "
    MM_fieldsStr     =   "textarea|value "
    MM_columnsStr   =   "user_gsjj| ',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
%>
<%