📄 admin_mod_dbsetup.asp
字号:
case "mysql"
strSql = strSql & idFieldName &" INT (11) DEFAULT '' NOT NULL auto_increment "
end select
end if
for y = 0 to numfields -1
on error resume next
tmpArray = split(fieldArray(y),"#")
fName = uCase(tmpArray(0))
fType = lCase(tmpArray(1))
fNull = uCase(tmpArray(2))
fDefault = tmpArray(3)
if idFieldName <> "" or y <> 0 then
strSql = strSql & ", "
end if
select case strDBType
case "access"
fType = replace(fType,"varchar (","text (")
case "sqlserver"
select case sqlVer
case 7
fType = replace(fType,"memo","ntext")
fType = replace(fType,"varchar","nvarchar")
fType = replace(fType,"date","datetime")
case else
fType = replace(fType,"memo","text")
end select
case "mysql"
fType = replace(fType,"memo","text")
fType = replace(fType,"#int","#int (11)")
fType = replace(fType,"#smallint","#smallint (6)")
end select
if fNull <> "NULL" then fNull = "NOT NULL"
strSql = strSql & fName & " " & fType & " " & fNull & " "
if fdefault <> "" then
select case strDBType
case "access"
if Instr(lcase(strConnString), "jet") then strSql = strSql & "DEFAULT " & fDefault
case else
strSql = strSql & "DEFAULT " & fDefault
end select
end if
next
if strDBType = "mysql" then
if idFieldName <> "" then
strSql = strSql & ",KEY " & TablePrefix & strTableName & "_" & idFieldName & "(" & idFieldName & "))"
else
strSql = strSql & ")"
end if
else
strSql = strSql & ")"
end if
response.write " " & strSql & "<br />" & vbNewLine
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if err.number <> 0 and err.number <> 13 and err.number <> tableExists then
response.Write " " & strSql & "<br />" & vbNewLine
response.Write(" <font color=""#FF0000"">" & err.number & " | " & err.description & "</font><br />" & vbNewLine)
ErrorCount = ErrorCount + 1
else
if err.number = tableExists then
Response.Write(" <font color=""#FF0000""><b>Table already exists</b></font><br />" & vbNewLine)
else
Response.Write(" <b>Table created successfully</b><br />" & vbNewLine)
end if
end if
response.write(" <hr size=""1"" width=""260"" align=""center"" color=""blue""></font>" & vbNewLine)
end Sub
Sub AlterTables(numfields)
Response.write " <br /><font face=""Verdana, Arial, Helvetica"" size=""1"">" & vbNewLine
for y = 0 to numfields -1
on error resume next
if Instr(1,strTableName,"MEMBER",1) > 0 then
TablePrefix = strMemberTablePrefix
else
TablePrefix = strTablePrefix
end if
strSql = "ALTER TABLE " & TablePrefix & strTableName
tmpArray = split(fieldArray(y),"#")
fAction = uCase(tmpArray(0))
fName = uCase(tmpArray(1))
fType = lCase(tmpArray(2))
fNull = uCase(tmpArray(3))
fDefault = tmpArray(4)
select case fAction
case "ADD"
strSQL = strSQL & " ADD "
if strDBType = "access" then strSql = strSql & "COLUMN "
case "DROP"
strSQL = strSQL & " DROP COLUMN "
case "ALTER"
strSQL = strSQL & " ALTER COLUMN "
case else
end select
if fAction = "ADD" or fAction = "ALTER" then
select case strDBType
case "access"
fType = replace(fType,"varchar (","text (")
case "sqlserver"
select case sqlVer
case 7
fType = replace(fType,"memo","ntext")
fType = replace(fType,"varchar","nvarchar")
fType = replace(fType,"date","datetime")
case else
fType = replace(fType,"memo","text")
end select
case "mysql"
fType = replace(fType,"memo","text")
fType = replace(fType,"#int","#int (11)")
fType = replace(fType,"#smallint","#smallint (6)")
end select
if fNull <> "NULL" then fNull = "NOT NULL"
strSql = strSQL & fName & " " & fType & " " & fNULL & " "
if fDefault <> "" then
select case strDBType
case "access"
if Instr(lcase(strConnString), "jet") then strSql = strSql & "DEFAULT " & fDefault
case else
strSql = strSql & "DEFAULT " & fDefault
end select
end if
Response.Write " <b>Adding Column " & fName & "...</b><br />" & vbNewLine
else
strSql = strSQL & fName
Response.Write " <b>Dropping Column...</b><br />" & vbNewLine
end if
response.write " " & strSql & "<br />" & vbNewLine
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if err.number <> 0 and err.number <> 13 and err.number <> fieldExists then
response.write " " & strSQL & "<br />" & vbNewLine
response.write(" <font color=""#FF0000"">" & err.number & " | " & err.description & "</font><br />" & vbNewLine)
ErrorCount = ErrorCount + 1
resultString = ""
else
if fAction = "DROP" then
Response.Write(" <b>Column " & LCase(fAction) & "ped successfully</b><br />" & vbNewLine)
resultString = " <b>Table(s) updated</b><br />" & vbNewLine
else
if err.number = fieldExists then
Response.Write(" <b><font color=""#FF0000"">Column already exists</font></b><br />" & vbNewLine)
resultString = ""
else
Response.Write(" <b>Column " & LCase(fAction) & "ed successfully</b><br />" & vbNewLine)
end if
end if
if fDefault <> "" and err.number <> fieldExists then
strSQL = "UPDATE " & TablePrefix & strTableName & " SET " & fName & "=" & fDefault
response.write " " & strSql & "<br />" & vbNewLine
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
response.write " <b>Populating Current Records with new Default value</b><br />" & vbNewLine
resultString = " <b>Table(s) updated</b><br />" & vbNewLine
end if
end if
if fieldArray(y) = "" then y = numfields
next
Response.Write(resultString)
Response.Write(" <hr size=""1"" width=""260"" align=""center"" color=""blue""></font>" & vbNewLine)
end Sub
Sub InsertValues(numfields)
Response.Write " <br /><font face=""Verdana, Arial, Helvetica"" size=""1"">" & vbNewLine
on error resume next
Response.Write (" <b>Adding new records..</b><br />" & vbNewLine)
for y = 0 to numfields-1
if Instr(1,strTableName,"MEMBER",1) > 0 then
strSql = "INSERT INTO " & strMemberTablePrefix & strTableName & " "
else
strSql = "INSERT INTO " & strTablePrefix & strTableName & " "
end if
tmpArray = split(fieldArray(y),"#")
fNames = tmpArray(0)
fValues = tmpArray(1)
strSql = strSql & tmpArray(0) & " VALUES " & tmpArray(1)
Response.Write " " & strSql & "<br />" & vbNewLine
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
next
if err.number <> 0 and err.number <> 13 then
Response.Write " " & strSql & "<br />" & vbNewLine
Response.Write(" <font color=""#FF0000"">" & err.number & " | " & err.description & "</font><br />" & vbNewLine)
ErrorCount = ErrorCount + 1
else
Response.Write(" <br /><b>Value(s) updated successfully</b>" & vbNewLine)
end if
Response.Write(" <hr size=""1"" width=""260"" align=""center"" color=""blue""></font>" & vbNewLine)
end Sub
Sub UpdateValues(numfields)
on error resume next
Response.write " <br /><font face=""Verdana, Arial, Helvetica"" size=""1"">" & vbNewLine
response.write(" <b>Updating Forum Values..</b><br />" & vbNewLine)
for y = 0 to numfields-1
if Instr(1,strTableName,"MEMBER",1) > 0 then
strSql = "UPDATE " & strMemberTablePrefix & strTableName & " SET"
else
strSql = "UPDATE " & strTablePrefix & strTableName & " SET"
end if
tmpArray = split(fieldArray(y),"#")
fName = tmpArray(0)
fValue = tmpArray(1)
fWhere = tmpArray(2)
strSql = strSql & " " & fName & " = " & fvalue
if fWhere <> "" then
strSql = strSql & " WHERE " & fWhere
end if
Response.Write " " & strSql & "<br />" & vbNewLine
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
next
if err.number <> 0 then
Response.Write(" <font color=""#FF0000"">" & err.number & " | " & err.description & "</font><br />" & vbNewLine)
ErrorCount = ErrorCount + 1
Response.Write " " & strSql & "<br />" & vbNewLine
else
Response.Write(" <br /><b>Value(s) updated successfully</b>" & vbNewLine)
end if
Response.Write(" <hr size=""1"" width=""260"" align=""center"" color=""blue""></font>" & vbNewLine)
end Sub
Sub DeleteValues(numfields)
on error resume next
response.write " <br /><font face=""Verdana, Arial, Helvetica"" size=""1"">" & vbNewLine
response.write(" <b>Updating Forum Values..</b><br />" & vbNewLine)
if Instr(1,strTableName,"MEMBER",1) > 0 then
strSql = "DELETE FROM " & strMemberTablePrefix & strTableName & " WHERE "
else
strSql = "DELETE FROM " & strTablePrefix & strTableName & " WHERE "
end if
tmpArray = fieldArray(0)
strSql = strSql & tmpArray
response.write " " & strSql & "<br />" & vbNewLine
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if err.number <> 0 then
response.write " " & strSql & "<br />" & vbNewLine
response.write(" <font color=""#FF0000"">" & err.number & " | " & err.description & "</font><br />" & vbNewLine)
ErrorCount = ErrorCount + 1
else
response.write(" <br /><b>Value(s) updated successfully</b>" & vbNewLine)
end if
response.write(" <hr size=""1"" width=""260"" align=""center"" color=""blue""></font>" & vbNewLine)
end Sub
Sub DropTable()
on error resume next
response.write " <br /><font face=""Verdana, Arial, Helvetica"" size=""1"">" & vbNewLine
response.write(" <b>Dropping Table..</b><br />" & vbNewLine)
if Instr(1,strTableName,"MEMBER",1) > 0 then
strSql = "DROP TABLE " & strMemberTablePrefix & strTableName
else
strSql = "DROP TABLE " & strTablePrefix & strTableName
end if
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if err.number <> 0 and err.number <> 13 and err.number <> tableNotExist then
response.write " " & strSql & "<br />" & vbNewLine
response.write(" <font color=""#FF0000"">" & err.number & " | " & err.description & "</font><br />" & vbNewLine)
ErrorCount = ErrorCount + 1
else
if err.number = tableNotExist then
response.write(" <br /><b>Table does not exist</b>" & vbNewLine)
else
response.write(" <br /><b>Table dropped successfully</b>" & vbNewLine)
end if
end if
response.write(" <hr size=""1"" width=""260"" align=""center"" color=""blue""></font>" & vbNewLine)
end Sub
on error goto 0
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -