📄 word.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据导出到word中</title>
</SCRIPT>
<%
set newconn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
DBPath = Server.MapPath("#ctm wish.mdb")
newconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
page = CLng(request("page")) '利用CLng函数把page值转换为Long型
judge=request("judge")
judge2=request("judge2")
judge3=0
sqlcmd="select * from student_info "
rs.Open sqlcmd,newconn,1,2
%>
<style type="text/css">
<!--
.style1 {font-size: 24px}
.style2 {font-size: 18px}
.style3 {font-size: 20px}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
</head>
<body onLoad="MM_displayStatusMsg('陈利品的毕业设计');return document.MM_returnValue">
<div align="center" class="style1">
<div align="center">
<p>数据导出到word中<br>
</p>
</div>
</div>
请选择一个或几个查寻
<form name="form1" method="post" action="outputword_index.asp">
<p><span class="style3">请选择要在word中显示的数据字段:</span> 项目名称 <br>
<input name="chid" type="checkbox" id="chid" value="1">
序号
<input name="chpro" type="checkbox" id="chpro" value="1">
项目名称
<input name="chsf" type="checkbox" id="chsf" value="1">
省份
<input name="chname" type="checkbox" id="chname" value="1">
姓名
<input name="chsex" type="checkbox" id="chsex" value="1">
性别
<input name="chsch" type="checkbox" id="chsch" value="1">
毕业学校名称
<br>
<span class="style2">请输入要查寻的条件</span><br>
编 号:
<input name="txtid" type="text" id="txtid" size="10" maxlength="30">
姓 名:
<input name="txtname" type="text" id="txtname" size="10">
性 别:
<input name="txtsex" type="text" id="txtsex" size="10">
毕业学校名称 :
<input name="txtsch" type="text" id="txtsch" size="10">
<br>
<input type="submit" name="Submit" value="导出到word">
</p>
</form>
<table border=1 cellPadding=0
cellSpacing=0 >
<% for i=0 to rs.fields.count-1%>
<td><%=rs(i).name%></td>
<%next%>
<%
if not (rs.EOF or rs.BOF) then
rs.MoveFirst
rs.PageSize = 6
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
rs.AbsolutePage = page
'do while not rs.eof
For ipage = 1 To rs.PageSize%>
<tr>
<% for i=0 to rs.fields.count-1 %>
<td><%=rs(i)%></td>
<%next%>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
'loop
next
end if%>
</table>
<table width="100%" border="0" align="center" cellspacing="0">
<tr>
<td> 共有<font
color=red><%=rs.recordCount%> </font>条记录
页数：<font
color=red><%=page%> </font>/ <%=rs.PageCount%>
<%
If page = 1 Then
Response.Write "<font class='white'>第一页 上一页</font>"
End If
If page <> 1 Then
Response.Write "<a href=index.asp?page=1 class='yellow'>第一页</a>"
Response.Write " <a href=index.asp?page=" & (page - 1) & " class='yellow'>上一页</a>"
End If
If page <> RS.PageCount Then
Response.Write " <a href=index.asp?page=" & (page + 1) & " class='yellow'>下一页</a>"
Response.Write " <a href=index.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>"
End If
If page = RS.PageCount Then
Response.Write " <font class='white'>下一页 最后一页</font>"
End If
%></a>
到
<%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>" '显示输入页数框并将page,judge参数传递下去%>
页 </td>
</tr>
</table>
<br>
<div id="Layer1" style="position:absolute; left:483px; top:54px; width:523px; height:42px; z-index:1"><a href="index.asp">返回主页</a> <a href="inputexcel_index.asp">进行导入excel操作</a> <a href="outputexcel_index.asp">进行导出excel操作</a> <a href="outputword_index.asp">进行导出word操作</a></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -