%
strConn="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set Conn=server.createobject("Adodb.connection")
Conn.open strConn
'截取字符穿
Public Function Checkstr(Str)
    If Isnull(Str) Then
        CheckStr = ""
        Exit Function
    End If
    Str = Replace(Str,Chr(0),"")
    CheckStr = Replace(Str,"'","''")
End Function
'截取直接
Public Function IsInteger(Para)
    IsInteger=False
    If Not (IsNull(Para) Or Trim(Para) = "" Or Not IsNumeric(Para)) Then
        IsInteger = True
    End If
End Function
dim action:action = trim(request.Form("action"))
select case action
        case "save"
            CALL saveExt()
        case else
             call Main()
end select
sub Main()
dim Id:Id = Trim(request.QueryString("Id"))
if not IsInteger(Id) then Id=0
szSQL = "select Id,AddUserId,endUserId,setp0,setp1,Content,ResultId,BossId,addTime from db_MemFen where Id = "&Id&" "
set rs=conn.execute(szSQL)
if rs.eof and rs.bof then
else
    sId = rs("Id")
    sAddUserId = rs("AddUserId")
    sEndUserId = rs("endUserId")
    setp0 = rs("setp0")
    setp1 = rs("setp1")
    sContent = rs("Content")
    sResultId = rs("ResultId")
    sBossId = rs("BossId")
    addTime = rs("addTime")
end if
rs.Close:set rs = nothing
%>
理解的有点模糊~帮忙看一下~谢谢~