📄 mod_dbsetup.asp
字号:
<%
'#############################################################
'# 中国在线--极酷论坛 ver.2001 3.0
'#
'# 版权所有: 中国在线 (ChinaXP.Net)
'#
'# 制作人 : 周周 (SeeYa!)
'#
'#
'# 主页地址: http://www.ChinaXP.net/ 中国在线官方网站
'# http://BBS.ChinaXP.Net 中国在线--极酷论坛
'#
'#############################################################
%>
<!--#include file="config.asp"-->
<!--#include file="../inc_functions.asp"-->
<%
Dim strTableName
Dim fieldArray (100)
Dim idFieldName
Dim ErrorCount
ErrorCount = 0
modFolder = ""
Dim dbPathMods
dbPathMods = "../" & dbPath ' ### 论坛数据库
strConnModsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPathMods)
set my_Conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnModsString
Set fso = CreateObject("Scripting.FileSystemObject")
set objFile = fso.Getfile(server.mappath(modFolder & "Mod_dbsetup.asp"))
set objFolder = objFile.ParentFolder
set objFolderContents = objFolder.Files
if Request.Form("dbMod") = "" then
Response.write("<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>")
Response.write "<h3>WormCN Forums Modifications</h3>" &_
"<b>" & UCase(strDBType) & "</b> 数据库升级安装 .....<br></font>" &_
"<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""post"" name=""form1"">"
If strDBType = "" then
Response.write "<font face=""" & strDefaultFontFace & """ color=red size=""" & strDefaultFontSize & """>Your strDBType is not set, please edit your config.asp<br>" &_
"to reflect your database type<br></font>"
Response.write "<br><a href=""default.asp"">Go Back to Forum</a></font>"
Response.End
end if
If strDBType = "sqlserver" then
Response.write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"You are using SQL Server, please select the correct version<br>" &_
"<input type=""radio"" name=""sqltype"" value=""7"" checked> SQL 7.x " &_
"<input type=""radio"" name=""sqltype"" value=""6""> SQL 6.x<br></font>"
End If
on error resume next
Response.write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"<p>请从下面列表中选择需要安装的插件，并且按 Update! 按钮<br>" &_
"本程序执行完成后，这论坛数据库将被更新。</P></font>" &_
"<select name=""dbMod"" size=""1"">"
for each objFileItem in objFolderContents
intFile = instr(objFileItem.Name, ".dbs")
if intFile <> 0 then
modFile = left(objFileItem.Name, intFile - 1)
whichfile = server.mappath(modFolder & modFile & ".dbs")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile, 1, False)
ModName = thisfile.readline
Response.write "<option value=""" & whichfile & """>" & ModName & "</option>"
thisfile.close
if err.number <> 0 then
Response.write err.description
Response.end
end if
set fs = nothing
end if
Next
Response.write "</select> " &_
"<input type=""submit"" name=""submit1"" value=""Update!""></form>" &_
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"<a href=""default.asp"">返回到论坛！</a></font>"
Else
sqlVer = Request.Form("sqltype")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(Request.Form("dbMod"), 1, False)
ModName = thisfile.readline
response.write ("<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize+1 & ">")
response.write ("<h4>" & ModName & "</h4></font>")
'Load Sections for processing
do while not thisfile.AtEndOfStream
sectionName = thisfile.readline
Select case sectionName
case "[CREATE]"
strTableName = thisfile.readline
idFieldName = thisfile.readline
tempField = thisfile.readline
rec = 0
do while tempField <> "[END]"
fieldArray(rec) = tempField
rec = rec+1
tempField = thisfile.readline
loop
CreateTables(rec)
case "[ALTER]"
strTableName = thisfile.readline
tempField = thisfile.readline
rec = 0
do while tempField <> "[END]"
fieldArray(rec) = tempField
rec = rec+1
tempField = thisfile.readline
loop
AlterTables(rec)
case "[DELETE]"
strTableName = thisfile.readline
tempField = thisfile.readline
rec = 0
do while tempField <> "[END]"
fieldArray(rec) = tempField
rec = rec+1
tempField = thisfile.readline
loop
DeleteValues(rec)
case "[INSERT]"
strTableName = thisfile.readline
tempField = thisfile.readline
rec = 0
do while tempField <> "[END]"
fieldArray(rec) = tempField
rec = rec+1
tempField = thisfile.readline
loop
InsertValues(rec)
case "[UPDATE]"
strTableName = thisfile.readline
tempField = thisfile.readline
rec = 0
do while tempField <> "[END]"
fieldArray(rec) = tempField
rec = rec+1
tempField = thisfile.readline
loop
UpdateValues(rec)
case "[DROP]"
strTableName = thisfile.readline
tempField = thisfile.readline
DropTable()
end select
loop
response.write ""
if ErrorCount > 0 then
Response.write "<br>There were errors please post a question in the MOD Implementation Forum at<br>"
Response.write "<a href=""http://www.ChinaXP.Net/bbs/"">Xhsoft.net Forums</a>"
else
Response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><p><b>Database setup finished</b></p>"
end if
Response.write "</font>" &_
"<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""post"" name=""form2"">" &_
"<input type=""hidden"" name=""dbMod"" value="""">" &_
"<input type=""submit"" name=""submit2"" value=""已经完成""></form>"
end if
set fs=nothing
set fso = nothing
%>
<%
Sub CreateTables( numfields )
response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
response.write "<b>Creating table(s)...</b><br>"
if len(strTableName) > 6 then
if Instr(strTableName,"MEMBER") > 0 then
TablePrefix = strMemberTablePrefix
else
TablePrefix = strTablePrefix
end if
else
TablePrefix = strTablePrefix
end if
strSql = "CREATE TABLE " & TablePrefix & strTableName & "( "
if idFieldName <> "" then
select case strDBType
case "access"
if Instr(strConnString,"(*.mdb)") then
strSql = strSql & idFieldName &" int COUNTER NOT NULL "
else
strSql = strSql & idFieldName &" int IDENTITY (1, 1) NOT NULL "
end if
case "sqlserver"
strSql = strSql & idFieldName &" int IDENTITY (1, 1) NOT NULL "
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 = tmpArray(0)
fType = tmpArray(1)
fNull = 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
strSql = strSql & "DEFAULT " & fDefault
end if
next
if strDBType = "mysql" then
strSql = strSql & ",KEY " & TablePrefix & strTableName & "_" & idFieldName & "(" & idFieldName & "))"
else
strSql = strSql & ")"
end if
response.write strSql & "<br>"
my_Conn.Execute strSql
if err.number <> 0 and err.number <> 13 then
response.write("<font color=red>" & err.number & " | " & err.description & "</font><br>")
ErrorCount = ErrorCount + 1
else
response.write("<b>Table created succesfully</b><br>")
end if
response.write("<hr size=""1"" width=""260"" align=left color=""blue""></font>")
end Sub
Sub AlterTables(numfields)
Response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
for y = 0 to numfields -1
on error resume next
if Instr(strTableName,"MEMBER",1) > 0 then
TablePrefix = strMemberTablePrefix
else
TablePrefix = strTablePrefix
end if
strSql = "ALTER TABLE " & TablePrefix & strTableName
tmpArray = split(fieldArray(y),"#")
fAction = tmpArray(0)
fName = tmpArray(1)
fType = tmpArray(2)
fNull = 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,"#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 strSQL = strSQL & "DEFAULT " & fDefault
response.write "<b>Adding Column...</b><br>" & HTMLEncode(strSQL) & "<br>"
else
strSql = strSQL & fName
response.write "<b>Dropping Column...</b><br>" & HTMLEncode(strSQL) & "<br>"
end if
my_Conn.Execute strSql
if err.number <> 0 and err.number <> 13 then
response.write("<font color=red>" & err.number & " | " & err.description & "</font><br>")
ErrorCount = ErrorCount + 1
else
if fAction = "DROP" then
response.write("<b>Column " & LCase(fAction) & "ped successfully</b><br>")
else
response.write("<b>Column " & LCase(fAction) & "ed successfully</b><br>")
end if
if fDefault <> "" then
strSQL = "UPDATE " & TablePrefix & strTableName & " SET " & fName & "=" & fDefault
my_Conn.Execute strSql
response.write "<b>Populating Current Records with new Default value</b><br>" & strSQL & "<br>"
end if
end if
if fieldArray(y) = "" then y = numfileds
next
response.write("<b>Table(s) updated</b><br>")
response.write("<hr size=""1"" width=""260"" align=left color=""blue""></font>")
end Sub
Sub InsertValues(numfields)
Response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
on error resume next
response.write ("<b>Adding new records..</b><br>")
for y = 0 to numfields-1
if Instr(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)
my_Conn.Execute strSql
response.write strSql & "<br>"
next
if err.number <> 0 and err.number <> 13 then
response.write("<font color=red>" & err.number & " | " & err.description & "</font><br>")
ErrorCount = ErrorCount + 1
else
response.write("<br><b>Value(s) updated succesfully</b>")
end if
response.write("<hr size=""1"" width=""260"" align=left color=""blue""><font>")
end Sub
Sub UpdateValues(numfields)
on error resume next
Response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
response.write ("<b>Updating Forum Values..</b><br>")
for y = 0 to numfields-1
if Instr(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 & " WHERE " & fWhere
my_Conn.Execute strSql
response.write strSql & "<br>"
next
if err.number <> 0 and err.number <> 13 then
response.write("<font color=red>" & err.number & " | " & err.description & "</font><br>")
ErrorCount = ErrorCount + 1
else
response.write("<br><b>Value(s) updated succesfully</b>")
end if
response.write("<hr size=""1"" width=""260"" align=left color=""blue""><font>")
end Sub
Sub DeleteValues(numfields)
on error resume next
response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
response.write ("<b>Updating Forum Values..</b><br>")
if Instr(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
my_Conn.Execute strSql
response.write strSql & "<br>"
if err.number <> 0 and err.number <> 13 then
response.write("<font color=red>" & err.number & " | " & err.description & "</font><br>")
ErrorCount = ErrorCount + 1
else
response.write("<br><b>Value(s) updated succesfully</b>")
end if
response.write("<hr size=""1"" width=""260"" align=left color=""blue""><font>")
end Sub
Sub DropTable()
on error resume next
response.write "<br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
response.write ("<b>Dropping Table..</b><br>")
if Instr(strTableName,"MEMBER",1) > 0 then
strSql = "DROP TABLE " & strMemberTablePrefix & strTableName
else
strSql = "DROP TABLE " & strTablePrefix & strTableName
end if
my_Conn.Execute strSql
response.write strSql & "<br>"
if err.number <> 0 and err.number <> 13 then
response.write("<font color=red>" & err.number & " | " & err.description & "</font><br>")
ErrorCount = ErrorCount + 1
else
response.write("<br><b>Table dropped succesfully</b>")
end if
response.write("<hr size=""1"" width=""260"" align=left color=""blue""><font>")
end Sub
my_Conn.Close
set my_Conn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -