updateto12.asp

有关遗传算法的例子

<!--#include file="conn.asp" -->
<%
Rem -----------------------亚阳影视升级程序--------------------------------
Rem ------------此程序只适用升级数据库1.1-1.2版本的升级--------------------
Rem ------------仅针对Access数据库-----------------------------------------
Rem -----------------------------------------------------------------------

on error resume next
'//增加流水号

conn.execute("DROP TABLE [IP]")
	If Err Then
		Response.Write "删除数据表[IP]失败，" & err.description &"<br>"
		err.Clear
	Else
		Response.Write "删除数据表[IP]成功<br>"
	End If
	Response.flush

SQL = "ALTER TABLE 财务报表 ADD 流水号 varchar(50)"
conn.Execute(SQL)
	If Err Then
		Response.Write "创建表字段[流水号]失败," & err.description &"<br>"
		err.Clear
	Else
		Response.Write "创建字段[流水号]成功<br>"
	End If
	Response.flush
	
SQL = "ALTER TABLE 注册信息 ADD 识别码 varchar(50)"
conn.Execute(SQL)
	If Err Then
		Response.Write "创建表字段[识别码]失败," & err.description &"<br>"
		err.Clear
	Else
		Response.Write "创建字段[识别码]成功<br>"
	End If
	Response.flush
	  
'//创建IP表
SQL = "CREATE TABLE IP(" & _
                 "ID AutoIncrement Not null," & _
		         "ip1 Double NOT NULL," & _
                 "ip2 Double NOT NULL," & _
                 "ip1_2 varchar(50) NOT NULL," & _
                 "ip2_2 varchar(50) NOT NULL," & _
                 "类型 varchar(50) NOT NULL," & _
                 "备注 varchar(50) NOT NULL)"
	Conn.ExeCute(SQL)
	If Err Then
		Response.Write "<br>创建表[IP]失败：" & err.description
		err.Clear
	Else
		Response.Write "<br>创建表[IP]成功"
	End If
	
	conn.close
	set conn=nothing
	Response.Write "<br><br>升级完毕...."
%>