?? 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
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -