📄 product.asp
字号:
<!--#"程序修改:小爱 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -