<% '下面是最具技术含量的函数了,哈哈~ '增加数据库字段 function addziduan(ziduanming,ziduanleixing) on error resume next fldname = ziduanming if ziduanleixing=1 or ziduanleixing=4 then fldtype = "VarChar" fldsize = 255 elseif ziduanleixing=2 or ziduanleixing=3 then fldtype = "Text" fldsize = "" end if fldnull = "ON" fldautoincrement = "" table_name = tables if fldname <> "" and fldtype <> "" then sql = "alter table [" & table_name & "] add ["&fldname&"] " & fldtype if fldsize <> "" then sql = sql & "(" & fldsize & ")" end if if fldnull <> "ON" then sql = sql & " not null" end if conn.execute(sql) if err <> 0 then response.Write "<input type='button' name='ok' value=' 返 回 ' onClick='javascript:history.go(-1)'>" end if end if end function %>