在线数据库管理工具(db007) v1.5(23)



      if fldsize <> "" then
        sql = sql & "(" & fldsize & ")"
      end if 

      if fldnull <> "ON" then
        sql = sql & " not null"
      end if

      if fldautoincrement = "ON" then
        sql = sql & " identity"
      end if
      conn.execute(sql)
      response.redirect "?key=view&table_name=" & table_name
    else
      echo "输入数据错误!<input type='button' name='ok' value=' 返 回 ' onClick='javascript:history.go(-1)'>"
    end if
    if err <> 0 then
        echo err.description
        echo "<input type='button' name='ok' value=' 返 回 ' onClick='javascript:history.go(-1)'>"
        response.end
    end if
end sub


'==================================================================编辑数据
sub editdata()
    dim keys,names,values,action,rs,sql,tab
    on error resume next
    keys = request("primarykey")
    names = request("table_name")
    values = request("primarykeyvalue")
    action = request("action")
    Set rs = Server.CreateObject("Adodb.RecordSet")
    if action = "" or action = "save" or action = "new" then
        sql = "select * from " & names & " where " & keys & " = " & values
    end if
    if action = "pre" then
        sql = "select top 1 * from " & names & " where " & keys & " < " & values & " order by " & keys & " desc"

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3578.html