网页留言板代码

2023-04-17 05:00:02JavaScript021

网页留言板代码,第1张

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)]

}

</IFRAME>

</center>

<tr>

<p>*名字:

<br>

Email:

主页地址:

</p>

</td>

<tr>

<br>

<tr>

<td>

<tr>

</tr>

</table>

</p></td>

</tr>

</table>

</form>

<tr>

</td>

<TBODY>

<TR>

<TD width=43 colSpan=2 height=29 rowSpan=2><IMG height=29

src="../../images/1_r2_c2.gif" width=43 border=0></TD>

<TD width=37 colSpan=2 height=29 rowSpan=2><IMG height=29

src="../../images/1_r2_c6.gif" width=37 border=0></TD>

</TR>

<TR>

<TBODY>

<TR>

<TD class="pt9"><font class="filtertxt">dsfsd</font></TD>

</TR>

</TBODY>

</TABLE></TD>

</TR>

<TR>

<br>fdsfsd<b>dfssdfsdf</b><br><img src="../../images/blank.gif" width="5" height="5"></TD>

</TR>

<TR>

</TR>

<TR>

<TD width=43 colSpan=2 height=26 rowSpan=2><IMG 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>

<tr>

<td>

</td>

</tr>

</table>

</form>

JS能做留言板功能？

不行吧、、

得连上数据库，

然后用其它语言如PHP。ASP调用数据库语句然后在页面上显示

JS能实现前台的一些功能

<%@ Language=VBScript %>

<%

dim ASPBook

dim StrSQL

if not isempty(request("page")) then

Mypage=cint(Request("page"))

else

Mypage=1

end if

set ASPBook = Server.CreateObject("ADODB.Recordset")

StrSQL = "Select * from guest order by ID desc"

ASPBook.open StrSQL,conn,1,1

ASPBook.pagesize=Mypagesize

maxpages=cint(ASPBook.pagecount)

totalsize=cint(Mypagesize)

ASPBook.absolutepage=Mypage

GuestTotal=ASPBook.RecordCount

if cint(Mypage) >1 then

if cint(Mypage) >maxpages then

MESSAGE("<li>没有你所想去的页数！</li>")

Response.End

end if

HEADER "显示留言"

MyMenu

<html>

<head>

<title>[ 客户留言系统 ]</title>

<style>

