我现在把惊云的access数据库转换成了sql的 其他都解决了，但就是down.asp的问题，点击下载木反应，用access数据库却没问题..这是怎么回事？ 需要修改哪段 当然我程序不是用你的修改的下载系统，是我自己改的 <% html="<title>全新的建站资源！</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><style>body{font-size:9pt;line-height:140%}</style><body bgcolor='#D1D1D1' oncontextmenu='return false'>" error="<meta http-equiv='Refresh' content='2; URL=./index.htm'>"&html&"<b>错误! </b>读取地址时出错 2秒后自动<a href=./index.htm>返回首页</a>..." Function isInt(str) Dim L,I isInt=False If Trim(Str)="" Or IsNull(str) Then Exit Function str=CStr(Trim(str)) L=Len(Str) For I=1 To L If Mid(Str,I,1)>"9" Or Mid(Str,I,1)<"0" Then Exit Function Next isInt=True End Function if isInt(request("id"))=False or isInt(request("no"))=False then response.write error response.end end if '###############防盗链Start################## error2="<meta http-equiv='Refresh' content='2; URL=../'>"&html&"<b>错误：盗链！ </b>请从本站下载 2秒后自动<a href=./index.htm>返回首页</a>..." From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then response.write error2 response.end end if '##################################### MDBpath="admin/"%> <!--#include file="admin/mdb_path_down.asp"--> <% did=request("no") dno=request("no") set rs=server.CreateObject("ADODB.RecordSet") rs.open "select file from downfile where downid="&did&" and downno="&dno,conn,1,1 if not rs.eof then fileurl = rs("file") else rs.close set rs=nothing conn.close set conn=nothing response.write error response.end end if rs.close rs.open "select hits,hy from down where id="&did,conn,1,2 if not rs.eof then hy=rs("hy") rs("hits")=rs("hits")+1 rs.update else rs.close set rs=nothing conn.close set conn=nothing response.write error response.end end if rs.close '会员软件 if JyDownUser="1" and hy>0 then JyDownUserDj=request.cookies("JyDownUserDj") if hy="1" then hydj="免费会员" if hy="2" then hydj="收费会员" if JyDownUserDj="" then JyDownUserDj=-1 else JyDownUserDj=cint(JyDownUserDj) end if if JyDownUserDj<hy-1 then response.write "<script>alert('提示:该软件为"&hydj&"软件!非会员不能下载.\n\n如果你是本站会员请先登陆!');history.back()</script><br>" response.end else if JyDownUserShow="1" then response.write html&"<font color=#000000>下载地址：</font><input type=text class=input8 size=80 value="&fileurl&"><BR><BR><font color=#416194>CopyRight 2005</font>" response.end end if end if end if '检查来路 if JyDownUrl="1" then server_vv=len(Request.ServerVariables("SERVER_NAME")) server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv) server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv) if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then response.write("<script>location.href='s/"&request("id")&"."&dfile&"'</script>") response.end end if end if '转向连接 Response.Redirect fileurl %>