<%@ LANGUAGE = VBScript.Encode %> <% Version=Request("Version") %> <% if Version=empty then %> <% Else %> <% End if%> <% ColumnName=trim(Request("ColumnName")) myColumn=trim(Request("myColumn")) KeyWord=trim(Request("KeyWord")) Version=Request("Version") if ColumnName=empty and KeyWord=empty then ColumnName="news" end if select case myColumn case "'新闻'" myEColumn="News" case "'专栏介绍'" myEColumn="Introductions" case "'人员机构'" myEColumn="Organization" case "'预印本'" myEColumn="Preprint" case "'课程讲义'" myEColumn="Lecture" case "'学术论著'" myEColumn="Publications" case "'学术奖励'" myEColumn="Awards" case "'名师论坛'" myEColumn="Forum" case "'访问学者'" myEColumn="Vistor" case "'综合信息'" myEColumn="Information" case "'研究生培养'" myEColumn="Post Graduate" case "'数学广角'" myEColumn="sxgj" case "'丘成桐班'" myEColumn="yauclass" case else myEColumn="All Columns" end select select case ColumnName case "news" Sort="'新闻'" PSort="新闻动态" ESort="News" TableID=3 case "special" Sort="'专栏介绍'" PSort="专栏介绍" ESort="Introductions" TableID=3 case "people" Sort="'人员机构'" PSort="人员机构" ESort="Organization" TableID=3 case "pdfbook" Sort="'预印本'" PSort="预印本" ESort="Preprint" TableID=3 case "publications" Sort="学术论著" PSort="学术论著" ESort="Preprint" TableID=3 case "awards" Sort="学术奖励" PSort="学术奖励" ESort="Preprint" TableID=3 case "syllabus" Sort="'课程讲义'" PSort="课程讲义" ESort="Lecture" TableID=3 case "academic" Sort="'学术活动'" PSort="学术活动" ESort="Activities" TableID=6 case "forum" Sort="'名师论坛'" PSort="名师论坛" ESort="Forum" TableID=3 case "scholar" Sort="'访问学者'" PSort="访问学者" ESort="Visitor" TableID=3 case "integration" Sort="'综合信息'" PSort="综合信息" ESort="Information" TableID=3 case "Pgraduate" Sort="'研究生培养'" PSort="研究生培养" ESort="Post Graduate" TableID=3 case "yauclass" Sort="'丘成桐班'" PSort="丘成桐班" ESort="yauclass" TableID=3 case "cxszl" Sort="'陈省身专栏'" PSort="陈省身专栏" ESort="chern" TableID=3 case "sxgj" Sort="'数学广角'" PSort="数学广角" ESort="sxgj" TableID=3 Case Else TableID=3 ColumnName="search" If KeyWord="" Then Response.write "error" Response.end Else if myColumn="" then RColumn="所有栏目" REColumn="All Columns" elseif myColumn="'新闻'" then RColumn="新闻动态" REColumn="News" else RColumn=mid(myColumn,2,4) REColumn=myEColumn if RColumn="研究生培" then RColumn=RColumn&"养" end if PSort="文档搜索 关键字："&KeyWord&"" ESort="Search KeyWord:"&KeyWord&"" Range="搜索范围："&RColumn&"" ERange="Column: "&REColumn&"" end if end select set conn = Server.CreateObject("ADODB.Connection") Conn.Open connString NewsID=Request("id") sql="select * from " & NewsTableName & " where NewsID=" & NewsID set rs=server.createobject("ADODB.recordset") rs.open sql,conn,adOpenDynamic,adLockReadOnly if err.number<>0 then response.write err.description response.end end if if rs.eof then response.end sqlHint="Update " & NewsTableName & " Set [Hint]=[Hint]+1 Where NewsId=" & NewsID set rs2=server.createobject("ADODB.recordset") rs2.open sqlHint,conn,2,2 sSQLString1="Select * from Attachments Where TabId=" & TableID & " And DocId=" & Request("Id") & " And Deleted='no'" set rs1=Server.CreateObject("ADODB.Recordset") rs1.Open sSQLString1,conn,adOpenDynamic,adLockReadOnly %> <% if ChStyle<> True then %> <%else%> <%end if%>

<%if Version=empty then%> 您的位置：首页 -> <%=PSort%> <%=Range%> <%else%> Your Location: Homepage -> <%=ESort%>  <%=ERange%> <%end if%>
valign=middle colspan=2> <% dim frontStr,midStr,backStr if KeyWord<>"" then i=InStr(1,rs("Title"),KeyWord) if i<>0 then frontStr=left(rs("Title"),i-1) midStr=mid(rs("Title"),i,len(KeyWord)) backStr=right(rs("Title"),len(rs("Title"))-len(frontStr)-len(midStr)) %> <%=frontStr%><%=midStr%><%=backStr%> <%else%> <%=rs("Title")%> <%end if%> <%else%> <%=rs("Title")%> <%end if%>
valign=middle width=50%> <% dim tem 'tem=len( cstr(trim(rs("Authors"))) ) 'response.write len( trim(rs("Authors")) ) if rs("Authors")<>empty then if rs("URLlink")<>empty then if Version=empty then response.write "作者：" else response.write "Author: " end if %> class=linkto<%=left(Version,2)%> ><%=toHTML(rs("Authors"))%> <% else if Version=empty then response.write "作者：" else response.write "Author: " end if%> <%=toHTML(rs("Authors"))%> <% end if else if Version=empty then response.write "创建者："+UserNameByUserID(rs("CreatedBy")) else response.write "Created By: "+UserNameEnByUserID(rs("CreatedBy")) end if%> <% end if %>	valign=middle width=50%> <% if Version=empty then response.write "输入日期："&toHTML(rs("CreatDate"))&"  阅读次数："&rs("Hint") else response.write "Date: "&toHTML(rs("CreatDate"))&"  Hits: "&rs("Hint") end if %>
<% If not rs1.eof Then if Version=empty then response.write " > <% dim bfrontStr,bmidStr,bbackStr if KeyWord<>"" then i=InStr(1,rs("Body"),KeyWord) if i<>0 then j=1 Do While not j=len(rs("Body")) i=InStr(j,rs("Body"),KeyWord) if i<>0 then if j=1 then bfrontStr=mid(rs("Body"),1,i-1) else bfrontStr=mid(rs("Body"),j,i-j) end if bmidStr=mid(rs("Body"),i,len(KeyWord)) j=i+len(KeyWord) %> <%=bfrontStr%><%=bmidStr%><% else bbackStr=mid(rs("Body"),j,len(rs("Body"))-j+1) %><%=bbackStr%> <% exit do end if%> <%Loop%> <%else%> <%=rs("Body")%> <%end if%> <%else%> <%=rs("Body")%> <%end if%> 附件" else response.write " Attachment" end if %> <% While not rs1.eof %>     " target="_blank" class=linkto<%=left(Version,2)%>><% =rs1("Attachment") %> <% rs1.MoveNext %> <% Wend %> <% End If %>