篇一：横格信纸模(自己更改表头)
山东大学医学院 装
订
线
山东大学医学院
装
订
线
篇二：简报表头
新教学模式探索总结会
简 报
第[201402]期
（ 撰稿：孙德学）
1
篇三：传真表头 6
YOUR LOGO
输入公司名称 地址：请输入您的地址 Tel:输入您的号码 Fax:输入您的号码 E-mail:输入您的信箱 http://输入您的网址 FACSIMILE TRANSMISSION 收件者: 请输入姓名与职称 副本: 请输入姓名与职称
电话: 请输入号码
传真: 请输入号码
公司名称: 请输入公司名称
主旨: 请输入文件标题或主旨
内容: 请输入您的内容与讯息 寄件者: 请输入您的姓名 电话: 请输入号码 传真: 请输入号码 文件页数: 请输入您传真的文件页数 寄件日期: 请输入您传真的日期与时间
若您有任何疑问再与我联络，谢谢 !
祝
商
祺
Best regards
变更姓名、职称及相关信息，请按 菜单栏上[视图] [页眉和页脚]。
篇四：如何侦测HTTP表头信息？
如何侦测HTTP表头信息？
可用下列办法侦测并显示所有的HTTP HEADERS：
<% for="" each="" key="" in="" request.servervariables="">
| 变量 | 值 |
| <% key=""> |
<%
If Request.ServerVariables(key) = "" Then
If GetAttribute(key) = "" Then
Response.Write " "
Else
Response.Write GetAttribute(key)
End If
Else
Response.Write Request.ServerVariables(key) End If
Response.Write ""
%>
<% next="">
<%
Function GetAttribute(AttrName)
Dim AllAttrs
Dim RealAttrName
Dim Location
Dim Result
AllAttrs = Request.ServerVariables("ALL_HTTP") RealAttrName = AttrName
Location = instr(AllAttrs, RealAttrName & ":") If Location <= 0 Then
GetAttribute = ""
Exit Function
End If
Result = mid(AllAttrs, Location + Len(RealAttrName) + 1) Location = instr(Result, chr(10))
If Location <= 0 Then Location = len(Result) + 1 GetAttribute = left(Result, Location - 1)
End Function
%>
本文来源：http://www.010zaixian.com/gongwen/tuijianxin/279689.htm