错误提示：
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/mypay/payreceive2.asp，行 8

程序如下：

<!--#include file="../myconn.asp"-->
<%
dim addtoPE,point,conn,connstr
point=10
v_custom1="wangkuang"
addtope="update [PE_User] set UserPoint=UserPoint+"&point&",groupid=23 where UserName='"&v_custom1&"'"
conn.execute(addtoPE)=======================第8行

rs.close
set rs=nothing

conn.close
Set conn = Nothing
%>

conn.open没有?

数据库打开了

你的代码有点怪哦

引用:

<!--#include file="../myconn.asp"-->
<%
dim addtoPE,point,conn,connstr

你的conn都是这个页面声明的,而这个页面又没有看到你打开过数据库,难道你在myconn.asp打开?
myconn.asp是什么,不符合逻辑呀,哪有先使用了变量,然后再来声明的?

<!--#include file="../myconn.asp"-->========调用数据库
<%
Const SystemDatabaseType = "SQL"     
Const DBFileName = "\database\111.mdb"  
Const SqlUsername = "111"   
Const SqlPassword = "111"      
Const SqlDatabaseName = "111"   
Const SqlHostIP = "(local)"               
Dim Conn
Dim PE_True, PE_False, PE_Now, PE_OrderType, PE_DatePart_D, PE_DatePart_Y, PE_DatePart_M, PE_DatePart_W, PE_DatePart_H
Sub OpenConn()
    'On Error Resume Next
    Dim ConnStr
    If SystemDatabaseType = "SQL" Then
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
    Else
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFileName)
    End If
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.open ConnStr
    If Err Then
        Err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错，请检查myConn.asp文件中的数据库参数设置。"
        Response.End
    End If
    If SystemDatabaseType = "SQL" Then
        PE_True = "1"
        PE_False = "0"
        PE_Now = "GetDate()"
        PE_OrderType = " desc"
        PE_DatePart_D = "d"
        PE_DatePart_Y = "yyyy"
        PE_DatePart_M = "m"
        PE_DatePart_W = "ww"
        PE_DatePart_H = "hh"
    Else
        PE_True = "True"
        PE_False = "False"
        PE_Now = "Now()"
        PE_OrderType = " asc"
        PE_DatePart_D = "'d'"
        PE_DatePart_Y = "'yyyy'"
        PE_DatePart_M = "'m'"
        PE_DatePart_W = "'ww'"
        PE_DatePart_H = "'h'"
    End If
End Sub

Sub CloseConn()
    On Error Resume Next
    If IsObject(Conn) Then
        Conn.Close
        Set Conn = Nothing
    End If
    Set regEx = Nothing
    Set PE_Cache = Nothing
End Sub
%>

汗~你打开数据库是写在SUB过程的,要调用SUB过程
出错的文件中:
dim addtoPE,point,conn,connstr
去掉最后两个变量的声明,
然后在下面加一行:
Call OpenConn()