地址本倒出是怎么实现的？

[zhusuhao]

就像263邮箱那样的。

[telic]

从数据库读出以后直接写入到一个txt文件中，任何数据信息都可以的：下面有个简单的例子：

Dim m_rs
Dim m_strSql
Dim m_strHeader
Dim m_intN
Dim m_strOperateResultDisplay
Dim m_strLogTypeDisplay
m_strSql = Request("iptSql")
'Response.Write m_strSql
Set m_rs = Server.CreateObject("AdoDb.RecordSet")
m_rs.CursorLocation = adUseClient
m_rs.Open m_strSql,Application("Vtus_ConnectionString")
m_strHeader = "attachement; filename=" & "系统日志.csv"
response.addheader "Content-disposition", m_strHeader
Response.ContentType = "txt/csv"



Response.Write "序号" & ","
Response.Write "操作者" & ","
Response.Write "姓名" & ","
Response.Write "时间" & ","
Response.Write "操作类型" & ","
Response.Write "操作结果" & ","
Response.Write "日志类型" & ","
Response.write "客户端IP" & VbCrLf


If m_rs.EOF Then
Response.Write "没有检索到系统日志！"
Else

Dim m_intCount
m_intCount = m_rs.RecordCount
For m_intN = 1 To m_intCount

If (m_rs("operate_result")=0) Then
m_strOperateResultDisplay = "成功"
Else
m_strOperateResultDisplay = "失败"
End If

If (m_rs("log_type")=0) Then
m_strLogTypeDisplay = "系统日志"
Else
m_strLogTypeDisplay = "操作日志"
End If
Response.Write m_rs.AbsolutePosition & ","
Response.Write m_rs("user_name") & ","
Response.Write m_rs("operate_time") & ","
Response.Write m_rs("operate_object") & ","
Response.Write m_rs("operate_type") & ","
Response.Write m_strOperateResultDisplay & ","
Response.Write m_strLogTypeDisplay & ","
Response.Write m_rs("client_ip") & vbCrlf

m_rs.MoveNext()

Next
End If

可以照着写一个，看看会出现什么情况？

[zhusuhao]

谢谢，一会我来试试，谢谢了。

[waterboy]

啊~这个问题~
我也想知道的说~
谢谢指教~

[waterboy]

谢谢~我也试试~

[zhusuhao]

再问：导入呢？

[zhusuhao]

快元旦了，结贴先！