'تم إنشاء مؤشر جديد على موقع Index.htm
. -------------------------------------------------- ------------>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
" http://www.w3.org/TR/html4/loose.dtd ">
<أتش تي أم أل>
<الرأس>
<title>مستند بدون عنوان</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</الرأس>
<الجسم>
<عرض الجدول = "770" الحدود = "0" محاذاة = "المركز" خلية الحشو = "0" تباعد الخلايا = "0">
<تر>
<td><form name="form1"method="post" action="send.asp">
<عرض الجدول = "100%" الحدود = "0" خلية الحشو = "0" تباعد الخلايا = "0" bgcolor = "#CCFFFF">
<تر>
<td height="20"><div align="center">الرياض</div></td>
</tr>
<تر>
<td><div align="center">
<textarea name="msg" cols="100"rows="6"></textarea>
</div></td>
</tr>
<تر>
<td><div align="center">
<نوع الإدخال = "إرسال" الاسم = "إرسال" القيمة = "إرسال">
<نوع الإدخال = "إعادة تعيين" اسم = "إرسال 2" القيمة = "إعادة تعيين">
</div></td>
</tr>
</الجدول>
</form></td>
</tr>
</الجدول>
</الجسم>
</html>
'//إرسال.asp
<%
الدالة chan_time(shijian)'转换日期时间函数
s_year = سنة (شيجيان)
إذا كان len(s_year)=2 ثم s_year='20'&s_year
s_month = شهر (شيجيان)
إذا كان s_month <10، فإن s_month = "0"&s_month
s_day=day(شيجيان)
إذا كان s_day<10 فإن s_day="0"&s_day
s_hour = ساعة (شيجيان)
إذا كانت s_hour <10 ثم s_hour = "0"&s_hour
s_دقيقة = دقيقة (شيجيان)
إذا كانت s_دقيقة <10، فإن s_دقيقة = "0"&s_دقيقة
chan_time=s_year & s_month & s_day & s_hour & s_دقيقة
وظيفة النهاية
وظيفة chan_data(shijian) '转换日期时间函数
s_year = سنة (شيجيان)
إذا كان len(s_year)=2 ثم s_year='20'&s_year
s_month = شهر (شيجيان)
إذا كان s_month <10، فإن s_month = "0"&s_month
s_day=day(شيجيان)
إذا كان s_day<10 فإن s_day="0"&s_day
chan_data=s_year & s_month & s_day
وظيفة النهاية
وظيفة chan_file(shijian)'转换日期时间函数
s_month = شهر (شيجيان)
إذا كان s_month <10، فإن s_month = "0"&s_month
s_day=day(شيجيان)
إذا كان s_day<10 فإن s_day="0"&s_day
s_hour = ساعة (شيجيان)
إذا كانت s_hour <10 ثم s_hour = "0"&s_hour
s_دقيقة = دقيقة (شيجيان)
إذا كانت s_دقيقة <10، فإن s_دقيقة = "0"&s_دقيقة
s_ss=ثانية (شيجيان)
إذا كان s_ss<10 ثم s_ss="0"&s_ss
chan_file = s_month & s_day & s_hour & s_minate & s_ss
وظيفة النهاية
أعلى = "<html><head><title>الأخبار</title></head><body>"
بوتوم = "</body></html>"
msg=request.Form("msg")
msg=replace(msg,vbcrlf,"")
msg=replace(msg,chr(9),"")
msg=replace(msg،" "،" ؛")
msg=replace(msg،"rn"،<br>")
msg=replace(msg،"n"،<br>")
msg=top&msg&botom
تعيين fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("news")&""&chan_data(now)
إذا (fs.FolderExists(all_tree2)) ثم قم بكتابة الأمر
آخر
fs.CreateFolder(all_tree2)
نهاية إذا
تمرير = chan_file (الآن)
قم بالعشوائية
تمرير = رند (تمرير)
تمرير=get_pass(تمرير)
pass=left(pass,10)
file1=pass
الملفات=file1&".txt"
filez=all_tree2&""&files
set ts = fs.createtextfile(filez,true) '写文件
من أجل z=1 إلى len(msg)
write_now=mid(msg,z,1)
ts.write(write_now)
التالي
'ts.writeline(all_msg)
ts.إغلاق
تعيين ts=لا شيء '
إذا كان err.number<>0 أو err ثم%>
<لغة البرمجة = "جافا سكريبت">
تنبيه("不能完成")
</script>
<%آخر%>
<لغة البرمجة = "جافا سكريبت">
تنبيه ("已完成")
History.back();
</script>
<%انتهى إذا
تعيين MyFile = fs.GetFile(filez)
all_tree2=server.mappath("news")&""&chan_data(now)
إذا (fs.FolderExists(all_tree2)) إذن
آخر
fs.CreateFolder(all_tree2)
نهاية إذا
MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm"
تعيين MyFile = لا شيء
تعيين خ = لا شيء
تعيين fdir=لا شيء
الدالة get_pass(pass)
pass=cstr(pass)
تمرير = استبدال (تمرير، ""،"،")
تمرير = استبدال (تمرير، ""،"،")
تمرير = استبدال (تمرير، "-"، "")
تمرير = استبدال (تمرير، ""،"،")
تمرير = استبدال (تمرير، ":"")
تمرير = استبدال (تمرير،"."،")
تمرير=استبدال(تمرير،"+"،")
تمرير=استبدال(تمرير،"_"،")
تمرير=استبدال(تمرير،"<"،")
تمرير=استبدال(تمرير،">"،")
تمرير=استبدال(تمرير،"!"،")
تمرير=استبدال(تمرير،"@"،")
تمرير=استبدال(تمرير،"#"،")
تمرير=استبدال(تمرير،"$"،")
تمرير=استبدال(تمرير،"%"،")
تمرير = استبدال (تمرير، "^"،")
تمرير = استبدال (تمرير، "&"،")
تمرير=استبدال(تمرير،"*"،")
تمرير=استبدال(تمرير،"("،")
تمرير = استبدال (تمرير،")"،"،")
تمرير = استبدال (تمرير، " = "")
تمرير = استبدال (تمرير، ""، "")
تمرير = استبدال (تمرير، "/"، "")
تمرير=استبدال(تمرير،"|"،")
get_pass=تمرير
وظيفة النهاية
%>
'//
قم بإرسال ملف send.asp وindex.htm إلى موقع ASP، وقم بزيارة موقع الأخبار الجديد. الاسم / المصدر ASP انقر على الرابط التالي: OK! لا داعي للقلق بشأن هذا الأمر. هذا يعني أن كل ما عليك فعله هو استخدام HTML.