谁能帮我破解这段代码
发布网友
发布时间：1天前
共1个回答
热心网友
时间：15小时前
<%
Response.charset="gb2312"
dim conn,connstr,Data
if SqlNo =1 then
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
Conn.open ConnStr
else
Data=""&SitePath&"DataBase/"&DataName&""
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="dbq="+server.mappath(Data)+";defaultdir=;driver=2microsoft access driver (*.mdb)};uid=;password="&zhirui&";"
conn.Open connstr
end if
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div style='margin:100px;font-size:14px;text-align:center'></div>"
Response.End
End If
……
后面看不到了。。自己看吧，数据库名称和连接串都有，唯一要稍微仔细看一眼的就是放置的路径了。。。
