<% IF request.cookies(Forcast_SN)("KEY")="" THEN else usernamecookie=CheckStr(request.cookies(Forcast_SN)("UserName")) passwdcookie=CheckStr(trim(Request.cookies(Forcast_SN)("passwd"))) KEYcookie=CheckStr(trim(request.cookies(Forcast_SN)("KEY"))) if usernamecookie="" or passwdcookie="" then response.cookies(Forcast_SN)("UserName")="" response.cookies(Forcast_SN)("KEY")="" response.cookies(Forcast_SN)("purview")="" response.cookies(Forcast_SN)("fullname")="" response.cookies(Forcast_SN)("reglevel")="" else '判断用户的合法性 set rs=server.createobject("adodb.recordset") sql="select * from "& db_User_Table &" where "& db_User_Name &"='"&usernamecookie&"'" rs.open sql,ConnUser,1,1 if rs.eof and rs.bof then response.cookies(Forcast_SN)("UserName")="" response.cookies(Forcast_SN)("KEY")="" response.cookies(Forcast_SN)("purview")="" response.cookies(Forcast_SN)("fullname")="" response.cookies(Forcast_SN)("reglevel")="" end if IF passwdcookie<>rs(db_User_Password) THEN response.cookies(Forcast_SN)("UserName")="" response.cookies(Forcast_SN)("KEY")="" response.cookies(Forcast_SN)("purview")="" response.cookies(Forcast_SN)("fullname")="" response.cookies(Forcast_SN)("reglevel")="" END IF '下面判断用户级别实际在有用户级别是都应该判断 if KEYcookie<>rs("OSKEY") then response.cookies(Forcast_SN)("UserName")="" response.cookies(Forcast_SN)("KEY")="" response.cookies(Forcast_SN)("purview")="" response.cookies(Forcast_SN)("fullname")="" response.cookies(Forcast_SN)("reglevel")="" end if rs.close set rs=nothing END IF END IF '该文件需要进行调整和设置 dim typename NewsID=Request.QueryString("NewsID") Page=Request.QueryString("page") if page="" then page=1 elseif not IsNumeric(page) then Show_Err("非法参数!

返回") response.end end if page=int(page) if newsid="" then Show_Err("未指定参数!

返回") response.end elseif not IsNumeric(newsid) then Show_Err("非法参数!

返回") response.end else '判断该篇文章是否审核 set rs=server.createobject("adodb.recordset") sql="select * from "& db_News_Table &" where NewsId="&NewsId rs.open sql,conn,3,3 if rs.eof and rs.bof then rs.close set rs=nothing Show_Err("指定的文章不存在!

