通过SPT创建C

曾经用sqldmo创建远程数据库、表、权限等方法，为了少带sqldmo的dll，现在改为直接用spt创建，下面是我已经写完工的部分，资源共享：）发上来供大家参考并请多多指教！谢谢！
　　parameters cservername,cuser,cpassword,cdatabase
　　sqldisconnect(0) &&断开所有连接
　　lsconn='driver=sql server;server='+cservername+';uid='+cuser+';pwd='+cpassword+';database=master'
　　lnconn=sqlstringconnect(lsconn) &&建立连接句柄
　　if lnconn>0
　　*!* 1. 建新数据库
　　sqlexec(lnconn,'select cast(filename as char(200)) sys_path from sysfiles','mycursor')
　　sqlpath=alltrim(left(mycursor.sys_path,rat('\',alltrim(mycursor.sys_path))))
　　wait window "正在创建 ［"+cdatabase+"］ 数据库，请稍候......" nowait
　　sqlexec(lnconn,"sp_databases","mycursor") &&列出服务器上的数据库
　　select mycursor
　　go top
　　locate for alltrim(upper(mycursor.database_name))==alltrim(upper(cdatabase))
　　if !found()
　　csql="create database "+alltrim(cdatabase)
　　csql=csql+" on "
　　csql=csql+" ( name = "+alltrim(cdatabase)+"_dat,"
　　csql=csql+" filename = '"+sqlpath+alltrim(cdatabase)+"_dat.mdf',"
　　csql=csql+" size = 4,"
　　csql=csql+" filegrowth = 2 )"
　　csql=csql+" log on "
　　csql=csql+" ( name = "+alltrim(cdatabase)+"_log,"
　　csql=csql+" filename = '"+sqlpath+alltrim(cdatabase)+"_log.ldf',"
　　csql=csql+" size = 2mb,"
　　csql=csql+" filegrowth = 2mb )"
　　if sqlexec(lnconn,csql)