免费留言本

时间：2024-01-23 04:14:00 出处：动力设备网作者：动力设备网

请给我一个最简单asp留言本

提示：

请给我一个最简单asp留言本

无标题文档

function check()
{
if (form.name.value =="")
{
alert("请输入您的名字");
form.name.focus();
return false;
}
if (form.sex.value =="")
{
alert("请输入您的性别");
form.sex.focus();
return false;
}
if (form.age.value =="")
{
alert("请输入您的年龄");
form.age.focus();
return false;
}
if (form.addr.value =="")
{
alert("请输入您的地址");
form.addr.focus();
return false;
}
if (form.tel.value =="")
{
alert("请输入您的电话");
form.tel.focus();
return false;
}
if (form.email.value =="")
{
alert("请输入您的电子信箱");
form.email.focus();
return false;
}
if (form.content.value =="")
{
alert("请输入您的留言内容");
form.content.focus();
return false;
}

return true;

}
function checkarea()
{
if (document.form.content.value.length > 999)
{
alert("留言字数请在1-999之间");
form.content.focus();
return false;
}
return true;
}

留言本

请输入您的名字：

*

请输入您的性别：

*

请输入您的年龄：

*

请输入您的居住地址：

*

请输入您的电话：

*

请输入您的手机：

请输入您的E-mail：

*

请输入留言内容：

*

add.asp

<%
dim conn
dim connstr

Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;UID=sa;PWD=;database=abc"

conn.Open connstr

sub CloseConn()
rs.close
set rs = nothing
conn.close
set conn=nothing
end sub

dim name,sex,age,addr,tel,mb,email,content,ctime
name = request.Form("name")
sex = request.Form("sex")
age = request.Form("age")
addr = request.Form("addr")
tel = request.Form("tel")
mb = request.Form("mb")
email = request.Form("email")
content = request.Form("content")
ctime = now()

dim rs,sql
sql = "select * from message"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3

rs.addnew
rs("name") = name
rs("sex") = sex
rs("age") = age
rs("address") = addr
rs("tel") = tel
rs("mb") = mb
rs("email") = email
rs("content") = content
rs("ctime") = ctime
rs.update

response.Write(" alert('添加成功！');")

call closeconn()
%>

数据库SQL 2000
CREATE TABLE [dbo].[message] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[name] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[sex] [char] (6) COLLATE Chinese_PRC_CI_AS NULL ,
[age] [char] (3) COLLATE Chinese_PRC_CI_AS NULL ,
[address] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
[tel] [char] (12) COLLATE Chinese_PRC_CI_AS NULL ,
[mb] [char] (11) COLLATE Chinese_PRC_CI_AS NULL ,
[email] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[content] [varchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,
[ctime] [datetime] NULL ,
[reply] [varchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,
[retime] [datetime] NULL
)

ASP留言本程序

提示：

ASP留言本程序

怀疑你的IIS没弄好.写个测试一下你IIS是不是有问题...

==================================================
如果没有问题,还有就是,你数据库里面的字段就是用汉字命名的吗?建议改成英文或拼音.
==================================================
如果就是用汉字的话,你那个第一个SQL命令的那个串似乎少了个双引号!

免费留言本

请给我一个最简单asp留言本

ASP留言本程序

推荐阅读

最新文章