<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
千旺软件下载中心
<%
id=Request.QueryString
if not IsNumeric(id) Then
id=request("c")
End If
If id="" Then
Response.Write "请使用浏览器打开!
"
Response.end
End If
db="/soft/mgr/soft.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from product where id_old="+id
rs.open sql,conn,1,1 '更新为1,3
if not rs.eof Then
If rs("show_type")="1" Then
Response.Redirect rs("product_url")
Else
%>
下载地址 "><%=rs("product_url")%>
<%=rs("product_desc")%>
<%
End If
Else
Response.Write "输入错误!
"
Response.end
End If
rs.close
set rs=Nothing
%>