帮忙解决错误 '80004005',Optional feature not implemented

rs.Open "select * from game where UID=" & UID & " And DELSTATUS=0 order by SORT desc", conn, 1, 1
If rs.eof Then
SortID = 0
Else
SortID = rs("SORT") + 1 '获取序号
End If
rs.Close
rs.Open "select * from game", conn, 1, 3 '增加游戏
rs.AddNew
rs("UID") = UID
If Points > 0 Then rs("SOCKETKEY") = SocketKey
rs("GAMETYPE") = 0
rs("GAMENAME") = AreaName
rs("MONEYNAME") = PayMode
rs("HOST") = AreaIp
rs("PORT") = SendPort
rs("CreateTime") = Now
rs("GAMEPATH") = AreaPath
rs("NPCCOORDINATES") = "3 344 338"
rs("NPCNAME") = "元宝使者"
rs("POINT") = PerPay
rs("JIFEN") = Points
rs("RECHARGESTATUS") = 1
rs("MAKENPCTIMES") = 1
rs("JFTYPE") = GiftPoints
rs("SORT") = SortID
rs("AWARDTYPE") = 0
rs("FLAG") = Gift
rs("DELSTATUS") = 0
rs.update
rs.close
rs.Open "select * from game order by GID Asc", conn, 1, 1
rs.MoveLast
GID = rs("GID")
rs.Close出现一下错误,Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' [MySQL][ODBC 5.1 Driver]Optional feature not implemented /ChargeHandlingEx.asp，行 102120行是这句   rs("SORT") = SortID困扰很多天了,多多指点

解决方案 »

  1.   

    是ASP网页里面的
      

  2.   

    Response.Write SortID
    rs("SORT") = SortID
    加上这一行,看一下SortID的值,还有Sort字段的类型是?
      

  3.   

    我把整个页面都发上来吧
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <title>test</title>
    </head>
    <body>
    </body>
    </html>
    <%

    dim TCID '充值任务编号
    dim GameName '游戏区名 
    dim GameNum '区名序号
    dim LUser '登录账号
    dim AreaPath '区路径x:\mirserver
    dim SendPort '发送端口
    dim PerPay '充值比例
    dim PayMode '1代表元宝,其他为金币
    dim Points '积分比例
    dim Gift '其他赠送(1金刚石/2声望/0无)
    dim GiftPoints '其他赠送比例
    dim Bank '网银比例
    dim Card '点卡比例

    TCID = request.form("TCID")
    If TCID = "" Then response.end()
    LUser = request.form("LUser")
    GameName = request.form("GameName")
    GameNum = request.form("GameNum")
    AreaPath = request.form("AreaPath")
    AreaIp = request.Form("AreaIp")
    SendPort = Clng(request.form("SendPort"))
    PerPay = Clng(request.form("PerPay"))
    PayMode = Clng(request.form("PayMode"))
    Points = Clng(request.form("Points"))
    Gift = Clng(request.form("Gift"))
    GiftPoints = Clng(request.form("GiftPoints"))
    Bank = Clng(request.form("Bank"))
    Card = Clng(request.form("Card"))

    AreaName = GameName & Right("0" & GameNum, 2) & "区"
    If PayMode =  1 Then 
    PayMode = "元宝"
    Else
    PayMode = "金币"
    End If
    If Points > 0 Then SocketKey = "..\QuestDiary\数据文件\消费积分Save.txt|..\QuestDiary\数据文件\元宝消费Save.txt"
    Set Conn=Server.CreateObject("adodb.Connection")
    conn.Open "driver={mysql odbc 5.1 driver};DataBase=11111;server=localhost;uid=root;password=111111"
    Set rs = Server.CreateObject("Adodb.RecordSet")
    rs.Open "select * from User where USERNAME='" & LUser & "'", conn, 1, 1
    If rs.eof Then
    rs.close
    Set rs = Nothing
    conn.close
    Set conn = Nothing
    Response.Write("<SCRIPT language=JavaScript>this.location.href='http://xxx.xxxx.com/AutoChange/DelChargeTaskHandlingEx.asp?TCID=" & TCID & "';</SCRIPT>") '账号错误,直接删任务
    End If
    UID = rs("UID")
    rs.close

    rs.Open "select * from game where UID=" & UID & " And DELSTATUS=0 And GAMENAME='" & AreaName & "'", conn, 1, 1 '检测是否加充值是否重复
    If Not rs.eof Then
    rs.Close
    set rs = Nothing
    conn.Close
    Set conn = Nothing
    Response.Write("<SCRIPT language=JavaScript>this.location.href='http://xxxx.xxxx.com/AutoChange/DelChargeTaskHandlingEx.asp?TCID=" & TCID & "';</SCRIPT>")
    End If
    rs.Close


    rs.Open "select * from game where UID=" & UID & " And DELSTATUS=0 order by SORT desc", conn, 1, 1
    If rs.eof Then
    SortID = 0
    Else
    SortID = rs("SORT") + 1 '获取序号
    End If
    rs.Close
    rs.Open "select * from game", conn, 1, 3 '增加游戏
    rs.AddNew
    rs("UID") = UID
    If Points > 0 Then rs("SOCKETKEY") = SocketKey
    rs("GAMETYPE") = 0
    rs("GAMENAME") = AreaName
    rs("MONEYNAME") = PayMode
    rs("HOST") = AreaIp
    rs("PORT") = SendPort
    rs("CreateTime") = Now
    rs("GAMEPATH") = AreaPath
    rs("NPCCOORDINATES") = "3 344 338"
    rs("NPCNAME") = "元宝使者"
    rs("POINT") = PerPay
    rs("JIFEN") = Points
    rs("RECHARGESTATUS") = 1
    rs("MAKENPCTIMES") = 1
    rs("JFTYPE") = GiftPoints
    rs("SORT") = SortID
    rs("AWARDTYPE") = 0
    rs("FLAG") = Gift
    rs("DELSTATUS") = 0
    rs.update
    rs.close
    rs.Open "select * from game order by GID Asc", conn, 1, 1
    rs.MoveLast
    GID = rs("GID")
    rs.Close

    rs.Open "select * from award", conn, 1, 3  '增加奖励
    rs.AddNew
    rs("PWNETWORK") = "jw"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "wm"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "qb"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "sd"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "zt"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "wy"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "sh"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "cc"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "jy"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "szx"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "zy"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "tx"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "th"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "dx"
    rs("GID") = GID
    rs("AWARD") = Card
    rs.update
    rs.AddNew
    rs("PWNETWORK") = "bank"
    rs("GID") = GID
    rs("AWARD") = Bank
    rs.update
    rs.close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    Response.Write("<SCRIPT language=JavaScript>this.location.href='http://xxxx.xxxx.com/AutoChange/DelChargeTaskHandlingEx.asp?TCID=" & TCID & "';</SCRIPT>")

    %>