www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > main_func.asp

    <%
'===================================================================
'= ASP FILENAME	: /main_func.asp
'= CREATED TIME : MAY,4,2003
'= LAST MODIFIED: AUG,10,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 主页面所有栏目显示函数
'===================================================================
'===================================================================
'= Function     : ShowColumnUserInfo() 
'= Time		    : Created At 9,14,2003
'= Input        : None
'= Output       : None
'= Table        : QUERY CLASS_USER
'= Return       : 
'= Description  : show the login user info (use to small column)
'===================================================================
Function ShowColumnUserInfo()

	Dim intErrId
	Dim clsForm
	Dim clsTable
	Dim strClassCenter,strClassLeft,strClassRight
	Dim intSms,intNewSms

	strClassCenter = "CSS_TD_CENTER3"
	strClassLeft = "CSS_TD_LEFT3"
	strClassRight = "CSS_TD_RIGHT3"

	intErrId = 0
	If IsEmpty(GBL_intUserId) Or GBL_intUserId = 0 Then%>
%>
<table vAlign=top cellSpacing=0 cellPadding=0  border=0 width=90%>
		<form method="post" name="frmLogin" id="frmLogin" action="user/user_login.asp" onSubmit="return CheckFormLogin()">
			<tr>
				<td align="right" height=30>用户名:</td>
				<td align="left">&nbsp;&nbsp;<input type="text" name="iptUserName" size=10 maxlength=10></td>
			</tr>
			<tr>
				<td align="right" height=30>密码:</td>
				<td align="left">&nbsp;&nbsp;<input type="password" name="iptPassword" size=10 maxlength=20></td>
			</tr>
			<tr>
				<td colspan=2 height=30>
					<input type="submit" name="submit" value="登陆">&nbsp;&nbsp;
					<input type="button" onclick="user/user_announce.asp?action=ShowUserRegAnnounce" name="submit" value="注册">
				</td>
			</tr></form>
		</table>
<%
			
	Else

%><TABLE cellSpacing=0 cellPadding=0 border=0>
<TR>
	<TD align=middle width=9></TD>
	<TD ><FONT class="login_hint" ><%=GBL_strUserRealName%>校友,<Script Language=Javascript >ShowHello();</Script>！欢迎光临<%=TAG_strSiteName%>！&nbsp;&nbsp;&nbsp;
	</FONT></TD></tr>
	 
	</TABLE>
<%


	End If '== End of If IsEmpty(strUserId) Or strUserId = ""

End Function
'====================================================================
'= Function     : ShowColumnUserInfo2() 
'= Time		    : Created At 9,14,2003
'= Input        : None
'= Output       : None
'= Table        : QUERY CLASS_USER
'= Return       : 
'= Description  : show the login user info (use to small column)
'=====================================================================
Function ShowColumnUserInfo2()

	Dim intErrId
	Dim clsForm
	Dim clsTable
	Dim strClassCenter,strClassLeft,strClassRight
	Dim intSms,intNewSms

	intErrId = 0
	%>
	 <TABLE cellSpacing=0 cellPadding=0 border=0>
	<%
  If IsEmpty(GBL_intUserId) Or GBL_intUserId = 0 Then%>
		  <TR>
			<TD align=middle width=9></TD>
			<TD width=44><FONT class="login_hint" >用户名 
			</FONT></TD>
			<TD width=112><FONT color=#ffffff size=2><INPUT 
			   size=15 maxlength=20 name=iptUserName> </FONT></TD>
			<TD align=middle width=13></TD>
			<TD width=47 ><FONT class="login_hint" >密&nbsp;&nbsp;码 
			  </FONT></TD>
			<TD width=176><FONT class="login_hint" ><INPUT 
			   type=password size=15 
			  name=iptPassword  > <select name=iptCookie><option value='0'>即时</option><option value='1'>一天</option><option value='7'>一周</option><option value='31'>一月</option><option value='365'>一年</option></select></FONT></TD>
			<TD width=205>
			  <TABLE cellSpacing=0 cellPadding=0 width=200 
			  align=right border=0>
				<TBODY>
				<TR>
				<TD width=65><span style="cursor:hand" onclick="CheckFormUserLogin(frmLogin)&&frmLogin.submit() "><div id="login_nav_login"><span class="alt">[ reg ]</span></div></span></TD>
				<td width=20></td>
				<TD width=69><A 
				href="<%=GBL_strHomeURL%>user/user_announce.asp"><div id="login_nav_reg"><span class="alt">[ reg ]</span></div></A></TD>
				<TD align=right width=65></TD>
				<TD width=140><FONT color=#ffffff 
				size=2>&nbsp;</FONT></TD></TR>
			</TBODY></TABLE>
			<%Else%>
