手机版在线留言asp代码(asp手机网站源码)[20240428更新]
admin 发布:2024-04-28 18:14 119
今天给各位分享手机版在线留言asp代码的知识,其中也会对asp手机网站源码进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!
本文目录一览:
编写一个asp留言板源代码
link href="../../css/user.css" rel="stylesheet" type="text/css"
script language="JavaScript" src="../../js/common.js"/script
script language="JavaScript" src="../../js/ubbcode.js"/script
script language="JavaScript"
function formCheck()
{
if (document.theform.nickname.value == "")
{
alert("请填写名字。");
document.theform.nickname.focus();
return false;
}
if (document.theform.content.value == "")
{
alert("请填写留言内容。");
document.theform.content.focus();
return false;
}
theform.Submit.disabled=true;
return true;
}
function showimage()
{
document.images.faceimg.src=face_image[parseInt(document.theform.face.options[document.theform.face.selectedIndex].value)];
}
body background=""
center
IFRAME marginHeight=0 marginWidth=0 noResize scrolling=no frameBorder=0 src=";bgcolor=ffffff" width=468 height=60
/IFRAME
/center
p /p
form name="theform" onsubmit="return formCheck();" method="post" action="get_post.asp"
TABLE width=550 border=0 align="center" cellPadding=0 cellSpacing=0
table width="550" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#ebebeb"
tr
td class="pt9"
p*名字:
input name="nickname" type="text" size="15" maxlength="12" class="inputbox1"
br
Email:
input name="email" type="text" size="15" maxlength="45" class="inputbox1"
主页地址:
input name="hp_url" type="text" value="http://" size="22" maxlength="125" class="inputbox1"
/p
/td
tr
td width="409" class="pt9" !--因为图片连接的原因,本文件只适合include在script/dirname下的文件 --
img onClick=bold() src="../../images/icon_editor_bold.gif" width="23" height="22" alt="粗体" border="0"img onClick=italicize() src="../../images/icon_editor_italicize.gif" width="23" height="22" alt="斜体" border="0"img onClick=underline() src="../../images/icon_editor_underline.gif" width="23" height="22" alt="下划线" border="0"
img onClick=center() src="../../images/icon_editor_center.gif" width="23" height="22" alt="居中" border="0"img onClick=hyperlink() src="../../images/icon_editor_url.gif" width="23" height="22" alt="超级连接" border="0"img onClick=email() src="../../images/icon_editor_email.gif" width="23" height="22" alt="Email连接" border="0"img onClick=image() src="../../images/icon_editor_image.gif" width="23" height="22" alt="图片" border="0"img onClick=flash() src="../../images/icon_swf.gif" width="23" height="22" alt="Flash图片" border="0"img onClick=showcode() src="../../images/icon_editor_code.gif" width="23" height="22" alt="编号" border="0"img onClick=quote() src="../../images/icon_editor_quote.gif" width="23" height="22" alt="引用" border="0"img onClick=list() src="../../images/icon_editor_list.gif" width="23" height="22" alt="目录" border="0"
br
tr
td
table width="100%" border="0" cellpadding="0" cellspacing="0" class="pt9"
tr
td width="40" valign="top"*留言:/td
tdtextarea name="content" cols="50" rows="6" id="content"/textarea/td
/tr
/table
p align="center"
input name="replyer" type="hidden" value=""
input name="reply_content_id" type="hidden" value=""
input name="userid" type="hidden" value="79444"
input type="submit" name="Submit" value="确认留言" class="button1"
input type="reset" name="Reset" value="取消重写" class="button1"
/p/td
/tr
/table
p /p
/form
table width="550" border="0" align="center" cellpadding="2" cellspacing="1"
tr
td width="88" valign="top"
img src=""
/td
td width="417"TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 class="pt9"
TBODY
TR
TD width=43 colSpan=2 height=29 rowSpan=2IMG height=29
src="../../images/1_r2_c2.gif" width=43 border=0/TD
TD background=../../images/1_r2_c4.gif height=10/TD
TD width=37 colSpan=2 height=29 rowSpan=2IMG height=29
src="../../images/1_r2_c6.gif" width=37 border=0/TD
/TR
TR
TD height=19 TABLE cellSpacing=0 cellPadding=0 width="100%" border=0
TBODY
TR
TD class="pt9" font class="filtertxt"dsfsd/font /TD
TD width="168" align=right class="pt9" /TD
/TR
/TBODY
/TABLE/TD
/TR
TR
TD width=10 background=../../images/1_r4_c2.gif/TD
TD width=27/TD
TD width="100%" height=50 img src="../../images/blank.gif" width="5" height="5"
br fdsfsdbdfssdfsdf/b br img src="../../images/blank.gif" width="5" height="5" /TD
TD width=22/TD
TD width=15 background=../../images/1_r4_c2.gif/TD
/TR
TR
TD background=../../images/1_r4_c2.gif/TD
TD/TD
TD height=1hr width="100%" size="1" noshade/TD
TD/TD
TD background=../../images/1_r4_c2.gif/TD
/TR
TR
TD width=43 colSpan=2 height=26 rowSpan=2 IMG height=26 src="../../images/1_r6_c2.gif" width=43 border=0/TD
TD align=right height=17
img src="../../images/no_home.gif" align="absmiddle" img src="../../images/no_email.gif" align="absmiddle" FONT color=#336600[2006-7-17 21:24:00]/FONT /TD
TD width=43 colSpan=2 height=26 rowSpan=2IMG height=26
src="../../images/1_r6_c6.gif" width=37 border=0/TD
/TR
TR
TD background=../../images/1_r2_c4.gif
height=9/TD
/TR
/TBODY
/TABLE/td
/tr
/table
BR
form
table width="516" border="0" cellspacing="0" cellpadding="0" align="center"
tr
td
table width=100% border=0 cellspacing=1 cellpadding=2 class=pt9trtd height=13img src=../../images/turnpage2_1.gif align=absmiddle border=0 img src=../../images/turnpage2_2.gif align=absmiddle border=0 b1/b | img src=../../images/turnpage2_3.gif align=absmiddle border=0 img src=../../images/turnpage2_4.gif align=absmiddle border=0/tdtd class=pt9 width=140 align=right共font color=red1/font页第input type=text name=JumpPage maxlength=3 size=3页input type=button value=转页 onClick="location.href='/script/user/list.asp?userid=79444page=' + this.form.JumpPage.value;"/td/tr/table
/td
/tr
/table
/form
asp留言板代码
你之前主要有两个错误:
1.asp中连接字符用""而不是"+"
2.sql语句可能有问题
%
Dim conn,user,content
set conn = Server.CreateObject("ADODB.CONNECTION")
'连接数据库
conn.open "DBQ="server.mappath("user.mdb")";Driver={Microsoft Access Driver (*.mdb)};"
user=request.form("user")
content=request.form("content")
'sql语句插入一条记录
conn.execute("insert into [user] (user,content,time) values ('"replace(user,"'","''")"','"replace(content),"'","''")"','"now()"'")
conn.close
set conn=nothing
%
对回答有问题,或认为不妥,百度消息我。
(在消息的内容里加上问题的网址哦)
求一个简单的ASP留言板代码
再也不能简单的留言系统啦!
数据库字段为:
id name message 三个字段。
下面是一个文本域,可以再里面留言。
文件名是:001.html
form name="form1" method="post" action="001.asp"
p /p
table width="100" align="center"
tr
tdp
网络大名:
input type="text" name="name" id="textfield2" /
/p
p
textarea name="message" cols="60" rows="20" id="textfield"/textarea
/p/td
/tr
tr
td /td
/tr
tr
tdinput type="submit" name="button" id="button" value="提交" //td
/tr
/table
/form
将文本域提交的内容写进数据库。
文件名为:001.asp
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="server.mappath("003.mdb")
name=request.form("name")
message=request.form("message")
exec="insert into guestbook(name,message)values('"+name+"','"+message+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%
简单的在ASP网页上有留言的代码!谢谢
百度了一下,你下的是ASP网页留言板gcooler
可以直接上传使用
前台显示留言:http://网址/guestbook.asp
管理页面是:http://网址/guestbook_admin.asp
默认用户和密码都是admin
请问有谁知道版主回复留言时的ASP源代码?
很简单啊
我是这样做的:
在数据库(userLiuyan.mdb)里新建一个留言表:liuyan
表中字段:ID,(留言编号,自动编号)
userID(用户编号或用户名,文本型),
times(留言时间,日期时间型),
liuyan(留言内容,文本或备注型),
huifu(斑竹回复,文本或备注型)
用户留言的时候只添加前四个字段的值,斑竹管理留言的时候给某条留言回复就添加到相应的回复字段里再显示给你就可以了.比如:
用户显示页面:show.asp
%
set conn=server.createObject("ADODB.Connection")
conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Server.MapPath("userLiuyan.mdb")
conn.Open
sql="select * from liuyan"
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write rs("userID") "br/"
Response.Write rs("times") "br/"
Response.Write rs("liuyan") "br/"
If rs("huifu")"" Then
Response.Write rs("huifu") "br/"
Else
Response.Write "等待回复..."
End If
rs.MoveNext
Loop
%
斑竹管理留言回复页:huifu.asp
% '显示用户留言
set conn=server.createObject("ADODB.Connection")
conn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Server.MapPath("userLiuyan.mdb")
conn.Open
sql="select * from liuyan"
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write rs("userID") "br/"
Response.Write rs("times") "br/"
Response.Write rs("liuyan") "br/"
If rs("huifu")"" Then
Response.Write rs("huifu") "br/"
Else
Response.Write "a href=""?method=huifuID="rs("ID")"""回复/a"
End If
rs.MoveNext
Loop
'向数据库里添加回复
If Request.QueryString("Method")="huifu" Then
sql="update liuyan set huifu='谢谢你的留言' where=" Request.QueryString("ID")
conn.Execute(sql)
Response.Write"回复成功!"
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%
答案还可以吗?
关于手机版在线留言asp代码和asp手机网站源码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 05-13给企业做网站的公司,给企业做网站的公司有哪些
- 05-13怎么搭建网站,怎么搭建网站教程
- 05-13优化网站佛山厂商,佛山网站优化步骤
- 05-13网站权重什么意思,网站权重数值越大说明什么
- 05-12网站安全检测工具网站,网站安全测试工具
- 05-12网站自然优化,网站自动优化系统
- 05-12网站是怎么建立起来的,网站是怎么建立起来的视频
- 05-12seo网站排名优化,seo网站排名优化教程
- 05-12手机百度一下百度,手机百度一下没反应呢,咋回事
- 05-12dw网页设计模板网站,dw网页设计模板网站免费
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接