搜索
首页web前端html教程在HTML里面加入留言板后有时不能点到输入框?求大侠帮忙_html/css_WEB-ITnose

本人小白,刚刚开始学做网站,在HTML页面里调用一个最简单的留言板,但显示时经常有的输入点击不了,求大侠们给点提点吧>_>,新手没什么分,大家帮我下忙啊。
代码如下:


                    
                      
                    
                    
                      
                    
                  
<script> <br /> String.prototype.Trim = function() <br /> { <br /> return this.replace(/(^\s*)|(\s*$)/g, ""); <br /> } <br /> function isEmail(strEmail) { <br /> if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1) <br /> return true; <br /> else <br /> return false; <br /> } <br /> </script>
                        
                        <script> <br /> function ChkBook(obj) <br /> { <br /> if(obj.UserName.value.Trim()=="") <br /> { <br /> alert("请输入用户名!"); <br /> obj.UserName.focus(); <br /> return false; <br /> } <br /> if(obj.EMail.value.Trim()=="") <br /> { <br /> alert("请输入电子邮件!"); <br /> obj.EMail.focus(); <br /> return false; <br /> } <br /> if(!isEmail(obj.EMail.value.Trim())) <br /> { <br /> alert("您输入的电子邮件不正确!"); <br /> obj.EMail.focus(); <br /> return false; <br /> } <br /> if(obj.Title.value.Trim()=="") <br /> { <br /> alert("请输入留言标题!"); <br /> obj.Title.focus(); <br /> return false; <br /> } <br /> if(obj.Content.value.Trim()=="") <br /> { <br /> alert("请输入留言内容!"); <br /> obj.Content.focus(); <br /> return false; <br /> } <br /> } <br /> </script>
                        
                          
                            
                            
                              
                            
                            
                              
                              
                            
                            
                              
                              
                            
                            
                              
                              
                            
                            
                              
                              
                            
                            
                              
                            
                          
                        
在线留言
姓 
NAM
名:
 
                                
联系方式:  
                                
留言主题:  
                                
留言内容:  
                                

                                
 


回复讨论(解决方案)

来位大侠帮帮我呀~~

贴清楚代码啊。。
没看懂上面代码

贴清楚代码啊。。
没看懂上面代码 谢谢关注
原是ASP的一个简单留言板,我是想只引用填写留言这一项,另因为本人不懂这一块,所以属于硬搬的代码,真不好意思,我就是把这里面一部分ASP代码给搬到HTML页里了,这样解释可以么,再次谢谢了,因为这个回复不能太长,我把那个ASP的代码分两次贴下吧。



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



留言板

<script> <br /> String.prototype.Trim = function() <br /> { <br /> return this.replace(/(^\s*)|(\s*$)/g, ""); <br /> } <br /> function isEmail(strEmail) { <br /> if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1) <br /> return true; <br /> else <br /> return false; <br /> } <br /> </script>



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 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
%>










Do While Not Rs.Eof
%>










TmpReply=Rs(5)
If Trim(TmpReply)"" Then
%>




   If Session("AdUser")"" Then
%>









   Rs.MoveNext
Loop
%>
签写留言     管理登录修改密码  退出登录
留言主题   留言者:" target="_blank"> 留言时间:
留言内容 ")%>
管理员回复
留言管理  电子邮件:" target="_blank"> &Page=" style="color:#F00">回复留言  &Page=" style="color:#F00">删除留言

If PCount>1 Then
Response.Write PageList(3,PCount,Page,CT)
Else
Response.Write "
"
End If
Else
Response.Write "


没有留言

我要签写留言

"
End If
End Sub
Sub Add()
%>
<script> <br /> function ChkBook(obj) <br /> { <br /> if(obj.UserName.value.Trim()=="") <br /> { <br /> alert("请输入用户名!"); <br /> obj.UserName.focus(); <br /> return false; <br /> } <br /> if(obj.EMail.value.Trim()=="") <br /> { <br /> alert("请输入电子邮件!"); <br /> obj.EMail.focus(); <br /> return false; <br /> } <br /> if(!isEmail(obj.EMail.value.Trim())) <br /> { <br /> alert("您输入的电子邮件不正确!"); <br /> obj.EMail.focus(); <br /> return false; <br /> } <br /> if(obj.Title.value.Trim()=="") <br /> { <br /> alert("请输入留言标题!"); <br /> obj.Title.focus(); <br /> return false; <br /> } <br /> if(obj.Content.value.Trim()=="") <br /> { <br /> alert("请输入留言内容!"); <br /> obj.Content.focus(); <br /> return false; <br /> } <br /> } <br /> </script>


























返回留言列表
姓   名:  
联系方式:  
留言主题:  
留言内容:  
  

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> <br /> function CheckLogin(obj) <br /> { <br /> if(obj.UserName.value.Trim()=="") <br /> { <br /> alert("请输入用户名!"); <br /> return false; <br /> } <br /> if(obj.UserPwd.value.Trim()=="") <br /> { <br /> alert("请输入密码!"); <br /> return false; <br /> } <br /> } <br /> </script>










管理员登录  返回留言列表
用户名:
  密码:
  

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 UserPwdUPwd 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> <br /> function ChkPwd(obj) <br /> { <br /> if(obj.OldPwd.value.Trim()=="") <br /> { <br /> alert("请输入旧密码!"); <br /> return false; <br /> } <br /> if(obj.NewPwd.value.Trim()=="") <br /> { <br /> alert("请输入新密码!"); <br /> return false; <br /> } <br /> } <br /> </script>










