product.asp

软件类别： ASP源码 / 其他类别 软件语言： 简体中文 授权方式： 免费版 文件大小： 26K

<!--#"程序修改：小爱 QQ:174015566" -->
<% Set oConn = Server.CreateObject("ADODB.Connection")
   set cRs=server.CreateObject("ADODB.Recordset")
   Strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tree.mdb")
   oConn.Open Strconn
%>
<% 
Dim sid, cRs, cSql, TempCataStr ,Info
sid=Request("id")
Info="此栏目还没有链接地址哟～～"
Set cRs = Server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT * FROM ClassTree WHERE id="&sid
cRs.Open cSql, oConn, 1,1
URL = cRs("URL")
If URl<>"" then
response.redirect URL
Else
	Response.Write "<script language=javascript>alert('" & info & "\n\n系统将自动返回前一页面...');history.back();</script>"
End if
cRs.Close
Set cRs = Nothing
%>