<% dim tid,mypid,mypicount,ikp,fs,icount,id,tname pageno=4 pagetitle="影像专区" pagename="gallery" If Request.QueryString("id")="" Then Response.write "
  • 访问错误!
  • 未指定参数!
  • 请返回上页,浏览本站其他页面……
  • " ResPonse.End() Else If Not IsInteger(Request.QueryString("id")) Then Response.write "
  • 访问错误!
  • 非法的URL参数!
  • 请返回上页,浏览本站其他页面……
  • " ResPonse.End() Else id = Cint(Request.QueryString("id")) End If End If If IsNumeric(id) = False Then Response.write "
  • 访问错误!
  • 请通过页面上的链接进行操作!
  • 请返回上页,浏览本站其他页面……
  • " ResPonse.End() End If if id>0 then strSql="select a.*,t.typename from Pic_UploadInfo a,Pic_Type t where a.filetype=t.id and a.id="&id Set oRs=Server.CreateObject("ADODB.RECORDSET") oRs.Open strSql,oConn,1 if not (ors.eof and ors.bof) then tname = oRs("TypeName") tid = oRs("FileType") end if ors.close end if %>
       
    首页 <%=pagetitle%> 详细内容 
    历史好比演剧,地理就是舞台;如果找不到舞台,哪里看得到戏剧!
     
    他的经历很简单,从6岁到82岁都没有离开学校。他的工作很单纯,从20岁登上讲台,就是上课和作研究。他16岁参加共青团,17岁以后就不想再问政治,但政治没有放过他。历史给他留下了风霜雨露的印记,他与中国一共度过了翻天覆地的82年。他60年的学术生涯像那长年的流水,滋润大地。而今,悠悠长水已汇入浩淼海洋,他与大自然共存。
    摘自葛剑雄著:《悠悠长水—谭其骧前传》
     
    <% Response.write "影像首页" strSql="select ID,TypeName,TypeReadme from Pic_Type order by Sequence" Set oRs=Server.CreateObject("ADODB.RECORDSET") oRs.Open strSql,oConn,1 if oRs.eof and oRs.bof then response.write "还没有任何分类" else do while not oRs.eof Response.write "     "&oRs(1)&"" oRs.movenext loop end if oRs.close %>
     
      <% oConn.execute("update Pic_UploadInfo set hits=hits+1 where ID="&request("id")) strSql="SELECT * FROM Pic_UploadInfo where id="&id Set oRs=Server.CreateObject("ADODB.RECORDSET") oRs.Open strSql,oConn,1 If not(oRs.eof and oRs.bof) Then response.write "
    "&GotTopic(oRs("FileInputTitle"),TitleLongth)&"
    " response.write "" response.write "" response.write "" response.write "
    " '================================================= '过程名:ShowNextArticle '作 用:显示上一篇文章 '参 数:TitleLen ----标题最多字符数,一个汉字=两个英文字符 '================================================= sub ShowNextArticle dim rsNext,sqlNext sqlNext="SELECT TOP 1 a.* , s.typeName from Pic_UploadInfo a, Pic_type s where a.filetype=s.ID and a.filetype=12 AND a.filetype="&tid sqlNext=sqlNext+" AND a.ID>" & oRs("ID")& "" sqlNext=sqlNext+" order by a.id asc" Set rsNext= Server.CreateObject("ADODB.Recordset") rsNext.open sqlNext,oconn,1,1 if rsNext.Eof then response.write "暂无图片" else response.write "" & rsNext("FileInputTitle") &"" end if rsNext.close set rsNext=nothing end sub 'ShowNextArticle结束并调用该过程 call ShowNextArticle response.write "" If oRs("videourl")<>"" then Set Fs = Server.CreateObject("Scripting.FileSystemObject") If Fs.FileExists(server.mappath(replace(oRs("videourl"),"../",""))) Then %>

    <% else Response.write "影音文件丢失" End If Set Fs = Nothing Response.write "" Else Response.write "暂无图片" End if Response.write "

    " '================================================= '过程名:ShowPrevArticle '作 用:显示上一篇文章 '参 数:TitleLen ----标题最多字符数,一个汉字=两个英文字符 '================================================= sub ShowPrevArticle dim rsPrev,sqlPrev sqlPrev="SELECT TOP 1 a.* , s.typeName from Pic_UploadInfo a, Pic_type s where a.filetype=s.ID and a.filetype=12 AND a.filetype="&tid sqlPrev=sqlPrev+" AND a.ID < " & oRs("ID")& "" sqlPrev=sqlPrev+" order by a.id desc" Set rsPrev= Server.CreateObject("ADODB.Recordset") rsPrev.open sqlPrev,oconn,1,1 if rsPrev.Eof then response.write "暂无图片" else response.write "" & rsPrev("FileInputTitle") &"" end if rsPrev.close set rsPrev=nothing end sub 'ShowPrevArticle 结束,并调用该过程 call ShowPrevArticle response.write "
    " response.write "该影音文件出自 "&GotTopic(oRs("FileComename"),40)&" 添加于 "&formatdatetime(oRs("UploadTime"),2)&" 已被点击了 "&oRs("Hits")&"

    "&oRs("FileDesc")&"" if oRs("Filedescname")<>"" then Response.write "
    推荐阅读 "&GotTopic(oRs("Filedescname"),78)&"" Response.write "
    " Else Response.write "" End If oRs.close %>