ASP Diğer Database Tablo Bilgileri ve Otomatik ASP kodu oluş

Hoşgeldiniz giriş yapmak için tıklayın veya ücretsiz üye olun.

BANA ÖZEL

KOD EKLE

ASP> Diğer>

Database Tablo Bilgileri ve Otomatik ASP kodu oluş

Id No : 273

Detaylar

Ekleyen : romantiki

Üyelik : 08.05.2007

Son Giriş : 29.05.2009

Kullanıcı Profili | Üyenin Diğer Kayıtları | Üyeye Mesaj Gönder

Tavsiye Et

Hata Bildir

Spurl'e kaydet! http://reddit.com/submit?url=%url%&title=%title%

İçerik Hakkında

Bu kod sayesinde ASP web sayfaları yaparken standart olarak yazmanız geregen yeni kayıt kodları güncelleme kodları request ile alma kodları yeni kayıt esnasında oluşturduğunuz form bu form alanlarının dolu-boş kontrolünü yapan javascript e kadar pek çok kodu yazmak derdinden kurtulacaksınız. Geliştirmeye açık bir kod. İsteyenler kendine göre uyarlayabilir.

" & vbcrlf next s=s&"" & vbcrlf s=s&"

İçerik Kodu

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Set db = Server.CreateObject("Adodb.Connection")
db.Open "driver={SQL Native Client};server=(LOCAL)SQLEXPRESS;uid=#kullanici_adi#;pwd=#ÅŸifre#;database=#database_adi#;"
Response.CharSet = "iso-8859-9"
server.ScriptTimeout=1440
Session.Codepage = 1254
Session.Timeout=1440
Session.LCID = 1055 
function tipgoster(x,y)
tip=""
select case x
case 3: tip="int"
case 202: tip="nvarchar(" & y & ")"
case 203: tip="nText"
case 135: tip="datetime"
case 131: tip="decimal(18,2)"
end select

tipgoster=" " & tip
end function
function keymi(x,y)
if x=y then 
keymi=" Identity(1,1) Primary Key"
else
keymi=""
end if

end function
 %>
<title>Veri TabanÄ± Bilgisi - Was written by Samet CEYLAN.</title>
<style>
td
{
font-family:arial;
font-size:12px;
color:#000000;
}
div
{
font-family:arial;
font-size:12px;
color:#000000;
}
</style>
<%

tablo="" & Request.QueryString("tablo")
if tablo<>"" then response.Write "<div>SeÃ§ilen Tablo : " & tablo & "<br></div>"
set rsvbt=Server.CreateObject("ADODB.Recordset")
set tbl=Server.CreateObject("ADODB.Recordset")
set rs=Server.CreateObject("ADODB.Recordset")

Set rsvbt = db.OpenSchema(20)

Do Until rsvbt.EOF 
If UCase(rsvbt("TABLE_TYPE")) = "TABLE" Then
%>
<a style="color:Red; font-family:Arial; font-size:12px; text-decoration:none;" href="<%=webpage%><%=webpage%>x.asp?tablo=<%= rsvbt("TABLE_NAME") %>"><%= rsvbt("TABLE_NAME") %></a><br>
<%
End If 
rsvbt.MoveNext 
Loop 
rsvbt.Close 
%>
<div>
<br>
AlanlarÄ±:
<hr>
<%

if tablo<>"" then

dim dizi(2)
dizi(0)=Null
dizi(1)=Null
dizi(2)=tablo

dim dizi2(3)
dizi2(0)=Null
dizi2(1)=Null
dizi2(2)=tablo
set tbl = db.openSchema(28, dizi)
keyFieldName = tbl(3).value
tbl.Close
rs.open "select * from " & tablo,db,1,3
response.Write "<table>"
response.Write "<tr><td>ADI</td><td width=150 align=center>Max AlabileceÄŸi DeÄŸer</td><td width=100 align=center>Alan No</td><td width=100 align=center>SÄ±ra No</td><td width=100 align=center>TÃ¼rÃ¼</td><td width=100 align=center>Ã–zelliÄŸi</td><td width=100 align=center>DuyarlÄ±lÄ±k</td><td width=100 align=center>MS SQL</td><td width=100 align=center></td><td width=100 align=center></td></tr>"
for i=0 to rs.fields.count-1
dizi2(3)=rs.fields(i).Name
set tbl = db.OpenSchema(4,dizi2)
if tbl("IS_NULLABLE")=true then
nullolabilirmi="Null"
else
nullolabilirmi="Not Null"
end if
tbl.Close
%>
<%= "<tr><td>[" & tablo & "].[" & rs.fields(i).name & "]</td><td align=center>" & rs.fields(i).DefinedSize  & "</td><td align=center>" & i  & "</td><td align=center>" & i+1  & "</td><td align=center>" & rs.Fields(i).Type & "</td><td align=center>" & rs.Fields(i).Attributes & "</td><td align=center>" & rs.Fields(i).Precision & "</td><td align=center>" & tipgoster(rs.Fields(i).Type,rs.fields(i).DefinedSize) & "</td><td align=center>" & keymi(rs.Fields(i).name,keyFieldName) & "</td><td align=center>" & nullolabilirmi & "</td></tr>"%>
<%
next
Response.Write "<tr><td>Toplam Alan SayÄ±sÄ± :</td><td>" & rs.fields.count  & "</td></tr>"
response.Write "</table>"
%>

