本人小白,刚刚开始学做网站,在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> |
回复讨论(解决方案)
来位大侠帮帮我呀~~
贴清楚代码啊。。
没看懂上面代码
贴清楚代码啊。。
没看懂上面代码 谢谢关注
原是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
%>
签写留言 管理登录修改密码 退出登录 | |||
留言主题 | 留言者:" 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>
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)
%>
同求这个问题的解决方法,希望能得个答案~
解决不了 ,看来,结个贴算了,自个琢磨去,谢谢大家的关注~

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

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

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

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

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

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

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


热AI工具

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

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

Undress AI Tool
免费脱衣服图片

Clothoff.io
AI脱衣机

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

热门文章

热工具

SublimeText3汉化版
中文版,非常好用

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

SublimeText3 Linux新版
SublimeText3 Linux最新版

WebStorm Mac版
好用的JavaScript开发工具

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