草根站长论坛 » 站长源码交流 » 解决易想商务网三级分类无法添加问题的升级补丁

好家伙 发表于 2008-8-1 21:12

解决易想商务网三级分类无法添加问题的升级补丁

<%data_path=""%>
~6VM&o^   <!--#include file="database_type.asp"-->T.T:^A/[;_He-x
<%
Rf z |yJ '============================数据库连接对象的建立===========================================
E(^Ph]6npt Dim Acc_db
%L{#of*hhc If Database_type=1 Then
gD/] U7xyBV   1u`f6c7O%C1Y
  ConnStr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"  
1K@!Y u~*n)Y0g z:{q Elsey4y7usFV?
  Acc_db="Database/#YXchangehope.asp"
*J1J\GmpZh   Acc_db=data_path&Acc_db                   'data_path为路径
"PqD
q)zfC/~3G   ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Acc_db&"")
K%l7u;b-}7M0B End If y8oN(CX/BUv%v*Ds
       on error resume next
dw!E9H1H h   Set conn = Server.CreateObject("ADODB.Connection")
Wt0W-ayQx   conn.commandtimeout=20
"E8S1MAaE o`O   conn.open ConnStr
exnL2?&_+N
fM3v2y~x x If Err.number>0 Then
;|h y[/[ dh?y   err.Clear
4H(F/xyl&IT   Set Conn = Nothing
_3d@ J$z^0of;B   Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确！</div>"
o!A:TTX}   Response.End
w*W?'x}%A End IfT)B?sl `:l.q1_0| }
nm'^:fC(sF
'============================================================================================ cg/T&lFJ8l#cl${pC
'yixiang_class_3
5RJF }}w'CN5hfB conn.execute "ALTER TABLE yixiang_class_3 drop column [typeid_2]"]K#CZDr@T
conn.execute "ALTER TABLE yixiang_class_3 add typeid_2 IDENTITY(1,1) NOT NULL primary key" {ZvF}
if not err then
/EV.r5F F%w\[\ response.Write("ACC数据库升级成功!<a href=# onclick='javascript:window.close();'>关闭</a>")
#|2m:X"E d end if
2O9\8TDSm.Dx&i   
2]
DE;f:Z:a|4R3h '-----------------------------------------------   
G5lsn9c if err then
c|pzh|3f response.Write("你已经进行过数据表的升级操作了!<a href=# onclick='javascript:window.close();'>关闭</a>")/a-Ju}j5g2G
response.End()
-sAtw`G8ee7a end ifct{Y4PQ
%>

查看完整版本: 解决易想商务网三级分类无法添加问题的升级补丁