<hr>
<% 
alanlar=""
for i=0 to rs.fields.count-1
alanlar=alanlar & "[" & tablo & "].[" & rs.fields(i).name & "],"
next
alanlar=left(alanlar,len(alanlar)-1)

str="Set rs = Server.CreateObject(" & chr(34)& "Adodb.Recordset" & chr(34) & ")<br>"
str=str & "sql=" & chr(34) & "select "&alanlar&" from " & tablo & chr(34)
str=str & "<br>rs.open sql,db,1,3 <br>rs.addnew<br>"
for i=0 to rs.fields.count-1
if rs.fields(i).name<>"id" then str=str & "rs(" & chr(34) & rs.fields(i).name & chr(34) & ")=" & rs.fields(i).name & "<br>"
next
str=str & "rs.update<br>rs.close<br>"
str=str & "Set rs = nothing"
Response.Write(str & "<br>")
 %>
 <hr>
<% 
str="Set rs = Server.CreateObject(" & chr(34)& "Adodb.Recordset" & chr(34) & ")<br>"
str=str & "sql=" & chr(34) & "select "&alanlar&" from " & tablo & " where " & rs.fields(0).name & "=" & chr(34) & " & id"
str=str & "<br>rs.open sql,db,1,3 <br>"
for i=0 to rs.fields.count-1
if rs.fields(i).name<>"id" then str=str & "rs(" & chr(34) & rs.fields(i).name & chr(34) & ")=" & rs.fields(i).name & "<br>"
next
str=str & "rs.update<br>rs.close<br>"
str=str & "Set rs = nothing"
Response.Write(str & "<br>")
 %>
 <hr>
<% 
for i=0 to rs.fields.count-1

str=rs.fields(i).name & "=" & chr(34) & chr(34)
%>
<%= str %><br>
<%

next
 %>
  <hr>
<% 
for i=0 to rs.fields.count-1

if rs.fields(i).type=3 then
str=rs.fields(i).name & "=cint(" & chr(34) & "0" & chr(34) & " & rs(" & chr(34) & rs.fields(i).name & chr(34) & "))"
elseif rs.fields(i).type=131 then
str=rs.fields(i).name & "=CDbl(" & chr(34) & "0" & chr(34) & " & rs(" & chr(34) & rs.fields(i).name & chr(34) & "))"
else
str=rs.fields(i).name & "=" & chr(34) & chr(34) & " & rs(" & chr(34) & rs.fields(i).name & chr(34) & ")"
end if
%>
<%= str %><br>
<%

next
 %>
 <hr>
<% 
for i=0 to rs.fields.count-1

if rs.fields(i).type=3 then
str=rs.fields(i).name & "=cint(" & chr(34) & "0" & chr(34) & " & Request.QueryString(" & chr(34) & rs.fields(i).name & chr(34) & "))"
elseif rs.fields(i).type=131 then
str=rs.fields(i).name & "=CDbl(" & chr(34) & "0" & chr(34) & " & Request.QueryString(" & chr(34) & rs.fields(i).name & chr(34) & "))"
else
str=rs.fields(i).name & "=" & chr(34) & chr(34) & " & Request.QueryString(" & chr(34) & rs.fields(i).name & chr(34) & ")"
end if
%>
<%= str %><br>
<%

next
 %>
 <hr>
<% 
for i=0 to rs.fields.count-1

