مقالة

<% @Language=VBScript @CodePage=1256 %> <% Response.Buffer=false Response.CacheControl="no-cache" %> مقالة <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("DBPath")) if (Request("Sender")<>"") and (Request("CommentText")<>"") then Set BlackIP=Conn.Execute("Select * From BlackIP Where IP='"+Request.ServerVariables("REMOTE_ADDR")+"'") if not (BlackIP.eof and BlackIP.bof) then Response.End end if if (InStr(Request("EMail"),"gmail")<>0) and (InStr(Request("EMail"),"now")<>0) then Response.End end if IDRS=Conn.Execute("Select Max(CommentID) From Comment") if IsNull(IDRS(0)) then CommentID=1 else CommentID=IDRS(0)+1 end if DateString=DatePart("m",date)&"/"&DatePart("d",date)&"/"&DatePart("yyyy",date) CommentText=Request("CommentText") if (InStr(CommentText,"a href")<>0) or (InStr(CommentText,"http")<>0) or (Len(CommentText)<5) then Response.End end if CommentText=Replace(CommentText,"<","") CommentText=Replace(CommentText,">","") if InStr(CommentText,"http")=0 then Conn.Execute "Insert into Comment Values("&CommentID&","&Request("ArticleID")&",'"&Request("Sender")&"','"&Request("EMail")&"',#"&DateString&"#,'"&CommentText&"','"+Request.ServerVariables("REMOTE_ADDR")+"');" end if end if if Request("ArticleID")<>"" then Set ArticleRS=Conn.execute("SELECT * from Article Where ArticleID=" & Request("ArticleID")) if ArticleRS.eof And ArticleRS.bof then %> تعذر العثور على المقالة المطلوبة <% else %>

بسم الله الرحمن الرحيم

<%=ArticleRS("Title")%>

<% Set RelRS=Conn.Execute("SELECT Article.ArticleID, Cat.CatName, Article_1.ArticleID, Article_1.Title, Article_1.ArticleID FROM Cat INNER JOIN (((Article INNER JOIN ArticleCat ON Article.ArticleID = ArticleCat.Article) INNER JOIN ArticleCat AS ArticleCat_1 ON ArticleCat.Cat = ArticleCat_1.Cat) INNER JOIN Article AS Article_1 ON ArticleCat_1.Article = Article_1.ArticleID) ON Cat.CatID = ArticleCat.Cat WHERE (((Article.ArticleID)="&ArticleRS("ArticleID")&"));") if (not RelRS.eof) and (not RelRS.bof) then %>

مواضيع مرتبطة :

<% CatName=RelRS("CatName") Response.Write CatName & "
" do while not RelRS.eof %> "><%=RelRS("Title")%>
<% RelRS.MoveNext if (not RelRS.eof) then if (RelRS("CatName")<>CatName) then CatName=RelRS("CatName") Response.Write CatName & "
" end if end if loop %>

<% end if if ArticleRS("AcceptComment") then %>

التعليقات :

<% Set CommentRS=Conn.Execute("Select * From Comment Where Article="&ArticleRS("ArticleID")&" Order by CommentDate DESC,CommentID DESC") do while not CommentRS.eof %>

من :<%=CommentRS("Sender")%> - ?subject=<%=ArticleRS("Title")%>"><%=CommentRS("EMail")%>

بتاريخ :<%=DatePart("d",CommentRS("CommentDate"))&"/"&DatePart("m",CommentRS("CommentDate"))&"/"&DatePart("yyyy",CommentRS("CommentDate"))%>

<%=CommentRS("CommentText")%>

<% CommentRS.MoveNext Loop end if %>

<%=DatePart("d",ArticleRS("PublishDate"))&"/"&DatePart("m",ArticleRS("PublishDate"))&"/"&DatePart("yyyy",ArticleRS("PublishDate"))%>

<%=ArticleRS("Brief")%>

<%=ArticleRS("ArticleHTML")%>

<% end if end if %>