web打印的页眉页脚问题
打印一个html
能否从某一页开始设置页眉页脚？
开始的不设置？
问题点数：20、回复次数：5Top
1 楼dogfish（PowerJS.com）回复于 2006-03-09 07:27:42 得分 4
分2个jobTop
2 楼lilygt（活的坦然）回复于 2006-03-14 11:49:46 得分 4
遇到同样问题，求解？？Top
3 楼manyou（他山之石【养万头猪，行万里路】）回复于 2006-03-14 15:45:27 得分 10
<!--#include file="../inc/conn.asp"-->
<HTML>
<BODY leftmargin="0" topmargin="0" bgcolor="#F0F4F0">
<script>
function load() //响应网页载入事件 wyc(2003-10-10)
{
parent.document.all.sortid_1.value = document.all.sortid.value;
}
function sortchange() //大类改变函数 wyc(2003-10-10)
{
window.location.href = "class_all.asp?sortid=" + document.all.sortid.value;
}
function typechange() //小类改变函数 wyc(2003-10-10)
{
parent.document.all.sortid_1.value = document.all.sortid.value;
parent.document.all.typeid.value = document.all.typeid.value;
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100">
<SELECT name="sortid" onchange="sortchange()">
<option value="" <%if request("sortid")="" then response.write "selected"%>>请选择您的行业大类</option>
<%
id_ = request("sortid")
if id_="" then
id_ = 0
end if
set rssort = server.createobject("adodb.recordset")
sortsql = "select * from class_1"
rssort.open sortsql,conn,1,1
do while not rssort.eof
if cint(id_) = rssort("sortid") then
sel = "selected"
else
sel = ""
end if
response.write "<option value='"&cstr(rssort("sortid"))&"' "&sel&">"&rssort("sort")&"</option>"
rssort.movenext
loop
rssort.close
set rssort = nothing
%>
</SELECT>
</td>
<td>
<SELECT name="typeid" onchange="typechange()">
<OPTION value="" selected>请选择您的行业小类</option>
<%
if request("sortid")<>"" then
set rstype = server.createobject("adodb.recordset")
typesql = "select * from class_2 where sortid="&request("sortid")
rstype.open typesql,conn,1,1
do while not rstype.eof
response.write "<option value='"&cstr(rstype("typeid"))&"'>"&rstype("typename")&"</option>"
rstype.movenext
loop
rstype.close
set rstype = nothing
end if
%>
</SELECT> <FONT color=#ff6600 style="font-size:12px;">※</FONT> </td>
</tr>
</table>
</BODY>
</HTML>Top
4 楼manyou（他山之石【养万头猪，行万里路】）回复于 2006-03-14 15:46:09 得分 2
楼上的错了，抱歉
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
''//设置网页打印的页眉页脚为空
function pagesetup_null()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
''//设置网页打印的页眉页脚为默认值
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
end function
</script>Top
5 楼clare2003（忘情火）回复于 2006-03-14 15:57:50 得分 0
楼上的，搂主需要的是
打印一个html
从某一页开始设置页眉页脚？
而不是设置为空
Top
