应用ASP技术编写一个简单论坛（下）

最新推荐文章于 2021-11-10 22:45:50 发布

sanife

最新推荐文章于 2021-11-10 22:45:50 发布

阅读量1.3k

点赞数

文章标签： asp input html javascript email action

本文链接：https://blog.csdn.net/sanife/article/details/1754762

版权

.4 discuss_main.asp ：

<HTML>

<HEAD><TITLE> 讨论组发送区</TITLE>

function checksubmit(form)

{

if (form.subject.value=="")

{

alert(" 请输入您的标题");

form.subject.focus();

return false;

}

if (form.name.value=="")

{

alert(" 请输入您的姓名");

form.name.focus();

return false;

}

if (form.comments.value=="")

{

alert (" 请输入讨论内容");
form.comments.focus();

return false;

}

return true;

}

</script>

</HEAD>

<BODY>

<FORM METHOD=POST ACTION="disc_post.asp" name=form1

οnsubmit="return checksubmit(form1)">

‘ 发送表单信息到disc_post.asp中处理

<FONT color=#8000ff><STRONG> 请逐项填写下表,用TAB键跳到下一项。</STRONG> </FONT><p>

<select name="selectno" tabindex=2> ‘ 论坛主题作为下拉列表框的项

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

rs.open "select * from forum_content","DSN=forum;UID=user;PWD=",3,1

if not rs.eof then%>

<option value="<%=rs("contentname")%>" selected><%=rs("contentname")%>

<% rs.movenext

for i=2 to rs.recordcount%>

<% rs.movenext

else%>

<option value="nocontent"> 没有内容

<% end if

rs.close

set rs=nothing

</select>

<br>

</form>

</BODY>

</HTML>

5.5 discuss_left.asp ：

<html>

<head>

<title> 讨论区目录页</title>

</head>

<font color="#333333" size="2"> 讨论区内容目录</font></center><br>

见程序段1

'display toc

见程序段2

<% if err<>0 then

response.write "<center> 对不起,讨论区失败!</center>"

end if

</body>

</html>

5.6 disc_post.asp ：

<HTML>

<HEAD><TITLE> 讨论组发送区</TITLE>

</HEAD>

<BODY>

见程序段4

‘ 消息处理结果显示包含文件

</BODY>

</HTML>

5.7 contentdisplay.asp ：

<HTML>

<HEAD><TITLE> 讨论组内容显示区</TITLE>

</HEAD>

<BODY>

'display discuss content

contentdis=trim(request.querystring("contentdis"))

discussarea=trim(request.querystring("discussarea"))

‘ 获取从左框架消息列表中发送过来的查询字符串

if contentdis="" or discussarea="" then ‘ 查询字符串为空表示出错

response.write " 对不起，本讨论内容信息含错，不能浏览."

response.end

else ‘ 查询字符串不为空则进行处理

on error resume next

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

rs.open "select * from "&discussarea,"DSN=forum;UID=user;PWD=",3,1

findid=false

if not rs.eof then ‘ 主题消息表不为空继续

countrs=1

do until findid or (countrs>rs.recordcount) ‘ 查找要显示的消息记录

if cstr(rs("index"))=contentdis then

findid=true

else

countrs=countrs+1

rs.movenext

end if

loop

end if

if findid then ‘ 找到该记录，则进行显示

mydate=formatdatetime(trim(rs("submitdate")),1) mytime=formatdatetime(trim(rs("submitdate")),3)

<form method=post action="disc_reply.asp"> ‘ 发送隐藏表单信息给disc_reply.asp

</form>

</center><p><h4><strong><%=rs("subject")%></strong></h4>

<table> ‘ 显示找到的消息信息

<tr align=right><td><font color="#000000"> 提交人邮箱:</font></td>

<%=rs("email")%></font></td></tr>

</table>

else ‘ 没有找到该消息记录

response.write " 对不起,该提交内容已被删除."

rs.close

set rs=nothing

response.end

end if

</BODY>

</HTML>

5.8 disc_reply.asp ：

<HTML>

function checksubmit(form)

{

if (form.subject.value=="")

{

alert(" 请输入答复标题");

form.subject.focus();

return false;

}

if (form.name.value=="")

{

alert(" 请输入您的姓名");

form.name.focus();

return false;
}

if (form.comments.value=="")

{

alert (" 请输入答复内容");

form.comments.focus();

return false;

}

return true;

}

</script>

</HEAD>

<BODY>

dim findid

subject1=request.form("subject1")

‘ 获取从contentdisplay.asp传来的表单信息

discussarea=request.form("discussarea")

theindex=request.form("theindex")

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

rs.open "select * from "&discussarea,"DSN=forum;UID=user;PWD=",3,1

if not rs.eof then ‘ 该主题消息表不为空继续

findid=false

do until ((findid=true) or rs.eof)

‘ 按索引查找要答复的消息记录

comp=strcomp(trim(rs("index")),trim(theindex),1)

if comp=0 then

findid=true

else

if not rs.eof then

rs.movenext

end if

loop

if findid=true then

‘ 找到记录，则存储该记录的level和index信息

getlevel=rs("level")

getindex=rs("index")

else ‘ 没有找到记录，则结束页面请求

response.write " 没有相关信息!"

rs.close

set rs=nothing

response.end

end if

else ‘ 该主题消息表为空，结束页面请求

response.write " 没有相关信息."

rs.close

set rs=nothing

response.end

end if

rs.close

set rs=nothing

<FORM METHOD=POST ACTION="disc_response.asp" name=form1 οnsubmit="

return checksubmit(form1)"> ‘ 发送表单信息给disc_response.asp

<STRONG> 请逐项填写下表,用TAB键跳到下一项。</STRONG></FONT><p>
<STRONG>答复标题：</STRONG><br>

<br>

</form>

</BODY>

</HTML>

5.9 disc_response.asp ：

<HTML>

<HEAD><TITLE> 讨论组答复发送区</TITLE>

</HEAD>

<BODY>

见程序段7

‘ 消息处理结果显示包含文件

</BODY>

</HTML>

5.10 disc_showre.inc ：

<%call showresult

sub showresult()

<html><head><title> 内容提交成功</title></head>

<body>

<center><strong> 您的讨论内容已经提交成功</strong></center><hr>

<p><font color="#1111ff" size="2"> 注意：您必须刷新内容才能看到提交的内容!</font><p>

<p><font color="#000000"> 请您点击<a href="discuss.asp" target="_parent">[返回讨论组]</a>，可以看到您的内容已经加入.</font>

</body>

</html>

<%end sub%>

5.11 message_show.inc ：

见程序段3

5.12 opendb33.inc ：

见程序段5

5.13 closedb33.inc ：

见程序段6

sanife

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
2
评论
应用ASP技术编写一个简单论坛（下）

.4 discuss_main.asp：讨论组发送区 ‘表单输入检查脚本 function checksubmit(form) { if (form.subject.value=="") { alert("请输入您的标题"); form.subject.focus(); return false;
复制链接

扫一扫