user_data.asp

是一个很好用的通信录源码,可以用在同学朋友等的通信上使用!

<%
'===================================================================
'= ASP FILENAME	: /sms/user_data.asp
'= CREATED TIME : Nov,2,2003
'= LAST MODIFIED: Nov,2,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 资料下载现实页面
'= Change Log    :
'===================================================================
%>
<!-- #include file = "../inc/inc_class_def.asp" -->
<!-- #include file = "../inc/inc_pub_func.asp" -->
<!-- #include file = "../db_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->
<!-- #include file = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "../js/comm_func.js" -->
<%
Const CONST_PAGE_FILE = "/user/user_data.asp"
Dim clsPubDB

GBL_strHomeURL = "../"
Set clsPubDB = New classDBOprt
Call UserCheck()
Call SiteHead("资料下载区")
Call ExecOrShowSwitch(CONST_PAGE_FILE,_
		"ShowClassDataMenu" &_
		"ShowAddressDown",_
		"")

Set clsPubDB = Nothing




'=============== ALL FUNCTION THAT DEFINED IN THIS FILE ============
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub         : ShowClassDataMenu()
'= Time		   : Created At Nov,19,2003
'= Input       : 
'= Output      : 
'= Called by   :
'= Calls       :
'= Description : The data of this class's downing main menu
'= Modify      :
'=               Time    Description
'===================================================================
Sub ShowClassDataMenu()
	
	Dim clsTable
	Dim strHtmlCode

	Set clsTable = New classTable
	clsTable.Border = "0"
	clsTable.CellPadding = "0"
	clsTable.CellSpacing = "0"
	clsTable.Width = "98%"
	clsTable.ClassType = ""
	clsTable.Align = "center"
	clsTable.MakeTable()

	clsTable.AddTitleTr ""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""

	clsTable.AddTr ""
	strHtmlCode = MakeLink("./user_data.asp?action=ShowAddressDown","通讯资料","通讯资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"
	strHtmlCode = MakeLink("./user_data.asp?action=ShowSbDown","某人资料","某人详细资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"
	strHtmlCode = MakeLink("./user_data.asp?action=ShowBoardDown","老乡留言","老乡留言下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"
	strHtmlCode = MakeLink("./user_data.asp?action=ShowAddressDown","老乡相册","通讯资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"
	
	clsTable.AddInfoTr "","TOP"
	clsTable.AddInfoTd "请选择你想要的资料下载","CSS_HAED_CENTER1"
	Response.Write "<br>"
	clsTable.OutPutTable()
	
	Set clsTable = Nothing

End Sub
'================== End of Sub ShowClassDataMenu() =================
'===================================================================
'= Sub         : ShowAddressDown()
'= Time		   : Created At Nov,19,2003
'= Input       : 
'= Output      : 
'= Called by   :
'= Calls       :
'= Description : The data of this class's downing main menu
'= Modify      :
'=               Time    Description
'===================================================================
Sub ShowAddressDown()
	
	Dim clsTable
	Dim strHtmlCode

	Set clsTable = New classTable
	clsTable.Border = "0"
	clsTable.CellPadding = "0"
	clsTable.CellSpacing = "0"
	clsTable.Width = "98%"
	clsTable.ClassType = ""
	clsTable.Align = "center"
	clsTable.MakeTable()

	clsTable.AddTitleTr ""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""

	clsTable.AddTr ""
	clsTable.AddTd "本班","CSS_TD_CENTER3"
	clsTable.AddTd "本班","CSS_TD_CENTER3"

	clsTable.AddTr ""
	strHtmlCode = MakeLink("./user_data_down.asp","通讯资料","通讯资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"
	strHtmlCode = MakeLink("./user_data_down.asp?action=DataAddressDown","通讯资料","通讯资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"

	Response.Write "<br>"
	clsTable.OutPutTable()
	Set clsTable = Nothing

End Sub
'================= FUNCTION BODY END ===============================
%>