在HTML里面加入留言板后有时不能点到输入框？求大侠帮忙

佳言ZA语 2012-06-06 02:04:46
本人小白，刚刚开始学做网站，在HTML页面里调用一个最简单的留言板，但显示时经常有的输入点击不了，求大侠们给点提点吧>_>，新手没什么分，大家帮我下忙啊。
代码如下：<table width="600" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top"><script language="javascript">
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function isEmail(strEmail) {
if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1)
return true;
else
return false;
}
</script>
<style type="text/css">
body{margin:0;}
td,p {font-size: 12px;}
form{margin:0;}
a{
color:#000;
font-size:12px;
text-decoration: none;
}
a:hover {
text-decoration: underline;
color: #F00;
}

TEXTAREA {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
INPUT {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
.con{padding:10px;line-height:22px;word-break:break-all;word-wrap:break-word;}
</style>
<script language="javascript">
function ChkBook(obj)
{
if(obj.UserName.value.Trim()=="")
{
alert("请输入用户名！");
obj.UserName.focus();
return false;
}
if(obj.EMail.value.Trim()=="")
{
alert("请输入电子邮件！");
obj.EMail.focus();
return false;
}
if(!isEmail(obj.EMail.value.Trim()))
{
alert("您输入的电子邮件不正确！");
obj.EMail.focus();
return false;
}
if(obj.Title.value.Trim()=="")
{
alert("请输入留言标题！");
obj.Title.focus();
return false;
}
if(obj.Content.value.Trim()=="")
{
alert("请输入留言内容！");
obj.Content.focus();
return false;
}
}
</script>
<table align="center" width="95%" cellpadding="0" cellspacing="1" border="1" bgcolor="#F0F0F0" style="margin-top:10px;">
<form action="index-book.asp" method="post" onSubmit="return ChkBook(this);">
<input type="hidden" name="Action" value="SaveAdd">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="2"><a href="contact-us.html" style="color:#FF0000; text-decoration:underline">在线留言</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" width="25%" align="center">姓 <font color="#FFFFFF">
NAM</font>名：</td>
<td width="75%">　
<input type="text" name="UserName" style="width:200px;" maxlength="20"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" width="25%" align="center">联系方式：</td>
<td>　
<input type="text" style="width:200px;" maxlength="100"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" width="25%" align="center">留言主题：</td>
<td>　
<input type="text" name="Title" style="width:200px;" maxlength="25"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" width="25%" align="center">留言内容：</td>
<td>　
<textarea name="Content" cols="60" rows="8"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" colspan="2" align="center"><input type="submit" value="确认留言">
<input type="reset" value="重写留言"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
...全文
279 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
佳言ZA语 2012-06-10
  • 打赏
  • 举报
 回复
解决不了 ，看来，结个贴算了，自个琢磨去，谢谢大家的关注~
efeie 2012-06-07
  • 打赏
  • 举报
 回复
同求这个问题的解决方法，希望能得个答案~
佳言ZA语 2012-06-06
  • 打赏
  • 举报
 回复
<%
End Sub
Sub SavePwd()
If Session("AdUser")="" Or IsNull(Session("AdUser")) Then Call ShowErrMsg(3,"非法操作！","")
OldPwd=Md5(Request.Form("OldPwd"))
NewPwd=Md5(Request.Form("NewPwd"))
Set Rs=Conn.Execute("Select UPwd From Ad_List Where UName='"&Session("AdUser")&"'")
If Not Rs.Eof Then
UPwd=Rs(0)
If OldPwd<>UPwd Then
Call ShowErrMsg(3,"旧密码错误！","")
Else
Conn.Execute("Update Ad_List Set UPwd='"&NewPwd&"' Where UName='"&Session("AdUser")&"'")
Call ShowErrMsg(1,"修改成功!","index-book.asp")
End If
Else
Call ShowErrMsg(3,"用户不存在！","")
End If
Rs.Close
Set Rs=Nothing
End Sub
Sub LoginOut()
Session("AdUser")=""
Call ShowErrMsg(2,"","index-book.asp")
End Sub
Sub Reply()
If Session("AdUser")="" Or IsNull(Session("AdUser")) Then Call ShowErrMsg(3,"非法操作！","")
ID=FormatRequest(1,"ID",0,0)
Page=FormatRequest(1,"Page",0,1)
Set Rs=Conn.Execute("Select UserName,Title,Content,AddDate,Reply From Book_List Where ID="&ID)
If Rs.Eof Then Call ShowErrMsg(3,"留言不存在！","")
%>
<table align="center" width="98%" style="margin-top:10px;" cellpadding="0" cellspacing="1" border="0" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="4"><a href="index-book.asp?Page=<%=Page%>" style="color:#FF0000; text-decoration:underline">返回留言列表</a></td>
</tr>
<tr>
<td height="1" width="10%"></td>
<td width="40%"></td>
<td width="20%"></td>
<td width="30%"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">留言主题</td>
<td> <%=Rs(1)%></td>
<td>留言者:<%=Rs(0)%></td>
<td>留言时间:<%=Rs(3)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" height="100">留言内容</td>
<td colspan="3" valign="top" class="con"><%=Replace(Rs(2),chr(10),"<br>")%></td>
</tr>
<form action="index-book.asp" method="post">
<input type="hidden" name="Action" value="SaveReply">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="hidden" name="Page" value="<%=Page%>">
<tr bgcolor="#FFFFFF">
<td height="50" align="center" style="color:#FF0000">管理员回复</td>
<td colspan="3" valign="top" class="con">
<textarea cols="80" rows="8" name="Reply"><%=Rs(4)%></textarea>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center" height="30"><input type="submit" value="确认回复"></td>
</tr>
</form>
</table>
<%
Rs.Close
Set Rs=Nothing
End Sub
Sub SaveReply()
If Session("AdUser")="" Or IsNull(Session("AdUser")) Then Call ShowErrMsg(3,"非法操作！","")
ID=FormatRequest(2,"ID",0,0)
Page=FormatRequest(2,"Page",0,0)
TmpReply=FormatRequest(2,"Reply",1,"")
If TmpReply="" Then Call ShowErrMsg(3,"请输入回复内容！","")
Conn.Execute("Update Book_List Set Reply='"&TmpReply&"' Where ID="&ID)
Call ShowErrMsg(1,"回复成功！","index-book.asp?Page="&Page)
End Sub

Sub Del()
ID=FormatRequest(1,"ID",0,0)
Page=FormatRequest(1,"Page",0,0)
Conn.Execute("Delete From Book_List Where ID="&ID)
Call ShowErrMsg(1,"删除成功！","index-book.asp?Page="&Page)
End Sub
Call CloConn(Conn)
%>
</body>
</html>
佳言ZA语 2012-06-06
  • 打赏
  • 举报
 回复
<!-- #Include File="Fun.asp" -->
<!-- #Include File="Md5.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言板</title>
<link type="text/css" rel="stylesheet" href="Common.css">
<script language="javascript">
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function isEmail(strEmail) {
if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1)
return true;
else
return false;
}
</script>
<style type="text/css">
body{margin:0; background:#003142;}
td,p {font-size: 12px;}
form{margin:0;}
a{
color:#000;
font-size:12px;
text-decoration: none;
}
a:hover {
text-decoration: underline;
color: #F00;
}

TEXTAREA {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
INPUT {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
.con{padding:10px;line-height:22px;word-break:break-all;word-wrap:break-word;}
</style>
</head>
<body>
<%
Call CreConn(Conn)
Action=FormatRequest(1,"Action",1,"")
Select Case Action
Case "Add"
Call Add()
Case "SaveAdd"
Call SaveAdd()
Case "Login"
Call Login()
Case "ChkLogin"
Call ChkLogin()
Case "EditPwd"
Call EditPwd()
Case "SavePwd"
Call SavePwd()
Case "LoginOut"
Call LoginOut()
Case "Reply"
Call Reply()
Case "SaveReply"
Call SaveReply()
Case "Del"
Call Del()
Case Else
Call Main()
End Select
Sub Main()
Page=FormatRequest(1,"Page",0,1)
If Page<=0 Then Page=1
PSize=10
TbName="Book_List"
GetCol="ID,UserName,Title,Content,AddDate,Reply,HomePage,EMail"
PCol="ID"
SortCol="ID"
StrW="IsShow=True"
CT=""
TCount=Conn.Execute("Select Count(ID) From Book_List Where IsShow=True")(0)
PCount=GetPageCount(TCount,PSize)
If Page>PCount And PCount>0 Then Page=PCount
PIndex=Page

Set Rs=Conn.Execute(GetPageList(TBName,GetCol,PCol,SortCol,1,StrW,PSize,PIndex))
If Not Rs.Eof Then
%>
<table align="center" width="98%" style="margin-top:10px;" cellpadding="0" cellspacing="1" border="0" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="4"><a href="?Action=Add" style="color:#F00;text-decoration:underline">签写留言</a>　　　　　<%If Session("AdUser")="" Or IsNull(Session("AdUser")) Then%><a href="?Action=Login" style="text-decoration:underline">管理登录</a><%Else%><a href="?Action=EditPwd">修改密码</a>　　<a href="?Action=LoginOut">退出登录</a><%End If%></td>
</tr>
<tr>
<td height="1" width="10%"></td>
<td width="40%"></td>
<td width="20%"></td>
<td width="30%"></td>
</tr>
<%
Do While Not Rs.Eof
%>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">留言主题</td>
<td> <%=Rs(2)%></td>
<td>留言者:<a href="<%=Rs(6)%>" target="_blank"><%=Rs(1)%></a></td>
<td>留言时间:<%=Rs(4)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" height="100">留言内容</td>
<td colspan="3" valign="top" class="con"><%=Replace(Left(Rs(3),500),chr(10),"<br>")%></td>
</tr>
<%
TmpReply=Rs(5)
If Trim(TmpReply)<>"" Then
%>
<tr bgcolor="#FFFFFF">
<td height="50" align="center" style="color:#F00">管理员回复</td>
<td colspan="3" valign="top" class="con" style="color:#FF0000"><%=TmpReply%></td>
</tr>
<%End If
If Session("AdUser")<>"" Then
%>
<tr bgcolor="#FFFFFF">
<td height="25" align="center" style="color:#00F">留言管理</td>
<td colspan="2"> 电子邮件:<a href="<%=Rs(6)%>" target="_blank"><%=Rs(7)%></a></td>
<td align="center"><a href="?Action=Reply&ID=<%=Rs(0)%>&Page=<%=Page%>" style="color:#F00">回复留言</a>　　<a href="?Action=Del&ID=<%=Rs(0)%>&Page=<%=Page%>" style="color:#F00">删除留言</a></td>
</tr>
<%End If%>
<tr>
<td height="10" bgcolor="#FAFAFA" colspan="4"></td>
</tr>
<%
Rs.MoveNext
Loop
%>
</table>
<%
If PCount>1 Then
Response.Write PageList(3,PCount,Page,CT)
Else
Response.Write "<br>"
End If
Else
Response.Write "<div style=""text-align:center;font-size:14px;color:#F00;""><br><br>没有留言<br><br><a href=""?Action=Add"" style=""color:#F00; text-decoration:underline"">我要签写留言</a><br><br></div>"
End If
End Sub
Sub Add()
%>
<script language="javascript">
function ChkBook(obj)
{
if(obj.UserName.value.Trim()=="")
{
alert("请输入用户名！");
obj.UserName.focus();
return false;
}
if(obj.EMail.value.Trim()=="")
{
alert("请输入电子邮件！");
obj.EMail.focus();
return false;
}
if(!isEmail(obj.EMail.value.Trim()))
{
alert("您输入的电子邮件不正确！");
obj.EMail.focus();
return false;
}
if(obj.Title.value.Trim()=="")
{
alert("请输入留言标题！");
obj.Title.focus();
return false;
}
if(obj.Content.value.Trim()=="")
{
alert("请输入留言内容！");
obj.Content.focus();
return false;
}
}
</script>
<table align="center" width="95%" cellpadding="0" cellspacing="1" border="0" bgcolor="#F0F0F0" style="margin-top:10px;">
<form action="index-book.asp" method="post" onsubmit="return ChkBook(this);">
<input type="hidden" name="Action" value="SaveAdd">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="2"><a href="index-book.asp" style="color:#FF0000; text-decoration:underline">返回留言列表</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" width="15%" align="center">姓 名：</td>
<td width="85%">　<input type="text" name="UserName" style="width:200px;" maxlength="20"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">联系方式：</td>
<td>　<input type="text" name="Title" style="width:200px;" maxlength="100"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">留言主题：</td>
<td>　<input type="text" name="Title" style="width:200px;" maxlength="25"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">留言内容：</td>
<td>　<textarea name="Content" cols="60" rows="8"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" colspan="2" align="center"><input type="submit" value="确认留言">　　<input type="reset" value="重写留言"></td>
</tr>
</form>
</table>
<%
End Sub
Sub SaveAdd()
UserName=FormatRequest(2,"UserName",1,"")
EMail=FormatRequest(2,"EMail",1,"")
Title=FormatRequest(2,"Title",1,"")
Content=FormatRequest(2,"Content",1,"")
Conn.Execute("Insert Into Book_List(UserName,Title,Content,EMail,IP) Values('"&UserName&"','"&Title&"','"&Content&"','"&Email&"','"&Get_UserIp()&"')")
Call ShowErrMsg(1,"留言成功！","index-book.asp")
End Sub
Sub Login()
%>
<script language="javascript">
function CheckLogin(obj)
{
if(obj.UserName.value.Trim()=="")
{
alert("请输入用户名!");
return false;
}
if(obj.UserPwd.value.Trim()=="")
{
alert("请输入密码!");
return false;
}
}
</script>
<table align="center" width="80%" cellpadding="0" cellspacing="1" border="0" bgcolor="#F0F0F0" style="margin-top:10px;">
<form action="index-book.asp" method="post" onsubmit="return CheckLogin(this);">
<input type="hidden" name="Action" value="ChkLogin">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="2">管理员登录　　<a href="index-book.asp" style="color:#FF0000; text-decoration:underline">返回留言列表</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" height="30">用户名：<input type="text" name="UserName" style="width:80px;" maxlength="30">
　　密码：<input type="password" name="UserPwd" style="width:80px;" maxlength="30">
　　<input type="submit" value="确认登录">
</td>
</tr>
</form>
</table>
<%
End Sub
Sub ChkLogin()
UserName=FormatRequest(2,"UserName",1,"")
UserPwd=Md5(Request.Form("UserPwd"))
Set Rs=Conn.Execute("Select UPwd From Ad_List Where UName='"&UserName&"'")
If Not Rs.Eof Then
UPwd=Rs(0)
If UserPwd<>UPwd Then
Call ShowErrMsg(3,"密码错误！","")
Else
Session("AdUser")=UserName
Conn.Execute("Update Ad_List Set LoginDate='"&Now()&"',LoginIP='"&Get_UserIp()&"' Where UName='"&UserName&"'")
Call ShowErrMsg(1,"登录成功!","index-book.asp")
End If
Else
Call ShowErrMsg(3,"用户不存在！","")
End If
Rs.Close
Set Rs=Nothing
End Sub
Sub EditPwd()
If Session("AdUser")="" Or IsNull(Session("AdUser")) Then Call ShowErrMsg(3,"非法操作！","")
%>
<script language="javascript">
function ChkPwd(obj)
{
if(obj.OldPwd.value.Trim()=="")
{
alert("请输入旧密码!");
return false;
}
if(obj.NewPwd.value.Trim()=="")
{
alert("请输入新密码!");
return false;
}
}
</script>
<table align="center" width="80%" cellpadding="0" cellspacing="1" border="0" bgcolor="#F0F0F0" style="margin-top:10px;">
<form action="index-book.asp" method="post" onsubmit="return ChkPwd(this);">
<input type="hidden" name="Action" value="SavePwd">
<tr bgcolor="#FFFFFF">
<td height="22" align="center" colspan="2">修改密码　　<a href="?Action=LoginOut">退出登录</a>　　<a href="index-book.asp" style="color:#FF0000; text-decoration:underline">返回留言列表</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" height="30">用户名：<input type="text" name="UserName" style="width:80px;" readonly value="<%=Session("AdUser")%>" maxlength="30">
　旧密码：<input type="password" name="OldPwd" style="width:80px;" maxlength="30">
　新密码：<input type="password" name="NewPwd" style="width:80px;" maxlength="30">
　　<input type="submit" value="确认修改">
</td>
</tr>
</form>
</table>
佳言ZA语 2012-06-06
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 的回复:]

贴清楚代码啊。。
没看懂上面代码
[/Quote]谢谢关注
原是ASP的一个简单留言板，我是想只引用填写留言这一项，另因为本人不懂这一块，所以属于硬搬的代码，真不好意思，我就是把这里面一部分ASP代码给搬到HTML页里了，这样解释可以么，再次谢谢了，因为这个回复不能太长，我把那个ASP的代码分两次贴下吧。
三石-gary 2012-06-06
  • 打赏
  • 举报
 回复
贴清楚代码啊。。
没看懂上面代码
佳言ZA语 2012-06-06
  • 打赏
  • 举报
 回复
来位大侠帮帮我呀~~
论坛精华
[转]ASP.NET四种页面导航方式之比较与选择 在ASP.NET应用中，Web表单之间的导航有多种方式：用超级链接，用Response.Redirect，用Server.Transfer，或者用Server.Execute。本文将分析这四种导航方式的异同及其优缺点，帮助你选择最佳的导航方式。   一、超级链接   　　从一个表单进入另一个表单最简单的方式是使用HTML超级链接控件。在We
GreenAMP下载：可将Apache MySQL PHP安装成绿色软件
前天我在chin.blogchina.com发表了"Windows下把Apache，MySQL，PHP安装为绿色软件" 一文，承蒙各位网友错爱（好多感兴趣的网友纷纷留言希望提供下载），只是可惜，我当时一时匆忙忘了上传附件，而，当天晚上，我将用Windows平台的机器搬回家了，在办公室用的是一台Linux的机器，那台Linux机器上完全没有GreenAMP的任何资料，所以
flash常见问题集锦，很适合新手哦
如何加载一个SWF文件并控制其位置等相应属性……新建一个空地MC，将它放在主场景中，实体名改为OK，写AS： loadMovie("test.swf", "_root.ok"); 控制这个MC的位置，大小等相对属性（Property）就会影响调入SWF的位置和大小。 setProperty ("mc", _xscale, "****"); setProperty ("mc", _yscal
Vue2+Vue3基础入门到实战项目（七）—— 智慧商城 项目
Vue 核心技术与实战—— 智慧商城 —— 脚手架自定义项目构建、组件库vant、移动端vw适配、request请求方法封装、storage存储模块封装、api请求模块封装、嵌套路由配置、请求响应拦截器、路由导航守卫、动态路由传参、分页加载更多、项目打包&优化……
8、Vue 核心技术与实战 智慧商城项目 DAY8~10
已售{{ detail.goods_sales }}件
CSS

61,115

社区成员

60,728

社区内容

发帖
与我相关
我的任务
社区描述
层叠样式表(英文全称：Cascading Style Sheets)是一种用来表现HTML（标准通用标记语言的一个应用）或XML（标准通用标记语言的一个子集）等文件样式的计算机语言。
社区管理员
  • HTML(CSS)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章