<%
Sub SaveData()
    Dim GameCls,Area,realName,Email,Telephone,im,Content1,Content2,Content3,Content,Title,maxID
    End If
    GameCls = formatSQLchar(Trim(Request.Form("GameCls")))
    Area = formatSQLchar(Trim(Request.Form("Area")))
    realName = formatSQLchar(Trim(Request.Form("realName")))
    Email = formatSQLchar(Trim(Request.Form("Email")))
    Telephone = formatSQLchar(Trim(Request.Form("Telephone")))
    Title = formatSQLchar(Trim(Request.Form("Title")))
    im = formatSQLchar(Trim(Request.Form("im")))
    Content1 = formatSQLchar(Trim(Request.Form("Content1")))
    Content2 = formatSQLchar(Trim(Request.Form("Content2")))
    Content3 = formatSQLchar(Trim(Request.Form("Content3")))
    Content = formatSQLchar(Trim(Request.Form("Content")))
    If Area = "" Then
        Response.Write "错误":Response.End
    End If
    OpenDB WebDB
    Set Rs = Server.CreateObject("ADODB.RecordSet")
    Rs.Open "SELECT Max(id) FROM GuestBook",Conn,1,1
    If Rs.Eof And Rs.Bof Then
        maxID = 1
    Else
        maxID = Rs(0)+1
    End If
    Rs.Close:Set Rs = Nothing
    If IsNull(maxID) Then maxID = 1
    Conn.Execute ("INSERT INTO GuestBook (id,GameCls,Area,realName,Email,Telephone,im,Content1,Content2,Content3,Content,Title) VALUES (" & maxID & ",'" & GameCls & "','" & Area & "','" & realName & "','" & Email & "','" & Telephone & "','" & im & "','" & Content1 & "','" & Content2 & "','" & Content3 & "','" & Content & "','" & Title & "')")
    CloseDB
End Sub
%

以上写入数据库代码如何才能增加区分大小写写入数据库