dreamweaver，asp怎么制作留言板_sql

需要动态网页开发技术，不知道你目前学的怎么样。先要架设安装IIS服务器，用来解析ASP程序，下载安装一个数据库，你可以使用SQL server数据库。

创建一个asp文件，里面创建留言标题，留言人信息，手机号，留言内容等，使用代码连接数据库，代码如下。

Dim Database

Database="datamessage"

Dim Conn,ConnStr

Set conn = Server.CreateObject("ADODB.Connection")

ConnStr="Provider=sqloledbServer=localhostdatabase="&Database&"uid=sapwd="

Conn.open ConnStr

再次新建一个名为：default.asp的文件，这个文件是显示和添加留言的页面

编码也需要改为GB2312

在这里输入的代码如下：

if request("action")="addmessagesave" then

if trim(request("memo"))="" then

Response.Write("<script lanuage=javascript>alert('留言内容不能为空！')location='message.asp'</script>")

response.End()

End if

set rsa=Server.CreateObject("ADODB.RecordSet")

strsqla="select * from [message]"

rsa.open strsqla,conn,3,2

rsa.addnew

rsa("memo")=request("memo")

rsa("time1")=now

rsa.update

Response.Write("<script lanuage=javascript>alert('留言成功！')location='message.asp'</script>")

response.End()

End if

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<style>

