<html dir="rtl">
<head>
<%@ Language="VBScript" codepage=1255%>
<meta name="verify-v1" content="BnfsFfYT6nNW4AcnOhWGZAgtpjcsVw51ehnhYAKW5Lc=" />
<title></title>
<link rel="stylesheet" type="text/css" href="styles.css">
</head>
<body background="panelpic/3D_adamant_enlemency.jpg">
<center>
<% If Session("pre")="ok" Then %>
<h1>הוסף עדכון</h1>
<br>
<form method="post" action="http://users1.nofeehost.com/aviad/db/news.asp">
<input type="text" name="news">
<br>
<input type="submit" value="הכנס עדכון">
</form>
<hr color="black">
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\news.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
Set tableRs=Server.CreateObject("ADODB.Recordset")
mySql= "Select * From table1 ORDER BY ddate DESC"
tableRs.Open mySql, oConn,2,2
%>
<table border="1" cellpadding="4" bordercolor="black">
<tr bgcolor="#E4EAF2">
<td>עדכון</td>
<td>מחיקה</td>
<tr>
<% do until tableRs.eof %>
<% numid=tableRs.fields("id") %>
<tr>
<td bgcolor="silver"><% =tableRs.fields("myupdate") %></td>
<td bgcolor="silver"><a href='delete_update.asp?id="& numid &"'>מחק</a></td>
</tr>
<%
tableRs.Movenext
loop
%>
</table>
<%
oConn.Close
Set oConn= nothing
%>
<% Else %>
אין גישה.
האייפי שלך נשמר במאגר.
<%
ip= Request.ServerVariables("REMOTE_ADDR")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\hackers.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
mySQL = "Insert Into table1(ips) values('"&ip&"')"
oConn.Execute(mySQL)
oConn.close
Set oConn= nothing
%>
</center>
<% End If %>
</body>
</html>
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
