篇一：横格信纸模(自己更改表头)

　　山东大学医学院 装

　　订

　　线

　　山东大学医学院

　　装

　　订

　　线

篇二：简报表头

　　新教学模式探索总结会

　　简 报

　　第[201402]期

　　（ 撰稿：孙德学）

　　1

篇三：传真表头 6

　　YOUR LOGO

　　输入公司名称 地址：请输入您的地址 Tel:输入您的号码 Fax:输入您的号码 E-mail:输入您的信箱 http://输入您的网址 FACSIMILE TRANSMISSION 收件者: 请输入姓名与职称 副本: 请输入姓名与职称

　　电话: 请输入号码

　　传真: 请输入号码

　　公司名称: 请输入公司名称

　　主旨: 请输入文件标题或主旨

　　内容: 请输入您的内容与讯息 寄件者: 请输入您的姓名 电话: 请输入号码 传真: 请输入号码 文件页数: 请输入您传真的文件页数 寄件日期: 请输入您传真的日期与时间

　　若您有任何疑问再与我联络，谢谢 !

　　祝

　　商

　　祺

　　Best regards

　　变更姓名、职称及相关信息，请按 菜单栏上[视图] [页眉和页脚]。

篇四：如何侦测HTTP表头信息？

　　如何侦测HTTP表头信息？

　　可用下列办法侦测并显示所有的HTTP HEADERS：

　　<% for="" each="" key="" in="" request.servervariables="">

　　<%

　　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

　　%>