修改密码  退出登录  返回留言列表
用户名:" maxlength="30">
 旧密码:
 新密码:
  

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 OldPwdUPwd 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,"留言不存在!","")
%>























">
">








" style="color:#FF0000; text-decoration:underline">返回留言列表
留言主题   留言者: 留言时间:
留言内容 ")%>
管理员回复


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

同求这个问题的解决方法,希望能得个答案~

解决不了 ,看来,结个贴算了,自个琢磨去,谢谢大家的关注~

声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
如何验证您的HTML代码?如何验证您的HTML代码?Apr 24, 2025 am 12:04 AM

HTML代码可以通过在线验证器、集成工具和自动化流程来确保其清洁度。1)使用W3CMarkupValidationService在线验证HTML代码。2)在VisualStudioCode中安装并配置HTMLHint扩展进行实时验证。3)利用HTMLTidy在构建流程中自动验证和清理HTML文件。

HTML与CSS和JavaScript:比较Web技术HTML与CSS和JavaScript:比较Web技术Apr 23, 2025 am 12:05 AM

HTML、CSS和JavaScript是构建现代网页的核心技术:1.HTML定义网页结构,2.CSS负责网页外观,3.JavaScript提供网页动态和交互性,它们共同作用,打造出用户体验良好的网站。

HTML作为标记语言:其功能和目的HTML作为标记语言:其功能和目的Apr 22, 2025 am 12:02 AM

HTML的功能是定义网页的结构和内容,其目的在于提供一种标准化的方式来展示信息。1)HTML通过标签和属性组织网页的各个部分,如标题和段落。2)它支持内容与表现分离,提升维护效率。3)HTML具有可扩展性,允许自定义标签增强SEO。

HTML,CSS和JavaScript的未来:网络开发趋势HTML,CSS和JavaScript的未来:网络开发趋势Apr 19, 2025 am 12:02 AM

HTML的未来趋势是语义化和Web组件,CSS的未来趋势是CSS-in-JS和CSSHoudini,JavaScript的未来趋势是WebAssembly和Serverless。1.HTML的语义化提高可访问性和SEO效果,Web组件提升开发效率但需注意浏览器兼容性。2.CSS-in-JS增强样式管理灵活性但可能增大文件体积,CSSHoudini允许直接操作CSS渲染。3.WebAssembly优化浏览器应用性能但学习曲线陡,Serverless简化开发但需优化冷启动问题。

HTML:结构,CSS:样式,JavaScript:行为HTML:结构,CSS:样式,JavaScript:行为Apr 18, 2025 am 12:09 AM

HTML、CSS和JavaScript在Web开发中的作用分别是:1.HTML定义网页结构,2.CSS控制网页样式,3.JavaScript添加动态行为。它们共同构建了现代网站的框架、美观和交互性。

HTML的未来:网络设计的发展和趋势HTML的未来:网络设计的发展和趋势Apr 17, 2025 am 12:12 AM

HTML的未来充满了无限可能。1)新功能和标准将包括更多的语义化标签和WebComponents的普及。2)网页设计趋势将继续向响应式和无障碍设计发展。3)性能优化将通过响应式图片加载和延迟加载技术提升用户体验。

HTML与CSS vs. JavaScript:比较概述HTML与CSS vs. JavaScript:比较概述Apr 16, 2025 am 12:04 AM

HTML、CSS和JavaScript在网页开发中的角色分别是:HTML负责内容结构,CSS负责样式,JavaScript负责动态行为。1.HTML通过标签定义网页结构和内容,确保语义化。2.CSS通过选择器和属性控制网页样式,使其美观易读。3.JavaScript通过脚本控制网页行为,实现动态和交互功能。

HTML:是编程语言还是其他?HTML:是编程语言还是其他?Apr 15, 2025 am 12:13 AM

HTMLISNOTAPROGRAMMENGUAGE; ITISAMARKUMARKUPLAGUAGE.1)htmlStructures andFormatSwebContentusingtags.2)itworkswithcsssforstylingandjavascript for Interactivity,增强WebevebDevelopment。

See all articles

热AI工具

Undresser.AI Undress

Undresser.AI Undress

人工智能驱动的应用程序,用于创建逼真的裸体照片

AI Clothes Remover

AI Clothes Remover

用于从照片中去除衣服的在线人工智能工具。

Undress AI Tool

Undress AI Tool

免费脱衣服图片

Clothoff.io

Clothoff.io

AI脱衣机

Video Face Swap

Video Face Swap

使用我们完全免费的人工智能换脸工具轻松在任何视频中换脸!

热工具

SublimeText3汉化版

SublimeText3汉化版

中文版,非常好用

SublimeText3 英文版

SublimeText3 英文版

推荐:为Win版本,支持代码提示!

SublimeText3 Linux新版

SublimeText3 Linux新版

SublimeText3 Linux最新版

WebStorm Mac版

WebStorm Mac版

好用的JavaScript开发工具

mPDF

mPDF

mPDF是一个PHP库,可以从UTF-8编码的HTML生成PDF文件。原作者Ian Back编写mPDF以从他的网站上“即时”输出PDF文件,并处理不同的语言。与原始脚本如HTML2FPDF相比,它的速度较慢,并且在使用Unicode字体时生成的文件较大,但支持CSS样式等,并进行了大量增强。支持几乎所有语言,包括RTL(阿拉伯语和希伯来语)和CJK(中日韩)。支持嵌套的块级元素(如P、DIV),