<% Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("verifycode") = zNum getcode1= Session("verifycode") Else getcode1= "" End If End Function IF request.cookies(echsys)("KEY")="" THEN else usernamecookie=CheckStr(request.cookies(echsys)("UserName")) passwdcookie=CheckStr(trim(Request.cookies(echsys)("passwd"))) KEYcookie=CheckStr(trim(request.cookies(echsys)("KEY"))) if usernamecookie="" or passwdcookie="" then response.cookies(echsys)("UserName")="" response.cookies(echsys)("KEY")="" response.cookies(echsys)("purview")="" response.cookies(echsys)("fullname")="" response.cookies(echsys)("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(echsys)("UserName")="" response.cookies(echsys)("KEY")="" response.cookies(echsys)("purview")="" response.cookies(echsys)("fullname")="" response.cookies(echsys)("reglevel")="" end if IF passwdcookie<>rs(db_User_Password) THEN response.cookies(echsys)("UserName")="" response.cookies(echsys)("KEY")="" response.cookies(echsys)("purview")="" response.cookies(echsys)("fullname")="" response.cookies(echsys)("reglevel")="" END IF '下面判断用户级别实际在有用户级别是都应该判断 if KEYcookie<>rs("OSKEY") then response.cookies(echsys)("UserName")="" response.cookies(echsys)("KEY")="" response.cookies(echsys)("purview")="" response.cookies(echsys)("fullname")="" response.cookies(echsys)("reglevel")="" end if rs.close set rs=nothing END IF END IF '该文件需要进行调整和设置 dim E_typename EC_ArticleID=ChkRequest(Request.QueryString("EC_ArticleID"),1) '防SQL注入 Page=Request.QueryString("page") if page="" then page=1 elseif not IsNumeric(page) then Show_Err("非法参数!

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

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

返回") response.end else '判断该篇文章是否审核 set rs=server.createobject("adodb.recordset") sql="select * from "& db_wygkcn_Article_Table &" where EC_ArticleID="&EC_ArticleID 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("Checked") if checked=1 or Request.cookies(echsys)("key")="super" or Request.cookies(echsys)("key")="typemaster" or Request.cookies(echsys)("key")="bigmaster" or Request.cookies(echsys)("key")="smallmaster" then '文章已审核并且是相关管理员 Click=rs("Click") if isnull(rs("Click")) then conn.execute("update "& db_wygkcn_Article_Table &" Set Click=1 where EC_ArticleID=" & EC_ArticleID ) else conn.execute("update "& db_wygkcn_Article_Table &" Set Click=click+1 where EC_ArticleID=" & EC_ArticleID ) end if end if rs.close set rs=nothing end if set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(echsys)("key")="" then rs.Source="select * from "& db_wygkcn_Article_Table &" where Checked=1 and newslevel=0 and EC_ArticleID="&EC_ArticleID end if if Request.cookies(echsys)("key")="selfreg" then if Request.cookies(echsys)("reglevel")=3 then rs.Source="select * from "& db_wygkcn_Article_Table &" where Checked=1 and newslevel<=3 and EC_ArticleID="&EC_ArticleID end if if Request.cookies(echsys)("reglevel")=2 then rs.Source="select * from "& db_wygkcn_Article_Table &" where Checked=1 and newslevel<=2 and EC_ArticleID="&EC_ArticleID end if if Request.cookies(echsys)("reglevel")=1 then rs.Source="select * from "& db_wygkcn_Article_Table &" where Checked=1 and newslevel<=1 and EC_ArticleID="&EC_ArticleID end if end if end if if Request.cookies(echsys)("key")="super" or Request.cookies(echsys)("key")="typemaster" or Request.cookies(echsys)("key")="bigmaster" or Request.cookies(echsys)("key")="smallmaster" or Request.cookies(echsys)("key")="check" then rs.Source="select * from "& db_wygkcn_Article_Table &" where EC_ArticleID="&EC_ArticleID else rs.Source="select * from "& db_wygkcn_Article_Table &" where EC_ArticleID="&EC_ArticleID end if rs.Open rs.Source,conn,1,1 E_BigClassID=rs("E_BigClassID") E_SmallClassID=rs("E_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") EC_SpecialID=rs("EC_SpecialID") EC_SpecialID2=rs("EC_SpecialID2") click=rs("click") EnCode=trim(rs("EnCode")) E_typeid=rs("E_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_wygkcn_Type_Table &" where E_typeid=" & E_typeid rs.Open rs.Source,conn,1,1 E_typename=rs("E_typename") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") If(isnull(E_BigClassID)) Then E_BigClassName=" " E_BigClassID = 0 Else rsSource="select * from "& db_wygkcn_BigClass_Table &" Where E_BigClassID="& E_BigClassID rs.Open rsSource,conn,1,3 If (rs.eof or rs.bof) Then E_BigClassName=" " else E_BigClassName=rs("E_BigClassName") End if rs.close set rs=nothing End if if E_SmallClassID<>"" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_wygkcn_SmallClass_Table &" Where E_SmallClassID=" & E_SmallClassID rs.Open rs.Source,conn,1,1 E_smallclassname=rs("E_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 %> <%=title%><%if E_SmallClassID<>"" then%>_<%=E_smallclassname%><%end if%>_<%=E_BigClassName%>_<%=E_typename%>_<%=eChSys_Com%> <%if ScrollClick = "double" then%> <%else%> <%end if%>
  您的位置  首页 >> <%=E_typename%> <%if E_BigClassID<>"" then%> >> <%=E_BigClassName%> <%if E_SmallClassID<>"" then%> >> <%=E_smallclassname%> <%end if%> <%end if%> >> 正文
<%=title1%>
[来源:<%if Original="" then%>本站<%else%><%=Original%><%end if%> | 作者:<%if Author="" then%>国际骨伤信息网<%else%><%=Author%><%end if%> | 日期:<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日 | 浏览<%=click%> 次]
<% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from "& db_wygkcn_Article_Table &" where EC_ArticleID=" & EC_ArticleID rs.Open rs.source,conn,1,1 E_typeid=rs("E_typeid") Title=trim(rs("Title")) image=rs("image") dim mode set rs11=server.CreateObject("ADODB.RecordSet") rs11.Source="select * from "& db_wygkcn_Type_Table &" where E_typeid="&E_typeid&" order by E_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," <%if (checked<>1) and ((Request.cookies(echsys)("key")<>"super") and (Request.cookies(echsys)("key")<>"typemaster") and (Request.cookies(echsys)("key")<>"bigmaster") and (Request.cookies(echsys)("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(echsys)("key")="super" or Request.cookies(echsys)("key")="typemaster" or Request.cookies(echsys)("key")="bigmaster" or Request.cookies(echsys)("key")="smallmaster" or Request.cookies(echsys)("key")="check" then %> <%Response.Write arr_Content(Page-1)%> <% else %> <%if Request.cookies(echsys)("key")="" then%>
内容简介:

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


友情提醒:

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

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

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

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

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


友情提醒:

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

<% response.write "文章级别:" response.write cINT(wzdj) response.write "级" %>
<% response.write "您的权限:" response.write (Request.cookies(echsys)("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="wygkcn_ShowArticle.asp?EC_ArticleID="&EC_ArticleID 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 %>
上一篇:<%if getSideEC_ArticleID(E_TypeID,EC_ArticleID,-1)<>0 then %><%=getnewstitle(getSideEC_ArticleID(E_TypeID,EC_ArticleID,-1))%> <%else%> <%=getnewstitle(getSideEC_ArticleID(E_TypeID,EC_ArticleID,-1))%> <%end if%>
下一篇:<%if getSideEC_ArticleID(E_TypeID,EC_ArticleID,1)<>0 then %><%=getnewstitle(getSideEC_ArticleID(E_TypeID,EC_ArticleID,1))%> <%else%> <%=getnewstitle(getSideEC_ArticleID(E_TypeID,EC_ArticleID,1))%> <%end if%>

相关文章

    <% Response.Write "" Response.Write "" if about<>"" then sql="select top 6 * from "& db_wygkcn_Article_Table &" where (about like '%" & about & "%' or title like '%" & about & "%') and Checked=1 order by EC_ArticleID desc" set rs=conn.execute(sql) do while not rs.eof title=htmlencode4(trim(rs("title"))) %>
  • [<%=rs("click")%>]·"><%=Title%>
  • <% rs.movenext loop rs.close set rs=nothing else Response.write "
  • ·没有相关文章
  • " end if %>

相关专题

    <% set rs4=server.CreateObject("ADODB.RecordSet") if EC_SpecialID<>0 then rs4.Source="select * from "& db_wygkcn_Special_Table &" where EC_SpecialID=" & EC_SpecialID rs4.Open,conn,1,3 if not rs4.eof then %>
  • ·<%=CutStr(trim(rs4("E_SpecialName")),26)%>
  • <% end if rs4.Close set rs4=nothing else Response.Write "
  • ·专题1信息无
  • " end if %> <% set rs4=server.CreateObject("ADODB.RecordSet") if EC_SpecialID2<>0 then rs4.Source="select * from "& db_wygkcn_Special_Table &" where EC_SpecialID=" & EC_SpecialID2 rs4.Open,conn,1,3 if not rs4.eof then %>
  • ·<%=CutStr(trim(rs4("E_SpecialName")),26)%>
  • <% end if rs4.Close set rs4=nothing else Response.Write "
  • ·专题2信息无
  • " end if %>

热门文章

    <% set Rs_hot=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(echsys)("key")="super" or Request.cookies(echsys)("key")="typemaster" or Request.cookies(echsys)("key")="bigmaster" or Request.cookies(echsys)("key")="smallmaster" or Request.cookies(echsys)("key")="check" then Rs_hot.Source="select top "&top_txt&" * from "& db_wygkcn_Article_Table &" where Checked=1 and E_typeid="&E_typeid&" order by click DESC,EC_ArticleID desc" end if if Request.cookies(echsys)("key")="" then Rs_hot.Source="select top "&top_txt&" * from "& db_wygkcn_Article_Table &" where (Checked=1 and newslevel=0 and E_typeid="&E_typeid&" ) order by click DESC,EC_ArticleID desc" end if if Request.cookies(echsys)("key")="selfreg" then if Request.cookies(echsys)("reglevel")=3 then Rs_hot.Source="select top "&top_txt&" * from "& db_wygkcn_Article_Table &" where (Checked=1 and E_typeid="&E_typeid&" ) order by click DESC,EC_ArticleID desc" end if if Request.cookies(echsys)("reglevel")=2 then Rs_hot.Source="select top "&top_txt&" * from "& db_wygkcn_Article_Table &" where (Checked=1 and E_typeid="&E_typeid&" ) order by click DESC,EC_ArticleID desc" end if if Request.cookies(echsys)("reglevel")=1 then Rs_hot.Source="select top "&top_txt&" * from "& db_wygkcn_Article_Table &" where (Checked=1 and E_typeid="&E_typeid&" ) order by click DESC,EC_ArticleID desc" end if end if else Rs_hot.Source="select top "&top_txt&" * from "& db_wygkcn_Article_Table &" where Checked=1 and E_typeid="&E_typeid&" order by click DESC,EC_ArticleID desc" end if Rs_hot.Open Rs_hot.Source,conn,1,1 Do While Not Rs_hot.Eof newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & rs_hot("EC_ArticleID") newswwwurl=rs_hot("titleface") fileExt=lcase(getFileExtName(rs_hot("picname"))) %>
  • [<%=rs_hot("click")%>]·<%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs_hot("title"))%>" target="_blank"> "> <%=CutStr(htmlencode4(rs_hot("title")),40)%>
  • <% Rs_hot.Movenext Loop Rs_hot.Close Set Rs_hot=Nothing %>

最新图文

    <% set rs3=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(echsys)("key")="super" or Request.cookies(echsys)("key")="typemaster" or Request.cookies(echsys)("key")="bigmaster" or Request.cookies(echsys)("key")="smallmaster" or Request.cookies(echsys)("key")="check" then rs3.Source ="select top 10 * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and E_typeid="&E_typeid&" and picname is not null order by EC_ArticleID DESC" end if if Request.cookies(echsys)("key")="" then rs3.Source ="select top 10 * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and E_typeid="&E_typeid&" and picname is not null order by EC_ArticleID DESC" end if if Request.cookies(echsys)("key")="selfreg" then if Request.cookies(echsys)("reglevel")=3 then rs3.Source ="select top 10 * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and E_typeid="&E_typeid&" and picname is not null order by EC_ArticleID DESC" end if if Request.cookies(echsys)("reglevel")=2 then rs3.Source ="select top 10 * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and E_typeid="&E_typeid&" and picname is not null order by EC_ArticleID DESC" end if if Request.cookies(echsys)("reglevel")=1 then rs3.Source ="select top 10 * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and E_typeid="&E_typeid&" and picname is not null order by EC_ArticleID DESC" end if end if else rs3.Source ="select top 10 * from "& db_wygkcn_Article_Table &" where picnews=1 and Checked=1 and E_typeid="&E_typeid&" and picname is not null order by EC_ArticleID DESC" end if rs3.Open rs3.Source,conn,1,1 if not rs3.EOF then while not rs3.EOF fileExt=lcase(getFileExtName(rs3("picname"))) Content=htmlencode4(rs3("Content")) newsurl="wygkcn_ShowArticle.asp?EC_ArticleID=" & rs3("EC_ArticleID") newswwwurl=rs3("titleface") fileExt=lcase(getFileExtName(rs3("picname"))) %>
  • ·<%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> "> <%=CutStr(htmlencode4(rs3("title")),48)%>
  • <% rs3.MoveNext wend else Response.Write "
  • 暂无
  • " end if rs3.close set rs3=nothing %>
<% End if Conn.Close Set Conn=Nothing %>