<TR>
			<TD align=middle width=9></TD>
			<TD ><FONT class="login_hint" ><%=GBL_strUserRealName%>校友,<Script Language=Javascript >ShowHello();</Script>！欢迎光临<%=TAG_strSiteName%>！&nbsp;&nbsp;&nbsp;
			</FONT></TD>
			<TD width=205>
			  <TABLE cellSpacing=0 cellPadding=0 width=200 
			  align=left border=0>
				<TBODY>
				<TR>
				<TD width=65><A 
				href="<%=GBL_strHomeURL%>user/user_info_show.asp"><div id="login_nav_userinfo"><span class="alt">[ userinfo ]</span></div></A></TD>
				<TD width=69 align=left><A 
				href="<%=GBL_strHomeURL%>user/user_exit.asp" onclick="return confirm('您确认要退出吗?')"><div id="login_nav_exit"><span class="alt">[ login exit ]</span></div></A></TD>
				</TR>
			</TBODY></TABLE>
			<%End If
%>
</table>
<%
End Function
'=====================================================================
'= Function     : ShowColumnWebBulletin() 
'= Time		    : Created At 9,18,2003
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : bulletin(small column)
'=====================================================================
Function ShowColumnWebBulletin()

%>
<iframe   src="html/board.asp" width="500" height="125" frameborder="0" scrolling="no"  ></iframe>
<%
End Function
'=====================================================================
'= Function     : ShowColumnPoll()
'= Time		    : Created At Nov,19,2003
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : show poll(small column)
'=====================================================================
Function ShowColumnPoll()
%>
<script src="admin/admin_poll/showvote.js"></script>
<%
End Function
'=====================================================================
'= Function     : ShowColumnLinkCode()
'= Time		    : Created At Jan,03,2004
'= Input        : 
'= Output       : None
'= Table        : Query CLASS_LINK
'= Return       : 
'= Description  : show link
'=====================================================================
Function ShowColumnLinkCode()

	Dim clsTable
	Dim strCssType 
	Dim intFirstId
	Dim strHtmlCode,strTmp

	strHtmlCode = ""
	strTmp = ""

		GBL_objPubDB.Clear()
		GBL_objPubDB.TableName = "CLASS_LINK"
		GBL_objPubDB.SQLType = "SELECT"
		GBL_objPubDB.AddField "*",""
		GBL_objPubDB.Where = "LINK_SET=0"
		GBL_objPubDB.Order = "LINK_LOGO_SET ASC,LINK_ID DESC"
		GBL_objPubDB.SQLRSExecute()
		Call ResultExecute(GBL_objPubDB.intErrNum,"make show link","ES_ERR")

		If GBL_objPubDB.intRSNum <= 0 Then
			strHtmlCode =  "<p align=center>·目前没有友情链接</p>"
		Else

			While Not GBL_objPubDB.objPubRS.Eof
				
				If GBL_objPubDB.objPubRS("LINK_LOGO_SET") = 1 Then
					strTmp =  "<img border=0 src=""" & GBL_objPubDB.objPubRS("LINK_LOGO_IMG") & """ alt=""" & GBL_objPubDB.objPubRS("LINK_DESC") & """ onload=""DrawImage(this,150,50,1)"">"
					strTmp = "<a href=""" & GBL_objPubDB.objPubRS("LINK_URL") & """  target=_blank>" & strTmp & "</a>"
					strTmp = "<center>" & strTmp & "</center>" & vbCrLf  & "<br>"
					strHtmlCode = strHtmlCode & strTmp
				Else
					strTmp = "<a href=""" & GBL_objPubDB.objPubRS("LINK_URL") & """ title=""" & GBL_objPubDB.objPubRS("LINK_DESC") &  """ target=_blank>" & GBL_objPubDB.objPubRS("LINK_NAME") & "</a>"
					strTmp = "<center>" & strTmp & "</center>" & vbCrLf  & "<br>"
					strHtmlCode = strHtmlCode & strTmp
				End If
				GBL_objPubDB.objPubRS.MoveNext

			Wend

		End If

	ShowColumnLinkCode = strHtmlCode

End Function
'===================================================================
'= Function     : NowMenu()
'= Time		    : Created At Nov,26,2003
'= Input        : None
'= Output       : None
'= Table        : Query CLASS_TRANS
'= Return       : 
'= Description  : show now your position in web
'===================================================================
Sub NowMenu()

	Dim strNowPost
	Dim strRoot,strMain,strSub
	Dim intRoot,intMain,intSub
	Dim strHtmlCode
	Dim strHomeLink

	strHtmlCode = ""
	strNowPost = Trim(Request.QueryString("action"))
	strHomeLink = "您现在的位置：<a href='http://" & GBL_strSiteURL & "' title='返回首页'>首页</a>-&gt"

	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_TRANS"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "TRANS_ROOT,TRANS_MAIN,TRANS_SUB,TRANS_DESC,TRANS_INFO,TRANS_LINK",""
	GBL_objPubDB.Where = "TRANS_NAME='" & strNowPost & "' AND TRANS_STYLE='" & GBL_strStyle & "'"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"get now menu","ES_ERR")
	
	If GBL_objPubDB.intRSNum = 0 Then
		Exit Sub
	End If

	'== get this trans chinese name or desc
	intRoot = GBL_objPubDB.objPubRS("TRANS_ROOT")
	intMain = GBL_objPubDB.objPubRS("TRANS_MAIN")
	intSub = GBL_objPubDB.objPubRS("TRANS_SUB")
	strSub = MakeLink(GBL_objPubDB.objPubRS("TRANS_LINK"),GBL_objPubDB.objPubRS("TRANS_DESC"),GBL_objPubDB.objPubRS("TRANS_INFO"))
	If intRoot = 0 And intMain =0 And intSub = 0 Then
		Exit Sub
	ElseIf intSub = 0 And intMain = 0 Then
		strHtmlCode = strHomeLink & strSub
	ElseIf intSub = 0 Then
		
		GBL_objPubDB.Clear()
		GBL_objPubDB.TableName = "CLASS_TRANS"
		GBL_objPubDB.SQLType = "SELECT"
		GBL_objPubDB.AddField "TRANS_DESC,TRANS_INFO,TRANS_LINK",""
		GBL_objPubDB.Where = "TRANS_ROOT=" & intRoot & " AND TRANS_MAIN=0 AND TRANS_SUB=0  AND TRANS_STYLE='" & GBL_strStyle & "'"
		GBL_objPubDB.SQLRSExecute()
		Call ResultExecute(GBL_objPubDB.intErrNum,"get main menu","ES_ERR")
		If GBL_objPubDB.intRSNum = 0 Then
			strHtmlCode = strHomeLink & strSub
		Else
			strHtmlCode = strHomeLink & MakeLink(GBL_objPubDB.objPubRS("TRANS_LINK"),GBL_objPubDB.objPubRS("TRANS_DESC"),GBL_objPubDB.objPubRS("TRANS_INFO")) & "-&gt" & strSub
		End If

	ElseIf intSub <> 0 Then

		GBL_objPubDB.Clear()
		GBL_objPubDB.TableName = "CLASS_TRANS"
		GBL_objPubDB.SQLType = "SELECT"
		GBL_objPubDB.AddField "TRANS_DESC,TRANS_LINK,TRANS_INFO",""
		GBL_objPubDB.Where = "TRANS_ROOT=" & intRoot & " AND TRANS_MAIN=0 AND TRANS_SUB=0  AND TRANS_STYLE='" & GBL_strStyle & "'"
		GBL_objPubDB.SQLRSExecute()
		Call ResultExecute(GBL_objPubDB.intErrNum,"get main menu","ES_ERR")
		If GBL_objPubDB.intRSNum = 0 Then
			strHtmlCode = strHomeLink & strSub
		Else
			strHtmlCode = strHomeLink & MakeLink(GBL_objPubDB.objPubRS("TRANS_LINK"),GBL_objPubDB.objPubRS("TRANS_DESC"),GBL_objPubDB.objPubRS("TRANS_INFO")) & "-&gt"
			GBL_objPubDB.Clear()
			GBL_objPubDB.TableName = "CLASS_TRANS"
			GBL_objPubDB.SQLType = "SELECT"
			GBL_objPubDB.AddField "TRANS_DESC,TRANS_LINK,TRANS_INFO",""
			GBL_objPubDB.Where = "TRANS_ROOT=" & intRoot & " AND TRANS_MAIN= " & intMain & " AND TRANS_SUB=0 AND TRANS_STYLE='" & GBL_strStyle & "'"
			GBL_objPubDB.SQLRSExecute()
			Call ResultExecute(GBL_objPubDB.intErrNum,"get main menu","ES_ERR")

			If GBL_objPubDB.intRSNum = 0 Then
				strHtmlCode = strHtmlCode & strSub
			Else
				strHtmlCode = strHtmlCode & MakeLink(GBL_objPubDB.objPubRS("TRANS_LINK"),GBL_objPubDB.objPubRS("TRANS_DESC"),GBL_objPubDB.objPubRS("TRANS_INFO")) & "-&gt" & strSub
			End If

		End If
		
	End If

	Response.Write strHtmlCode

End Sub 

Function ColumnLeftView()	
	%>
	<table  align=left class="left_view" cellspacing="3" cellpadding="0" border=0>
		<tr>
			<td align=left>&nbsp;</td>
		</tr>
		<tr>
			<td align=left><li><a href="../info/info.asp?method=help">使用帮助</a></li></td>
		</tr>
		<tr>
			<td align=left><li><a href="../info/info.asp?method=contact">联系与沟通</a></li></td>
		</tr>
		<tr>
			<td align=left><li><a href="../forum/forum_list.asp?action=ShowForumList&ForumId=41">站务留言</a></li></td>
		</tr>
	</table>
	<%
End Function

'===================================================================
'= Function     : SiteBottom()
'= Time		    : Created At 2006-7-2
'= Input        : 
'= Return       : installed or not flag
'= Description  : 
'===================================================================
Function SiteBottom()

	Dim strShowView

	'== 访问情况统计
	If Not ViewCount() Then
		Exit Function
	End If

	strShowView = "总访问量:" & GBL_intHomeCount
	strShowView = strShowView & ",昨日:" & GBL_intHomeLastViewCount & ",今日:" & GBL_intHomeTodayViewCount
	%>
	<!-- ### 页尾开始 ### -->
	<table cellspacing="0" cellpadding="0" width="80%" align="center"  border="0">
	<tbody>
	<tr>
	  <td align="center">
	<a href="#" onClick="window.external.addFavorite('<%=TAG_strSiteUrl%>','<%=TAG_strSiteName%>')" title="将<%=TAG_strSiteName%>添加到收藏夹">加入收藏</a> | <a href="<%=GBL_strHomeUrl%>info/info.asp?method=intro">关于本站</a> |
	<a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=TAG_strSiteName%>');" title="将设置<%=TAG_strSiteName%>为浏览器首页">设为首页</a> | <a  href="mailto:<%=TAG_strEmail%>" title="给<%=TAG_strSiteName%>的管理员发邮件">与我联系</a>
	 | <a href="<% =GBL_strHomeURL%>admin/" title="管理员专用">管理入口</a>
	<br>
	<%
	If  CONST_PAGE_FILE = "/index1.asp" Then
		Response.Write strShowView 
	End If
	
	%>
	<a href="http://www.cclinux.com" target=_blank><script>document.write(unescape('CC%u6821%u53CB%u5F55%u8D34%u5427%20V0908%20%20CC%u5DE5%u4F5C%u5BA4%u51FA%u54C1'));</script></a>
	<br>
	<font size=2>&nbsp;</font> <%=TAG_strCopyRight%>&nbsp;<%=TAG_strRecord%>
 
	<%
		GBL_PageExeTime = FormatNumber(cCur(Timer - GBL_PageExeTime),3,True)
		Response.Write "&nbsp;Server:" & GBL_PageExeTime*1000 & "Ms"

		If CTL_DB_NUM Then
			Response.Write "&nbsp;&nbsp;DB:" & GBL_intDBNum
		End If
	%>
	<script language=javascript>
	// end flag of web finished
	EndFlag = 1;
	</script>
	<div style="display:none"><script src="http://s1.cnzz.com/stat.php?id=1614170&web_id=1614170" language="JavaScript" charset="gb2312"></script></div>
	 </td></tr>
	</table>
	<!-- ### 页尾结束 ### -->
	<%

End Function
%>