BODY {SCROLLBAR-FACE-COLOR: #D4D0C8SCROLLBAR-HIGHLIGHT-COLOR: #999999SCROLLBAR-SHADOW-COLOR: #999999SCROLLBAR-3DLIGHT-COLOR: #FFFFFFSCROLLBAR-ARROW-COLOR: #000000SCROLLBAR-TRACK-COLOR: #E3E3E3SCROLLBAR-DARKSHADOW-COLOR: #666666}

</style>

</head>

<td><p align="center"><font color="#000000"><b><font face="Arial" size="1">Total of

<font color="#ff0000"><%=GuestTotal%></font>messages, </font></b></font>

messages per page, You are on page</font></font></font><font color="#FF0000"><font size="1" face="Arial"><%=cint(Mypage)%></font>

<%=Greeting%>... <font color="#000000"><%PageLink%></font></p>

</font>

<tr>

</tr>

</table>

<tr>

<tr>

</tr>

<tr>

</tr>

</table>

<tr>

</td>

</td>

</tr>

</table>

If ASPBook.Eof or ASPBook.Bof then

Response.Write "<TR>"

Response.Write "<TD bgcolor=" &Color1 &" align=center colspan=6><FONT STYLE=font-size:9pt>对不起，目前还没有任何留言，如要留言，请按“我要留言”图片！</FONT></TD>"

else

i = 0

total = 0

do until ASPBook.Eof or total = totalsize

if i = 0 then

CColor = Color1

else

CColor = Color2

end if

<td>

<tr>

</tr>

</table>

<tr>

<tr>

</tr>

<tr>

<br>

<img src="images/boy.gif" alt="英俊潇洒的 <%=ASPBook("名字")%>先生" align="middle" border="0">

<%elseif ASPBook("性别") = "girl" then%>

<img src="images/girl.gif" alt="美丽又温柔的 <%=ASPBook("名字")%>小姐" align="middle" border="0">

<br>

<%end if%></td>

</tr>

<tr>

</tr>

</table>

</td>

<img src="./icons/em<%=ASPBook("表情")%>.gif" border="0" align="ABSCENTER"></font><font color="#0000FF" class="littel">On:

<%=ASPBook("留言日期")%></font></font><font size="1" color="#0000FF">

</font></td>

<%end if%><%if ASPBook("主页")<>"" and ASPBook("主页")<>"http://" then%>

<a href="<%=ASPBook("主页")%>" Target="_blank">

<%end if%><%if ASPBook("ICQ")<>"" then%>

<img src="images/icq.gif" alt="ICQ：<%=ASPBook("ICQ")%>" align="absmiddle" border="0" width="15" height="16">

<%if ASPBook("OICQ")<>"" then%><%end if%>

<a href="http://club3.tencent.com:81/cgi-bin/friend/show_info?ln=<%=ASPBook("OICQ")%>" target="_blank">

<img src="images/oicq.gif" alt="OICQ：<%=ASPBook("OICQ")%>" align="absmiddle" border="0" width="16" height="16"></a>

<%end if%>

<img src="images/ip.gif" alt="<%=ASPBook("IP")%>" align="absmiddle" border="0" width="13" height="16">

<img src="images/system.gif" alt="<%=ASPBook("系统")%>" align="absmiddle" border="0" width="15" height="16"></td>

</tr>

<tr>

</tr>

<tr>

<%if ASPBook("Reply")<>"" then%><td width="450" height="17" colspan="2" valign="top">

<font color="#FF0000">Reply :<b></b></font>

<img src="./icons/em<%=ASPBook("Reply_Icon")%>.gif" border="0" align="ABSCENTER"><%=ASPBook("Reply")%></font></td>

<%end if%></tr>

</table>

<tr>

</tr>

<tr>

</tr>

</table>

<tr>

</td>

<a href="gb_reply.asp?page=<%=mypage%>&Number=<%=ASPBook("ID")%>">

<a href="gb_delete.asp?page=<%=mypage%>&Number=<%=ASPBook("ID")%>">

</tr>

</table>

</td>

</tr>

ASPBook.MoveNext

i = i + 1

if i = 2 then i = 0

total = total + 1

loop

%><%END IF%>

</table>

<%COPYRIGHT%>

<tr>

</td>

</font></td>

</tr>

</table>

</td>

</tr>

</table>

</center>

</div>

<tr>

</p>

</td>

</tr>

</table>

</center>

</div>

</body>

</html>

function PageLink

PageShowSize = 10

Scriptname=Request.Servervariables("script_name")

PageNextSize=int((MyPage-1)/PageShowSize)+1

Pagetpage=int((GuestTotal-1)/MyPageSize)+1

if Maxpages >1 then

if PageNextSize >1 then

PagePrev=PageShowSize*(PageNextSize-1)

Response.write "<a href='" &Scriptname &"?page=" &PagePrev &"'>[<<]</a>-"

end if

if Mypage-1 >0 then

Prev_Page = MyPage - 1

Response.write "<a href='" &Scriptname &"?page=" &Prev_Page &"'>[<]</a>"

end if

if maxpages>=PageNextSize*PageShowSize then

PageSizeShow = PageShowSize

else

PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)

end if

for PageCounterSize=1 to PageSizeShow

PageLink = (PageCounterSize+PageNextSize*10)-10

if PageLink <>cint(Mypage) then

Response.write "<a href='" &Scriptname &"?page=" &PageLink &"'>[" &PageLink &"]</a>"

else

Response.Write PageLink &" "

end if

if Mypage+1 <=Pagetpage then

Next_Page = MyPage + 1

Response.write "<a href='" &Scriptname &"?page=" &Next_Page &"'>[>]</a>"

end if

if maxpages >PageShowSize*PageNextSize then

PageNext = PageShowSize * PageNextSize + 1

Response.write "-<a href='" &Scriptname &"?page=" &PageNext &"'>[>>]</a>"

end if

else

Response.write "[1]"

end if

END function

set ASPBook=nothing

conn.Close

set conn = nothing

词库加载错误未能找到文件“E高铁采集器内存溢出ConfigurationDictStopwordstxt”

# 上一篇：VS2012怎么加载js文件和调试？

# 下一篇：怎样在百度空间里添加代码

推荐阅读

热门文章

最新发布

标签列表

网页留言板代码

给您推荐相同类型的内容：