2024/8/8 15:24:38
<!--#include file="check.asp"-->
<%
'判断数据库是否有字段,没有就添加
Set rs=Conn.Execute("select * from data_e_news2")
for i =0 to rs.Fields.Count - 1
allziduan=allziduan & "," & rs.Fields(i).Name
next
rs.close
if instr(allziduan,"can6")=0 then
'在现有的表中增加字段:
Sql2="alter table [data_e_news2] add column [can1] varchar(255) NULL,[can2] varchar(255) NULL,[can3] varchar(255) NULL,[can4] varchar(255) NULL,[can5] varchar(255) NULL,[can6] varchar(255) NULL"
conn.execute(sql2)
response.write("can1,can2.can3.can4.can5.can6字段添加成功")
end if
%>