一个简单的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

%>