<%
'*************************************************
'函数名：gotTopic
'作  用：截字符串，汉字一个算两个字符，英文算一个字符
'参  数：str   ----原字符串
'       strlen ----截取长度
'返回值：截取后的字符串
'*************************************************
function gotTopic(str,strlen)
	if str="" then
		gotTopic=""
		exit function
	end if
	dim l,t,c, i
	str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
	l=len(str)
	t=0
	for i=1 to l
		c=Abs(Asc(Mid(str,i,1)))
		if c>255 then
			t=t+2
		else
			t=t+1
		end if
		if t>=strlen then
			gotTopic=left(str,i) & "…"
			exit for
		else
			gotTopic=str
		end if
	next
	gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
end function

'***********************************************
'函数名：JoinChar
'作  用：向地址中加入 ? 或 &
'参  数：strUrl  ----网址
'返回值：加了 ? 或 & 的网址
'***********************************************
function JoinChar(strUrl)
	if strUrl="" then
		JoinChar=""
		exit function
	end if
	if InStr(strUrl,"?")<len(strUrl) then 
		if InStr(strUrl,"?")>1 then
			if InStr(strUrl,"&")<len(strUrl) then 
				JoinChar=strUrl & "&"
			else
				JoinChar=strUrl
			end if
		else
			JoinChar=strUrl & "?"
		end if
	else
		JoinChar=strUrl
	end if
end function

'***********************************************
'过程名：showpage
'作  用：显示“上一页 下一页”等信息
'参  数：sfilename  ----链接地址
'       totalnumber ----总数量
'       maxperpage  ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
'       strUnit     ----计数单位
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
	dim n, i,strTemp,strUrl
	if totalnumber mod maxperpage=0 then
    	n= totalnumber \ maxperpage
  	else
    	n= totalnumber \ maxperpage+1
  	end if
  	strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
	if ShowTotal=true then 
		strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
	end if
	strUrl=JoinChar(sfilename)
  	if CurrentPage<2 then
    		strTemp=strTemp & "首页 上一页&nbsp;"
  	else
    		strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
  	end if

  	if n-currentpage<1 then
    		strTemp=strTemp & "下一页 尾页"
  	else
    		strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
    		strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
  	end if
   	strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
    strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & strUnit & "/页"
	if ShowAllPages=True then
		strTemp=strTemp & "&nbsp;转到：<select name='page' size='1' onchange='javascript:submit()'>"   
    	for i = 1 to n   
    		strTemp=strTemp & "<option value='" & i & "'"
			if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
			strTemp=strTemp & ">第" & i & "页</option>"   
	    next
		strTemp=strTemp & "</select>"
	end if
	strTemp=strTemp & "</td></tr></form></table>"
	response.write strTemp
end sub

'**************************************************
'函数名：strLength
'作  用：求字符串长度。汉字算两个字符，英文算一个字符。
'参  数：str  ----要求长度的字符串
'返回值：字符串长度
'**************************************************
function strLength(str)
	ON ERROR RESUME NEXT
	dim WINNT_CHINESE
	WINNT_CHINESE    = (len("中国")=2)
	if WINNT_CHINESE then
        dim l,t,c
        dim i
        l=len(str)
        t=l
        for i=1 to l
        	c=asc(mid(str,i,1))
            if c<0 then c=c+65536
            if c>255 then
                t=t+1
            end if
        next
        strLength=t
    else 
        strLength=len(str)
    end if
    if err.number<>0 then err.clear
end function

function add_info()
if bigclassname="系部简介" then
		response.write "<a href='admin_addinfo.asp?bigclassname=系部简介'>添加系部简介信息</a>"
		elseif bigclassname="新闻动态" then
		         response.write "<a href='admin_addinfo_news.asp?bigclassname=新闻动态'>添加新闻动态信息</a>"
		elseif bigclassname="教学工作" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=教学工作'>添加教学工作信息</a>"
		elseif bigclassname="学科建设" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=学科建设'>添加学科建设信息</a>"
	 elseif bigclassname="科研工作" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=科研工作'>添加科研工作信息</a>"
		elseif bigclassname="学科建设" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=学科建设'>添加学科建设信息</a>"
	 elseif bigclassname="实验中心" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=实验中心'>添加实验中心信息</a>"
	 elseif bigclassname="党群工作" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=党群工作'>添加党群工作信息</a>"
	 elseif bigclassname="硕士教育" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=硕士教育'>添加硕士教育信息</a>"
	elseif bigclassname="学生工作" then
		         response.write "<a href='admin_addinfo.asp?bigclassname=学生工作'>添加学生工作信息</a>"
	
	else 
		         response.write "<a href='admin_addinfo_works.asp?bigclassname=学生作品'>添加学生作品信息</a>"
	end if
	end function
function info_edit()
if bigclassname="系部简介" then
		     response.write "<a href='admin_infomodi.asp?bigclassname=系部简介&id="&rs("id")&"'>修改 </a>"
		elseif bigclassname="新闻动态" then
		       response.write "<a href='admin_infomodi_news.asp?bigclassname=新闻动态&id="&rs("id")&"'>修改 </a>"
		elseif bigclassname="教学工作" then
		          response.write "<a href='admin_infomodi.asp?bigclassname=教学工作&id="&rs("id")&"'>修改 </a>"
		elseif bigclassname="学科建设" then
		         response.write "<a href='admin_infomodi.asp?bigclassname=学科建设&id="&rs("id")&"'>修改 </a>"
	  elseif bigclassname="科研工作" then
		         response.write "<a href='admin_infomodi.asp?bigclassname=科研工作&id="&rs("id")&"'>修改 </a>"
	 elseif bigclassname="实验中心" then
		         response.write "<a href='admin_infomodi.asp?bigclassname=实验中心&id="&rs("id")&"'>修改 </a>" 
		elseif bigclassname="党群工作" then
		         response.write "<a href='admin_infomodi.asp?bigclassname=党群工作&id="&rs("id")&"'>修改 </a>" 
	 elseif bigclassname="硕士教育" then
		         response.write "<a href='admin_infomodi.asp?bigclassname=硕士教育&id="&rs("id")&"'>修改 </a>" 
	 elseif bigclassname="学生工作" then
		         response.write "<a href='admin_infomodi.asp?bigclassname=学生工作&id="&rs("id")&"'>修改 </a>" 
	elseif bigclassname="学生作品" then
		         response.write "<a href='admin_infomodi_works.asp?bigclassname=学生作品&id="&rs("id")&"'>修改 </a>" 
		else 
		         response.write ""
		end if
end function
%>
