求简单的asp留言板代码
4个回答
展开全部
<html>
<head>
<title></title>
</head>
<body bgcolor=#c1f7d8>
<p align=center><font size=5>请你留言</font></p>
<form action=leavemessage.asp method=post>
<input type=hidden name=toname value=feng>
<table align=center border=0 cellpadding=1 cellspacing=1 width=300>
<tr>
<td height=23> 姓名:</td>
<td height=23><Input id=text1 name=name size=20></td>
</tr>
<tr>
<td height=23> 邮箱:</td>
<td height=23><Input id=text2 name=email size=20></td>
</tr>
<tr>
<td height=23> 主页:</td>
<td height=23><Input id=text3 name=homepage size=20></td>
</tr>
<tr>
<td height=19> 内容:</td>
<td height=19> </td>
</tr>
<tr>
<td colspan=2> <textarea id=textarea1 name=content rows=6 cols=35></textarea>
<p align=center>
<input id=submit1 name=submit1 type=submit value=发送留言>
<input id=reset1 name=reset1 type=reset value=重新填写>
</tr>
</table>
</form>
</body>
</html>
[网站制作,找田响没错!]
....................[网站制作,找田响没错!]
leavemessage.asp[网站制作,找田响没错!]
<% @language=vbscript%>
<html>
<head>
</head>
<body bgcolor=#c1f7d8>
<center>
<%
dim strName,strEmail,strHomepage,strContent,strTable,strDsn
strName=Request.Form("name")
strEmail=Request.Form("email")
strHomepage=request.form("homepage")
strcontent=request.form("content")
strtoname=request.form("toname")
if trim(strname)="" or trim(strcontent)="" then
response.write "<br><br>姓名及内容不能为空"
%>
<br><b><a href=javascript:hisory.back()>上一页</a><br>
<%
response.end
end if
strtable="message"
strDsn="dsn=bbs;uid=feng;pwd=feng"
set rs=server.createobject("adodb.recordset")
strdsn="select * from message"
rs.open strtable,strdsn,1,3
rs.addnew
rs("messagename")=srname
rs("messageemail")=stremail
rs("messagehomepage")=strhomepage
rs("messagecontent")=strcontent
rs("messagetoname")=strtoname
rs.update
rs.close
set rs=nothing
response.write "祝贺你，你的信息成功地发给了管理员"
%>
</center>
</body>
</html>
<head>
<title></title>
</head>
<body bgcolor=#c1f7d8>
<p align=center><font size=5>请你留言</font></p>
<form action=leavemessage.asp method=post>
<input type=hidden name=toname value=feng>
<table align=center border=0 cellpadding=1 cellspacing=1 width=300>
<tr>
<td height=23> 姓名:</td>
<td height=23><Input id=text1 name=name size=20></td>
</tr>
<tr>
<td height=23> 邮箱:</td>
<td height=23><Input id=text2 name=email size=20></td>
</tr>
<tr>
<td height=23> 主页:</td>
<td height=23><Input id=text3 name=homepage size=20></td>
</tr>
<tr>
<td height=19> 内容:</td>
<td height=19> </td>
</tr>
<tr>
<td colspan=2> <textarea id=textarea1 name=content rows=6 cols=35></textarea>
<p align=center>
<input id=submit1 name=submit1 type=submit value=发送留言>
<input id=reset1 name=reset1 type=reset value=重新填写>
</tr>
</table>
</form>
</body>
</html>
[网站制作,找田响没错!]
....................[网站制作,找田响没错!]
leavemessage.asp[网站制作,找田响没错!]
<% @language=vbscript%>
<html>
<head>
</head>
<body bgcolor=#c1f7d8>
<center>
<%
dim strName,strEmail,strHomepage,strContent,strTable,strDsn
strName=Request.Form("name")
strEmail=Request.Form("email")
strHomepage=request.form("homepage")
strcontent=request.form("content")
strtoname=request.form("toname")
if trim(strname)="" or trim(strcontent)="" then
response.write "<br><br>姓名及内容不能为空"
%>
<br><b><a href=javascript:hisory.back()>上一页</a><br>
<%
response.end
end if
strtable="message"
strDsn="dsn=bbs;uid=feng;pwd=feng"
set rs=server.createobject("adodb.recordset")
strdsn="select * from message"
rs.open strtable,strdsn,1,3
rs.addnew
rs("messagename")=srname
rs("messageemail")=stremail
rs("messagehomepage")=strhomepage
rs("messagecontent")=strcontent
rs("messagetoname")=strtoname
rs.update
rs.close
set rs=nothing
response.write "祝贺你，你的信息成功地发给了管理员"
%>
</center>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
针对你的问题求简单的asp留言板代码，
提供一份的适用于初学者的代码对你来说是有必要的,
请与我们联系进一步需求,
告诉我你的问题和Email,
有可能帮你，但肯定救急,
使用百度_Hi给我留言,
此回复对于所有需求和和来访者有效,
ES:\\D2E07E03A2556DD79E124A33E77C8107
提供一份的适用于初学者的代码对你来说是有必要的,
请与我们联系进一步需求,
告诉我你的问题和Email,
有可能帮你，但肯定救急,
使用百度_Hi给我留言,
此回复对于所有需求和和来访者有效,
ES:\\D2E07E03A2556DD79E124A33E77C8107
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
给你一个简单的，就是自己做的那种，只能实现功能的，要不？要就留个邮箱！祝你好运
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
网上源码网找，一大堆
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
