📄 myasp2.asp

📁 Web based project,kisan online
💻 ASP
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim con
set con=server.CreateObject("ADODB.Connection")
con.Mode=3
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\wwwroot\admin1_files\db.mdb;Persist Security Info=False"
con.Open

dim rs 
set rs=server.CreateObject("ADODB.Recordset")
if Request.Form("submit")="add" then 
str="select * from employee"
rs.Open str,con,1,3
rs.MoveLast
rs.AddNew
rs.Fields(0)=Request.Form("fname")
rs.Fields(1)=Request.Form("mname")
rs.Fields(2)=Request.Form("lname")
rs.Fields(3)=Request.Form("cdate")
rs.Fields(4)=Request.Form("add")
rs.Fields(5)=Request.Form("mbno")
rs.Fields(6)=Request.Form("aemail")
rs.Fields(7)=Request.Form("eid")
rs.Fields(8)=Request.Form("vno")
rs.Fields(9)=Request.Form("fsize")
rs.Fields(10)=Request.Form("firr")
rs.Update
Response.Write ("Data entered.")
rs.Close
end if

if Request.Form("submit")="delete" then
str="select * from employee"
rs.Open str,con,1,3
f=0
rs.MoveFirst
while not rs.EOF
if CStr(rs.Fields(7))=Request.Form("e") then
f=1
end if
rs.MoveNext
wend
if f=1 then
rs.MoveFirst
while not rs.EOF
if rs.Fields(7)=Request.Form("e") then
rs.Delete 
Response.Write("Record deleted")
end if
rs.MoveNext
wend
else
Response.Write("Record not found.")
end if
rs.Close
end if

if Request.Form("submit")="update" then
str="select * from employee"
rs.Open str,con,1,3
f=0
rs.MoveFirst
while not rs.EOF
if CStr(rs.Fields(7))=Request.Form("ei") then
f=1
end if
rs.MoveNext
wend

if f=1 then
rs.MoveFirst
while not rs.EOF
if rs.Fields(7)=Request.Form("ei") then
rs.Fields(0)=Request.Form("fn")
rs.Fields(1)=Request.Form("mn")
rs.Fields(2)=Request.Form("ln")
rs.Fields(3)=Request.Form("jd")
rs.Fields(4)=Request.Form("a")
rs.Fields(5)=Request.Form("m")
rs.Fields(6)=Request.Form("em")
rs.Fields(8)=Request.Form("vno")
rs.Fields(9)=Request.Form("fsize")
rs.Fields(10)=Request.Form("firr")
rs.Update
Response.Write("Record updated.")
end if
rs.MoveNext
wend
else
Response.Write("Record not found.")
end if
rs.Close
end if
%>
<P>&nbsp;</P>

</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -