<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<title>虚拟形象插件 V2.6 正式版 模板安装程序</title>
<style type=text/css>
A:link,A:active,A:visited{TEXT-DECORATION:none ;Color:#000000}A:hover{TEXT-DECORATION: underline;Color:#4455aa}
BODY{FONT-SIZE: 12px;COLOR: #000000;FONT-FAMILY:  宋体;
scrollbar-face-color: #DEE3E7;scrollbar-highlight-color: #FFFFFF;scrollbar-shadow-color: #DEE3E7;scrollbar-3dlight-color: #D1D7DC;scrollbar-arrow-color:  #006699;scrollbar-track-color: #EFEFEF;scrollbar-darkshadow-color: #98AAB1;}
font{line-height : normal ;}
TD{font-family: 宋体;font-size: 12px;line-height : 15px ;}
th{background-image: url(bg1.gif);background-color: #4455aa;color: white;font-size: 12px;font-weight:bold;}
td.TableTitle2{background-color: #E4E8EF;}
td.TableBody1{background-color: #FFFFFF;line-height : normal ;}
td.TableBody2{background-color: #E4E8EF;line-height : normal ;}
.tableBorder1{width:760;border: 1px; background-color: #6595D6;}
.tableBorder2{width:760;border: 1px #DEDEDE solid; background-color: #EFEFEF;}
#TableTitleLink A:link, #TableTitleLink A:visited, #TableTitleLink A:active {COLOR: #FFFFFF;	TEXT-DECORATION: none;}#TableTitleLink A:hover {COLOR: #FFFFFF;	TEXT-DECORATION: underline;}
input,select,Textarea,option{font-family:Tahoma,Verdana,"宋体"; font-size: 12px; line-height: 15px;COLOR: #000000;}
.normalTextSmall {     font-size : 11px;    color : #000000;     font-family: Verdana, Arial, Helvetica, sans-serif;}
a.navlink:link {color: #000000; text-decoration:none}
a.navlink:visited {color: #000000; text-decoration:none }
a.navlink:hover {color: #003399; text-decoration:none }
</style>
<%
'===============================
'Access官方版本和SQL非官方版使用
'===============================
'On Error Resume Next
Server.ScriptTimeout=9999999
Dim Rs,SQL,i,SqlStr,tRs
'更改数据库表名所需对象
Dim tConn,tConnStr
Set tConn = Server.CreateObject("ADODB.Connection")
tConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("Plus_AvatarStyle.mdb")
tConn.Open tConnStr
Dim TableTop,TableEnd
TableTop="<TABLE border=""0"" width=""100%"" align=""center"" class=tableBorder1 cellspacing=0 cellpadding=0><tr><td class=tablebody1>"
TableEnd="</td></tr></table>"

Select Case Request("Action")
Case "Step1"
	Step1()
Case "Step2"
	Step2()
Case "Step3"
	Step3()
Case Else
	Step1()
End Select

tConn.Close
Set tConn=Nothing

Sub Step1()
%>
<TABLE border="0" width="100%" align="center" class=tableBorder1 cellspacing=0 cellpadding=0>
<TR><TD align=left width="25%" Class="tablebody1"><a href="http://www.shuijingjing.com"><img border=0 src="http://www.shuijingjing.com/bbs/images/biglogo.gif"></a></TD><TD Align=center width="65%" id="Top_ads" Class="tablebody1"></td>
<td align="right" style="line-height: 15pt" width="10%" Class="tablebody1">
<span style="CURSOR: hand" onClick="window.external.AddFavorite('http://www.shuijingjing.com/', '水晶晶论坛')" onmousemove="status='收藏本页';" onmouseout="status='';" >收藏本页</span><br><a href="http://www.shuijingjing.com/bbs/email.asp" target=_blank>联系我们</a><br><a href="http://www.shuijingjing.com/bbs/boardhelp.asp?boardID=0">论坛帮助</a></td></tr></table>
<BR>
<table cellspacing=1 cellpadding=3 align=center class=tableBorder1>
<tr>
<th width="100%" height="24" colspan="2" ID=TableTitleLink>虚拟形象插件 V2.6 正式版 模板安装程序</th></tr>
<tr>
<td width="100%" Class="tablebody1" style="font-size: 12px;line-height : 18px ;">
<B>操作说明，请仔细阅读操作说明后进行操作</B>：<BR>
1、<font color=blue>强烈建议您在本地计算机系统完成安装操作并做好<font color=red>备份</font>工作，如不能在本地进行安装操作也请安装前<font color=red>备份</font>好您的所有文件和数据</font><BR>
2、<B>本地安装</B><BR>
　　A.系统要求：使用W2k(Pro&Server)+IIS5.0或者Win2003+IIS6，请不要在Win9x下进行操作<BR>
　　B.在WEB目录中新建一目录，将文件 Plus_Avatar_Install.asp 和 Plus_AvatarStyle.MDB 放入，将论坛数据库下载回本地也放入相同目录<BR>
　　C.在浏览器中执行http://website/安装目录/Plus_Avatar_Install.asp文件，然后按照步骤和说明进行操作<BR>
　　D.如果出现<font color=blue>错误</font>信息提示，请仔细阅读，一般都包含了解决办法，这时或许需要您手动调整部分信息。<BR>
　　E.完成安装，请把安装好的数据库文件传到网站论坛数据库目录，将插件压缩包中其他文件传至网站论坛空间，在做这步操作之前，<font color=blue>请对您的原版本数据库和文件做好备份</font><BR>
3、<B>网络安装</B><BR>
　　A.请做好数据库和论坛文件备份<BR>
　　B.将文件 Plus_Avatar_Install.asp 和 Plus_AvatarStyle.MDB 传到网站论坛目录，在浏览器中执行http://website/论坛目录/Plus_Avatar_Install.asp文件，然后按照步骤和说明进行操作<BR>
　　C.如果出现<font color=blue>错误</font>信息提示，请仔细阅读，一般都包含了解决办法，这时或许需要您手动调整部分信息。<BR>
　　D.完成安装，请把论坛目录下的文件 Plus_Avatar_Install.asp 和 Plus_AvatarStyle.MDB 删除。<BR>
</td>
</tr>
<FORM METHOD=POST ACTION="?Action=Step2">
<tr>
<td width="100%" Class="tablebody1" style="font-size: 12px;line-height : 18px ;">
<B>第一步</B>：<BR>
添加page_avatar模板<BR><BR>
<input name="submit" type="submit" value="创建新的虚拟形象插件 V2.6 正式版 模板">
</td>
</tr>
</FORM>
</table><BR>
<TABLE cellSpacing="0" cellPadding="0" width="98%" border="0" align="center">
<tr><td align="center"><table align="center"><tr>
<td align="center">Powered By ：<a href = "http://www.dvbbs.net/download.asp" target = "_blank">Dvbbs Version 7.1.0</a><br>Copyright &copy;2002 - 2005  <a href="http://www.aspsky.net"><font face=Verdana, Arial, Helvetica, sans-serif><b>Aspsky<font color=#CC0000>.Net</font></b></font></a>
</td></tr></table>
</td></tr>
</table>
<%
End Sub

'更新数据库结构
Sub Step2()
	If Not IsObject(Conn) Then ConnectionDatabase
%>
<table cellspacing=1 cellpadding=3 align=center class=tableBorder1>
<tr>
<th width="100%" height="24" colspan="2" ID=TableTitleLink>虚拟形象插件 V2.6 正式版  模板安装程序  第一步执行完毕</th></tr>
<FORM METHOD=POST ACTION="?Action=Step3">
<tr>
<td width="100%" Class="tablebody1" style="font-size: 12px;line-height : 18px ;">
<B>第二步</B>：<BR>
<input type=hidden value="<%=Request("database")%>" Name="database">
<BR>
<input name="submit" type="submit" value="导入虚拟形象插件 V2.6 正式版 的模板数据">
<br>&nbsp;&nbsp;在下面未提示所有更新成功的情况下请不要点击下一步</td>
</tr>
</FORM>
</table>
<%
'DV_Style字段修改
AddColumn "Dv_Style","page_avatar","ntext not Null default'|||@@@|||@@@|||@@@|||'"
conn.Execute("Update [Dv_Style] Set page_avatar='|||@@@|||@@@|||@@@|||'")

'DV_StyleHelp字段修改
AddColumn "Dv_StyleHelp","page_avatar","ntext not Null default'|||@@@|||@@@|||@@@|||'"
conn.Execute("Update [Dv_Stylehelp] Set page_avatar='|||@@@|||@@@|||@@@|||'")

Response.Write TableTop & "<B>创建虚拟形象插件 V2.6 正式版 模板成功，请进入下一步</B><Br>" & TableEnd
Response.Flush
End Sub

'导入模板数据
Sub Step3()
	If Not IsObject(Conn) Then ConnectionDatabase
%>
<table cellspacing=1 cellpadding=3 align=center class=tableBorder1>
<tr>
<th width="100%" height="24" colspan="2" ID=TableTitleLink>虚拟形象插件 V2.6 正式版 模板安装程序  所有操作执行完毕
</th></tr>
<tr>
<td width="100%" Class="tablebody1" style="font-size: 12px;line-height : 18px ;">
<B>虚拟形象插件 V2.6 正式版 模板安装成功</B>！<BR>
本地安装的请把安装好的数据库和插件压缩包中其他文件传到网站论坛相关目录<BR>
网络安装的请把文件 Plus_Avatar_Install.asp 和 Plus_AvatarStyle.MDB删除<BR>
上传前，请做好文件和数据库的备份<BR>
</td>
</tr>
</table>
<%
	'导入模板数据
	Set tRs=tConn.Execute("Select * From Dv_Style")
	Do While Not tRs.Eof
		Conn.Execute("Update Dv_Style Set page_avatar='"&Replace(tRs("page_avatar"),"'","''")&"'")
		tRs.MoveNext
	Loop
	Set tRs=Nothing
	Response.Write TableTop & "导入模板数据成功<Br>" & TableEnd
	Response.Flush
	Set tRs=tConn.Execute("Select * From Dv_StyleHelp")
	Do While Not tRs.Eof
		Conn.Execute("Update Dv_StyleHelp Set Page_avatar='"&Replace(tRs("page_avatar"),"'","''")&"'")
		tRs.MoveNext
	Loop
	Set tRs=Nothing
	Dvbbs.Loadstyle()
	Response.Write TableTop & "导入模板帮助数据成功<Br>" & TableEnd
	Response.Flush
	Response.Write TableTop & "<B>导入虚拟形象插件 V2.6 正式版 的模板数据成功，请进入下一步</B><Br>" & TableEnd
	Response.Flush
End Sub

'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
	On Error Resume Next
	Conn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
	If Err Then
		Response.Write TableTop & "新建 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段建立，属性为 <B>"&ColumnType&"</B>，原因" & Err.Description & "<BR>" & TableEnd
		Err.Clear
		Response.Flush
	Else
		Response.Write TableTop & "新建 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>" & TableEnd
		Response.Flush
	End If
End Sub
%>