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

            else
                echo "<input type='text' style='width:600;' name='" & tab.Name & "_Column'"
                echo IIf(tab.Name = keys, " disabled title='主键约束,将无法被修改.'", " ") & " value='"
                if action <> "add" then echo trim(tab.value)
                echo "'>"
            end if
            echo "<br>"
        Next

    else
        echo "<script>alert('已经没有了!');history.back();</script>"
        Response.End()
    end if
    echo "<br>"
    echo iif(action="add","","<input type=submit value=保存 onclick=this.form.action.value='save';> ")
    echo "<input type=button value=添加 onclick=if(confirm('确实要添加当前为新记录吗?')){this.form.action.value='new';this.form.submit();};> "
    echo "<input type=button value=上一条 onclick=""this.form.action.value='pre';this.form.submit();""> "
    echo "<input type=button value=下一条 onclick=""this.form.action.value='next';this.form.submit();"">  "
    echo "<a href='?key=view&table_name=" & names & "'>表结构</a>  "
    echo "<a href='?key=sql&sql=select * from " & names & "&table_name="& names & "&primarykey="&keys&"'>表浏览</a>  "
    echo "<a href='?'>主界面</a>  "
    echo "</form></td></tr></table>"
end sub

'==================================================================显示存储过程
sub showproc()
    dim sTableName,adox
    on error resume next
    echo "存储过程：<font color=red>" & Request("table_name") & "<font><br>"