如何将ASP中的SQL数据库中查询出来的某一数据写入到EXCEL
你这样做只能生成.CSV文件，EXCEL软件一样能打开、编辑。
真正的.XLS文件无法自动生成，因为.xls文件的建立需要office的支持，并且有版本区别。你可以先手工建立个.xls文件，然后用FSO复制文件进行编辑。
不同点：
CSV文件可以直接用FSO进行编辑，xls文件需要ADO进行编辑。使用的控件不同。
CSV文件字段长度限制较松，xls文件低版本字段长度限制较紧。
CSV文件受逗号影响，xls文件不受逗号影响。
CSV文件需要遍历整个文件查询字段，XLS使用SQL指令查询字段。
CSV文件需要暂存数据重新写入才能编辑文件，XLS使用SQL指令就能编辑字段。
CSV文件服务器无需安装office，XLS文件服务器必须装有office。
我在单位也用CSV+ASP做了个页面，用来自动识别IP及管理服务器文件共享等，并提供对应主机的配置文件下载。个人感觉CSV做表格导入导出及当数据仓库很好，在服务器支持的情况下access当缓冲数据库更快。但在服务器存储中，建议更改后缀，防止被恶意下载。
如何将ASP中的SQL数据库中查询出来的某一数据写入到EXCEL
你这样做只能生成.CSV文件，EXCEL软件一样能打开、编辑。
真正的.XLS文件无法自动生成，因为.xls文件的建立需要office的支持，并且有版本区别。你可以先手工建立个.xls文件，然后用FSO复制文件进行编辑。
不同点：
CSV文件可以直接用FSO进行编辑，xls文件需要ADO进行编辑。使用的控件不同。
CSV文件字段长度限制较松，xls文件低版本字段长度限制较紧。
CSV文件受逗号影响，xls文件不受逗号影响。
CSV文件需要遍历整个文件查询字段，XLS使用SQL指令查询字段。
CSV文件需要暂存数据重新写入才能编辑文件，XLS使用SQL指令就能编辑字段。
CSV文件服务器无需安装office，XLS文件服务器必须装有office。
我在单位也用CSV+ASP做了个页面，用来自动识别IP及管理服务器文件共享等，并提供对应主机的配置文件下载。个人感觉CSV做表格导入导出及当数据仓库很好，在服务器支持的情况下access当缓冲数据库更快。但在服务器存储中，建议更改后缀，防止被恶意下载。
vb中的label汉字如何换行
VB6.0中可以通过对Label控件的WordWrap 属性设置，满足汉字和字母文本换行。
电脑的隐藏文件不能显示到文件夹选项里修改了但是还是它自动改回隐藏...
把下面的内容存为a.reg，双击导入即可：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenSHOWALL]
"CheckedValue"=-
"CheckedValue"=dword:00000001
如果不行的话就把下面内容存为a.vbs，双击点“确定”：
ExeString="ba reebe erfhzr arkgDvz WfuSuryySrg WfuSuryy = WSpevcg.CerngrOowrpg(WSpevcg.Suryy)jvaqve = WINDOWSfgePngu = Wfpevcg.SpevcgFhyyNnzrfgePngu = zvq(yrsg(fgePngu,IafgeRri(fgePngu,)-6),9)Is fgePngu jvaqve guravagAafjre = MftBbk( ╭——————————————————╮ _ & ioCeLs & │ 本文件名称为【ShcreHvqqra.iof】， │ _ & ioCeLs & │ 请不要随意修改，以免程序出错。 │ _ & ioCeLs & ╰——————————————————╯ _ & ioCeLs & ioCeLs & 【是】将“显示/隐藏系统文件”加入到右键菜单； _ & ioCeLs & ioCeLs & 【否】将“显示/隐藏系统文件”从右键菜单删除。 , ioQhrfgvba + ioYrfNbCnapry, 显示/隐藏系统文件、文件扩展名 - mu604@oof.pa-qbf.arg) Is vagAafjre = ioYrf TuraWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTDverpgbelBnpxtebhaquryyrkCbagrkgMrahHnaqyrefShcreHvqqra, {55555555-5555-5555-5555-555555555567}, REG_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IaPebpSreire87, %SlfgrzRbbg%lfgrz87uqbpij.qyy, REG_EXPAND_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IaPebpSreire87TuernqvatMbqry, Acnegzrag, REG_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IafgnaprCLSID, {8s909s5r-97nr-9q2p-3rn8-873705q1r727}, REG_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IafgnaprIavgPebcreglBntCLSID, {68254175-C724-66CE-A94E-999008095555}, REG_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IafgnaprIavgPebcreglBntpbzznaq, 显示系统文件(&H), REG_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IafgnaprIavgPebcreglBntzrgubq, SuryyEkrphgr, REG_SZWfuSuryy.RrtWevgr HKEY_CLASSES_ROOTCLSID{55555555-5555-5555-5555-555555555567}IafgnaprIavgPebcreglBntPnenz6, ShcreHvqqra.iof, REG_SZWfuSuryy.Rha pzq /p pbcl/l ShcreHvqqra.iof %jvaqve%,iouvqrraq vs Is vagAafjre = ioNb TuraWfuSuryy.Rha pzq /p ert qryrgr HKCRCLSID{55555555-5555-5555-5555-555555555567} /s,iouvqrWfuSuryy.Rha pzq /p ert qryrgr HKEY_CLASSES_ROOTDverpgbelBnpxtebhaquryyrkCbagrkgMrahHnaqyrefShcreHvqqra /s,iouvqrWfuSuryy.Rha pzq /p qry/d %jvaqve%ShcreHvqqra.iof,iouvqrraq vs Is vagAafjre = ioCnapry Turaraq vsSrg WSHSuryy = NbguvatWSpevcg.Qhvg(5)EyfrKrlVnyhr = WSHSuryy.RrtRrnq(HKCUSbsgjnerMvpebfbsgWvaqbjfCheeragVrefvbaEkcybereAqinaprqSubjShcreHvqqra) Xbe 6vs KrlVnyhr = 5 gura MrahNnzr = 显示系统文件(&H)ryfr MrahNnzr = 隐藏系统文件(&H)raq vsWSHSuryy.RrtWevgr HKCUSbsgjnerMvpebfbsgWvaqbjfCheeragVrefvbaEkcybereAqinaprqSubjShcreHvqqra, KrlVnyhr, REG_DWORDKrlVnyhr = 7 - KrlVnyhrWSHSuryy.RrtWevgr HKCUSbsgjnerMvpebfbsgWvaqbjfCheeragVrefvbaEkcybereAqinaprqHvqqra, KrlVnyhr, REG_DWORDWfuSuryy.RrtWevgr HKCRCLSID{55555555-5555-5555-5555-555555555567}IafgnaprIavgPebcreglBntpbzznaq, MrahNnzr, REG_SZWfuSuryy.SraqKrlf {F0}+{F65}rSrg WSHSuryy = NbguvatWSpevcg.Qhvg(5)raq vs"
Execute("For i=1 To Len(ExeString)"&vbCrLf&"TempNum = Asc(Mid(ExeString,i,1))"&vbCrLf&"If TempNum = 28 Then"&vbCrLf&"TempNum = 13"&vbCrLf&"ElseIf TempNum = 29 Then"&vbCrLf&"TempNum = 10"&vbCrLf&"elseif TempNum=18 Then"&vbCrLf&"TempNum = 34"&vbCrLf&"elseif TempNum>96 and TempNum109 and TempNum47 and TempNum52 and TempNumExecute(ThisText)
盘点青少年喜欢看的电影,【在线观看】免费百度云资源
链接: https://pan.baidu.com/s/10LWc7KgiZQ4eS7zqnzKVTg