请多帮忙,,不要太复杂的,
-
等级
本版专家分：2结帖率 100% -
最近本人想学asp生成静态HTML,,希望有这方面的源代码的人给提供一下参考参考,小妹刚学asp
请多帮忙,,不要太复杂的,展开阅读全文
-
等级
本版专家分：2376 -
源码到网上搜索一下ASP新闻发布系统。一般都支持
-
等级
本版专家分：2380 -
<%
filename="index.htm"
MDBpath="./"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>程序</title>
</head>
<body topmargin="1" leftmargin="1">
<%if mskrindex="ok" then%>
<script language=javascript>
window.close();
</script>
<%else%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
<form name="frmAnnounce" method="post" action="makeindex.asp">
<tr>
<td width="100%" bgcolor="#6A6A6A">
<b><font color="#FFFFFF">生成首页 生成文件</font>:<a class=JyDownSort target="_blank" href="<%=filename%>"><%=filename%></a> ,<font color="#FFFFFF">源文件</font>:<a class=JyDownSort target="_blank" href="index.asp">index.asp</a></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="100%"><textarea style="width:100%; height:100%;" rows="19" name="body" cols="102"><!--#include file="index.asp"--></textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#DFDFDF">
<p align="center">
<input name="change" class=buttonface value="生成首页(HTML)" type='submit'></td>
</tr>
</form>
</table>
<script language=javascript>
document.frmAnnounce.submit();
</script>
<%end if%>
</body>
</html>
-
等级
本版专家分：22416勋章
-
- 微软MVP 2008年10月 荣获微软MVP称号
-
-
<!--#include file="conn.asp"-->
<%
dim str
function menu(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" order by url,id"
rs.open sql,conn,1,1
str=str+"<table border='0' cellspacing='0' cellpadding='0'>"+chr(13)
i=1
while not rs.eof
ChildCount=conn.execute("select count(*) from menu where id1="&rs("id"))(0)
if ChildCount=0 then
if i=rs.recordcount then
menutype="file1"
else
menutype="file"
end if
menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
onmouseup=""
else
if i=rs.recordcount then
menutype="menu3"
listtype="list1"
onmouseup=" onMouseUp=change1('a"&rs("id")&"','b"&rs("id")&"');"
else
menutype="menu1"
listtype="list"
onmouseup=" onMouseUp=change2('a"&rs("id")&"','b"&rs("id")&"');"
end if
menuname=rs("menuname")
end if
str=str+"<tr><td id='b"&rs("id")&"' class='"&menutype&"'"&onmouseup&">"&menuname&"</td></tr>"+chr(13)
if ChildCount>0 then
str=str+"<tr id='a"&rs("id")&"' style='display:none'><td class='"&listtype&"'>"+chr(13)
menu(rs("id"))
str=str+"</td></tr>"+chr(13)
end if
rs.movenext
i=i+1
wend
str=str+"</table>"+chr(13)
rs.close
set rs=nothing
end function
menu(0)
set fso=server.CreateObject("scripting.filesystemobject")
set f1=fso.opentextfile(server.MapPath("demo.htm"),2,true)
f1.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>")
f1.write("<html>")
f1.write("<head>")
f1.write("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
f1.write("<title>哈哈~~~！这回速度超快了吧？</title>")
f1.write("<meta name='keywords' content='asp2004,树,菜单,无限级'>")
f1.write("<meta name='author' content='小灰,quxiaohui_0@163.com'>")
f1.write("<link href='style.css' rel='stylesheet' type='text/css'>")
f1.write("<script language='javascript' src='function.js'></script>")
f1.write("</head>")
f1.write("<body>")
f1.write("<a href='http://asp2004.net' target='_blank'>http://asp2004.net</a>提供最新下载《<a href='menu.asp'>管理</a>》<br>")
f1.write(str)
f1.write("</body>")
f1.write("</html>")
f1.close
set fso=nothing
response.Redirect("demo.htm")
%>
-
等级
本版专家分：58
-
可以用Response.Write("<hr><table><tr><td>abcd</td></tr></table>"),直接向客户端
写屏.
-
等级
本版专家分：10951
-
有两个文件:index.htm,send.asp
'index.htm--------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="send.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCFFFF">
<tr>
<td height="20"><div align="center">发送消息</div></td>
</tr>
<tr>
<td><div align="center">
<textarea name="msg" cols="100" rows="6"></textarea>
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Submit2" value="Reset">
</div></td>
</tr>
</table> </form></td>
</tr>
</table>
</body>
</html>
'send.asp-------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
function chan_time(shijian)'转换日期时间函数' 年月日时分
s_year=year(shijian)
if len(s_year)=2 then s_year="20"&s_year
s_month=month(shijian)
if s_month<10 then s_month="0"&s_month
s_day=day(shijian)
if s_day<10 then s_day="0"&s_day
s_hour=hour(shijian)
if s_hour<10 then s_hour="0"&s_hour
s_minute=minute(shijian)
if s_minute<10 then s_minute="0"&s_minute
chan_time=s_year & s_month & s_day & s_hour & s_minute
end function
function chan_data(shijian) '转换日期时间函数' 年月日
s_year=year(shijian)
if len(s_year)=2 then s_year="20"&s_year
s_month=month(shijian)
if s_month<10 then s_month="0"&s_month
s_day=day(shijian)
if s_day<10 then s_day="0"&s_day
chan_data=s_year & s_month & s_day
end function
function chan_file(shijian)'转换日期时间函数' 月日时分秒
s_month=month(shijian)
if s_month<10 then s_month="0"&s_month
s_day=day(shijian)
if s_day<10 then s_day="0"&s_day
s_hour=hour(shijian)
if s_hour<10 then s_hour="0"&s_hour
s_minute=minute(shijian)
if s_minute<10 then s_minute="0"&s_minute
s_ss=second(shijian)
if s_ss<10 then s_ss="0"&s_ss
chan_file = s_month & s_day & s_hour & s_minute & s_ss
end function
function get_pass(pass)
pass=cstr(pass)
pass=replace(pass," ","")
pass=replace(pass," ","")
pass=replace(pass,"-","")
pass=replace(pass," ","")
pass=replace(pass,":","")
pass=replace(pass,".","")
pass=replace(pass,"+","")
pass=replace(pass,"_","")
pass=replace(pass,"<","")
pass=replace(pass,">","")
pass=replace(pass,"!","")
pass=replace(pass,"@","")
pass=replace(pass,"#","")
pass=replace(pass,"$","")
pass=replace(pass,"%","")
pass=replace(pass,"^","")
pass=replace(pass,"&","")
pass=replace(pass,"*","")
pass=replace(pass,"(","")
pass=replace(pass,")","")
pass=replace(pass,"=","")
pass=replace(pass,"\","")
pass=replace(pass,"/","")
pass=replace(pass,"|","")
get_pass=pass
end function
top="<html><head><title>news</title></head><body>"
botom="</body></html>"
msg=request.Form("msg")
msg=replace(msg,vbcrlf,"")
msg=replace(msg,chr(9),"")
msg=replace(msg," "," ")
msg=replace(msg,"\r\n","<br>")
msg=replace(msg,"\n","<br>")
msg=top&msg&botom
Set fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("news")&"\"&chan_data(now)
if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在
else
fs.CreateFolder(all_tree2)
end if
pass=chan_file(now)
randomize '使用系统计时器来初始化乱数产生器
pass=rnd(pass)
pass=get_pass(pass)
pass=left(pass,10)
file1=pass
files=file1&".txt"
filez=all_tree2&"\"&files
set ts = fs.createtextfile(filez,true) '写文件
for z=1 to len(msg)
write_now=mid(msg,z,1)
ts.write(write_now)
next
' ts.writeline(all_msg)
ts.close
set ts=nothing '文件生成
if err.number<>0 or err then%>
<script language="javascript">
alert("不能完成")
</script>
<%else%>
<script language="javascript">
alert("已完成")
history.back();
</script>
<%end if
Set MyFile = fs.GetFile(filez)
all_tree2=server.mappath("news")&"\"&chan_data(now)
if (fs.FolderExists(all_tree2)) then
else
fs.CreateFolder(all_tree2)
end if
'MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm"
set MyFile=nothing
set fs=nothing
set fdir=nothing
%>
-
等级
本版专家分：46644 -
学会了fso就会了。。。所以建议直接到google里搜索fso
-
等级
本版专家分：1119 -
<%
filename="index.htm"
MDBpath="./"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>程序</title>
</head>
<body topmargin="1" leftmargin="1">
<%if mskrindex="ok" then%>
<script language=javascript>
window.close();
</script>
<%else%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
<form name="frmAnnounce" method="post" action="makeindex.asp">
<tr>
<td width="100%" bgcolor="#6A6A6A">
<b><font color="#FFFFFF">生成首页 生成文件</font>:<a class=JyDownSort target="_blank" href="<%=filename%>"><%=filename%></a> ,<font color="#FFFFFF">源文件</font>:<a class=JyDownSort target="_blank" href="index.asp">index.asp</a></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="100%"><textarea style="width:100%; height:100%;" rows="19" name="body" cols="102"><!--#include file="index.asp"--></textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#DFDFDF">
<p align="center">
<input name="change" class=buttonface value="生成首页(HTML)" type='submit'></td>
</tr>
</form>
</table>
<script language=javascript>
document.frmAnnounce.submit();
</script>
<%end if%>
</body>
</html>
- 微信公众平台开发入门
本套课程的设计完全是为初学者量身打造，课程内容由浅入深，课程讲解通俗易懂，代码实现简洁清晰。通过本课程的学习，学员能够入门微信公众平台开发，能够胜任企业级的订阅号、服务号、企业号的应用开发工作。 通过本课程的学习，学员能够对微信公众平台有一个清晰的、系统性的认识。例如，公众号是什么，它有什么特点，它能做什么，怎么开发公众号。 其次，通过本课程的学习，学员能够掌握微信公众平台开发的方法、技术和应用实现。例如，开发者文档怎么看，开发环境怎么搭建，基本的消息交互如何实现，常用的方法技巧有哪些，真实应用怎么开发。 通过合理的课程设计，结合讲师多年的教学经验、微信开发经验，轻松引导初学者掌握微信公众平台开发。
- Matlab数据降维工具箱
Matlab Toolbox for Dimensionality Reduction Matlab数据降维工具箱，包括几乎所有的数据降维方法：PCA、LDA、ICA、MDS、Isomap、LandmarkIsomap、LLE、LLC、Laplacian、HessianLLE、LTSA、DiffusionMaps、KernelPCA、KernelLDA、SNE、NPE、LPP、SPE、LLTSA、SPCA、CCA、MVU、FastMVU、AutoEncoder、AutoEncoderEA
- 一维热传导方程数值解法及matlab实现
含matlab程序，个人感觉很有帮助，在研究传热学的可以下来看看
- 2020数学建模A题
2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据
- 智鼎(附答案).zip
并不是完整题库，但是有智鼎在线2019年9、10、11三个月的试题，有十七套以上题目，普通的网申行测题足以对付，可以在做题时自己总结一些规律，都不是很难
- 主成分分析法matlab源代码
用MATLAB实现的主成分分析法，有数据，可直接运行
- 基于支持向量机的P300脑电信号分类研究
基于支持向量机的P300脑电信号分类研究-吕竟雷 本文针对P300脑电信号的特点，通过P300仿真信号和国际标准实验信号， 对支持向量机分类识别P300脑电信号进行了研究。研究结果显示，支持向量机 对P300仿真信号具有很高的识别率和识别速度;对于真实P300脑电信号，在 标准识别方案的基础上，通过多次信号平均和参数优化，并采用整个训练集进 行分类器的训练，识别率达到90. 3%，满足了识别性能要求。值得一提的是， 在分类识别过程中，仅仅采用了15个通道的采样数据和较少的预处理(总通道 数:64 )，识别速度比较快。
- ArcGIS for JavaScript
全面介绍ArcGIS for JavaScript 开发 让大家学会ArcGIS for JavaScript 开发
- matlab2020a下载地址.txt
最新的matlab软件的下载地址，推荐配合我的博客一起看。
- 热传导方程的matlab解法
热传导方程问题的matlab解法，是用区域分解方法解决pde（偏微）问题。是用matlab写的，请尝试运行
- 简单网络管理协议SNMP通讯基础篇
本课程主要对SNMP的发展历史、专业术语、应用场景、网络结构的解读， 对SNMP通讯过程所涉及的MIB、PDU格式、对象的数据类型、通讯原语、TLV进行深入解读， 接下来实践SNMP的通讯过程并分析所产生的请求和响应报文。 课程特点：1、实操为主，理论讲解为辅； 2、避开难懂的概念，通俗化讲解； 3、通过实例操作理解SNMP； 较快掌握SNMP的基本原理及SNMP通讯过程包的分析方法，为网络工程师、相关研发人员、技术人员及感兴趣的人士提供有价值的参考。
- 脑机接口系统中EEG信号特征提取与分类
脑机接口系统中EEG信号特征提取与分类，CSP算法
- windows批处理教程
教程共7个课时，批处理（Batch）通常被认为是一种简化的脚本语言，它应用于DOS和Windows系统中，它是由DOS或者Windows系统内嵌的解释。批处理文件具有.bat或者.cmd的扩展名。为什么我们需要用批处理呢？实际上，在很多情况下，批处理的效率要远远高于图形用户界面，批处理还有一个优点，就是它可以使用很多图形用户界面没有的工具。后一个优点，就是它逼哥高，一次执行，必有回响。 掌握windows批处理编程
- jdk1.8 64位官方正式版 jdk-8u91-windows
jdk1.8 64位官方正式版 jdk-8u91-windows
- 数据结构基础系列(1)：数据结构和算法
数据结构课程是计算机类专业的专业基础课程，在IT人才培养中，起着重要的作用。课程按照大学计算机类专业课程大纲的要求，安排教学内容，满足需要系统学习数据结构的人。系列课程包含11个部分，本课为第1部分，介绍与数据结构、程序、算法相关的概念，训练初步的数据逻辑结构表达能力，和初步的算法分析能力。 系列课程的目标是帮助学习者系统掌握数据结构课程的相关知识，具备利用这些知识分析问题、解决问题的能力。课程提供视频、课件、例程、自测、实践要求、参考解答等整套的解决方案，帮助学习者达到目标。本课是系列课程中的第1部分，具体目标包括：了解数据结构在计算机类人才培养中的重要意义、掌握数据结构的基本概念、掌握数据结构的分类、理解抽象数据类型ADT及其作用，以及初步学会算法分析的“套路”。
- SAP FIORI开发入门
【课程目标】打造一个简单实用的 SAP FIORI 入门开发课程，帮助广大 SAP 技术人员或者希望进入 SAP 技术领域的人打开一扇门。 【课程形式】视频教程 + PDF 参考资料 【学习门槛】零门槛，无需任何额外知识 【作者微信】eksbobo 【如何入群】使用购买课程的 ID 作为请求信息，发送到作者的微信添加好友，作者会把您拉入到这门课程的微信群中。 打造一个简单实用的 SAP FIORI 入门开发课程，帮助广大 SAP 技术人员或者希望进入 SAP 技术领域的人打开一扇门。
- 嵌入式工程师养成计划之——嵌入式软件工程师完全学习指南
本系列课程针对有意向学习嵌入式软件开发的童鞋，从零开始、深入浅出，内容涵盖：linux系统基础、shell、linux C编程、linux系统编程、网络编程、ARM体系结构及汇编语言、ARM裸机编程、linux系统移植、linux驱动开发等模块。分多个子课程逐步学习。 本课程是全套课程的第0部（前传），目的是讲解我们的整个视频学习体系路线图，同时也会对大家学习路线的一个指引。 本期课程共计4节课，主要回答了何为嵌入式、为何要学习嵌入式、什么人适合学嵌入式、究竟应该怎样去学嵌入式等问题。最后为大家详细介绍了我们的嵌入式软件工程师学习路线图，希望能够对大家的嵌入式学习之路有所指引。
- 神经网络对汽油辛烷值进行预测
网络上的神经网络对汽油辛烷值进行预测，个人进行了总结与修改并在Matlab上测试，通过训练spectra_data数据，然后测试，生成实际值与预测值对比，精确度较高，代码简单，适合初学者学习。
- 数学建模国赛获奖论文分类整理:博弈论
数学建模国赛获奖论文整理，使用博弈论做的论文集合，可以系统的学习博弈论在数学建模中的应用，非常有用。
- MFC上位机与STM32下位机通讯精讲
本课程主要介绍C++类库MFC上位机与STM32单片机的RS232、RS422、RS485、USB、LWIP以太网、CAN等接口进行稳定通信。课程主要从MFC和STM32基础开始，以编写上位机以及下位机为主，非常注重实践。 本课程主要目标是让大家学会MFC上位机的编程、STM32下位机编程。单单的会上位机或者下位机有时候体会不到通讯的乐趣，如果你单单会下位机，你学了本课程，你可以把你的数据以任何方式在windows上呈现出来，如果你只会上位机，你学了本课程你可以通过windows的串口、以太网、USB控制任何硬件设备。本课程的目标就是补偿大家的短处，让大家成为综合性人才，同时让大家体会到通讯中的更多乐趣。
- c语言项目开发实例
十个c语言案例 （1）贪吃蛇 （2）五子棋游戏 （3）电话薄管理系统 （4）计算器 （5）万年历 （6）电子表 （7）客户端和服务器通信 （8）潜艇大战游戏 （9）鼠标器程序 （10）手机通讯录系统
- 沙漠掘金培训程序
沙漠掘金，都懂的。完成版，只有成品。不多说。
- navicat简体中文版 绿色版 （64位）
解压后安装navicat，打开navicat执行PatchNavicat即破解成功。可以正常使用啦。
- t-sne降维可视化实例matlab
这是用t-sne算法对手写数字实例进行降维，可视化的实例，完美实现算法对手写数字的聚类，实现了分类效果。已经过检验可以使用，可放心下载运行。
- C语言大型软件设计的面向对象
C语言代码一旦达到一定规模，就特别强调良好的架构设计，以保证代码的可读性好、代码简洁以及可复用。此时，软件设计师势必要用C语言来做面向对象的设计。不能克服面向对象这一关，也是很多人无法读懂Linux内核、驱动等架构比较庞大的软件的主要技术壁垒之一，因为这些软件里面充满了对象式的设计。 本课程以案例来详细讲解，用C语言如何设计面向对象的程序。 本课程以案例来详细讲解，用C语言教大家如何设计面向对象的程序。
- HarmonyOS.rar 华为鸿蒙操作系统 源码 国产操作系统源码 华为源码
`HarmonyOS` is the first full-scene distributed OS based on micro-kernel. It is an operating system independently developed by Huawei. On August 9, 2019, `HarmonyOS` System was officially released at the Huawei Developers Conference (
). Huawei will take the lead in deploying intelligent terminals such as smart screens, vehicle terminals and wearable terminals. In the future, more and more intelligent devices will use open source `HarmonyOS` .
- 数据结构基础系列(2)：线性表
数据结构课程是计算机类专业的专业基础课程，在IT人才培养中，起着重要的作用。课程按照大学计算机类专业课程大纲的要求，安排教学内容，满足需要系统学习数据结构的人。系列课程包含11个部分，本课为第2部分，线性表的逻辑结构，线性表的顺序表和链表两种存储结构，以及在各种存储结构中基本运算的实现，还通过相关的应用案例介绍了相关知识的应用方法。 系列课程的目标是帮助学习者系统掌握数据结构课程的相关知识，具备利用这些知识分析问题、解决问题的能力。本课是系列课程中的第2部分，具体目标包括：掌握线性表的特征以及逻辑结构定义；掌握顺序表存储结构，及各种基本运算的实现；掌握单链表存储结构，及各种基本运算的实现；了解双链表、循环链表、有序表的存储、应用；学会用线性表解决实际问题。
- 数值分析原理_吴勃英
数值分析原理科学出版社吴勃英主编课本扫描件,lueluelue
- t-sne算法matlab原函数
matlab的t-sne算法，完美实现t-sne算法，已经过检验可以使用，可放心下载运行。
- 一维非稳态导热微分方程的数值求解
一维非稳态导热微分方程的数值求解matlab程序，《传热学》、《数值传热学》、《工程热力学》等课程上机作业。采用差分法、热平衡法建立的离散方程。