?? 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 + -