<!--#include file="inc/conn.asp"--> 
<% 
dim rs,sql,filename,fso,myfile,x 

Set fso = server.CreateObject("scripting.filesystemobject") 
filename = Server.MapPath("download.txt") 
if fso.FileExists(filename) then 
fso.DeleteFile(filename) 
end if 
'--创建txt文件 
set myfile = fso.CreateTextFile(filename,true) 

Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "select * from userfile" 
rs.Open sql,conn,1,1 
if rs.EOF and rs.BOF then 
response.write "无数据" 
else 
dim strLine,responsestr 
strLine="" 
'--将表的列名先写入txt 
For each x in rs.fields 
strLine = strLine & x.name & chr(9) 
Next 
myfile.writeline strLine 
Do while Not rs.EOF 
strLine="" 
for each x in rs.Fields 
strLine = strLine & x.value & chr(9) 
next 
'--将表的数据写入txt 
myfile.writeline strLine 
rs.MoveNext 
loop 
end if 
rs.Close 
set rs = nothing 
Response.ContentType="application/x-msdownload" 
Response.Redirect "download.txt" 
%>
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!

RTX 5090要首发 性能要翻倍!三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。

据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。