<%data_path=""%>
7 V3 Z' ^/ ?+ V/ K( O4 n0 a <!--#include file="database_type.asp"-->
9 l5 ]5 V7 t, u- ]4 B
<%
3 {7 i) w. M: Y9 m& }5 J
'============================数据库连接对象的建立===========================================
) Y% q. E. M1 O# G Q DDim Acc_db
: O2 `$ z4 ~9 A: n) f% vIf Database_type=1 Then
/ u2 O' b' A/ z4 c7 A
+ r) R: T# u3 Q4 H5 G& W. s- C ConnStr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"
S! ~* O z, ]: K
Else
2 n& ]) E) |: z Acc_db="Database/#YXchangehope.asp"
$ B9 x: e- o, Q3 k" K Acc_db=data_path&Acc_db 'data_path为路径
, i. |; ~% \# z3 ?) A
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Acc_db&"")
& Y5 `; d g+ t) _2 \( q% N
End If
6 ^" T7 x' t, U N4 E on error resume next
: U3 j' a- I) a! r9 t. l+ b5 o* K% ?
Set conn = Server.CreateObject("ADODB.Connection")
4 X' t" K: i! o2 c( u5 N# f conn.commandtimeout=20
6 W& T- `2 `" T! A9 s
conn.open ConnStr
. A' S! m$ U8 o* \1 n0 g, S7 k) m9 j& i$ x% f8 F
If Err.number>0 Then
+ m$ S( y! t I5 i# G err.Clear
: G' m- _5 f+ g6 i Set Conn = Nothing
/ V# |! L* c/ m! e Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确！</div>"
6 J* M# V6 L3 W0 s. Z
Response.End
( E* r. W- s, l- OEnd If
' q' [* C1 r s8 q4 f) ?+ q8 C! A
'============================================================================================
6 H2 {4 M' N. A5 j6 `1 X' v' V: F'yixiang_class_3
7 p w) _% F* ]conn.execute "ALTER TABLE yixiang_class_3 drop column [typeid_2]"
, h" J0 n! x/ j& ?3 p$ l& [
conn.execute "ALTER TABLE yixiang_class_3 add typeid_2 IDENTITY(1,1) NOT NULL primary key"
. p5 j; f3 c) m, M& N
if not err then
6 _ C9 V9 `& R- y- C2 lresponse.Write("ACC数据库升级成功!<a href=# onclick='javascript:window.close();'>关闭</a>")
+ Q9 \" G% N+ x( x. o$ Lend if
7 L0 D6 |0 R' @4 d+ u! y* B & a1 Z/ M; t2 o: M9 t, q1 p
'-----------------------------------------------
/ L" t5 a" V7 ~3 y2 B8 J% aif err then
1 J' Y# d% @- W' L, O" i0 @
response.Write("你已经进行过数据表的升级操作了!<a href=# onclick='javascript:window.close();'>关闭</a>")
) X0 [. ?) }( |response.End()
5 o; I2 g6 E; @! W- Y/ ^4 W( J
end if
, v: f. z) h( w8 m: i0 O%>
