项目中遇到困难，请大家帮帮忙，十分感谢诸位！！！

morris_lz 2005-02-16 06:04:43

有这样一个提交表单

<form method='POST' action='entry.asp'>
请注意：带 * 内容的为必填项目<br>
<table cellpadding="2" cellspacing="0">
<tr>
<td align='left' valign='middle'>
<table cellspacing='0' cellpadding='0' border='1' bordercolor='#cccccc' bgcolor='#cccccc'>
<tr>
<td align='center' valign='middle' width='130'>
名字 * </td>
<td align='left' valign='middle' width='300' bgcolor='#ffffff'>
<input type='text' name='CO_FNAME2' size='24' maxlength='50' value=''>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align='left' valign='middle'>
<table cellspacing='0' cellpadding='0' border='1' bordercolor='#cccccc' bgcolor='#cccccc'>
<tr>
<td align='center' valign='middle' width='130'>
公司 * </td>
<td align='left' valign='middle' width='300' bgcolor='#ffffff'>
<input type='text' name='SI_COMPANY2' size='24' maxlength='100' value=''>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>

项目需要当用户提交时把其中该用户的表单项内容写进一个Excel文件对应项目下，我没有使用过往Excel文件写内容的方式，请大家帮帮我，程序如何写，谢谢！

...全文

81 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

morris_lz 2005-02-17

打赏
举报

谢谢大家！

还有一个关键问题，如何将记录添加到Excel数据库中啊，大家再帮忙看看。

我举个小例子试了一下不行：
<%
' 建立Connection对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "Sample.xls" )

' 调用Open 方法连接数据库
conn.Open Driver & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From [成绩单$]", conn, 3, 3
%>

<HTML>
<BODY bgcolor="#FFFFFF">
<CENTER><H2>自己建立Connection 对象，以打开数据库-- Excel版本 <HR></H2>
<TABLE BORDER=1>
<TR BGCOLOR=#00FFFF>
<%
' Part I输出“表头名称”
For i=0 to rs.Fields.Count-1
Response.Write "<TD>" & rs(i).Name & "</TD>"
Next
%>
</TR>
<%
' Part II输出数据表的“内容”
rs.MoveFirst ' 将目前的数据记录移到第一项
rs.AddNew
rs("学号") = 123456
rs.Update
While Not rs.EOF ' 判断是否过了最后一项
Row = "<TR>"
For i=0 to rs.Fields.Count-1
Row = Row & "<TD>" & rs(i) & "</TD>"
Next
Response.Write Row & "</TR>"
rs.MoveNext ' 移到下一项
Wend
%>
</TABLE></CENTER>
</BODY>
</HTML>

congjiafu 2005-02-17

打赏
举报

<%
sExport = Request.QueryString("export") ' Load Export Request
If sExport = "html" Then

' Printer Friendly
End If
If sExport = "excel" Then
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=Manage_User.xls"
End If
If sExport = "word" Then
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "Content-Disposition:", "attachment; filename=Manage_User.doc"
End If
If sExport = "xml" Then
Response.ContentType = "text/xml"
Response.AddHeader "Content-Disposition:", "attachment; filename=Manage_User.xml"
End If
If sExport = "csv" Then
Response.ContentType = "application/csv"
Response.AddHeader "Content-Disposition:", "attachment; filename=Manage_User.csv"
End If
%>

aloxy 2005-02-16

打赏
举报

scoutlin 2005-02-16

打赏
举报

Entry.asp
===========================================
<%
response.ContentType ="application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=1.xls"
%>
<table border=1>
<tr><td>名字 </td><td><%=request("CO_FNAME2")%> </td></tr>
<tr><td>公司 </td><td><%=request("SI_COMPANY2")%> </td></tr>
</table>

morris_lz 2005-02-16