hadisoltani
سه شنبه 07 فروردین 1386, 19:21 عصر
سلام دوست عزیز عیدت مبارک.
شما این پروژه رو از یه برنامه از اینترنت گرفتید و دستکاری کردید.
اسم برنامه هاشم فکر کنم با Du شروع میشه. به حر حال:
اشکالای خیلی زیادی داشت.
کار کردن با asp و access
چون مشکل فارسی داره و بعضی وقتا خوب نشون داده نمیشه باید حتما همیشه اول صفحه asp
رو با
<%@ Language="VBScript" CodePage="65001" %>
<%
Session.CodePage = 65001
%>
شروع کنی
این کد رو کپی کن و در یک صفحه قرار بده و ذخیره کن و اون فایل اکسس هم باید در همون پوشه ای که اینو میریزی باشه.
بعد با localhost
ببین چون asp همینطوری قابل اجرا نیست.
امکان حذف هم برات گذاشتم.
اگر مشکلی بود با ایمیلم تماس بگیر:
narmafzar@hotmail.com
و دیگه نیازی به اون صفحات نداره همه اونا شده همین یکی
<%
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath("db1.mdb")
adoCon.Open strCon
mode = request.querystring("Mode")
id_num = request.querystring("id")
select case mode
case "add"
set objrs=server.createobject("adodb.recordset")
strsql="Select * From Table1"
objrs.open strsql, adoCon,3,3
objrs.addnew
objrs("name") = request.form("name_txt")
objrs("family") = request.form("family_txt")
objrs.update
response.redirect Request.Servervariables("HTTP_REFERER")
case "del"
if isnumeric(id_num) then adoCon.Execute("DELETE * FROM Table1 WHERE id=" & Int(id_num))
response.redirect Request.Servervariables("HTTP_REFERER")
end select
set Recordset1=server.createobject("adodb.recordset")
strsql="SELECT * FROM Table1 order by name desc"
Recordset1.open strsql, adoCon,1
%>
<head>
<title>show record from tabel</title>
</head>
<body>
<table border="1" width="372" style="border-collapse: collapse">
<tr>
<td width="47"><b>ID</b></td>
<td width="120"><b>name</b></td>
<td width="112"><b>family</b></td>
<td width="65">
<p align="center"> </td>
</tr>
<%do until Recordset1.eof%>
<tr>
<td><%=Recordset1("Id")%></td>
<td><%=Recordset1("name")%></td>
<td width="112"><%=Recordset1("family")%></td>
<td width="65">
<p align="center"><a href="?Mode=del&id=<%=Recordset1("Id")%>">Delete</a></td>
</tr>
<%
Recordset1.movenext
loop
%>
</table>
<br>
<br>
<table border="1" cellpadding="2" width="38%" id="table1" style="border-collapse: collapse">
<tr>
<td>
<p align="center"><b>Add new record</b></td>
</tr>
<tr>
<td>
<form method="POST" action="?Mode=add">
<table border="0" cellpadding="2" cellspacing="1" width="100%" id="table2">
<tr>
<td>Name</td>
<td width="214">
<input type="text" name="name_txt" size="29"></td>
</tr>
<tr>
<td>Family</td>
<td width="214">
<input type="text" name="family_txt" size="29"></td>
</tr>
</table>
<p><input type="submit" value="Add to list" name="Add"></p>
</form>
</td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
adoCon.close()
%>