if rs.fields(i).type=3 then
str=rs.fields(i).name & "=cint(" & chr(34) & "0" & chr(34) & " & Request.Form(" & chr(34) & rs.fields(i).name & chr(34) & "))"
elseif rs.fields(i).type=131 then
str=rs.fields(i).name & "=CDbl(" & chr(34) & "0" & chr(34) & " & Request.Form(" & chr(34) & rs.fields(i).name & chr(34) & "))"
else
str=rs.fields(i).name & "=" & chr(34) & chr(34) & " & Request.Form(" & chr(34) & rs.fields(i).name & chr(34) & ")"
end if
%>
<%= str %><br>
<%

next
 %>

<hr>
<% 
for i=0 to rs.fields.count-1

str="rs(" & chr(34) & rs.fields(i).name & chr(34) & ")=" & rs.fields(i).name
%>
<%= str %><br>
<%

next
 %>
<hr>
<% 
for i=0 to rs.fields.count-1

if rs.fields(i).type=3 then
str="rs(" & chr(34) & rs.fields(i).name & chr(34) & ")=0"
else
str="rs(" & chr(34) & rs.fields(i).name & chr(34) & ")=" & chr(34) & chr(34)
end if
%>
<%= str %><br>
<%

next
 %>

<hr>
<% 
for i=0 to rs.fields.count-1
str="<% = rs(" & chr(34) & rs.fields(i).name & chr(34) & ") " & "%" & ">"
%>
<%= str %><br>
<%
next
 %>
 <hr>
<% 
for i=0 to rs.fields.count-1
str="<% = " & rs.fields(i).name & " %" & ">"
%>
<%= str %><br>
<%
next
 %>
 <hr>
<% 
for i=0 to rs.fields.count-1
str="<% = " & chr(34) & rs.fields(i).name & " = " & chr(34) & " & " &  rs.fields(i).name & " %" & "> " & Server.HTMLEncode("<br>")
%>
<%= str %><br>
<%
next
 %>
 <hr>
<% 
'----------------------------------------------------------------------------------------------------------------------------------------------
s=""
s=s&"<form id="""&tablo&""" name="""&tablo&""" method=""post"" action="""" style=""padding:0px; margin:0px;"" onSubmit=""return sepetguncelle();"">" & vbcrlf
s=s&"<table width=""780"" border=""0"" align=""left"" cellpadding=""5"" cellspacing=""0"">" & vbcrlf
for i=0 to rs.fields.count-1
s=s&"<tr><td width=""112"" valign=""top"">" & rs.fields(i).name & "</td><td width=""668"" valign=""top"">" & vbcrlf
if (rs.Fields(i).Type=202 and rs.fields(i).DefinedSize>500) or rs.Fields(i).Type=203 then
s=s&"<textarea name=""" & rs.fields(i).name & """ cols=""45"" rows=""3"" id=""" & rs.fields(i).name & """><"&chr(37)&"= " & rs.fields(i).name & chr(37) & ">

" else s=s&"""/>" & vbcrlf end if s=s&"

" & vbcrlf & "" & vbcrlf & "

" '---------------------------------------------------------------------------------------------------------------------------------------------- %>

<%= replace(server.HTMLEncode(s),vbcrlf,"
") %>

<%= s %>

<% '---------------------------------------------------------------------------------------------------------------------------------------------- s="" '---------------------------------------------------------------------------------------------------------------------------------------------- %> <%= replace(server.HTMLEncode(s),vbcrlf,"
") %>

<% str=tablo & "table = " & chr(34) & "Create Table " & tablo & chr(34) & " & _
" & chr(34) & "(" & chr(34) & "& _
" for i=0 to rs.fields.count-1 dizi2(3)=rs.fields(i).Name set tbl = db.OpenSchema(4,dizi2) nullolabilirmi="" if tbl("IS_NULLABLE")=false and keymi(rs.Fields(i).name,keyFieldName)="" then nullolabilirmi=" Not Null" end if tbl.Close str=str & chr(34) & rs.Fields(i).Name & tipgoster(rs.Fields(i).Type,rs.fields(i).DefinedSize) & keymi(rs.Fields(i).name,keyFieldName) & nullolabilirmi &"," & chr(34) & " & _
" Next str=str & chr(34) & ")" & chr(34) & "
db.Execute(" & tablo & "table)" response.Write str %> <% rs.close end if %> <% db.Close Set db = Nothing %>

İncelenme sayısı : 540 Eklenme Tarihi : 29.05.2009 15:30:18

Ana Sayfam yap

Sık Kullanılanlara Ekle

Üyelik

İletişim

Web sayfamızda yayımlanan içerik ve linklerden oluşabilecek sorunlardan Kod Merkezi sorumlu tutulamaz. 0,16