📄 tabledown.asp
字号:
<%@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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -