There are two page index.htm is the home page. The program is relatively simple, mainly the file operation object in the ASP.
Untitled Document </ Title></p>
<p><meta http-equiv = "content-type" content = "text / html;</p>
<p>Charset = GB2312 "></p>
<p></ hEAD></p>
<p><body></p>
<p><table width = "770" border = "0" align = "center" cellpadding = "0" cellspacing = "0"></p>
<p><tr></p>
<p><TD> <form name = "form1" method = "post" action = "send.asp"></p>
<p><table width = "100%" border = "0" cellpadding = "0" cellspacing = "0" bgcolor = "# ccfff"></p>
<p><tr></p>
<p><TD Height = "20"> <div align = "center"> Send message </ div> </ td></p>
<p></ TR></p>
<p><tr></p>
<p><TD> <DIV Align = "Center"></p>
<p><textarea name = "msg" cols = "100" rows = "6"> </ textarea></p>
<p></ div> </ td></p>
<p></ TR></p>
<p><tr></p>
<p><TD> <DIV Align = "Center"></p>
<p><Input Type = "Submit" name = "submit" value = "submit"></p>
<p><Input Type = "reset" name = "submit2" value = "reset"></p>
<p></ div> </ td></p>
<p></ TR></p>
<p></ TABLE></p>
<p></ form> </ td></p>
<p></ TR></p>
<p></ TABLE></p>
<p></ body></p>
<p></ html></p>
<p>'//send.asp</p>
<p><%</p>
<p>Function CHAN_TIME (Shijian) 'Conversion Date Time Function</p>
<p>S_Year = Year (shijian)</p>
<p>if Len (S_Year) = 2 Then S_Year = "20" & S_Year</p>
<p>S_Month = Month (shijian)</p>
<p>IF S_MONTH <10 THEN S_MONTH = "0" & S_Month</p>
<p>s_day = day (shijian)</p>
<p>IF S_DAY <10 THEN S_DAY = "0" & S_DAY</p>
<p>S_HOUR = Hour (shijian) if S_Hour <10 TEN S_HOUR = "0" & S_HOUR</p>
<p>S_minute = minute (shijian)</p>
<p>IF S_MINUTE <10 THEN S_MINUTE = "0" & S_Minute</p>
<p>CHAN_TIME = S_Year & S_Month & S_Day & S_HOUR & S_MINUTE</p>
<p>END FUNCTION</p>
<p>Function CHAN_DATA (shijian) 'conversion date time function</p>
<p>S_Year = Year (shijian)</p>
<p>if Len (S_Year) = 2 Then S_Year = "20" & S_Year</p>
<p>S_Month = Month (shijian)</p>
<p>IF S_MONTH <10 THEN S_MONTH = "0" & S_Month</p>
<p>s_day = day (shijian)</p>
<p>IF S_DAY <10 THEN S_DAY = "0" & S_DAY</p>
<p>CHAN_DATA = S_Year & S_MONTH & S_DAY</p>
<p>END FUNCTION</p>
<p>Function Chan_File (Shijian) 'Conversion Date Time Function</p>
<p>S_Month = Month (shijian)</p>
<p>IF S_MONTH <10 THEN S_MONTH = "0" & S_Month</p>
<p>s_day = day (shijian)</p>
<p>IF S_DAY <10 THEN S_DAY = "0" & S_DAY</p>
<p>S_Hour = Hour (shijian)</p>
<p>IF S_HOUR <10 TEN S_HOUR = "0" & S_HOUR</p>
<p>S_minute = minute (shijian)</p>
<p>IF S_MINUTE <10 THEN S_MINUTE = "0" & S_Minute</p>
<p>s_ss = second (shijian)</p>
<p>IF S_SS <10 THEN S_SS = "0" & S_SS</p>
<p>CHAN_FILE = S_MONTH & S_DAY & S_HOUR & S_MINUTE & S_SS</p>
<p>END FUNCTION</p>
<p>TOP = "<html> <head> <title> news </ title> </ head> <body>"</p>
<p>Botom = "</ body> </ html>"</p>
<p>MSG = Request.form ("MSG")</p>
<p>MSG = Replace (MSG, VBCRLF, ")</p>
<p>Msg = Replace (MSG, ChR (9), "")</p>
<p>Msg = Replace (MSG, "," ")</p>
<p>Msg = Replace (MSG, "/ R / N", "<br>")</p>
<p>MSG = Replace (MSG, "/ N", "<br>")</p>
<p>MSG = TOP & MSG & BOTOM</p>
<p>SET FS = Server.createObject ("scripting.filesystemobject")</p>
<p>All_tree2 = server.mappath ("news") & "/" & chan_data (now) if (fs.folderexists (all_tree2)) Then 'determines whether today's folder exists</p>
<p>Else</p>
<p>fs.createfolder (all_tree2)</p>
<p>END IF</p>
<p>Pass = CHAN_FILE (NOW)</p>
<p>Randomize 'uses the system timer to initialize the chaos generator</p>
<p>Pass = rND (pass)</p>
<p>Pass = get_pass (pass)</p>
<p>Pass = Left (pass, 10) file1 = pass</p>
<p>Files = file1 & ". txt"</p>
<p>Filez = all_tree2 & "/" & files</p>
<p>Set ts = fs.createtextFile (filez, true) 'write files</p>
<p>For z = 1 to Len (MSG)</p>
<p>Write_now = MID (MSG, Z, 1)</p>
<p>Ts.write (Write_Now)</p>
<p>NEXT</p>
<p>'Ts.WriteLine (all_msg)</p>
<p>Ts.close</p>
<p>SET TS = Nothing 'file generation</p>
<p>IF err.number <> 0 or err Then%></p>
<p><script language = "javascript"></p>
<p>Alert ("cannot be done")</p>
<p></ script></p>
<p><% ELSE%></p>
<p><script language = "javascript"></p>
<p>Alert ("Completed")</p>
<p>History.back ();</p>
<p></ script></p>
<p><% end if</p>
<p>Set myfile = fs.getfile (filez)</p>
<p>All_tree2 = server.mappath ("news") & "/" & chan_data (now)</p>
<p>IF (fs.folderexists (all_tree2)) THEN</p>
<p>Else</p>
<p>fs.createfolder (all_tree2)</p>
<p>END IF</p>
<p>Myfile.name = left (myfile.name, len (myfile.name) -4) & ". Htm"</p>
<p>Set myfile = Nothing</p>
<p>SET FS = Nothing</p>
<p>Set fdir = Nothing</p>
<p>Function Get_Pass (Pass)</p>
<p>Pass = CSTR (PASS)</p>
<p>Pass = replace (pass, "," ")</p>
<p>Pass = replace (pass, "," ")</p>
<p>Pass = replace (pass, "-", "")</p>
<p>Pass = replace (pass, "," ")</p>
<p>Pass = replace (pass, ":", "")</p>
<p>Pass = replace (pass, ".", "")</p>
<p>Pass = Replace (Pass, " ", "" "</p>
<p>Pass = Replace (Pass, "_", "")</p>
<p>Pass = Replace (Pass, "<", "")</p>
<p>Pass = replace (pass, ">," ")</p>
<p>Pass = replace (pass, "!", "") pass = replace (pass, "@", "")</p>
<p>Pass = Replace (Pass, "#", "")</p>
<p>Pass = replace (Pass, "$", "")</p>
<p>Pass = replace (pass, "%", "" "</p>
<p>Pass = Replace (Pass, "^", "")</p>
<p>Pass = Replace (Pass, "&", "")</p>
<p>Pass = replace (pass, "*", "")</p>
<p>Pass = replace (pass, "(", ")</p>
<p>Pass = replace (pass, ")", "" "</p>
<p>Pass = replace (pass, "=", "")</p>
<p>Pass = replace (pass, "/", "")</p>
<p>Pass = replace (pass, "/", "")</p>
<p>Pass = replace (pass, "|," ")</p>
<p>GET_PASS = Pass</p>
<p>END FUNCTION</p>
<p>%></p>
<p>'//</p>
<p>Put Send.asp and Index.htm in your ASP directory and build a news folder. Open the browser and enter in the address bar:</p>
<p>http: // Your machine name / your ASP virtual directory name /index.html Enter text, then submit, ok! Look at the newly built News folder in your ASP directory, it is not named by the current date. There is a text you just submitted to see if it generates an HTML file. How, you can do a simple news distribution system on this basis. .</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-32181.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="32181" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.039</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = '7neLOLVLYRIcodA8kfEdlFkHxGJJJ0LKKS5jVSWW9TuczNoQhwZjAwGUlQ9fCmg_2BE7r9X9SiykbI6sWi41oOdw_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script>
