zuzhi.asp

研究生会网站,,适合大中专门院校学生组织使用

<!--#include file="Gaobei_head.asp" -->
<%
sub navigation()
response.write " &gt;&gt; "
response.write "研究生会组织机构"
end sub
%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
		<tr>
			<td width="218" valign="top">
<% 'call Gaobei_userlogin() %>
<% 'Call Gaobei_Marquee()%>
<% call Gaobei_Search() %>
<% call Gaobei_vote() %>
<% call Gaobei_links() %>
</td>
			<td width="560" valign="top">
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #CECFCE">
		<tr>
			<td bgcolor="#FFFFFF" width="100%">   
<!--留言内容开始-->
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=56>
<%
    dim indexfilename,indeximg,n,x,m
    indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))) 
    imdeximg="Images/Gaobei_skin/" '图片文件夹
    n=5 '每页显示留言数
    x=5  '每页显示的页数
    txt=1000  '留言的最大字数
           dim webtitle,webname,webyn,webgl,webyn2,view2
           set rs1 = conn.execute("select * From Gaobei_Set")
           webtitle=rs1("title")
           if rs1("webname")<>"" then webname=rs1("webname")
           if rs1("gbyn")<>"" then webyn=rs1("gbyn")
           webgl=rs1("gl")
           rs1.close
           set rs1=nothing
    '设置页脚信息
    page =Request.QueryString("page")
    if page="" or page=0 then page=1
    action = Request.QueryString("action")
    action_e = Request.Form("action_e")
    if action_e <>"" then
    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
    if mid(server_v1,8,len(server_v2))<>server_v2 then 
    response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>" 
    response.write "<tr><td style='font:9pt Verdana'>" 
    response.write "你提交的路径有误，禁止从站点外部提交数据！" 
    response.write "</td></tr></table></center>" 
    response.end 
    end if 
    end if
%>
<script language="JavaScript">
    function gbcount(message,total,used,remain)
    {
	var max;
	max = total.value;
	if (message.value.length > max) {
	message.value = message.value.substring(0,max);
	used.value = max;
	remain.value = 0;
	alert("活动信息不能超过 <%=txt%> 个字!");
	}
	else {
	used.value = message.value.length;
	remain.value = max - used.value;
	}
    }
</script>
  <table width="500" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
    <tr>
      <td width="500" height="10" align="center" valign="top">
<%
    '主程序
    Select Case action_e
    Case "Add_New"
    Call Add_New_Execute()
    End Select
    Call Main_Menu()
    Select Case action
    Case ""
    Call View_Words()
    Case "View_Words"
    Call View_Words()		
    End Select
%>
      </td>
    </tr>
  </table>

