update.asp

C2C二手交易网SMRUC v2.0 全部实现了C2C电子商务功能。 特别适合高校、组织、社区实现自己的C2C电子商务。 C2C二手交易网SMRUC v2.0具有强大的用户自主发布和管理信息功能

<!-- #include file="conn.asp" -->
<%
'=============================================================     
'函数介绍：创建ACCESS数据库表函数
'函数名称：CreateMDBTable
'程序开发：ASP001工作室 ChuQi
'用法：CreateMDBTable "数据库表名称","数据库地址"
'例：CreateMDBTable "Test","Test.mdb"
'=============================================================
Function CreateMDBTable(TableName,MdbFileName)
  Dim SQL,RS,Conn,Strcon
  Set Conn = Server.CreateObject("ADODB.Connection")
  Strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MdbFileName)
  Conn.open Strcon
  '创建表
  SQL = "CREATE TABLE [" & TableName & "] ("
  '创建自动编号类型的字段id
  SQL = SQL & "[id] integer IDENTITY (1, 1) PRIMARY KEY NOT NULL ,"
  '创建文本类型的字段username，并限定该字段的长度为50(char(50)实现该功能),不能为空(NOT NULL)
  SQL = SQL & "[username] char (50) NOT NULL,"
  '创建文本类型的字段password，并限定该字段的长度为50(char(50)实现该功能),允许为空(NULL)
  SQL = SQL & "[password] char (50) NULL ,"
  '创建数值类型的字段num
  SQL = SQL & "[num] number ,"
  '创建日期类型的字段datatime
  SQL = SQL & "[datatime] date ,"
  '创建逻辑类型的字段yesorno
  SQL = SQL & "[yesorno] bit ,"
  '创建备注类型的字段neirong
  SQL = SQL & "[info] memo "
  SQL =SQL& ")"
  Set RS = Conn.Execute(SQL)
  '显示创建成功信息。
  Response.Write ("<br><font color=""#ff0000"">" & TableName & "</font> 表创建成功！")
end Function

sql="alter table config add webconfig_allowip1 char(50) NULL,webconfig_allowip2 char(50) NULL,webconfig_userday number"
conn.execute(sql)
sql="alter table info add info_pic char(50) NULL,info_push number default 0"
conn.execute(sql)
sql="alter table [user] add user_logincount number default 0,user_infocount number default 0"
conn.execute(sql)
sql="update config set webconfig_allowip1='10.0.0.0',webconfig_allowip2='10.255.255.255',webconfig_userday=60"
conn.execute(sql)
sql="update info set info_push=0"
conn.execute(sql)
sql="update [user] set user_logincount=0,user_infocount=0"
conn.execute(sql)
Response.Write ("数据库修改成功！")
%>