jinqi.asp

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

%>
<table width="530" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
    
<td width="100%" height="20" align="right" class="unnamed1"> 有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页 <a href="?page=1"><<</a>
<% if page2>1 then %>
  <a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<% Next %>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
	  <a href="?page=<%=y %>">>></a>
</td>
</tr>
</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" -->