27-11-2005, 00:16
|
|
|
חבר מתאריך: 27.11.05
הודעות: 6
|
|
תיקון שגיאה.
היי לכולם.
רק לפני כמה ימים התחלתי עם ASP אבל כבר קפצתי מעל הפופיק..
כתבתי תוכנית אבל אני לא מצליח לאתר את השגיאה בה
אם תוכלו לעזור לי אני אשמח מאוד.
התוכנית בנויה מ3 חלקים
חלק ראשון: יצירת ממסד נתונים (DataBase.asp)
קוד:
<%
Set DataBase = Server.CreateObject("ADODB.Connection")
DataBase.Open "Driver = {Microsoft Text Driver (*.txt; *.csv)};" &_
"Dbq = C:\IP\;" &_
"Extensions = asc,csv,tab,txt;" &_
"Persist Security Info = False"
DataBase.Execute ("Create Table IP.txt (IP Varchar)")
DataBase.Close
Set DataBase = Nothing
%>
חלק שני: הטופס (form.html)
קוד:
<HTML>
<Head>
<Title> IP Detector </Title>
</Head>
<Body>
<Form Name = "IP" Method = "Get" Action = "127.0.0.1/System.asp">
</Form>
Script Language = "JavaScript">
window.document.forms["IP"].submit();
</Script>
</Body>
</HTML
והחלק השלישי והאחרון: "הליבה" (System.asp)
קוד:
<%
Response.Buffer = True
Set DataBase = Server.CreateObject("ADODB.Connection")
DataBase.Open "Driver = {Microsoft Text Driver (*.txt; *.csv)};" &_
"Dbq = C:\IP\;" &_
"Extensions = asc,csv,tab,txt;" &_
"Persist Security Info = False"
DataBse.Execute ("Insert Into IP.txt Values" &_
"(" &_
"'" &_
Request.ServerVariables ("REMOTE_ADDR") &_
"'" &_
")"
DataBase.Close
Set DataBase = Nothing
Response.Write ("Script Language = 'JavaScript'>")
Response.Write ("window.close();")
Response.Write ("</Script>")
%>
|