一个简单的ASP表单提交
- 格式:doc
- 大小:63.50 KB
- 文档页数:7
一个简单的ASP表单提交
(2006-10-08 21:22:27)
转载▼
分类: ASP
一个简单的asp表单提交
建立数据库文件note.mdb
有以下字段:
id------自动编号
name -----文本 20
title----文本 255
sex----文本 2
email----文本 50
web---文本 255
ip----文本 15
time----日期时间型 默认值:now()
content---备注
[color=Blue]post.htm 页面[/color]
[code]
提交页面
姓名:
标题:
性别:
男
女
email:
网站:
备注:
[/code]
[color=Blue]以下为post.asp页面[/color]
[code]
<%
set conn=Server.CreateObject("ADODB.Connection")
dbparam="Driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("note.mdb")
conn.Open dbparam
dim NoteMaxSize
NoteMaxSize=200
uname = replace(trim(request.form("name")),"'","")
utitle = replace(trim(request.form("title")),"'","")
usex = replace(trim(request.form("sex")),"'","")
uemail = replace(trim(request.form("email")),"'","")
uweb = replace(trim(request.form("web")),"'","")
unote = replace(trim(request.form("content")),"'","")
uip = request.servervariables("remote_addr")
if uname="" then
response.write ""
response.end
end if
if len(uname)>20 then
response.write ""
response.end
end if
if unote="" then
response.write ""
response.end
end if
if len(unote)>NoteMaxSize then
response.write ""
response.end
end if
if uemail<>"" then
if instr(uemail,"@")=-1 or instr(uemail,".")=-1 or len(uemail)<5 then
response.write ""
response.end
end if
end if
response.write uname&"|"&utitle
response.write "
"
response.write usex&"|"&uemail
response.write "
"
response.write uweb&"|"&unote
response.write "
"
response.write uip
sql="insert into
list(name,title,sex,email,web,content,ip)values('"&uname&"','"&utitle&"','"&usex&"','"&uemail&"','"&uweb&"','"&unote&"','"&uip&"')"
set rs = Server.createobject("adodb.recordset")
rs.open sql,conn,2,3
set rs=nothing
set conn=nothing
%>
ASP连接ACCESS
(2006-10-08 21:21:34)
转载▼
分类: ASP
<% 'AdoAccess.asp
Option Explicit
Response.Expires = 0
'第一部分: 建立连接
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =
C:\Inetpub\home\asp\Northwind.mdb"
Cnn.Open StrCnn
%>
程序wuf50.asp
<% @LANGUAGE = VBScript %>
<% ' wuf50.asp
'第二部分: 使用 Connection 对象的 Execute 添加新数据
Dim StrSQL, rsTest
StrSQL = "INSERT INTO 运货商 (公司名称,电话) valueS('wu''feng','0571-7227298')"
Cnn.Execute StrSQL
%>
<% '第三部分: 将得到的记录集显示到浏览器上
Set rsTest = Cnn.Execute("Select * From 运货商")
Do While Not rsTest.EOF
Response.Write rsTest(0) & " " & rsTest(1) & " " & rsTest(2) & " " & "
"
rsTest.MoveNext
Loop
'第四部分: 打扫战场
Cnn.close
Set rsTest = Nothing: Set Cnn = Nothing
%>