www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > address/address_user_down.asp
<%
'===================================================================
'= ASP FILENAME : /address/address_user_down.asp
'= CREATED TIME : 2006-5-8
'= LAST MODIFIED: 2006-5-8
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION : 校友信息下载
'= Change Log:
'===================================================================
%>
<!-- #include file = "../inc/customer/include_customer_action_execute.asp" -->
<!-- #include file = "./address_inc.asp" -->
<!-- #include file = "../inc/logic/logic_user.asp" -->
<%
'========================================================
'== Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE = "address/address_user_down.asp"
'== 页面标题/功能
Const CONST_PAGE_TITLE = "校友信息下载"
'== 功能函数名字空间
Const CONST_ACTION_FUNC = "AddressUserDownCtl"
'== 相对根目录路径
GBL_strHomeURL = "../"
Server.Scripttimeout = 99999
'== 页面构造
Call ActionBuild()
'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)
'== 页面析构
Call ActionOver()
Server.Scripttimeout = 90
%>
<%
'===================================================================
'= Function : AddressUserDownCtl()
'= Time : Created At 2006-5-14
'= Input :
'= Description : 校友信息下载
'===================================================================
Function AddressUserDownCtl()
Dim strSql : strSql = ""
'== 取记录集
If Request("method") = "default" Then
strSql = Session(GBL_strCookieURL & "SEN_QuerySql")
End If
If Not GetUserLogic(strSql) Then Exit Function
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = school.xls"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>校友信息</title>
</head>
<body width=600>
<%If Request("method") <> "default" Then%>
<table border="1" cellspacing="1" cellpadding="1" >
<tr >
<%If Request.Form("chkAccount") <> "" Then%><td><div align="center"><strong>用户名</strong></div></td><%End If%>
<%If Request.Form("chkRealName") <> "" Then%><td><div align="center"><strong>真实姓名</strong></div></td><%End If%>
<%If Request.Form("chkSex") <> "" Then%><td><div align="center"><strong>性别</strong></div></td><%End If%>
<%If Request.Form("chkBirth") <> "" Then%><td><div align="center"><b>生日</b></div></td><%End If%>
<%If Request.Form("chkTele") <> "" Then%><td><div align="center"><b>联系电话</b></div></td><%End If%>
<%If Request.Form("chkAddress") <> "" Then%><td><div align="center"><strong>通信地址</strong></div></td><%End If%>
<%If Request.Form("chkWorkShop") <> "" Then%><td><div align="center"><strong>工作单位</strong></div></td><%End If%>
<%If Request.Form("chkEmail") <> "" Then%><td><div align="center"><strong>Email</strong></div></td><%End If%>
<%If Request.Form("chkQQ") <> "" Then%><td><div align="center"><strong>QQ号码</strong></div></td><%End If%>
<%If Request.Form("chkClass") <> "" Then%><td><div align="center"><strong>在校班级</strong></div></td><%End If%>
<%If Request.Form("chkEnroll") <> "" Then%><td><div align="center"><strong>入学年份</strong></div></td><%End If%>
<%If Request.Form("chkGrad") <> "" Then%><td><div align="center"><strong>毕业年份</strong></div></td><%End If%>
</tr>
<%
If Not GBL_objPubDB.objPubRS.Eof Then
Do While Not GBL_objPubDB.objPubRS.Eof
%>
<tr>
<%If Request.Form("chkAccount") <> "" Then%><td > <% =GBL_objPubDB.objPubRS("USER_ACCOUNT")%> </td><%End If%>
<%If Request.Form("chkRealName") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_REALNAME")%> </td><%End If%>
<%If Request.Form("chkSex") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_SEX")%> </td><%End If%>
<%If Request.Form("chkBirth") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_BIRTH")%> </td><%End If%>
<%If Request.Form("chkTele") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_TELE")%> </td><%End If%>
<%If Request.Form("chkAddress") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_ADDRESS")%> </td><%End If%>
<%If Request.Form("chkWorkShop") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_WORKSHOP")%> </td><%End If%>
<%If Request.Form("chkEmail") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_EMAIL")%> </td><%End If%>
<%If Request.Form("chkQQ") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_QQ")%> </td><%End If%>
<%If Request.Form("chkClass") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_CLASS")%> </td><%End If%>
<%If Request.Form("chkEnroll") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_ENROLL")%> </td><%End If%>
<%If Request.Form("chkGrad") <> "" Then%><td> <% =GBL_objPubDB.objPubRS("USER_GRAD")%> </td><%End If%>
</tr>
<%
GBL_objPubDB.objPubRS.MoveNext
Loop
End If
%>
</table>
<%Else%>
<table border="1" cellspacing="1" cellpadding="1" >
<tr >
<td><div align="center"><strong>用户名</strong></div></td>
<td><div align="center"><strong>真实姓名</strong></div></td>
<td><div align="center"><strong>性别</strong></div></td>
<td><div align="center"><b>生日</b></div></td>
<td><div align="center"><b>联系电话</b></div></td>
<td><div align="center"><strong>通信地址</strong></div></td>
<td><div align="center"><strong>工作单位</strong></div></td>
<td><div align="center"><strong>Email</strong></div></td>
<td><div align="center"><strong>QQ号码</strong></div></td>
</tr>
<%
If Not GBL_objPubDB.objPubRS.Eof Then
Do While Not GBL_objPubDB.objPubRS.Eof
%>
<tr>
<td > <% =GBL_objPubDB.objPubRS("USER_ACCOUNT")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_REALNAME")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_SEX")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_BIRTH")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_TELE")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_ADDRESS")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_WORKSHOP")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_EMAIL")%> </td>
<td> <% =GBL_objPubDB.objPubRS("USER_QQ")%> </td>
</tr>
<%
GBL_objPubDB.objPubRS.MoveNext
Loop
End If
%>
</table>
<%End If%>
</body>
</html>
<%
Response.Flush
End Function
%>