يتم استخدام هذا النوع من التعليمات البرمجية في الغالب عندما لا ننفذ وظيفة التصميم لإنشاء ثابت، ولكننا نريد إنشاء بعض الصفحات الديناميكية مؤقتًا إلى صفحات ثابتة، والحصول مباشرة على المحتوى الديناميكي وحفظه كثابت
انسخ رمز الكود كما يلي:
<!--#include file="admin_Checkuser.asp"-->
<%
استدعاء قاعدة بيانات الاتصال ()
شارع خافت، str_new
شارع = ""
str_new = ""
sqlx="حدد المعرف من طلب Fl_Products حسب المعرف التنازلي"
تعيين rsx=conn.execute(sqlx)
تفعل في حين لا rsx.eof
str=str&rsx("id")&"|"
rsx.movenext :loop
rsx.إغلاق
sqlx="حدد المعرف من ترتيب Fl_News حسب المعرف التنازلي"
تعيين rsx=conn.execute(sqlx)
تفعل في حين لا rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext :loop
rsx.إغلاق
place=InStrRev(str،"|")
شارع=يسار(شارع،مكان-1)
place=InStrRev(str_new،"|")
str_new=يسار(str_new,place-1)
عنوان URL خافت، www، act
act=Trim(Request.QueryString("act"))
url =Request.ServerVariables("HTTP_HOST")
جwww = "http://"+url
MakeHtm cwww&"/index.asp"،../index.htm"،"تمت كتابة الصفحة الرئيسية بنجاح!"
MakeHtm cwww&"/about.asp"،../about.htm"،"تمت كتابة ملف تعريف الشركة بنجاح!"
MakeHtm cwww&"/contact.asp"،"../contact.htm"،"تم كتابة رسالة الاتصال بنا بنجاح!"
MakeHtm cwww&"/ry.asp"،"../ry.htm"،"تمت كتابة المؤهلات والتكريمات بنجاح!"
MakeHtm cwww&"/liuyan.asp"،../liuyan.htm"،"اتصل بنا مكتوبًا بنجاح!"
MakeHtm cwww&"/pro.asp"،../pro.htm"،"تم كتابة عرض المنتج بنجاح!"
MakeHtm cwww&"/news.asp"،"../news.htm"،"إنشاء كتابة ورشة عمل بنجاح!"
MakeHtm cwww&"/xinwen.asp"،../xinwen.htm"،"تمت كتابة المعلومات الإخبارية بنجاح!"
MakeHtm cwww&"/alliance.asp"،../alliance.htm"،"تمت كتابة شبكة المبيعات بنجاح!"
"إنشاء منتج."
xstr=split(str،"|")
لأني=0 إلى ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm"،"Product"&xstr(i)&"تمت كتابته بنجاح!"
التالي
xstr=split(str_new،"|")
لأن i=1 إلى ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm"،"قائمة الأخبار"&i&"تم كتابتها بنجاح!"
التالي
xstr=split(str_new،"|")
لأني=0 إلى ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm"،"News"&xstr(i)&"اكتب بنجاح!"
التالي
الدالة BytesToBstr(body,Cset)
objstream خافت
تعيين objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
وظيفة MakeHtm (تجعيد، التفاف، فوضى)
تعيين xml = Server.CreateObject("Microsoft.XMLHTTP")
"استبدل العنوان التالي بعنوان الملف الخاص بصفحتك الرئيسية. تأكد من استخدام المسار المطلق في البداية. لا يمكنك كتابة مسار نسبي.
xml.Open "GET"، حليقة، خطأ
xml.إرسال
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText،"gb2312")
تعيين XML = لا شيء
'يستبدل
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText=replace(BodyText،"index.asp"، "index.htm")
BodyText=replace(BodyText،"about.asp"، "about.htm")
BodyText=replace(BodyText،"pro.asp"، "pro.htm")
BodyText=replace(BodyText"،news.asp"، "news.htm")
BodyText=replace(BodyText،"liuyan.asp"، "liuyan.htm")
BodyText=replace(BodyText،"ry.asp"، "ry.htm")
BodyText=replace(BodyText،"xinwen.asp"، "xinwen.htm")
BodyText=replace(BodyText،"contact.asp"، "contact.htm")
خافت FSO، MyFile
تعيين fso = CreateObject("Scripting.FileSystemObject")
تعيين MyFile = fso.CreateTextFile (server.MapPath (turl)، True)
MyFile.WriteLine(BodyText)
ملفي.إغلاق
استجابة.اكتب الفوضى
استجابة.اكتب "<br>"
وظيفة النهاية
RegReplace للوظيفة العامة (sContent، sPatrn، sNewStr)
Dim oTempReg: تعيين oTempReg = New RegExp
مع oTempReg
.تجاهل الحالة = صحيح
.العالمي = صحيح
.Pattern = sPatrn
RegReplace = .Replace(sContent, sNewStr)
نهاية مع
تعيين oTempReg = لا شيء
وظيفة النهاية
استدعاء CloseDatabase ()
%>
<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>مستند بدون عنوان</title>
<نمط>
body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
حجم الخط:10.5pt;}
</نمط>
</الرأس>
<الجسم>
</الجسم>
</html>
من iisboy