*{margin:0pxpadding:0pxfont-size:14pxcolor:#000000}

a{font-size:14pxcolor:#999999}

body{margin:0 autoline-height:30px}

</style>

</head>

<body>

<tr>

</td>

留言 <div class=height9> </div>

<br/>

message

addmessage

</td>

</tr>

</table>

</body>

</html>

sub addmessage()

<tr>

</tr>

<tr>

</label></td>

</tr>

<tr>

<td>

</tr>

</table>

</form>

end sub

SUB message()

set rs=Server.CreateObject("ADODB.RecordSet")

sql="select * from message order by id desc"

rs.open sql,conn,1,1

if rs.eof then

if request("key")<>"" then

response.write("<div style=""text-align:center"">没有查到您要查找的留言！</div>")

else

response.write("<div style=width:500pxheight:50pxtext-align:center>暂时没有留言留言！</div>")

End if

else

response.write("<div >")

PERPAGE=10

if request("pageno")="" or isNumeric(request("pageno"))=0 or request("pageno")<"1" then

curpage = 1

else

curpage = cint(request("pageno"))

end if

rs.pagesize = PERPAGE

if curpage>rs.pagecount then curpage=rs.pagecount

rs.absolutepage = curpage

for i=1 to rs.pagesize

if rs.eof then

exit for

end if

<tr>

</tr>

<tr>

<td class="xb-a04"><%

%></td>

</tr>

<%if rs("hui")<>"" then%>

<tr>

</tr>

<%End if%>

</table>

rs.movenext

if curpage = 1 then

response.write "</div><BR><div style=width:440pxheight:30pxtext-align:center> 首页 | 上一页 | "

else

response.write "</div><BR><div style=width:440pxheight:30pxtext-align:center ><a href='?pageno=1'>首页</a> | <a href='?pageno="&curpage-1&"&leixing="&leixing&"'>上一页</a> | "

end if

if curpage = rs.pagecount then

response.write "下一页 | 尾页</div>"

else

response.write "<a href='?pageno="&curpage+1&"&leixing="&leixing&"'>下一页</a> | <a href='?pageno="&rs.pagecount&"&leixing="&leixing&"'>尾页</a></div>"

end if

rs.close

end if

End sub

新建一个管理留言的页面，名为manage.asp

同样先改编码为GB2312去掉原来的代码重新输入新的代码如下：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>无标题文档</title>

<!--

body {font-size: 12px color: #000000 font-family: 宋体}

td {font-size: 12px color: #000000 font-family: 宋体}

.t1 {font:12px 宋体color=000000}

.t2 {font:12px 宋体color:ffffff}

.bt1 {font:14px 宋体color=000000}

.bt2 {font:14px 宋体color:ffffff}

A:link {color: #000066}

A:visited {color: #000066}

A:hover {color: #ff0000}

A.r1:link {font-size:12pxtext-decoration:underlinecolor:#000000}

A.r1:visited {font-size:12pxtext-decoration:underlinecolor:#000000}

A.r1:hover {font-size:12pxtext-decoration:underlinecolor:#ff0000}

A.r2:link {font-size:12pxtext-decoration:underlinecolor:#ffffff}

A.r2:visited {font-size:12pxtext-decoration:underlinecolor:#ffffff}

A.r2:hover {font-size:12pxtext-decoration:underlinecolor:#ff6600}

A.r3:link {font-size:12pxtext-decoration:nonecolor:#000000}

A.r3:visited {font-size:12pxtext-decoration:nonecolor:#000000}

A.r3:hover {font-size:12pxtext-decoration:underlinecolor:#ff0000}

.bd{ background:#03F}

-->

</style>

</head>

<body>

dim filename

dim biaoname

filename="message.asp"

biaoname="message"

<tr>

</tr>

<tr>

</tr>

</table>

if request("action")="" then '显示信息

</font></TD>

</TR>

dim strsql

set rs=server.createobject("adodb.recordset")

strsql="select * from "&biaoname&" order by Id desc"

rs.open strsql,Conn,3,2

if rs.eof then

response.write("<div style=width:500pxheight:500pxtext-align:center>没有信息</div>")

else

'response.write("<div style=width:500pxheight:500px>")

PERPAGE=15

if request("pageno")="" or isNumeric(request("pageno"))=0 or request("pageno")<"1" then

curpage = 1

else

curpage = cint(request("pageno"))

end if

rs.pagesize = PERPAGE

if curpage>rs.pagecount then curpage=rs.pagecount

rs.absolutepage = curpage

for i=1 to rs.pagesize

if rs.eof then

exit for

end if

<tr height=20 <%if i mod 2 = 0 then

response.write("bgcolor=#cccccc")

else

response.write("bgcolor=#EEEeee")

End if

%>>

</TR>

<%if rs("hui")<>"" then%>

<TD colspan="4" align="left" >&nbsp

<%=rs("hui")%>

</TD>

</TR>

<%End if%>

rs.movenext

</TABLE>

<% if curpage = 1 then

response.write "<br/><div style=width:500pxheight:30pxtext-align:center> 首页 | 上一页 | "

else

response.write "<br/><div style=width:500pxheight:30pxtext-align:center><a href='?pageno=1'>首页</a> | <a href='?pageno="&curpage-1&"&typeid="&request("typeid")&"'>上一页</a> | "

end if

if curpage = rs.pagecount then

response.write "下一页 | 尾页</div>"

else

response.write "<a href='?pageno="&curpage+1&"&leixing="&leixing&"'>下一页</a> | <a href='?pageno="&rs.pagecount&"&typeid="&request("typeid")&"'>尾页</a></div>"

end if

rs.close

end if

'--------------------------------------------------------------修改完成----------------

if request("action")="del" then '删除

id=request("id")

set rs=server.createobject("adodb.recordset")

sql="SELECT * from "&biaoname&" where id="&cstr(id)

rs.open sql,conn,1,3

rs.delete

'rs.update

response.Write "<script>alert('删除成功!')this.location.href='"&filename&"'</SCRIPT>"

end if

if request("action")="hui" then '回复

<tr>

</label>

</td>

</tr>

<tr>

</label></td>

</tr>

</table>

</form>

<%End if

if request("action")="huisave" then '删除

if request("hui")="" then

response.write ("<script>window.alert('回复内容不能为空!')this.location.href='message.asp'</script>")

response.end

End if

set rs1=server.CreateObject("ADODB.RecordSet")

sql="SELECT * from "&biaoname&" where id="&request("id")

rs1.open sql,conn,3,2

rs1("hui")=request("hui")

rs1.update

rs1.close

response.write ("<script>window.alert('回复成功!')this.location.href='message.asp'</script>")

End if

</center>

</body>

</html>

运行调式程序

打开一个IE浏览器

输入：http://localhost/

地址

就可以进入到留言板界面，进行留言了

点击左边的留言管理，就可以进入留言管理界面，在留言管理界面可以回复和删除留言信息。

BOF 或 EOF 中有一个是“真”，

说明,数据库没找查询到数值,可是你非让他显示,所以出错.

可用 if not rs.eof then (如果记录不为空则执行)

就是留言板很久都打不开

一般是死循环造成的,大部分情况是因为少了个

rs.movenext() (下一条记录)

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/sjk/10644696.html

dreamweaver，asp怎么制作留言板

发表评论

评论列表（0条）