返回") response.end else checked=rs("checkked") if checked=1 or Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" then '文章已审核并且是相关管理员 Click=rs("Click") if isnull(rs("Click")) then conn.execute("update "& db_News_Table &" Set Click=1 where NewsID=" & NewsID ) else conn.execute("update "& db_News_Table &" Set Click=click+1 where NewsID=" & NewsID ) end if end if rs.close set rs=nothing end if set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(Forcast_SN)("key")="" then rs.Source="select * from "& db_News_Table &" where checkked=1 and newslevel=0 and newsid="&newsid end if if Request.cookies(Forcast_SN)("key")="selfreg" then if Request.cookies(Forcast_SN)("reglevel")=3 then rs.Source="select * from "& db_News_Table &" where checkked=1 and newslevel<=3 and newsid="&newsid end if if Request.cookies(Forcast_SN)("reglevel")=2 then rs.Source="select * from "& db_News_Table &" where checkked=1 and newslevel<=2 and newsid="&newsid end if if Request.cookies(Forcast_SN)("reglevel")=1 then rs.Source="select * from "& db_News_Table &" where checkked=1 and newslevel<=1 and newsid="&newsid end if end if end if if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then rs.Source="select * from "& db_News_Table &" where newsid="&newsid else rs.Source="select * from "& db_News_Table &" where newsid="&newsid end if rs.Open rs.Source,conn,1,1 bigclassid=rs("bigclassid") smallclassid=rs("smallclassid") title=htmlencode4(trim(rs("title"))) title1=htmlencode4(trim(rs("title"))) about=htmlencode4(trim(rs("about"))) Author=htmlencode4(trim(rs("Author"))) editor=htmlencode4(trim(rs("editor"))) Original=htmlencode4(trim(rs("Original"))) image=rs("image") UpdateTime=trim(rs("UpdateTime")) News_Content=rs("Content") SpecialID=rs("SpecialID") SpecialID2=rs("SpecialID2") click=rs("click") EnCode=trim(rs("EnCode")) typeid=rs("typeid") titletype=rs("titletype") titlecolor=rs("titlecolor") titleface=rs("titleface") editor=rs("editor") wzdj=rs("newslevel") backtype=rs("backtype") backtype1=rs("backtype1") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_Type_Table &" where typeID=" & typeID rs.Open rs.Source,conn,1,1 typename=rs("typename") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") If(isnull(BigClassid)) Then bigclassname=" " BigClassid = 0 Else rsSource="select * from "& db_BigClass_Table &" Where BigClassid="& BigClassid rs.Open rsSource,conn,1,3 If (rs.eof or rs.bof) Then bigclassname=" " else bigclassname=rs("bigclassname") End if rs.close set rs=nothing End if if smallclassid<>"" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_SmallClass_Table &" Where smallClassid=" & smallClassid rs.Open rs.Source,conn,1,1 smallclassname=rs("smallclassname") rs.close set rs=nothing end if%> <% '文章ip限制 if cINT(backtype1)=1 then dim byte2 byte2=split(newsipType,"|") for i=0 to ubound(byte2) if Request.serverVariables("REMOTE_ADDR")<>byte2(i) then Show_Err("对不起,此篇文章只供内部浏览,请联系管理员!。

返回") Response.End end if next end if %> 中国瑶药学
 
 
<% set rs9=server.CreateObject("ADODB.RecordSet") rs9.Source="select * from "& db_News_Table &" where bigclassid=200 order by newsid desc" rs9.Open rs9.Source,conn,1,1 i=0%> <% while not rs9.EOF and i<8 title=trim(rs9("title")) newsurl="zgyyxnr.asp?NewsID=" & rs9("NewsID") newswwwurl=rs9("titleface") %> <%rs9.movenext i=i+1 Wend%>
<%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(title)%>"> ><%=CutStr(htmlencode4(rs9("title")),20)%>
<%rs9.movenext i=i+1 Wend rs9.close set rs9=nothing%>
<% while not rs9.EOF and i<16 title=trim(rs9("title")) newsurl="zgyyxnr.asp?NewsID=" & rs9("NewsID") newswwwurl=rs9("titleface") %>
 <%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(title)%>">><%=CutStr(htmlencode4(rs9("title")),20)%>
 
 
<% set rs9=server.CreateObject("ADODB.RecordSet") rs9.Source="select * from "& db_News_Table &" where bigclassid=201 order by newsid desc" rs9.Open rs9.Source,conn,1,1 i=0%> <% while not rs9.EOF and i<8 title=trim(rs9("title")) newsurl="zgyyxnr.asp?NewsID=" & rs9("NewsID") newswwwurl=rs9("titleface") %> <%rs9.movenext i=i+1 Wend%>
<%=newsurl%><% else %>%20<%=newswwwurl%><%end if%>"> ><%=CutStr(htmlencode4(rs9("title")),20)%>
<%rs9.movenext i=i+1 Wend rs9.close set rs9=nothing%>
<% while not rs9.EOF and i<16 title=trim(rs9("title")) newsurl="zgyyxnr.asp?NewsID=" & rs9("NewsID") newswwwurl=rs9("titleface") %>
 <%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(title)%>">><%=CutStr(htmlencode4(rs9("title")),20)%>
 

<%=title1%>

<% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_News_Table &" where NewsID=" & NewsID rs.Open rs.source,conn,1,1 typeid=rs("typeid") Title=trim(rs("Title")) image=rs("image") dim mode set rs11=server.CreateObject("ADODB.RecordSet") rs11.Source="select * from "& db_Type_Table &" where typeid="&typeid&" order by typeid" rs11.Open rs11.Source,conn,1,1 mode=rs11("mode") rs11.close set rs11=nothing ''添加图片鼠标滚轮缩放效果 if mouse_wheel_zoom="on" then News_Content=replace(News_Content,"
发表日期:<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日   <%if Original<>"" then%> 出处:<%=Original%> <%end if%>    <%if Author<>"" then%> 作者:<%=Author%> <%end if%>     
<%if M_BG=1 and rs("picnews")=0 and Not Instr(rs("Content"),"TD")>0 then%>
<%end if%> <%if (checked<>1) and ((Request.cookies(Forcast_SN)("key")<>"super") and (Request.cookies(Forcast_SN)("key")<>"typemaster") and (Request.cookies(Forcast_SN)("key")<>"bigmaster") and (Request.cookies(Forcast_SN)("key")<>"smallmaster")) then '文章未审核,并且是非相关管理员 response.write "

文章还未经过审核
请等待或者通知管理员审核才能阅览!
" response.write "

" else '文章已审核 if checked<>1 then response.write "

提醒:该文章还未通过审核
" end if if uselevel=1 then if cINT(wzdj)<1 then Response.Write arr_Content(Page-1)%>
 
<% else %> <%if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then %> <%Response.Write arr_Content(Page-1)%>
 
<% else %> <%if Request.cookies(Forcast_SN)("key")="" then%>
内容简介:

<%=CutStr(nohtml(rs("Content")),150)%>...


友情提醒:

你还没注册?或者没有登录?或者权限不够?这篇文章要求是本站符合权限要求的注册用户才能阅读!

<% response.write "文章级别:" response.write cINT(wzdj) response.write "级" %>
<% response.write "您的权限:" response.write "未注册" %>

如果你还没注册,请赶紧点此注册吧!

如果你已经注册但还没登录,请赶紧点此登录吧!
 
<% else %> <%if Request.cookies(Forcast_SN)("key")="selfreg" then if cINT(Request.cookies(Forcast_SN)("reglevel"))>=cINT(wzdj) then%> <%Response.Write arr_Content(Page-1)%>
 
<% else %>
内容简介:

<%=CutStr(nohtml(rs("Content")),150)%>...


友情提醒:

你还没注册?或者没有登录?或者权限不够?这篇文章要求是本站符合权限要求的注册用户才能阅读!

<% response.write "文章级别:" response.write cINT(wzdj) response.write "级" %>
<% response.write "您的权限:" response.write (Request.cookies(Forcast_SN)("reglevel")) response.write "级" %>

如果你还没注册,请赶紧点此注册吧!

如果你已经注册但还没登录,请赶紧点此登录吧!
 

<%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%else%> <%Response.Write arr_Content(Page-1)%>
 
<%end if%> <%end if%>
<% url="ReadNews.asp?NewsId="&newsid if MaxPages >0 then Response.write "首页 " if Page-1 > 0 then Prev_Page = Page - 1 Response.write "上一页 " end if for PageCounter=0 to MaxPages PageLink = PageCounter+1 if PageLink <> Page Then Response.write "["& PageLink &"] " else Response.Write "["& PageLink &"] " end if If PageLink = MaxPages+1 Then Exit for Next if page <= Maxpages then bdd_Page = Page + 1 Response.write "下一页" end if Response.write " 尾页" end if %>
<%end if%> <% conn.close set conn=nothing %>