<% Sub Main_Menu() %>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<%
    End Sub 
    '''''''''''''''''''''''
    '查看留言
    Sub View_Words() 
         dim gbcount,y,j,k
         set rs = conn.execute("select COUNT(*) as gbcount From Active")
		 gbcount=rs("gbcount")
		 rs.close
		 
		 if gbcount/n = int(gbcount/n) then '计算出分页数
		 y=int(gbcount/n)
		 else
		 y=int(gbcount/n)+1
		 end if

         page2= int(page/x)
		 if page/x>page2 then page2=page2+1
		 k=page2*x
		 if k>y then k=y

		 '打开留言字段'
		 if page=1 then
		 sql="select top "&n&"  active_id,active_name,active_pic,active_desc,active_bumen,active_time From Active Order By active_id Desc"
		 else
		 sql="select active_id,active_name,active_pic,active_desc,active_bumen,active_time From Active Order By active_id Desc"
		 end if
		 if Page >100 then
            rs.Open sql,Conn,1
         else
            Set Rs=Conn.Execute(sql)
         end if
         if Page>1 then RS.Move n*page-n
%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>      <td width="100%" height="20" >组织机构图      </td>          </tr>
</table>

<TABLE width="100%" height=10 border=0 align=center cellPadding=0 cellSpacing=1 style="border-collapse:collapse" >
<TBODY>
      <TR><td><img src="images/zuzhi/jiegou.jpg"></td></tr>      	
    </TBODY>
</TABLE>
<% End Sub %>
<br>

<%
    Conn.Close
    Set Conn = Nothing
%>
<%
    function unHtml(content)
    unHtml=content
    if content <> "" then
    'unHtml=replace(unHtml,"&","&amp;")
    unHtml=replace(unHtml,"<","&lt;")
    unHtml=replace(unHtml,">","&gt;")
    unHtml=replace(unHtml,chr(34),"&quot;")
    unHtml=replace(unHtml,chr(13),"<br>")
    unHtml=replace(unHtml,chr(32),"&nbsp;") 
    unhtmlgl=split(webgl,"|")
    if IsArray(unhtmlgl) then
    for i=0 to UBound(unhtmlgl)
    unhtml=replace(unhtml,unhtmlgl(i),"***")
    next
    end if
    'unHtml=ubb(unHtml)
    end if
    end function
    function ubb(content)
    ubb=content
    nowtime=now()
    UBB=Convert(ubb,"code")
    UBB=Convert(ubb,"html")
    UBB=Convert(ubb,"url")
    UBB=Convert(ubb,"color")
    UBB=Convert(ubb,"font")
    UBB=Convert(ubb,"size")
    UBB=Convert(ubb,"quote")
    UBB=Convert(ubb,"email")
    UBB=Convert(ubb,"img")
    UBB=Convert(ubb,"swf")
    ubb=convert(ubb,"cen")
    ubb=convert(ubb,"rig")
    ubb=convert(ubb,"lef")
    ubb=convert(ubb,"center")
    UBB=AutoURL(ubb)
    ubb=replace(ubb,"[b]","<b>",1,-1,1)
    ubb=replace(ubb,"[/b]","</b>",1,-1,1)
    ubb=replace(ubb,"[i]","<i>",1,-1,1)
    ubb=replace(ubb,"[/i]","</i>",1,-1,1)
    ubb=replace(ubb,"[u]","<u>",1,-1,1)
    ubb=replace(ubb,"[/u]","</u>",1,-1,1)
    ubb=replace(ubb,"[blue]","<font color='#000099'>",1,-1,1)
    ubb=replace(ubb,"[/blue]","</font>",1,-1,1)
    ubb=replace(ubb,"[red]","<font color='#990000'>",1,-1,1)
    ubb=replace(ubb,"[/red]","</font>",1,-1,1)
    for i=1 to 28
    ubb=replace(ubb,"{:em"&i&"}","<IMG SRC=emot/emotface/em"&i&".gif ></img>",1,6,1)
    ubb=replace(ubb,"{:em"&i&"}","",1,-1,1)
    next
    ubb=replace(ubb,"["&chr(176),"[",1,-1,1)
    ubb=replace(ubb,chr(176)&"]","]",1,-1,1)
    ubb=replace(ubb,"/"&chr(176),"/",1,-1,1)
    'ubb=replace(ubb,"{;em","{:em",1,-1,1)
    end function
    function Convert(ubb,CovT)
    cText=ubb
    startubb=1
    do while Covt="url" or Covt="color" or Covt="font" or Covt="size"
    startubb=instr(startubb,cText,"["&CovT&"=",1)
    if startubb=0 then exit do
    endubb=instr(startubb,cText,"]",1)
    if endubb=0 then exit do
    Lcovt=Covt
    startubb=startubb+len(lCovT)+2
    text=mid(cText,startubb,endubb-startubb)
    codetext=replace(text,"[","["&chr(176),1,-1,1)
    codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)
    'codetext=replace(codetext,"{:em","{;em",1,-1,1)
    codetext=replace(codetext,"/","/"&chr(176),1,-1,1)
    select case CovT
    case "color"
	cText=replace(cText,"[color="&text&"]","<font color='"&text&"'>",1,1,1)
	cText=replace(cText,"[/color]","</font>",1,1,1)
    case "font"
	cText=replace(cText,"[font="&text&"]","<font face='"&text&"'>",1,1,1)
	cText=replace(cText,"[/font]","</font>",1,1,1)
    case "size"
	if IsNumeric(text) then
	if text>6 then text=6
	if text<1 then text=1
	cText=replace(cText,"[size="&text&"]","<font size='"&text&"'>",1,1,1)
	cText=replace(cText,"[/size]","</font>",1,1,1)
	end if
    case "url"
	cText=replace(cText,"[url="&text&"]","<a href='"&codetext&"' target=_blank>",1,1,1)
	cText=replace(cText,"[/url]","</a>",1,1,1)
    case "email"
	cText=replace(cText,"["&CovT&"="&text&"]","<a href=mailto:"&text&">",1,1,1)
	cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)
    end select
    loop
    startubb=1
    do
    startubb=instr(startubb,cText,"["&CovT&"]",1)
    if startubb=0 then exit do
    endubb=instr(startubb,cText,"[/"&CovT&"]",1)
    if endubb=0 then exit do
    Lcovt=Covt
    startubb=startubb+len(lCovT)+2
    text=mid(cText,startubb,endubb-startubb)
    codetext=replace(text,"[","["&chr(176),1,-1,1)
    codetext=replace(codetext,"]",chr(176)&"]",1,-1,1)
    'codetext=replace(codetext,"{:em","{;em",1,-1,1)
    codetext=replace(codetext,"/","/"&chr(176),1,-1,1)
    select case CovT
    case "center"
    cText=replace(cText,"[center]","<div align='center'>",1,1,1)
	cText=replace(cText,"[/center]","</div>",1,1,1)

    case "url"
	cText=replace(cText,"["&CovT&"]"&text,"<a href='"&codetext&"' target=_blank>"&codetext,1,1,1)
	cText=replace(cText,"<a href='"&codetext&"' target=_blank>"&codetext&"[/"&CovT&"]","<a href="&codetext&" target=_blank>"&codetext&"</a>",1,1,1)
    case "email"
	cText=replace(cText,"["&CovT&"]","<a href=mailto:"&text&">",1,1,1)
	cText=replace(cText,"[/"&CovT&"]","</a>",1,1,1)
    case "html"
	codetext=replace(codetext,"<br>",chr(13),1,-1,1)
	codetext=replace(codetext,"&nbsp;",chr(32),1,-1,1)
	Randomize
	rid="temp"&Int(100000 * Rnd)
	cText=replace(cText,"[html]"&text,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext,1,1,1)
	cText=replace(cText,"代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"[/html]","代码片断如下：<TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"</TEXTAREA><INPUT onclick=runEx('"&rid&"') type=button value=运行此段代码 name=Button1 class='Tips_bo'> <INPUT onclick=JM_cc('"&rid&"') type=button value=复制到我的剪贴板 name=Button2 class='Tips_bo'>",1,1,1)
    case "img" '一般显示的图片
	cText=replace(cText,"[img]"&text,"<a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext ,1,1,1 )
	cText=replace(cText,"[/img]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开:: onload='javascript:if(this.width>580)this.width=580'></a>",1,1,1)
    
	case "cen" '图片居中
	cText=replace(cText,"[cen]"&text,"<table border='0' align='center' cellpadding='0' cellspacing='0'><tr><td > <a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext ,1,1,1 )

	cText=replace(cText,"[/cen]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开:: onload='javascript:if(this.width>580)this.width=580'></a></td></tr></table>",1,1,1)
	
	case "rig" '图片居右,文字绕排
	cText=replace(cText,"[rig]"&text,"<a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext ,1,1,1 )
	cText=replace(cText,"[/rig]"," vspace=2 hspace=2 border=0 align='right' alt=::点击图片在新窗口中打开:: onload='javascript:if(this.width>580)this.width=580'></a>",1,1,1)
   
    case "lef" '图片居左,文字绕排
	cText=replace(cText,"[lef]"&text,"<a href="&chr(34)&"about:<img src="&codetext&" border=0>"&chr(34)&" target=_blank><img src="&codetext ,1,1,1 )
	cText=replace(cText,"[/lef]"," vspace=2 hspace=2 border=0 align='left' alt=::点击图片在新窗口中打开:: onload='javascript:if(this.width>580)this.width=580'></a>",1,1,1)

	case "code"
	cText=replace(cText,"[code]"&text,"以下内容为程序代码<hr noshade>"&codetext,1,1,1)
	cText=replace(cText,"以下内容为程序代码<hr noshade>"&codetext&"[/code]","以下内容为程序代码<hr noshade>"&codetext&"<hr noshade>",1,1,1)
    case "quote"
    atext=replace(text,"[cen]","",1,-1,1)
	atext=replace(text,"[/cen]","",1,-1,1)

	atext=replace(text,"[img]","",1,-1,1)
	atext=replace(atext,"[/img]","",1,-1,1)
	atext=replace(atext,"[swf]","",1,-1,1)
	atext=replace(atext,"[/swf]","",1,-1,1)
	atext=replace(atext,"[html]","",1,-1,1)
	atext=replace(atext,"[/html]","",1,-1,1)
        'atext=replace(atext,"{:em","{;em",1,-1,1)
	atext=SplitWords(atext,350)
	atext=replace(atext,chr(32),"&nbsp;",1,-1,1)
	cText=replace(cText,"[quote]"&text,"<blockquote><hr noshade>"&atext,1,1,1)
	cText=replace(cText,"<blockquote><hr noshade>"&atext&"[/quote]","<blockquote><hr noshade>"&atext&"<hr noshade></blockquote>",1,1,1)
    end select
    loop
    Convert=cText
    end function
    function AutoURL(ubb)
    cText=ubb
    startubb=1
    do
    startubb=1
    endubb_a=0
    endubb_b=0
    endubb=0
    startubb=instr(startubb,cText,"http://",1)
    if startubb=0 then exit do
    endubb_b=instr(startubb,cText,"<",1)
    endubb_a=instr(startubb,cText,"&nbsp;",1)
    endubb=endubb_a
    if endubb=0 then
    endubb=endubb_b
    end if
    if endubb_b<endubb and endubb_b>0 then
    endubb=endubb_b
    end if
    if endubb=0 then
    lenc=ctext
    endubb=len(lenc)+1
    end if
    'response.write startubb&","&endubb
    if startubb>endubb then exit do
    text=mid(cText,startubb,endubb-startubb)
    'response.write text
    'codetext=replace(text,"/","/"&chr(176),1,-1,1)
    codetext=text
    'response.write text&","
    urllink="<a href='"&codetext&"' target=_blank>"&codetext&"</a> "
    'response.write urllink
    urllink=replace(urllink,"/","/"&chr(176),1,-1,1)
    cText=replace(cText,text,urllink,1,1,1)
    loop
    AutoURL=cText
    end function
%>
</TD>
</TR>
</TBODY>
</TABLE>
<!-- 留言内容结束-->
</td>
		</tr>
	</table>
</div>
			</td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_foot.asp" -->