" end if end sub function CheckUserLogined() dim Logined,Password,rsLogin,sqlLogin Logined=True UserName=request.cookies("asp1632")("UserName") Password=request.cookies("asp1632")("Password") UserLevel=request.cookies("asp1632")("UserLevel") if UserName="" then Logined=False end if if Password="" then Logined=False end if if UserLevel="" then Logined=False UserLevel=9999 end if if Logined=True then username=replace(trim(username),"'","") password=replace(trim(password),"'","") UserLevel=Cint(trim(UserLevel)) set rsLogin=server.createobject("adodb.recordset") sqlLogin="select * from " & db_User_Table & " where " & db_User_LockUser & "=0 and " & db_User_Name & "='" & username & "' and " & db_User_Password & "='" & password &"'" rsLogin.open sqlLogin,Conn_User,1,1 if rsLogin.bof and rsLogin.eof then Logined=False else if password<>rsLogin(db_User_Password) or UserLevel
| " if ShowTotal=true then strTemp=strTemp & "共 " & totalnumber & " " & strUnit & " " end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "首页 上一页 " else strTemp=strTemp & "首页 " strTemp=strTemp & "上一页 " end if if n-currentpage<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "下一页 " strTemp=strTemp & "尾页" end if strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 " strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & " 转到：" end if strTemp=strTemp & " |
![](" & rsAD("ImgUrl") & ")
0 then AD = AD & " width='" & rsAD("ImgWidth") & "'"
if rsAD("ImgHeight")>0 then AD = AD & " height='" & rsAD("ImgHeight") & "'"
AD = AD & " border='0'>"
end if
if ADtype=0 then
if session("PopAD"&rsAD("ID")&ChannelID)<>True then
if instr(rsAD("ADSetting"),"|")>0 then
arrSetting=split(rsAD("ADSetting"),"|")
popleft=arrsetting(0)
poptop=arrsetting(1)
end if
response.write ""
session("PopAD"&rsAD("ID")&ChannelID)=True
end if
elseif ADtype=1 then
response.write AD
exit do
elseif ADtype=2 then
response.write AD
exit do
elseif ADtype=3 then
response.write AD
exit do
elseif ADtype=4 then
if instr(rsAD("ADSetting"),"|")>0 then
arrSetting=split(rsAD("ADSetting"),"|")
floatleft=arrsetting(0)
floattop=arrsetting(1)
end if
response.write "" & AD & "
"
call FloatAD()
exit do
elseif ADtype=5 then
if instr(rsAD("ADSetting"),"|")>0 then
arrSetting=split(rsAD("ADSetting"),"|")
fixedleft=arrsetting(0)
fixedtop=arrsetting(1)
end if
response.write "" & AD & "
"
call FixedAD()
exit do
end if
rsAD.movenext
loop
end if
rsAD.close
set rsAD=nothing
end sub
sub ShowTopUser(UserNum)
if UserNum<=0 or UserNum>100 then UserNum=10
dim sqlTopUser,rsTopUser,i
sqlTopUser="select top " & UserNum & " * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
set rsTopUser=server.createobject("adodb.recordset")
rsTopUser.open sqlTopUser,Conn_User,1,1
if rsTopUser.bof and rsTopUser.eof then
response.write "没有任何用户"
else
response.write "| 名次 | 用户名 | 文章数 |
| " & cstr(i) & " | " & rsTopUser(db_User_Name) & " | " & rsTopUser(db_User_ArticleChecked) & " |
" end if loop end if end if rsChild.close set rsChild=nothing end sub sub ShowArticle(TitleLen) if TitleLen<0 or TitleLen>200 then TitleLen=50 end if sqlArticle=sqlArticle & "select A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Keyword,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType," sqlArticle=sqlArticle & "A.Hits,A.OnTop,A.Hot,A.elite2,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl,A.filename,A.filepath from Article A" sqlArticle=sqlArticle & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=0 and A.Passed=1 " if SpecialID>0 then sqlArticle=sqlArticle & " and A.SpecialID=" & SpecialID end if if ClassId>0 then sqlArticle=sqlArticle & " and A.ClassID=" & ClassID end if sqlArticle=sqlArticle & " order by A.OnTop desc,A.ArticleID desc" Set rsArticle= Server.CreateObject("ADODB.Recordset") rsArticle.open sqlArticle,conn,1,1 'set rsArticle=conn.execute("RGetArticleList2 " & SpecialID & "," & ClassID) if rsArticle.bof and rsArticle.eof then totalput=0 response.Write("
"
end if
strTemp= strTemp & "" response.write strTemp rsArticle.movenext i=i+1 if i>=MaxPerPage then exit do loop end sub sub ShowPicArticle(intClassID,ArticleNum,TitleLen,ShowType,Cols,ImgWidth,ImgHeight,ContentLen,Hot,elite2) dim sqlPic,i,tClass,trs,arrClassID sqlPic="select top 4 A.ArticleID,A.ClassID,A.Title,A.filepath,A.filename," sqlPic=sqlPic & " A.Hot,A.Passed,A.DefaultPicUrl from Article A" sqlPic=sqlPic & " where A.Deleted=0 and DefaultPicUrl<>''" if intClassID>0 then set tClass=conn.execute("select ClassID,Child,ParentPath from ArticleClass2 where ClassID=" & intClassID) if not(tClass.bof and tClass.eof) then if tClass(1)>0 then arrClassID=ClassID set trs=conn.execute("select ClassID from ArticleClass2 where ParentID=" & tClass(0) & " or ParentPath like '%" & tClass(2) & "," & tClass(0) & ",%' and Child=0") do while not trs.eof arrClassID=arrClassID & "," & trs(0) trs.movenext loop set trs=nothing sqlPic=sqlPic & " and A.ClassID in (" & arrClassID & ")" else sqlPic=sqlPic & " and A.ClassID=" & tClass(0) end if set trs=nothing else sqlPic=sqlPic & " and A.ClassID=" & tClass(0) end if set tClass=nothing end if sqlPic=sqlPic & " and A.Hits>=500" sqlPic=sqlPic & " order by A.ArticleID desc" set rsPic=Server.CreateObject("ADODB.Recordset") rsPic.open sqlPic,conn,1,1 strPic= "
 没有任何图片文章 | "
else
i=0
do while not rsPic.eof
strPic=strPic & "" call GetPicArticleTitle(TitleLen,ImgWidth,ImgHeight) strPic=strPic & " | " rsPic.movenext i=i+1 if ((i mod Cols=0) and (not rsPic.eof)) then strPic=strPic & "
没有任何图片文章 | "
else
i=0
do while not rsPic.eof
strPic=strPic & "" call GetPicArticleTitle(TitleLen,ImgWidth,ImgHeight) strPic=strPic & " | " rsPic.movenext i=i+1 if ((i mod Cols=0) and (not rsPic.eof)) then strPic=strPic & "
"
end if
strPic=strPic & "" & TitleStr & "" end sub %> <% '请勿改动下面这三行代码 const ChannelID=2 Const ShowRunTime="Yes" MaxPerPage=65 ClassID=132 strFileName="Article_Class2.asp?ClassID=132" Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") %>
|
||||||||||||||
|
您现在的位置： 中国护士网 >> 有关本站 |
|
<% else do while not rsRoot.eof %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
站内文章搜索：