<% getID=request("noID") if IsNumeric(getID)=true then getID=clng(getID) else errmsg("file err") end if login init if conn.execute("select count(*) from newsDB where Nid="&getID&" and (instr(','+'"&session("cls_see")&"',','+Nclass +',')>0 or (instr(','+'"&session("cls_see_own")&"',','+Nclass +',')>0 and Nauthor='"&session("u_s")&"' ) ) and ( nLimit='00' or instr(',' + nLimit + ',' , ','+'"&session("u_d")&"'+',' )>0 ) and NbofDate<=#"&now&"# ")(0)<1 then errmsg("可能原因:
1.文件不存在
2.您无权查看此文件
3.您提交的文件日期大于今天(如果这个问题,请用修改文件来查看该文件)") readPara=conn.execute("select * from newsDB where Nid="&int(getID)&"") set rs=server.createobject("adodb.recordset") sql="select * from newsDB where Nid="&getID&" and (instr(','+'"&session("cls_see")&"',','+Nclass +',')>0 or (instr(','+'"&session("cls_see_own")&"',','+Nclass +',')>0 and Nauthor='"&session("u_s")&"') ) and ( nLimit='00' or instr(',' + nLimit + ',' , ','+'"&session("u_d")&"'+',' )>0 ) " rs.open sql,conn randomName=readPara("Nrandom") if FileisExist(Server.MapPath("news\article\"&randomname))=false then errmsg("文件已不存在,请报告给我们这个链接") %> <%=readPara("Nname")%>
首页 >> 新闻列表 >> <%=readPara("Nname")%>

<%=readPara("Nname")%>   <%=readPara("NbofDate")%>

<%=ReadAllTextFile(Server.MapPath("news\article\"&randomname))%> <%'=server.execute("news\article\"&randomname)%>

一本之道加勒比在线