24-10-2005, 11:36
|
|
|
|
חבר מתאריך: 11.11.01
הודעות: 1,751
|
|
|
משתנה מסוג Application מתאפס כשמשנים את global.asa?
שלום לכם,
יש לי שאילתת SQL דימנית (חלק מהשאילתה מקבלת 5 מספרים אקראיים ומציגה אותם).
אני מעונין לשמור על השאילתה הזאת במשך חודש ואחרי חודש ליצור אוטומטית אחת חדשה (כלומר להריץ אותה שוב).
חשבתי על שימוש במשתנה מסוג Application והכל נראה מצויין, עד שלמחרת ראיתי שהשאילתה שונתה מעצמה (פעם אחת בלבד!) כאילו עבר חודש. ואז גיליתי שמשום מה אם אני מעלה את אותו קובץ global.asa שוב השרת שוב מריץ את הApplication כאילו המשתנים שלה נמחקו.
אם זה באמת נמחק יש איזו דרך פשוטה וטובה שלא חשבתי עליה לעשות את מה שאני רוצה?
הנה הקוד של Global.asa הוא לא מסובך ואני מאמין שאפשר להבין מה הוא עושה.
קוד PHP:
<script language="vbscript" runat="server">
sub Application_OnStart
if Application("SQLExpire")="" or Application("SQLstr")="" then
Randomize()
w=Rnd()*4
x=Rnd()*10
y=Rnd()*3
z=Rnd()*6
SQLstr="SELECT TOP 6 item_id, name, price, img_link " &_
"FROM items "&_
"ORDER BY cos("&z&"*(sin(cos(-Sin(tan(sqr(item_id)*"&y&"))*tan(item_id)*sin(item_id*tan(item_id)))/2*"&x&"*tan(item_id))))*sin(item_id*tan(item_id*cos(item_ id)*cos(item_id)*Sin(item_id*tan(item_id*cos(item_ id)))*tan(90-item_id*cos(item_id)*sin(item_id)))*sin("&w&")*cos(item_id)) DESC;"
Application("SQLExpire")=date()
Application("SQLstr")=SQLstr
end if
end sub
sub Application_OnEnd
''''some code
end sub
sub Session_OnStart
if Application("SQLExpire")="" or DateDiff("m",Application("SQLExpire"),date())=1 or Application("SQLstr")="" then
Randomize()
w=Rnd()*4
x=Rnd()*10
y=Rnd()*3
z=Rnd()*6
SQLstr="SELECT TOP 6 item_id, name, price, img_link FROM items ORDER BY cos("&z&"*(sin(cos(-Sin(tan(sqr(item_id)*"&y&"))*tan(item_id)*sin(item_id*tan(item_id)))/2*"&x&"*tan(item_id))))*sin(item_id*tan(item_id*cos(item_ id)*cos(item_id)*Sin(item_id*tan(item_id*cos(item_ id)))*tan(90-item_id*cos(item_id)*sin(item_id)))*sin("&w&")*cos(item_id)) DESC;"
Application("SQLExpire")=date()
Application("SQLstr")=SQLstr
end if
''''some code
end sub
sub Session_OnEnd
''''some code
end sub
</script>
תודה רבה למי שיכול לעזור לי כי אני ממש מיואש
ד"א, אני לא יכול להזיז את השעון בשרת כדי לבדוק שזה באמת עובד.... (זה לא שרת פרטי).
_____________________________________
בברכה,
Uninstall
|
ראשי
צ'אט
מצב כלאיים
