הגדרת דף ברירת מחדל ב asp

<%@ language=VBscript%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" dir="rtl"> <head> <meta name="robots" content="index"/> <meta http-equiv="Content-Type" content="text/html; charset=windows-1255" /> <meta http-equiv="Content-Language" content="he" /> <link href="blog.css" rel="stylesheet" type="text/css" /> </head> <body> <% dim conn set conn = server.createObject("ADODB.connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data\myblog.mdb") dim blog_id blog_id=Request.queryString("blog_id") dim rs, sql set rs=server.createObject("ADODB.recordset") if trim(blog_id) & "" = "" then sql="select * from blog" rs.open sql, conn do rs.eof loop until rs.eof else sql="select * from blog where blog_id=" &blog_id rs.open sql, conn end if date_blog = rs("date") date_h = rs("date_h") type_name = rs("type_name") title_blog = rs("title") body_blog = rs("body") rs.close set rs = nothing conn.close set conn = nothing %> <div id="header"> </div> <div id="container"> <div id="menu"> <p>  </p>  <p></p> </div> <div id="main-content"> <div id="content-wrap"> <h1><%=title_blog%></h1> <p><h5>המחברת  >  <%=type_name%>  >  <%=date_h%></h5></p> <p><h2><%=body_blog%></h2></p> </div> <div id="footer"> <p>נוצר ע"י <a href="<A href="<A href="mailto:eliram.net@gmail.com">אלירם">mailto:eliram.net@gmail.com">אלירם">mailto:eliram.net@gmail.com">אלירם">mailto:eliram.net@gmail.com">אלירם אלגרבלי </a>בתאריך <%=date_blog%> . הזכויות שמורות.</p> </div> </div> <div id="sub-container"> <div id="work-preview"> <h6 class="fav"></h6> <b></b> </div> <div id="linkage"> <h6 class="dwdailies"></h6>  </div> </div> </body> </html>

הנה תנאי שקובע אם הערך הוא מספרי:

קוד:

If Not IsNumeric(blog_id) Then
Response.Write("ערך מספרי בילבד!")
Response.End
End If

ביגלל שהפונקציה מתאלמת ממינוסים ופסיקים ונקודות נוסיף את זה:

קוד:

blog_id = Replace(blog_id, ",", "x")
blog_id = Replace(blog_id, ".", "x")
blog_id = Replace(blog_id, "-", "x")

אילו פונקציות שמחליפות את התווים - , . בתו x. סתם בחרתי בתו הזה כדי שהפונקציה תתחשב בהם כאילו הם אות.

בקיצור הנה הקוד הסופי:

https://2007-uploaded.fresh.co.il/2...08/58998087.rar

קוד:

 <%@ language=VBscript%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" dir="rtl">
<head>
<meta name="robots" content="index"/>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255" />
<meta http-equiv="Content-Language" content="he" />
<link href="blog.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim conn
set conn = server.createObject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data\myblog.mdb")
dim blog_id
blog_id=Request.queryString("blog_id")
dim rs, sql
set rs=server.createObject("ADODB.recordset")
blog_id = Replace(blog_id, ",", "x")
blog_id = Replace(blog_id, ".", "x")
blog_id = Replace(blog_id, "-", "x")
If Not IsNumeric(blog_id) Then
 Response.Write("ערך מספרי בילבד!")
 Response.End
End If
if blog_id < 1 then
 Response.Write("לא קיים!")
 Response.End
end if
if trim(blog_id) & "" = "" then
  sql="select * from blog"
  rs.open sql, conn
  do
  rs.movenext
  loop until rs.eof
else
  sql="select * from blog where blog_id=" &blog_id
  rs.open sql, conn
end if
date_blog = rs("date")
date_h = rs("date_h")
type_name = rs("type_name")
title_blog = rs("title")
body_blog = rs("body")
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<div id="header"> </div>
<div id="container"> 
<div id="menu"> 
<p>&nbsp;&nbsp;</p>
<!-- #include file = "blog_menu.asp" -->
<p></p>
</div> 
<div id="main-content"> 
<div id="content-wrap"> 
<h1><%=title_blog%></h1>
<p><h5>המחברת&nbsp;&nbsp;&gt;&nbsp;&nbsp;<%=type_name%>&nbsp;&nbsp;&gt;&nbsp;&nbsp;<%=date_h%></h5></p>
<p><h2><%=body_blog%></h2></p>
</div>
<div id="footer"> 
<p>נוצר ע&quot;י <a href="<A href="<A href="mailto:eliram.net@gmail.com">אלירם">mailto:eliram.net@gmail.com">אלירם">mailto:eliram.net@gmail.com">אלירם">mailto:eliram.net@gmail.com">אלירם אלגרבלי
</a>בתאריך <%=date_blog%> . הזכויות שמורות.</p>
</div>
</div>
<div id="sub-container"> 
<div id="work-preview"> 
<h6 class="fav"></h6>
<b><!-- #include file = "blogfavorites.asp" --></b>
</div>
<div id="linkage"> 
<h6 class="dwdailies"></h6>
<!-- #include file = "bloglinks.asp" -->
</div>
</div>

</body>
</html>

אחשיו תנסה להכניס אותיות או להזריק ותיראה שזה פשוט לא עובד...

גם הייתי מציע לך, לבדוק האם ערך המסויים קיים. נניח שמישהוא כותב:
http://localhost/default.asp?blog_id=99999999999
לא סביר שקיים בלוג כזה, ואז תהיה לך שגיאה. ואז יהיה אפשר למצא את המסד נתונים ובקיצור זה לא טוב...
אז מה שאתה יכול לעשות זה לבדוק האים הבלוג קיים...

אפשרויות משלוח הודעות

אתה לא יכול לפתוח אשכולות חדשים

אתה לא יכול להגיב לאשכולות

אתה לא יכול לצרף קבצים

אתה לא יכול לערוך את ההודעות שלך

קוד vB פעיל

סמיילים פעיל

קוד [IMG] פעיל

קוד HTML כבוי

כלי אשכול	חפש באשכול זה
הצג גירסת הדפסה שלח דף זה ב E-Mail	חפש באשכול זה: חיפוש מתקדם
מצבי תצוגה	דרג אשכול זה
עבור למצב לינארי מצב כלאיים עבור למצב משורשר	דרג אשכול זה:

הדף נוצר ב 0.05 שניות עם 11 שאילתות
צור קשר - Fresh - למעלה