tabledown.asp

来自「ASP数据库系统开发案例精选(光盘)中的客户关系管理系统 用户名/密码:a」· ASP 代码 · 共 54 行

ASP
54
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<%
sql="select LinkmanName,LinkmanDept,LinkmanTel,LinkmanHander,LinkmanEmail from tb_Linkman"

getautoid=right(cstr(year(date())),2)&month(date())
getautoid=getautoid&day(date())&hour(time())
getautoid=getautoid&minute(time())&second(time())


strfilename="r_client"&getautoid&".csv"
strfullname=server.MapPath(strfilename)
set objmyfile=server.CreateObject("scripting.filesystemobject")
set objnewsfile=objmyfile.createtextfile(strfullfilename)

set objrs=server.CreateObject("adodb.recordset")
objrs.open sql,conn,3
inrc=objrs.recordcount

strtitle="客户信息"
objnewfile.writeline(strtitle)

for i=1 to inrc

strlinestring=trim(objrs("LinkmanName"))
objnewsfile.writeline(strlinestring)

strlinestring="联系人姓名"
strlinestring=strlinestring&trim(objrs("LinkmanDept"))
strlinestring=strlinestring&"电话"
strlinestring=strlinestring&trim(objrs("LinkmanTel"))
objnewsfile.writeline(strlinestring)
objrs.movenext
next

objrs.close
set objrs=nothing
objnewsfile.close
set obnewfile=nothing
set objmyfile=nothing

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?