safir
New Member
دوستان سلام اگر ارتباط دادن برنامه و ديتابيس از سريق DNS و بر روي سرور به سادگي Lcalhost بود هيچ وقت مزاحم دوستان نميشدم.
مشكل اينجاست كه يك برنامه عكس روز كه هر روز عكس جديدي را نشان ميدهد پيدا كردم كخ بايد از طريق DNS ارتباط با ديتابيس را ايجاد كرد. در localhost از طريق كنترل پنل و سپس از ODBC اين كار انجام ميشه اما در سرور از من خواست تا تگ خواصي رو در صفحه ام كپي كنم :
To connect to any access database, use this connection string in your code:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\server\myDb.mdb;User Id=admin;Password="
سورس صفحه هم بصورت كامل اين است :
====================================
<% Option Explicit
Dim strID,strThought,strPhoto,intCount
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Photo / Thought for the Day</title>
</head>
<body bgcolor="#FFFFFF">
<%Dim intDays,intStart,rsSite,rsTopNumber,objConn
set objConn =server.createobject("ADODB.connection")
objConn.open "DSN=Photo"
set rsTopNumber=objConn.execute("select count(*) from tblPhoto")
intCount = rsTopNumber(0)
rsTopNumber.close
set rsTopNumber=Nothing
intDays = DatePart("y",now)
intStart = intdays Mod intCount
intStart = intStart + 1
Dim sqlSELsite,ObjRSSel
sqlSELsite = "SELECT fldID,fldThought,fldPhoto FROM tblPhoto WHERE fldID = '" & intStart & "'"
Set ObjRSSel = Server.CreateObject("ADODB.Recordset")
ObjRSSel.Open sqlSELsite,objConn
strID = ObjRSSel(0)
strThought = ObjRSSel(1)
strPhoto = ObjRSSel(2)
%>
<table width="170" border="0" cellpadding="1" cellspacing="0" bgcolor="#CC0000">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr bgcolor="#FFCCCC" valign="top">
<td height="20" bgcolor="#CC0000">
<div align="center"><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Photo/Thought
for the Day</font></font></div>
</td>
</tr>
<tr valign="top">
<td height="22">
<div align="center"><img src="<%=strPhoto%>" border="0"></div>
</td>
</tr>
<tr valign="top">
<td height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= strThought %></font></td>
</tr>
<tr valign="top">
<td height="22" align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&copy;<a href="http://www.stylusinc.com">Stylusinc.com</a></font></td>
</tr>
</table>
</td>
</tr>
</table>
<% ObjRSSel.close
Set ObjRSSel = Nothing
Set objConn = Nothing
%>
==============================
اين هم قسمتي از راهنماي برنامه :
Instructions:
1.Set the DSN you want to the database file pod.mdb
2.Open the photooftheday.asp file and make the DSN Changes.
3.Open the table tblPhoto in the MS Access Database and add the thoughts and file names of the photos that you want.
4.Upload the photos in the same folder where you keep the .asp file
5.Open the file photooftheday.asp from your browser and it should work now, if all the steps
above are done correctly.
ببخشيد كه روده درازي كردم چون زياد با asp آشنا نيسنم فكر كردم لازمه
به هر حال شديدا ممنون ميشم اگر لطف كنيد و اين ارتباط رو ايجاد نمائيد.پيشاپيش هزار هزار مرتبه تشكر 
مشكل اينجاست كه يك برنامه عكس روز كه هر روز عكس جديدي را نشان ميدهد پيدا كردم كخ بايد از طريق DNS ارتباط با ديتابيس را ايجاد كرد. در localhost از طريق كنترل پنل و سپس از ODBC اين كار انجام ميشه اما در سرور از من خواست تا تگ خواصي رو در صفحه ام كپي كنم :
To connect to any access database, use this connection string in your code:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\server\myDb.mdb;User Id=admin;Password="
سورس صفحه هم بصورت كامل اين است :
====================================
<% Option Explicit
Dim strID,strThought,strPhoto,intCount
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Photo / Thought for the Day</title>
</head>
<body bgcolor="#FFFFFF">
<%Dim intDays,intStart,rsSite,rsTopNumber,objConn
set objConn =server.createobject("ADODB.connection")
objConn.open "DSN=Photo"
set rsTopNumber=objConn.execute("select count(*) from tblPhoto")
intCount = rsTopNumber(0)
rsTopNumber.close
set rsTopNumber=Nothing
intDays = DatePart("y",now)
intStart = intdays Mod intCount
intStart = intStart + 1
Dim sqlSELsite,ObjRSSel
sqlSELsite = "SELECT fldID,fldThought,fldPhoto FROM tblPhoto WHERE fldID = '" & intStart & "'"
Set ObjRSSel = Server.CreateObject("ADODB.Recordset")
ObjRSSel.Open sqlSELsite,objConn
strID = ObjRSSel(0)
strThought = ObjRSSel(1)
strPhoto = ObjRSSel(2)
%>
<table width="170" border="0" cellpadding="1" cellspacing="0" bgcolor="#CC0000">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr bgcolor="#FFCCCC" valign="top">
<td height="20" bgcolor="#CC0000">
<div align="center"><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Photo/Thought
for the Day</font></font></div>
</td>
</tr>
<tr valign="top">
<td height="22">
<div align="center"><img src="<%=strPhoto%>" border="0"></div>
</td>
</tr>
<tr valign="top">
<td height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%= strThought %></font></td>
</tr>
<tr valign="top">
<td height="22" align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&copy;<a href="http://www.stylusinc.com">Stylusinc.com</a></font></td>
</tr>
</table>
</td>
</tr>
</table>
<% ObjRSSel.close
Set ObjRSSel = Nothing
Set objConn = Nothing
%>
==============================
اين هم قسمتي از راهنماي برنامه :
Instructions:
1.Set the DSN you want to the database file pod.mdb
2.Open the photooftheday.asp file and make the DSN Changes.
3.Open the table tblPhoto in the MS Access Database and add the thoughts and file names of the photos that you want.
4.Upload the photos in the same folder where you keep the .asp file
5.Open the file photooftheday.asp from your browser and it should work now, if all the steps
above are done correctly.
ببخشيد كه روده درازي كردم چون زياد با asp آشنا نيسنم فكر كردم لازمه
به هر حال شديدا ممنون ميشم اگر لطف كنيد و اين ارتباط رو ايجاد نمائيد.پيشاپيش هزار هزار مرتبه تشكر 
